From 0596cd8fd4321be2f99f8b3e1bd94f531a7a282b Mon Sep 17 00:00:00 2001 From: jao Date: Wed, 31 Mar 2021 04:23:45 +0100 Subject: fixes for moving between a pdf and its org notes --- lib/doc/jao-org-notes.el | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) (limited to 'lib/doc/jao-org-notes.el') diff --git a/lib/doc/jao-org-notes.el b/lib/doc/jao-org-notes.el index a1b9dbe..1b8c3f8 100644 --- a/lib/doc/jao-org-notes.el +++ b/lib/doc/jao-org-notes.el @@ -63,10 +63,11 @@ :history '(:input jao-org-notes--grep-history) :sort nil))) +(defun jao-org-notes-cats () + (seq-difference (directory-files jao-org-notes-dir) '("." ".." "attic"))) + (defun jao-org-notes--cat () - (let* ((cats (seq-difference (directory-files jao-org-notes-dir) - '("." ".." "attic"))) - (cat (completing-read "Top level category: " cats))) + (let* ((cat (completing-read "Top level category: " (jao-org-notes-cats)))) (cond ((file-exists-p (expand-file-name cat jao-org-notes-dir)) cat) ((yes-or-no-p "New category, create?") cat) (t (jao-roam--cat))))) -- cgit v1.2.3