diff --git a/lisp/org-roam-review.el b/lisp/org-roam-review.el index 5721ab1..1c8815f 100644 --- a/lisp/org-roam-review.el +++ b/lisp/org-roam-review.el @@ -60,13 +60,15 @@ ;;; Code: (require 'dash) -(require 'org-tags-filter) (require 'org-drill) -(require 'org-roam-node) (require 'org-roam-dailies) +(require 'org-roam-node) +(require 'org-tags-filter) (require 'plisty) (require 'ts) +(declare-function org-roam-slipbox-refile "org-roam-slipbox") + (defgroup org-roam-review nil "Extends org-roam with spaced-repetition review of nodes." :group 'productivity @@ -99,6 +101,15 @@ It must take a node and return a (possibly propertized) string." :group 'org-roam-review :type 'function) +(defcustom org-roam-review-memo-slipbox nil + "A slipbox to save memo notes to. + +If set, marking a node as a memo note with +`org-roam-review-set-memorise' will also refile." + :group 'org-roam-review + :type '(choice (string :tag "Slipbox name") + (const :tag "none" nil))) + (defface org-roam-review-instructions '((t (:inherit font-lock-comment-face))) @@ -790,7 +801,10 @@ It will show up in a dedicated section of the review buffer when it's due." (org-roam-tag-add (list "memo")) (org-delete-property "MATURITY") (org-roam-review--update-node-srs-properties org-roam-review--maturity-score-revisit)))) - (org-roam-review--update-review-buffer-entry node)))) + (org-roam-review--update-review-buffer-entry node) + (when org-roam-review-memo-slipbox + (unless (equal org-roam-review-memo-slipbox (org-roam-node-slipbox node)) + (org-roam-slipbox-refile node org-roam-review-memo-slipbox)))))) ;;;###autoload (defun org-roam-review-set-budding (&optional bury)