diff options
author | jao <jao@gnu.org> | 2022-08-29 02:39:22 +0100 |
---|---|---|
committer | jao <jao@gnu.org> | 2022-08-29 02:39:22 +0100 |
commit | 8b8f6252bf71648f39b8af8c98ea2b1c399ef9d5 (patch) | |
tree | 78ca86f8b10360df7434838e992dc0218722ed22 /lib/doc/jao-org-links.el | |
parent | 60773cad28b36360a4704121833e8d99c585b536 (diff) | |
download | elibs-8b8f6252bf71648f39b8af8c98ea2b1c399ef9d5.tar.gz elibs-8b8f6252bf71648f39b8af8c98ea2b1c399ef9d5.tar.bz2 |
new lib: jao-pdf
Diffstat (limited to 'lib/doc/jao-org-links.el')
-rw-r--r-- | lib/doc/jao-org-links.el | 15 |
1 files changed, 8 insertions, 7 deletions
diff --git a/lib/doc/jao-org-links.el b/lib/doc/jao-org-links.el index f1ba0be..c1995dd 100644 --- a/lib/doc/jao-org-links.el +++ b/lib/doc/jao-org-links.el @@ -4,6 +4,7 @@ (require 'jao-org-notes) (require 'jao-doc-view) +(require 'jao-pdf) (declare pdf-info-outline "pdf-info") @@ -39,7 +40,7 @@ (read-file-name "Import file: " jao-org--sink-dir link link)))) (rename-file real-file dest-path))) - (if (jao-doc-view-is-pdf dest-path) + (if (jao-pdf-is-pdf-file dest-path) (jao-org-links--open-pdf full-link) (browse-url (format "file://%s" (expand-file-name dest-path)))))) @@ -47,7 +48,7 @@ (let ((default-directory jao-org--sink-dir)) (let ((f (replace-regexp-in-string "^file:" "doc:" (org-file-complete-link arg)))) - (if (jao-doc-view-is-pdf f) + (if (jao-pdf-is-pdf-file f) (let ((page (read-from-minibuffer "Page: " ""))) (if (> (string-to-number page) 0) (concat f "::" (read-from-minibuffer "Page: " "")) @@ -63,7 +64,7 @@ (when (derived-mode-p 'pdf-view-mode 'doc-view-mode) (jao-org-links-store-pdf-link buffer-file-name (jao-doc-view-current-page) - (jao-doc-view-section-title))))) + (jao-pdf-section-title))))) ;;;###autoload (defun jao-org-links-store-pdf-link (path page title) @@ -75,7 +76,7 @@ ;;;###autoload (defun jao-org-insert-doc (title) (interactive "sDocument title: ") - (insert (format "[[doc:%s][%s]]" (jao-doc-view-title->file title) title))) + (insert (format "[[doc:%s][%s]]" (jao-pdf-title-to-file-name title) title))) ;;;###autoload (defun jao-org-org-to-pdf-file () @@ -97,7 +98,7 @@ ;;;###autoload (defun jao-org-insert-doc-skeleton (&optional title) - (insert "#+title: " (or title (jao-doc-view-title (buffer-file-name))) + (insert "#+title: " (or title (jao-pdf-title (buffer-file-name))) "\n#+author:\n#+filetags: ") (jao-org-notes-insert-tags) (insert "\n#+startup: latexpreview\n\n")) @@ -105,10 +106,10 @@ ;;;###autoload (defun jao-org-pdf-goto-org (arg) (interactive "P") - (when (jao-doc-view-is-pdf buffer-file-name) + (when (jao-pdf-is-pdf-file buffer-file-name) (let* ((file (jao-org-pdf-to-org-file)) (new (not (file-exists-p file))) - (title (jao-doc-view-title))) + (title (jao-pdf-title))) (when (or arg new) (org-store-link nil t)) (find-file-other-window file) (when new |