From 58e3d8943f099fa9db9985153dd9d368b22a41d8 Mon Sep 17 00:00:00 2001 From: Kyle Meyer Date: Wed, 2 Apr 2014 23:30:39 -0400 Subject: Use org-open-file to open PDFs --- bog-todo.org | 3 ++- 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 diff --git a/bog.el b/bog.el index a895908..07c689b 100644 --- a/bog.el +++ b/bog.el @@ -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 , 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)) -- cgit v1.2.3