diff options
| -rw-r--r-- | bog-todo.org | 3 | ||||
| -rw-r--r-- | bog.el | 7 |
2 files changed, 3 insertions, 7 deletions
diff --git a/bog-todo.org b/bog-todo.org index e36d990..76f361b 100644 --- a/bog-todo.org +++ b/bog-todo.org @@ -51,7 +51,8 @@ bog-rename-staged-pdf-to-citekey would be bog-rename-staged-file-to-citekey and could use the same customized extensions (or maybe just take the extension from the original file). -** ENH Use `org-file-apps' instead of `bog-pdf-opener' +** DONE Use `org-file-apps' instead of `bog-pdf-opener' + CLOSED: [2014-04-02 Wed 23:30] * Testing @@ -140,11 +140,6 @@ This is only meaningful if `bog-find-citekey-bib-func' set to :group 'bog :type 'string) -(defcustom bog-pdf-opener "xdg-open" - "Program to open PDF files with." - :group 'bog - :type 'string) - (defcustom bog-pdf-file-name-separators '("-" "_") "Characters allowed to follow the citekey in PDF file names. When `bog-find-citekey-pdf' is run on <citekey>, it will find @@ -308,7 +303,7 @@ text under point if it matches `bog-citekey-format' or using "Select PDF file: " citekey-pdfs-names) bog-pdf-directory)))) - (start-process "bog-pdf" nil bog-pdf-opener citekey-pdf))) + (org-open-file citekey-pdf))) (defun bog-citekey-pdfs (citekey) (let* ((patterns (--map (concat it "*") bog-pdf-file-name-separators)) |