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

Fix broken code

Browse source
This commit is contained in:
louie 2018-05-20 19:33:38 +08:00
parent f24ea04020
commit fbf45e6df8
1 changed files with 14 additions and 11 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

23
anki-editor.el
View file

@ -471,14 +471,9 @@ Otherwise, advise function `org-get-buffer-tags' to append tags
from Anki to the result. from Anki to the result.
Do nothing when JUST-ALIGN is non-nil." Do nothing when JUST-ALIGN is non-nil."
(unless just-align (unless (or just-align
(if org-current-tag-alist (advice-member-p 'anki-editor--get-buffer-tags #'org-get-buffer-tags))
(setq org-current-tag-alist (advice-add 'org-get-buffer-tags :around #'anki-editor--get-buffer-tags)))
(org--tag-add-to-alist
(mapcar #'list (anki-editor-all-tags))
org-current-tag-alist))
(unless (advice-member-p 'anki-editor--get-buffer-tags #'org-get-buffer-tags)
(advice-add 'org-get-buffer-tags :around #'anki-editor--get-buffer-tags)))))
(defun anki-editor--get-buffer-tags (oldfun) (defun anki-editor--get-buffer-tags (oldfun)
"Append tags from Anki to the result of applying OLDFUN." "Append tags from Anki to the result of applying OLDFUN."
@ -515,9 +510,15 @@ Do nothing when JUST-ALIGN is non-nil."
:raw-value :raw-value
heading))) heading)))
(contents (org-element-contents heading))) (contents (org-element-contents heading)))
`(,field-name . ,(org-export-string-as
`(,field-name . ,(or (org-export-string-as
(org-element-interpret-data contents) (org-element-interpret-data contents)
anki-editor--ox-anki-html-backend t)))) anki-editor--ox-anki-html-backend t)
;; 8.2.10 version of
;; `org-export-filter-apply-functions'
;; returns nil for an input of empty string,
;; which will cause AnkiConnect to fail
""))))
;;; Org Export Backend ;;; Org Export Backend
@ -563,6 +564,8 @@ CONTENTS is nil. INFO is a plist holding contextual information."
(replace-regexp-in-string "}}" "} } " code) (replace-regexp-in-string "}}" "} } " code)
code))) code)))
;; FIXME: since some functions get added and some get removed in
;; differenct versions of Org, this is going to break
(defun anki-editor--ox-link (link desc info) (defun anki-editor--ox-link (link desc info)
"Transcode a LINK object from Org to HTML. "Transcode a LINK object from Org to HTML.
DESC is the description part of the link, or the empty string. DESC is the description part of the link, or the empty string.