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

Make commands autoloadable

Browse source
This commit is contained in:
louie 2018-01-07 17:49:22 +08:00
parent 4ead4b8b05
commit 873e3dfaa3
1 changed files with 5 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
anki-editor.el
View file

@ -34,6 +34,7 @@
;; Commands ;; Commands
;;;###autoload
(defun anki-editor-submit () (defun anki-editor-submit ()
"Send notes in current buffer to Anki." "Send notes in current buffer to Anki."
(interactive) (interactive)
@ -53,6 +54,7 @@
(let ((failed (seq-count #'null result))) (let ((failed (seq-count #'null result)))
(message (format "Submitted %d notes, %d successful, %d failed." total (- total failed) failed)))))))) (message (format "Submitted %d notes, %d successful, %d failed." total (- total failed) failed))))))))
;;;###autoload
(defun anki-editor-insert-deck (&optional prefix) (defun anki-editor-insert-deck (&optional prefix)
"Insert a deck heading with the same level as current heading. "Insert a deck heading with the same level as current heading.
With prefix, only insert the deck name." With prefix, only insert the deck name."
@ -68,6 +70,7 @@ With prefix, only insert the deck name."
(insert deckname) (insert deckname)
(unless prefix (anki-editor--set-tags-fix anki-editor-deck-tag)))))) (unless prefix (anki-editor--set-tags-fix anki-editor-deck-tag))))))
;;;###autoload
(defun anki-editor-insert-note () (defun anki-editor-insert-note ()
"Insert a note heading that's one level lower to current heading. "Insert a note heading that's one level lower to current heading.
The inserted heading will be structured with the property drawer The inserted heading will be structured with the property drawer
@ -101,6 +104,7 @@ note type."
(end-of-line) (end-of-line)
(newline-and-indent))))))) (newline-and-indent)))))))
;;;###autoload
(defun anki-editor-export-heading-contents-to-html () (defun anki-editor-export-heading-contents-to-html ()
"Export the contents of the heading at point to HTML." "Export the contents of the heading at point to HTML."
(interactive) (interactive)
@ -122,6 +126,7 @@ note type."
(,(kbd "C-c a i n") . ,#'anki-editor-insert-note) (,(kbd "C-c a i n") . ,#'anki-editor-insert-note)
(,(kbd "C-c a e") . ,#'anki-editor-export-heading-contents-to-html))) (,(kbd "C-c a e") . ,#'anki-editor-export-heading-contents-to-html)))
;;;###autoload
(defun anki-editor-setup-default-keybindings () (defun anki-editor-setup-default-keybindings ()
"Set up the default keybindings." "Set up the default keybindings."
(interactive) (interactive)