diff options
| author | Kyle Meyer <kyle@kyleam.com> | 2014-04-02 23:30:39 -0400 |
|---|---|---|
| committer | Kyle Meyer <kyle@kyleam.com> | 2014-04-02 23:30:39 -0400 |
| commit | 58e3d8943f099fa9db9985153dd9d368b22a41d8 (patch) | |
| tree | 26c97c3a50a868e600f0d505a7b018c8f262d047 | |
| parent | 6a09d391ef40e1b919282ee272d0292755fc3af9 (diff) | |
| download | bog-58e3d8943f099fa9db9985153dd9d368b22a41d8.tar.gz | |
Use org-open-file to open PDFs
| -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)) |