From 7df1e0400ee5496535ff709caee54fb750af2c04 Mon Sep 17 00:00:00 2001 From: jao Date: Tue, 30 Aug 2022 12:00:04 +0100 Subject: jao-pdf &co. --- lib/doc/jao-org-links.el | 17 ++++++++--------- 1 file changed, 8 insertions(+), 9 deletions(-) (limited to 'lib/doc/jao-org-links.el') diff --git a/lib/doc/jao-org-links.el b/lib/doc/jao-org-links.el index c1995dd..f75ca3e 100644 --- a/lib/doc/jao-org-links.el +++ b/lib/doc/jao-org-links.el @@ -1,22 +1,18 @@ ;; -*- lexical-binding: t; -*- -(require 'pdf-tools nil t) - (require 'jao-org-notes) (require 'jao-doc-view) (require 'jao-pdf) -(declare pdf-info-outline "pdf-info") - (defvar jao-org--sink-dir "./") -(defvar jao-org-open-pdf-fun #'jao-org--pdf-tools-open) +(defvar jao-org-open-pdf-fun #'jao-org--pdf-open) -(defun jao-org--pdf-tools-open (path page &optional height) +(defun jao-org--pdf-open (path page &optional height) (org-open-file path 1) (jao-doc-view-goto-page page height)) (defun jao-org--pdf-open (path page &optional height) - (funcall (or jao-org-open-pdf-fun #'jao-org--pdf-tools-open) path page height)) + (funcall (or jao-org-open-pdf-fun #'jao-org--pdf-open) path page height)) (defun jao-org-links--open-pdf (link) "Open LINK in pdf-view-mode." @@ -120,12 +116,15 @@ (defun jao-org-pdf-goto-org* () (interactive) (jao-org-pdf-goto-org t)) ;;;###autoload -(defun jao-org-org-goto-pdf () +(defun jao-org-goto-pdf () (interactive) (if-let (f (jao-org-org-to-pdf-file)) - (find-file-other-window f) + (funcall jao-org-open-pdf-fun f 1) (user-error "No PDF file associated with this buffer"))) +(with-eval-after-load "org" + (define-key org-mode-map (kbd "C-c o") #'jao-org-org-goto-pdf)) + ;;;###autoload (defun jao-org-links-setup (sink-dir) (interactive) -- cgit v1.2.3