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

Add customization for the format of prepended headings

Browse source
This commit is contained in:
orgtre 2022-11-19 11:50:19 +01:00
parent 4cb8f0b6bd
commit 0f80caa056
1 changed files with 17 additions and 9 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

26
anki-editor.el
View file

@ -118,6 +118,11 @@ This is only in effect when exactly one note-type field is not found
among the note subheadings and there is content before the first subheading." among the note subheadings and there is content before the first subheading."
:type 'boolean) :type 'boolean)
(defcustom anki-editor-prepend-heading-format "/%s/\n\n"
"Format string used when prepending note heading.
It should contain `%s' as placeholder for the heading, see `format'."
:type 'string)
(defcustom anki-editor-insert-note-always-use-content nil (defcustom anki-editor-insert-note-always-use-content nil
"Whether to always make use of content before (sub)heading. "Whether to always make use of content before (sub)heading.
See `anki-editor-insert-note', whose behavior this controls." See `anki-editor-insert-note', whose behavior this controls."
@ -713,7 +718,7 @@ and else from variable `anki-editor-prepend-heading'."
(tags (cl-set-difference (anki-editor--get-tags) (tags (cl-set-difference (anki-editor--get-tags)
anki-editor-ignored-org-tags anki-editor-ignored-org-tags
:test #'string=)) :test #'string=))
(heading (substring-no-properties (org-get-heading t t t))) (heading (substring-no-properties (org-get-heading t t t t)))
(level (org-current-level)) (level (org-current-level))
(content-before-subheading (content-before-subheading
(anki-editor--note-contents-before-subheading)) (anki-editor--note-contents-before-subheading))
@ -873,7 +878,8 @@ Return a list of cons of (FIELD-NAME . FIELD-CONTENT)."
(fields (cl-loop for f in fields-matching (fields (cl-loop for f in fields-matching
collect (cons f (alist-get collect (cons f (alist-get
f subheading-fields f subheading-fields
nil nil #'string=))))) nil nil #'string=))))
(heading-format anki-editor-prepend-heading-format))
(cond ((equal 0 (length fields-missing)) (cond ((equal 0 (length fields-missing))
(when (< 0 (length fields-extra)) (when (< 0 (length fields-extra))
(user-error "Failed to map all subheadings to a field"))) (user-error "Failed to map all subheadings to a field")))
@ -884,8 +890,9 @@ Return a list of cons of (FIELD-NAME . FIELD-CONTENT)."
fields) fields)
(if prepend-heading (if prepend-heading
(push (cons (car fields-missing) (push (cons (car fields-missing)
(concat heading "\n\n" (concat
content-before-subheading)) (format heading-format heading)
content-before-subheading))
fields) fields)
(push (cons (car fields-missing) (push (cons (car fields-missing)
content-before-subheading) content-before-subheading)
@ -897,11 +904,12 @@ Return a list of cons of (FIELD-NAME . FIELD-CONTENT)."
fields) fields)
(if prepend-heading (if prepend-heading
(push (cons (car fields-missing) (push (cons (car fields-missing)
(concat heading "\n\n" (concat
content-before-subheading (format heading-format heading)
(anki-editor--concat-fields content-before-subheading
fields-extra subheading-fields (anki-editor--concat-fields
level))) fields-extra subheading-fields
level)))
fields) fields)
(push (cons (car fields-missing) (push (cons (car fields-missing)
(concat content-before-subheading (concat content-before-subheading