aliens/org-contacts
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

extract properties Org entry headline at `position' as data API for better contacts searching.

Browse source
This commit is contained in:
stardiviner 2023-07-21 09:51:15 +08:00
parent c386c16802
commit 7f03eafaad
1 changed files with 20 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

24
org-contacts.el
View file

@ -1296,10 +1296,26 @@ Each element has the form (NAME . (FILE . POSITION))."
(with-current-buffer (get-buffer (file-name-nondirectory file)) (with-current-buffer (get-buffer (file-name-nondirectory file))
(org-map-entries (org-map-entries
(lambda () (lambda ()
(let ((name (substring-no-properties (org-get-heading t t t t))) (let* ((name (substring-no-properties (org-get-heading t t t t)))
(file (buffer-file-name)) (file (buffer-file-name))
(position (point))) (position (point))
`(:name ,name :file ,file :position ,position)))))) ;; extract properties Org entry headline at `position' as data API for better contacts searching.
(entry-properties (org-entry-properties position 'standard))
(property-name-chinese (cdr (assoc (upcase "NAME(Chinese)") entry-properties)))
(property-name-english (cdr (assoc (upcase "NAME(English)") entry-properties)))
(property-nick (cdr (assoc "NICK" entry-properties)))
(property-email (cdr (assoc "EMAIL" entry-properties)))
(property-mobile (cdr (assoc "MOBILE" entry-properties)))
(property-wechat (cdr (assoc (upcase "WeChat") entry-properties)))
(property-qq (cdr (assoc "QQ" entry-properties))))
(list :name name :file file :position position
:name-chinese property-name-chinese
:name-english property-name-english
:nick property-nick
:email property-email
:mobile property-email
:wechat property-wechat
:qq property-qq))))))
(org-contacts-files)))) (org-contacts-files))))
;;;###autoload ;;;###autoload