jao-river-zathura-kill-link

1 files changed, 7 insertions, 4 deletions

diff --git a/lib/doc/jao-org-links.el b/lib/doc/jao-org-links.el
index dd8f2bb..acfe176 100644
--- a/lib/doc/jao-org-links.el
+++ b/lib/doc/jao-org-links.el
@@ -82,7 +82,7 @@
                     (file-name-directory jao-org-notes-dir)))
 
 ;;;###autoload
-(defun jao-org-pdf-to-org-file (&optional file-name)
+(defun jao-org-pdf-to-org-file (&optional file-name no-ask)
   (let* ((file-name (or file-name buffer-file-name))
          (bn (file-name-base file-name))
          (rx (format "%s\\.org$" (regexp-quote bn))))
@@ -90,9 +90,12 @@
                        (lambda ()
                          (string-prefix-p jao-org-notes-dir buffer-file-name)))
     (or (car (directory-files-recursively jao-org-notes-dir rx))
-        (let* ((dirs (jao-org-notes-cats))
-               (dir (completing-read "Notes subdir: " dirs nil t)))
-          (expand-file-name (concat dir "/" bn ".org") jao-org-notes-dir)))))
+        (let ((d (if no-ask
+                     ""
+                   (concat (completing-read "Notes subdir: "
+                                            (jao-org-notes-cats) nil t)
+                           "/"))))
+          (expand-file-name (concat dir bn ".org") jao-org-notes-dir)))))
 
 ;;;###autoload
 (defun jao-org-insert-doc-skeleton (&optional title)