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

Simplify and rename exporting command

Browse source
This commit is contained in:
louie 2018-02-10 22:15:06 +08:00
parent 7270842948
commit 5f7e38929e
2 changed files with 15 additions and 24 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
README.org
View file

@ -52,13 +52,13 @@ anki-editor -- Make Anki Cards in Org-mode
** Command Cheatsheet
| Command | Brief Description |
|-----------------------------------------------+---------------------------------------------------------------------|
|--------------------------------------+---------------------------------------------------------------------|
| =anki-editor-submit= | Send notes in current buffer to Anki. |
| =anki-editor-insert-deck= | Insert a deck heading. |
| =anki-editor-insert-note= | Insert the skeleton of a note. |
| =anki-editor-add-tags= | Add tags to property drawer of current heading with autocompletion. |
| =anki-editor-cloze-region= | Cloze region. |
| =anki-editor-export-heading-contents-to-html= | Export the contents of the heading at point to HTML. |
| =anki-editor-export-subtree-to-html= | Export subtree of the element at point to HTML. |
| =anki-editor-convert-region-to-html= | Convert and replace region to HTML. |
Note that =anki-editor-submit= will fail if the deck does not exist

21
anki-editor.el
View file

@ -336,22 +336,13 @@ Otherwise, it's inserted below current heading at point."
(princ "}}"))))))
;;;###autoload
(defun anki-editor-export-heading-contents-to-html ()
"Export the contents of the heading at point to HTML."
(defun anki-editor-export-subtree-to-html ()
"Export subtree of the element at point to HTML."
(interactive)
(let* ((tree (org-element-at-point))
(contents (or (and (org-element-property :contents-begin tree)
(org-element-property :contents-end tree)
(buffer-substring (org-element-property :contents-begin tree)
(org-element-property :contents-end tree)))
"")))
(if (or (null tree)
(not (eq (org-element-type tree) 'headline)))
(error "No element at point or it's not a heading")
(when (buffer-live-p (get-buffer anki-editor-buffer-html-output))
(kill-buffer anki-editor-buffer-html-output))
(switch-to-buffer-other-window (get-buffer-create anki-editor-buffer-html-output))
(insert (org-export-string-as contents anki-editor--ox-anki-html-backend t)))))
(org-export-to-buffer
anki-editor--ox-anki-html-backend
anki-editor-buffer-html-output nil t nil t nil
(lambda () (html-mode))))
;;;###autoload
(defun anki-editor-convert-region-to-html ()