Incorporate changes in PR#62

louietan · Mar 9, 2020 · ff3230f · ff3230f
1 parent c74e864
commit ff3230f
Show file tree

Hide file tree

Showing 3 changed files with 17 additions and 3 deletions.
diff --git a/Changelog.org b/Changelog.org
@@ -26,6 +26,8 @@
        4. Command ~anki-editor-remove-styles~
    11. Updated anki-connect to version 6
        1. ~anki-editor-api-upgrade~ removed
+   12. Added variable ~anki-editor-note-match~ to make matching note
+       entries customizable
 
 ** v0.3.3
 

diff --git a/README.org b/README.org
@@ -90,6 +90,7 @@ there are any ambiguity or grammatical mistakes ;-)/
    | anki-editor-latex-style                       | builtin                | The style of latex to translate into.                                                                    |
    | anki-editor-include-default-style             | t                      | Wheter or not to include `org-html-style-default' when using `anki-editor-copy-styles'.                  |
    | anki-editor-html-head                         | nil                    | Additional html tags to append to card stylings when using `anki-editor-copy-styles'.                    |
+   | anki-editor-note-match                        | nil                    | Additional matching string for mapping through anki note headings.                                       |
 
 ** Functions and Macros
 

diff --git a/anki-editor.el b/anki-editor.el
@@ -118,6 +118,11 @@ provide your custom styles in `anki-editor-html-head'."
 For example, you can put custom styles or scripts in this variable."
   :type 'string)
 
+(defcustom anki-editor-note-match nil
+  "Additional matching string for mapping through anki note headings.
+A leading logical operator like `+' or `&' is required."
+  :type 'string)
+
 
 ;;; AnkiConnect
 
@@ -451,12 +456,18 @@ as note types won't change in BODY."
          (setq anki-editor--collection-data-updated nil)))))
 
 (defun anki-editor-map-note-entries (func &optional match scope &rest skip)
-  "Simple wrapper that calls `org-map-entries' with
-  `&ANKI_NOTE_TYPE<>\"\"' appended to MATCH."
+  "Simple wrapper that calls `org-map-entries' with entries that match
+`ANKI_NOTE_TYPE<>\"\"', `anki-editor-note-match' and MATCH.
+A leading logical operator like `+' or `&' is required in MATCH."
   ;; disable property inheritance temporarily, or all subheadings of a
   ;; note heading will be counted as note headings as well
   (let ((org-use-property-inheritance nil))
-    (org-map-entries func (concat match "&" anki-editor-prop-note-type "<>\"\"") scope skip)))
+    (org-map-entries func
+                     (concat "+" anki-editor-prop-note-type "<>\"\""
+                             match
+                             anki-editor-note-match)
+                     scope
+                     skip)))
 
 (defun anki-editor--insert-note-skeleton (prefix deck heading type fields)
   "Insert a note subtree (skeleton) with HEADING, TYPE and FIELDS.