1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
|
;;; chime-org-contacts.el --- Optional org-contacts integration for chime -*- lexical-binding: t; -*-
;; Copyright (C) 2025-2026 Craig Jennings
;; Author: Craig Jennings <c@cjennings.net>
;; Version: 1.0.0
;; Package-Requires: ((emacs "27.1") (org "9.0"))
;; Keywords: calendar, org-mode, contacts
;; URL: https://github.com/cjennings/chime
;; This program is free software: you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
;; the Free Software Foundation, either version 3 of the License, or
;; (at your option) any later version.
;; This program is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
;; GNU General Public License for more details.
;; You should have received a copy of the GNU General Public License
;; along with this program. If not, see <http://www.gnu.org/licenses/>.
;;; Commentary:
;; Optional org-contacts integration for chime.el
;;
;; This module provides an org-capture template that automatically inserts
;; birthday timestamps when creating new contacts. This complements the
;; chime conversion script (convert-org-contacts-birthdays.el) which handles
;; existing contacts.
;;
;; Usage:
;; (setq chime-org-contacts-file "~/org/contacts.org")
;;
;; This will:
;; - Add an org-capture template (default key: "C")
;; - Automatically insert yearly repeating timestamps for birthdays
;; - Enable birthdays to appear in org-agenda without org-contacts loaded
;;
;; The integration is disabled by default. Set `chime-org-contacts-file'
;; to enable it.
;;; Code:
(require 'org)
(require 'org-capture)
;;; Customization
(defgroup chime-org-contacts nil
"Org-contacts integration for chime.el."
:group 'chime
:prefix "chime-org-contacts-")
(defcustom chime-org-contacts-file nil
"Path to org-contacts file for birthday timestamp integration.
When nil, org-contacts capture integration is disabled.
When set to a file path, chime will add an org-capture template
that automatically inserts birthday timestamps for new contacts,
enabling them to appear in org-agenda without requiring org-contacts
to be loaded in the async subprocess.
Example:
(setq chime-org-contacts-file \"~/org/contacts.org\")"
:type '(choice (const :tag "Disabled" nil)
(file :tag "Contacts file path"))
:group 'chime-org-contacts)
(defcustom chime-org-contacts-capture-key "C"
"Key binding for chime org-contacts capture template.
This is the key you press after invoking org-capture (C-c c by default).
Change this if you already have a capture template using \"C\"."
:type 'string
:group 'chime-org-contacts)
(defcustom chime-org-contacts-heading "Contacts"
"Heading under which to file new contacts.
New contacts will be filed under this heading in `chime-org-contacts-file'."
:type 'string
:group 'chime-org-contacts)
;;; Implementation
;; Birthday parsing, formatting, and insertion are provided by
;; convert-org-contacts-birthdays.el to avoid duplication.
(require 'convert-org-contacts-birthdays
(expand-file-name "convert-org-contacts-birthdays.el"
(file-name-directory (or load-file-name buffer-file-name))))
(defun chime-org-contacts--finalize-birthday-timestamp ()
"Add yearly repeating timestamp after properties drawer if BIRTHDAY is set.
This function is called during org-capture finalization to automatically
insert a plain timestamp for birthdays, enabling them to appear in org-agenda
without requiring org-contacts to be loaded in the async subprocess.
Delegates to `chime--insert-birthday-timestamp-after-drawer' for the
actual parsing, formatting, and insertion."
(when (string= (plist-get org-capture-plist :key) chime-org-contacts-capture-key)
(save-excursion
(goto-char (point-min))
(let ((birthday (org-entry-get (point) "BIRTHDAY")))
(when (and birthday (not (string-blank-p birthday)))
(condition-case nil
(chime--insert-birthday-timestamp-after-drawer birthday)
(user-error nil)))))))
(defun chime-org-contacts--setup-capture-template ()
"Add org-capture template for contacts with birthday timestamps.
This template will only be added if:
1. `chime-org-contacts-file' is set
2. `org-capture-templates' is available
3. The capture key is not already in use (warns if it is)"
(when (and chime-org-contacts-file
(boundp 'org-capture-templates))
;; Check if key is already in use
(when (assoc chime-org-contacts-capture-key org-capture-templates)
(warn "chime-org-contacts: Capture key \"%s\" already in use. Change `chime-org-contacts-capture-key' to use a different key."
chime-org-contacts-capture-key))
;; Add the capture template
(add-to-list 'org-capture-templates
`(,chime-org-contacts-capture-key
"Contact (chime)"
entry
(file+headline chime-org-contacts-file ,chime-org-contacts-heading)
"* %^{Name}
:PROPERTIES:
:EMAIL: %^{Email}
:PHONE: %^{Phone}
:ADDRESS: %^{Address}
:BIRTHDAY: %^{Birthday (YYYY-MM-DD or MM-DD)}
:NICKNAME: %^{Nickname}
:COMPANY: %^{Company}
:TITLE: %^{Title}
:WEBSITE: %^{Website}
:NOTE: %^{Note}
:END:
Added: %U"
:prepare-finalize chime-org-contacts--finalize-birthday-timestamp))))
;;; Activation
;; Set up the capture template when org-capture is loaded,
;; but only if chime-org-contacts-file is configured
(with-eval-after-load 'org-capture
(when chime-org-contacts-file
(chime-org-contacts--setup-capture-template)))
(provide 'chime-org-contacts)
;;; chime-org-contacts.el ends here
|
