awesome-emacs/nursery
1
0
Fork 0
mirror of https://github.com/chrisbarrett/nursery synced 2025-09-08 15:23:31 -05:00
Code Issues Packages Projects Releases Wiki Activity

Automatically refile nodes when marking as memorise

Browse Source
This commit is contained in:
Chris Barrett
2023-05-20 15:54:11 +12:00
parent a5b69ac3f4
commit 8301db1405
1 changed files with 17 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

20
lisp/org-roam-review.el
View File

@@ -60,13 +60,15 @@
;;; Code: ;;; Code:
(require 'dash) (require 'dash)
(require 'org-tags-filter)
(require 'org-drill) (require 'org-drill)
(require 'org-roam-node)
(require 'org-roam-dailies) (require 'org-roam-dailies)
(require 'org-roam-node)
(require 'org-tags-filter)
(require 'plisty) (require 'plisty)
(require 'ts) (require 'ts)
(declare-function org-roam-slipbox-refile "org-roam-slipbox")
(defgroup org-roam-review nil (defgroup org-roam-review nil
"Extends org-roam with spaced-repetition review of nodes." "Extends org-roam with spaced-repetition review of nodes."
:group 'productivity :group 'productivity
@@ -99,6 +101,15 @@ It must take a node and return a (possibly propertized) string."
:group 'org-roam-review :group 'org-roam-review
:type 'function) :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 (defface org-roam-review-instructions
'((t '((t
(:inherit font-lock-comment-face))) (: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-roam-tag-add (list "memo"))
(org-delete-property "MATURITY") (org-delete-property "MATURITY")
(org-roam-review--update-node-srs-properties org-roam-review--maturity-score-revisit)))) (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 ;;;###autoload
(defun org-roam-review-set-budding (&optional bury) (defun org-roam-review-set-budding (&optional bury)