diff options
Diffstat (limited to 'lib/doc/jao-org-links.el')
-rw-r--r-- | lib/doc/jao-org-links.el | 11 |
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) |