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

Improve insertion commands

Browse source
This commit is contained in:
louie 2018-01-06 20:31:36 +08:00
parent 19d21cdc57
commit 93bf5a1c01
1 changed files with 10 additions and 9 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

19
anki-editor.el
View file

@ -58,6 +58,7 @@
"deckNames" 5 nil
(lambda (result)
(setq result (append (sort result #'string-lessp) nil))
(org-insert-heading-respect-content)
(insert (completing-read "Choose a deck: " result))
(anki-editor--set-tags-fix anki-editor-deck-tag))))
@ -74,18 +75,18 @@
(anki-editor--anki-connect-invoke
"modelFieldNames" 5 `((modelName . ,note-type))
(lambda (fields)
(setq fields (append (reverse fields) nil)
note-heading (read-from-minibuffer "Enter the heading: " "Item"))
(org-insert-subheading nil)
(setq note-heading (read-from-minibuffer "Enter the heading: " "Item"))
(org-insert-heading-respect-content)
(org-do-demote)
(insert note-heading)
(anki-editor--set-tags-fix anki-editor-note-tag)
(org-set-property (substring (symbol-name anki-editor-note-type-prop) 1) note-type)
(org-next-visible-heading 1)
(end-of-line 0)
(dolist (field fields)
(save-excursion
(org-insert-subheading nil)
(insert field)))
(seq-each (lambda (field)
(save-excursion
(org-insert-heading-respect-content)
(org-do-demote)
(insert field)))
fields)
(org-next-visible-heading 1)
(end-of-line)
(newline-and-indent)))))))