blob: 899df28dda9a059b4496dad45dacfd5d87ea88ea (
plain)
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
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
|
;;; org-contacts-config.el --- Org Contacts Configuration -*- lexical-binding: t; coding: utf-8; -*-
;; author: Craig Jennings <c@cjennings.net>
;;
;;; Commentary:
;; Configuration for org-contacts, providing contact management within org-mode.
;; Integrates with mu4e for email address completion and org-roam for linking
;; contacts to projects and notes.
;;
;; Email completion functionality has been moved to mu4e-org-contacts-integration.el
;;; Code:
(require 'user-constants)
;; --------------------------- Org Agenda Integration --------------------------
(with-eval-after-load 'org-agenda
;; Remove the direct hook first (in case it's already added)
(remove-hook 'org-agenda-finalize-hook 'org-contacts-anniversaries)
;; Add a wrapper function that ensures proper context
(defun cj/org-contacts-anniversaries-safe ()
"Safely call org-contacts-anniversaries with required bindings."
(require 'diary-lib)
;; These need to be dynamically bound for diary functions
(defvar date)
(defvar entry)
(defvar original-date)
(let ((date (calendar-current-date))
(entry "")
(original-date (calendar-current-date)))
(ignore-errors
(org-contacts-anniversaries))))
;; Use the safe wrapper instead
(add-hook 'org-agenda-finalize-hook 'cj/org-contacts-anniversaries-safe))
;;; ---------------------------- Capture Templates ------------------------------
(with-eval-after-load 'org-capture
(add-to-list 'org-capture-templates
'("C" "Contact" entry (file+headline contacts-file "Contacts")
"* %(cj/org-contacts-template-name)
Added: %U")))
(defun cj/org-contacts-template-name ()
"Get name for contact template from context."
(let ((name (when (boundp 'cj/contact-name) cj/contact-name)))
(or name
(when (eq major-mode 'mu4e-headers-mode)
(mu4e-message-field (mu4e-message-at-point) :from-or-to))
(when (eq major-mode 'mu4e-view-mode)
(mu4e-message-field mu4e~view-message :from-or-to))
(read-string "Name: "))))
(defun cj/org-contacts-template-email ()
"Get email for contact template from context."
(let ((email (when (boundp 'cj/contact-email) cj/contact-email)))
(or email
(when (eq major-mode 'mu4e-headers-mode)
(let ((from (mu4e-message-field (mu4e-message-at-point) :from)))
(when from (cdr (car from)))))
(when (eq major-mode 'mu4e-view-mode)
(let ((from (mu4e-message-field mu4e~view-message :from)))
(when from (cdr (car from)))))
(read-string "Email: "))))
;;; ------------------------- Quick Contact Functions ---------------------------
(defun cj/org-contacts-find ()
"Find and open a contact."
(interactive)
(find-file contacts-file)
(goto-char (point-min))
(let ((contact (completing-read "Contact: "
(org-map-entries
(lambda () (nth 4 (org-heading-components)))
nil (list contacts-file)))))
(goto-char (point-min))
(search-forward contact)
(org-fold-show-entry)
(org-reveal)))
(defun cj/org-contacts-new ()
"Create a new contact."
(interactive)
(org-capture nil "C"))
(defun cj/org-contacts-view-all ()
"View all contacts in a column view."
(interactive)
(find-file contacts-file)
(org-columns))
;;; -------------------------- Org-Roam Integration -----------------------------
;; (with-eval-after-load 'org-roam
;; (defun cj/org-contacts-link-to-roam ()
;; "Link current contact to an org-roam node."
;; (interactive)
;; (when (eq major-mode 'org-mode)
;; (let ((contact-name (org-entry-get (point) "ITEM")))
;; (org-set-property "ROAM_REFS"
;; (org-roam-node-id
;; (org-roam-node-read nil nil nil nil
;; :initial-input contact-name)))))))
;;; ----------------------------- Birthday Agenda --------------------------------
(with-eval-after-load 'org-agenda
;; Add birthdays to agenda
(setq org-agenda-include-diary t)
;; Custom agenda command for upcoming birthdays
(add-to-list 'org-agenda-custom-commands
'("b" "Birthdays and Anniversaries"
((tags-todo "BIRTHDAY|ANNIVERSARY"
((org-agenda-overriding-header "Upcoming Birthdays and Anniversaries")
(org-agenda-sorting-strategy '(time-up))))))))
;;; ---------------------------- Core Contact Data Functions ---------------------------
(defun cj/org-contacts--props-matching (entry pattern)
"Return all property values from ENTRY whose keys match PATTERN (a regexp)."
(let ((props (nth 2 entry)))
(delq nil
(mapcar (lambda (prop)
(when (string-match-p pattern (car prop))
(cdr prop)))
props))))
(defun cj/get-all-contact-emails ()
"Retrieve all contact emails from org-contacts database.
Returns a list of formatted strings like \"Name <email@example.com>\".
This is the core function used by the mu4e integration module."
(let ((contacts (org-contacts-db)))
(delq nil
(mapcan (lambda (e)
(let* ((name (car e))
;; This returns a LIST of email strings
(email-strings (cj/org-contacts--props-matching e "EMAIL")))
;; Need mapcan here to handle the list
(mapcan (lambda (email-str)
(when (and email-str (string-match-p "[^[:space:]]" email-str))
(mapcar (lambda (email)
(format "%s <%s>" name (string-trim email)))
(split-string email-str "[,;[:space:]]+" t))))
email-strings)))
contacts))))
;; Simple insertion function for use outside of mu4e
(defun cj/insert-contact-email ()
"Select and insert a contact's email address at point.
For use outside of mu4e compose buffers. In mu4e, the integration
module provides more sophisticated completion."
(interactive)
(let* ((items (cj/get-all-contact-emails))
(selected (completing-read "Contact: " items nil t)))
(insert selected)))
;;; -------------------------------- Org Contacts --------------------------------
(use-package org-contacts
:after (org mu4e)
:custom
(org-contacts-files (list contacts-file))
:config
(require 'mu4e)
;; Basic settings
(setq org-contacts-icon-use-gravatar nil) ; Don't fetch gravatars
;; Birthday and anniversary handling
(setq org-contacts-birthday-format "It's %l's birthday today! 🎂")
(setq org-contacts-anniversary-format "%l's anniversary 💑")
;; Email address formatting
(setq org-contacts-email-link-description-format "%s <%e>")
(setq mu4e-org-contacts-file contacts-file)
(add-to-list 'mu4e-headers-actions
'("org-contact-add" . mu4e-action-add-org-contact) t)
(add-to-list 'mu4e-view-actions
'("org-contact-add" . mu4e-action-add-org-contact) t)
;; Disable mu4e's built-in completion in favor of our custom solution
(setq mu4e-compose-complete-addresses nil))
;;; ---------------------------- Org-Contacts Keymap ----------------------------
;; Keymap for `org-contacts' commands
(defvar cj/org-contacts-map
(let ((map (make-sparse-keymap)))
(define-key map "f" 'cj/org-contacts-find) ;; find contact
(define-key map "n" 'cj/org-contacts-new) ;; new contact
(define-key map "e" 'cj/insert-contact-email) ;; inserts email from org-contact
(define-key map "v" 'cj/org-contacts-view-all) ;; view all contacts
map)
"Keymap for `org-contacts' commands.")
;; Bind the org-contacts map to the C-c C prefix
(global-set-key (kbd "C-c C") cj/org-contacts-map)
(provide 'org-contacts-config)
;;; org-contacts-config.el ends here
|
