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))
(begin (save-excursion (skip-chars-backward "[:alnum:]@") (point)))
(symbol (buffer-substring-no-properties begin end))
(org-contacts-prefix-p (string-prefix-p "@" symbol))
;; (prefix (substring-no-properties symbol 1 nil))
)
(org-contacts-prefix-p (string-prefix-p "@" symbol)))
(when org-contacts-prefix-p
(list begin
end
;; (all-completions
;; prefix
;; (mapcar
;; (lambda (contact) (plist-get contact :name))
;; (org-contacts--all-contacts))
;; 'stringp)
(completion-table-dynamic
(lambda (_)
(mapcar