awesome-emacs/nursery
1
0
Fork 0
mirror of https://github.com/chrisbarrett/nursery synced 2025-09-22 16:20:55 -05:00
Code Issues Packages Projects Releases Wiki Activity

Add command to list nodes by slipbox

Browse Source
This commit is contained in:
Chris Barrett
2022-09-24 19:01:36 +12:00
parent 73fcc7987c
commit d8db5ccf84
1 changed files with 28 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

33
lisp/org-roam-slipbox.el
View File

@@ -64,6 +64,7 @@
(require 'f) (require 'f)
(require 'magit) (require 'magit)
(require 'org-roam) (require 'org-roam)
(require 'org-roam-review)
(require 'org-roam-rewrite) (require 'org-roam-rewrite)
(defgroup org-roam-slipbox nil (defgroup org-roam-slipbox nil
@@ -134,15 +135,17 @@ See also: `org-roam-slipbox-default'."
(magit-call-git "add" (magit-convert-filename-for-git from)) (magit-call-git "add" (magit-convert-filename-for-git from))
(magit-file-rename from to)) (magit-file-rename from to))
(defun org-roam-slipbox--read (&optional current-slipbox)
(let ((slipboxes (seq-difference (seq-map #'f-base (f-directories org-roam-directory))
(list current-slipbox))))
(completing-read "Slipbox: " slipboxes nil t)))
;;;###autoload ;;;###autoload
(defun org-roam-slipbox-refile (node slipbox) (defun org-roam-slipbox-refile (node slipbox)
"Move NODE into SLIPBOX." "Move NODE into SLIPBOX."
(interactive (let* ((node (org-roam-node-at-point t)) (interactive (let* ((node (org-roam-node-at-point t))
(current-slipbox (org-roam-node-slipbox node)) (current-slipbox (org-roam-node-slipbox node)))
(slipboxes (seq-difference (seq-map #'f-base (f-directories org-roam-directory)) (list node (org-roam-slipbox--read current-slipbox))))
(list current-slipbox))))
(list node
(completing-read "Slipbox: " slipboxes nil t))))
(let ((current-slipbox (org-roam-node-slipbox node)) (let ((current-slipbox (org-roam-node-slipbox node))
dest) dest)
@@ -233,6 +236,26 @@ This means titles can be restored if
(t (t
(setq-local mode-line-buffer-identification org-roam-slipbox--original-buffer-identification)))) (setq-local mode-line-buffer-identification org-roam-slipbox--original-buffer-identification))))
;;;###autoload
(defun org-roam-slipbox-list-notes (slipbox)
"List nodes belonging to SLIPBOX."
(interactive (list (org-roam-slipbox--read)))
(org-roam-review-display-buffer-and-select
(org-roam-review-create-buffer
:title (concat "Notes for slipbox: " (propertize slipbox 'face 'org-roam-slipbox-name))
:instructions "The nodes below are sorted by slipbox"
:group-on (lambda (it)
(or (org-roam-review--maturity-header it)
(cons "Others" 4)))
:nodes
(lambda ()
(seq-filter (lambda (node)
(seq-contains-p (org-roam-node-tags node) slipbox))
(org-roam-node-list)))
:sort #'org-roam-review-sort-by-title-case-insensitive)))
(provide 'org-roam-slipbox) (provide 'org-roam-slipbox)
;;; org-roam-slipbox.el ends here ;;; org-roam-slipbox.el ends here