diff options
author | jao <jao@gnu.org> | 2021-03-31 04:23:45 +0100 |
---|---|---|
committer | jao <jao@gnu.org> | 2021-03-31 04:23:45 +0100 |
commit | 0596cd8fd4321be2f99f8b3e1bd94f531a7a282b (patch) | |
tree | 5925f99a638560ad04bcde07929a62b15245c1e0 /lib/doc/jao-org-notes.el | |
parent | 0023fdada4572ceca921e3e25436b2b4ef5e3be8 (diff) | |
download | elibs-0596cd8fd4321be2f99f8b3e1bd94f531a7a282b.tar.gz elibs-0596cd8fd4321be2f99f8b3e1bd94f531a7a282b.tar.bz2 |
fixes for moving between a pdf and its org notes
Diffstat (limited to 'lib/doc/jao-org-notes.el')
-rw-r--r-- | lib/doc/jao-org-notes.el | 7 |
1 files changed, 4 insertions, 3 deletions
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))))) |