From 0ed320d8daa15f1cff389ddb0ab2b49b2b065a9e Mon Sep 17 00:00:00 2001 From: orgtre Date: Thu, 3 Nov 2022 19:23:10 +0100 Subject: [PATCH] Delete obsolete fix-notes-0.3.el --- fix-notes-0.3.el | 45 --------------------------------------------- 1 file changed, 45 deletions(-) delete mode 100644 fix-notes-0.3.el diff --git a/fix-notes-0.3.el b/fix-notes-0.3.el deleted file mode 100644 index 587656b..0000000 --- a/fix-notes-0.3.el +++ /dev/null @@ -1,45 +0,0 @@ -(require 'seq) -(require 'anki-editor) - -(defconst anki-editor-fix-prop-tags "ANKI_TAGS") -(defconst anki-editor-fix-prop-deck "ANKI_DECK") -(defconst anki-editor-fix-tag-note "note") -(defconst anki-editor-fix-tag-deck "deck") - - -(defun anki-editor-fix-notes (&optional list-of-files) - "Fix notes in LIST-OF-FILES, or in current buffer if it's nil. -`anki-editor' has be to upgraded to `0.3' before using this -command. It should be noted that only letters, numbers, `_' and -`@' are allowed in Org tags, and existing tags of headings will -be considered as Anki tags now." - - (interactive) - (when (yes-or-no-p "It's strongly recommended that you backup or version-control your old note files before running this command. Are you sure to continue ?") - (org-map-entries - (lambda () - (message "Fixing in buffer \"%s\" at %d..." (buffer-name) (point)) - (let* ((local-tags (org-get-local-tags)) - (old-anki-tags (org-entry-get-multivalued-property nil anki-editor-fix-prop-tags)) - (new-tags (cl-set-difference (append old-anki-tags (org-get-local-tags)) - (list anki-editor-fix-tag-deck anki-editor-fix-tag-note) - :test #'string=))) - - (unless (seq-every-p #'anki-editor-is-valid-org-tag new-tags) - (error "Fixing failed in buffer \"%s\" at point %d: only letters, numbers, `_', `@', `#' and `%%' are allowed in an Org tag" - (buffer-name) - (point))) - (org-set-tags-to new-tags) - (beginning-of-line) - (org-fix-tags-on-the-fly) - (org-entry-delete nil anki-editor-fix-prop-tags) - (cond - ((member anki-editor-fix-tag-deck local-tags) - (anki-editor-fix-deck))))) - nil - list-of-files) - (message "Fixing... DONE!"))) - -(defun anki-editor-fix-deck () - (interactive) - (org-set-property anki-editor-fix-prop-deck (nth 4 (org-heading-components))))