elisp/anki-editor
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Enable completion for ANKI_TAGS

Browse source
This commit is contained in:
louie 2018-07-29 17:18:59 +08:00
parent 06a8cdccf6
commit 325462db2e
1 changed files with 5 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
anki-editor.el
View file

@ -437,6 +437,7 @@ Where the subtree is created depends on PREFIX."
(pcase property
((pred (string= anki-editor-prop-deck)) (anki-editor-deck-names))
((pred (string= anki-editor-prop-note-type)) (anki-editor-note-types))
((pred (string= anki-editor-prop-tags)) (anki-editor-all-tags))
(_ nil)))
(defun anki-editor-is-valid-org-tag (tag)
@ -445,11 +446,7 @@ Where the subtree is created depends on PREFIX."
(defun anki-editor-all-tags ()
"Get all tags from Anki."
(let (anki-tags)
(prog1
(setq anki-tags (anki-editor--anki-connect-invoke-result "getTags"))
(unless (-all? #'anki-editor-is-valid-org-tag anki-tags)
(warn "Some tags from Anki contain characters that are not valid in Org tags.")))))
(anki-editor--anki-connect-invoke-result "getTags"))
(defun anki-editor-deck-names ()
"Get all decks names from Anki."
@ -462,7 +459,9 @@ Where the subtree is created depends on PREFIX."
"Fetch and cache tags from Anki."
(when (and (anki-editor--enable-tag-completion)
(not just-align))
(setq anki-editor--anki-tags-cache (anki-editor-all-tags))))
(setq anki-editor--anki-tags-cache (anki-editor-all-tags))
(unless (-all? #'anki-editor-is-valid-org-tag anki-editor--anki-tags-cache)
(warn "Some tags from Anki contain characters that are not valid in Org tags."))))
(defun anki-editor--get-buffer-tags (oldfun)
"Append tags from Anki to the result of applying OLDFUN."