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

Add a customazation variable for creating decks.

Browse source
This commit is contained in:
louie 2018-04-15 15:36:58 +08:00
parent f8665794f9
commit 6ad510441d
1 changed files with 11 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
anki-editor.el
View file

@ -90,6 +90,10 @@ See https://apps.ankiweb.net/docs/manual.html#latex-conflicts.")
nil
"If non-nil, notes will inherit tags from all its ancestor headings.")
(defcustom anki-editor-create-decks
nil
"If non-nil, creates deck before creating a note.")
(defcustom anki-editor-anki-connect-listening-address
"127.0.0.1"
"The network address AnkiConnect is listening.")
@ -413,6 +417,9 @@ If DEMOTE is t, demote the inserted note heading."
(defun anki-editor--create-note (note)
"Request AnkiConnect for creating NOTE."
(when anki-editor-create-decks
(anki-editor--create-deck (alist-get 'deck note)))
(let* ((response (anki-editor--anki-connect-invoke
"addNote" 5 `((note . ,(anki-editor--anki-connect-map-note note)))))
(result (alist-get 'result response))
@ -444,6 +451,10 @@ If DEMOTE is t, demote the inserted note heading."
"removeTags" 5 `(("notes" . (,(alist-get 'note-id note)))
("tags" . ,(mapconcat #'identity removed-tags " ")))))))
(defun anki-editor--create-deck (deck-name)
"Request AnkiConnect for creating a deck named DECK-NAME."
(anki-editor--anki-connect-invoke-result "createDeck" 5 `((deck . ,deck-name))))
(defun anki-editor--set-failure-reason (reason)
"Set failure reason to REASON in property drawer at point."
(org-entry-put nil (anki-editor--keyword-name anki-editor-prop-failure-reason) reason))