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

Remove all-completions code logic

Browse source
This commit is contained in:
stardiviner 2021-11-18 15:08:38 +08:00
parent 85dd965906
commit 39c7aba7dc
1 changed files with 1 additions and 11 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
org-contacts.el
View file

@ -681,20 +681,10 @@ Usage: (add-hook 'completion-at-point-functions 'org-contacts-org-complete-funct
(when-let* ((end (point)) (when-let* ((end (point))
(begin (save-excursion (skip-chars-backward "[:alnum:]@") (point))) (begin (save-excursion (skip-chars-backward "[:alnum:]@") (point)))
(symbol (buffer-substring-no-properties begin end)) (symbol (buffer-substring-no-properties begin end))
(org-contacts-prefix-p (string-prefix-p "@" symbol)) (org-contacts-prefix-p (string-prefix-p "@" symbol)))
;; (prefix (substring-no-properties symbol 1 nil))
)
(when org-contacts-prefix-p (when org-contacts-prefix-p
(list begin (list begin
end end
;; (all-completions
;; prefix
;; (mapcar
;; (lambda (contact) (plist-get contact :name))
;; (org-contacts--all-contacts))
;; 'stringp)
(completion-table-dynamic (completion-table-dynamic
(lambda (_) (lambda (_)
(mapcar (mapcar