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

Add a command to insert decks

Browse source
This commit is contained in:
louie 2018-01-05 21:53:37 +08:00
parent 23d022a0a1
commit 9922313a9a
1 changed files with 13 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

14
anki-editor.el
View file

@ -51,8 +51,20 @@
(let ((failed (seq-count #'null result)))
(message (format "Submitted %d notes, %d successful, %d failed." total (- total failed) failed))))))))
(defun anki-editor-insert-deck ()
(interactive)
(message "Fetching...")
(anki-editor--anki-connect-invoke
"deckNames" 5 nil
(lambda (result)
(setq result (append (sort result #'string-lessp) nil))
(insert (completing-read "Choose a deck: " result))
(org-set-tags-to anki-editor-deck-tag)
(org-fix-tags-on-the-fly))))
(setq anki-editor--key-map `((,(kbd "C-c a s") . ,#'anki-editor-submit)))
(setq anki-editor--key-map `((,(kbd "C-c a s") . ,#'anki-editor-submit)
(,(kbd "C-c a d") . ,#'anki-editor-insert-deck)))
(defun anki-editor-setup-default-keybindings ()
(interactive)