From mboxrd@z Thu Jan 1 00:00:00 1970 From: Oleg Pykhalov Subject: [PATCH] Implement Org pdfview Date: Wed, 20 Sep 2017 18:47:12 +0300 Message-ID: <87r2v15q4f.fsf@gmail.com> Mime-Version: 1.0 Content-Type: multipart/mixed; boundary="=-=-=" Return-path: Received: from eggs.gnu.org ([2001:4830:134:3::10]:50300) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1duhDg-0005dI-SJ for emacs-orgmode@gnu.org; Wed, 20 Sep 2017 11:47:27 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1duhDb-0001Gn-CR for emacs-orgmode@gnu.org; Wed, 20 Sep 2017 11:47:24 -0400 Received: from mail-lf0-x232.google.com ([2a00:1450:4010:c07::232]:51755) by eggs.gnu.org with esmtps (TLS1.0:RSA_AES_128_CBC_SHA1:16) (Exim 4.71) (envelope-from ) id 1duhDa-0001CF-3b for emacs-orgmode@gnu.org; Wed, 20 Sep 2017 11:47:18 -0400 Received: by mail-lf0-x232.google.com with SMTP id y187so3147425lfc.8 for ; Wed, 20 Sep 2017 08:47:16 -0700 (PDT) Received: from magnolia ([178.69.60.22]) by smtp.gmail.com with ESMTPSA id y132sm367603lfc.1.2017.09.20.08.47.13 for (version=TLS1_2 cipher=ECDHE-RSA-CHACHA20-POLY1305 bits=256/256); Wed, 20 Sep 2017 08:47:14 -0700 (PDT) List-Id: "General discussions about Org-mode." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org Sender: "Emacs-orgmode" To: emacs-orgmode@gnu.org --=-=-= Content-Type: text/plain; charset=utf-8 Content-Transfer-Encoding: quoted-printable Hello Emacs Org, I prepared pdf-view based on doc-view for org-capture. --8<---------------cut here---------------start------------->8--- guix environment emacs-org -- make test =E2=80=A6 org-pdfview.el:102:1:Warning: the function =E2=80=98pdf-view-current-page= =E2=80=99 is not known to be defined. =E2=80=A6 Ran 738 tests, 738 results as expected (2017-09-20 18:39:25+0300) 13 expected failures --8<---------------cut here---------------end--------------->8--- --=-=-= Content-Type: text/x-patch Content-Disposition: inline; filename=0001-Implement-Org-pdfview.patch Content-Description: [PATCH] Implement Org pdfview >From 4d1a7452f9dfd06e9730ceafd3fefb5bea52e3ec Mon Sep 17 00:00:00 2001 From: Oleg Pykhalov Date: Wed, 20 Sep 2017 18:14:26 +0300 Subject: [PATCH] Implement Org pdfview * lisp/org-pdfview.el: New file. --- lisp/org-pdfview.el | 101 ++++++++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 101 insertions(+) create mode 100644 lisp/org-pdfview.el diff --git a/lisp/org-pdfview.el b/lisp/org-pdfview.el new file mode 100644 index 000000000..ebfcfef14 --- /dev/null +++ b/lisp/org-pdfview.el @@ -0,0 +1,101 @@ +;;; org-pdfview.el --- Support for links to pdf-view-mode buffers -*- lexical-binding: t; -*- + +;; Copyright (C) 2009-2017 Free Software Foundation, Inc. + +;; Author: Oleg Pykhalov +;; Keywords: outlines, hypermedia, calendar, wp +;; Homepage: http://orgmode.org +;; +;; This file is part of GNU Emacs. +;; +;; GNU Emacs is free software: you can redistribute it and/or modify +;; it under the terms of the GNU General Public License as published by +;; the Free Software Foundation, either version 3 of the License, or +;; (at your option) any later version. + +;; GNU Emacs is distributed in the hope that it will be useful, +;; but WITHOUT ANY WARRANTY; without even the implied warranty of +;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +;; GNU General Public License for more details. + +;; You should have received a copy of the GNU General Public License +;; along with GNU Emacs. If not, see . +;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; +;; +;;; Commentary: + +;; This file implements links to open files in pdf-view-mode. +;; Org mode loads this module by default - if this is not what you want, +;; configure the variable `org-modules'. + +;; The links take the form +;; +;; pdfview::: +;; +;; for example: [[pdfview:~/.elisp/org/doc/org.pdf::1][Org-Mode Manual]] +;; +;; Autocompletion for inserting links is supported; you will be +;; prompted for a file and a page number. +;; +;; If you use org-store-link in a pdf-view mode buffer, the stored +;; link will point to the current page. + +;;; Code: + + +(require 'org) + +(declare-function pdf-view-goto-page "pdf-view" (page)) + +(org-link-set-parameters "pdfview" + :follow #'org-pdfview-open + :export #'org-pdfview-export + :store #'org-pdfview-store-link) + +(defun org-pdfview-export (link description format) + "Export a pdfview link from Org files." + (let* ((path (if (string-match "\\(.+\\)::.+" link) (match-string 1 link) + link)) + (desc (or description link))) + (when (stringp path) + (setq path (org-link-escape (expand-file-name path))) + (cond + ((eq format 'html) (format "%s" path desc)) + ((eq format 'latex) (format "\\href{%s}{%s}" path desc)) + ((eq format 'ascii) (format "%s (%s)" desc path)) + (t path))))) + +(defun org-pdfview-open (link) + (string-match "\\(.*?\\)\\(?:::\\([0-9]+\\)\\)?$" link) + (let ((path (match-string 1 link)) + (page (and (match-beginning 2) + (string-to-number (match-string 2 link))))) + ;; Let Org mode open the file (in-emacs = 1) to ensure + ;; org-link-frame-setup is respected. + (org-open-file path 1) + (when page (pdf-view-goto-page page)))) + +(defun org-pdfview-store-link () + "Store a link to a pdfview buffer." + (when (eq major-mode 'pdf-view-mode) + ;; This buffer is in pdf-view-mode + (let* ((path buffer-file-name) + (page (pdf-view-current-page)) + (link (concat "pdfview:" path "::" (number-to-string page)))) + (org-store-link-props + :type "pdf-view" + :link link + :description path)))) + +(defun org-pdfview-complete-link () + "Use the existing file name completion for file. +Links to get the file name, then ask the user for the page number +and append it." + (concat (replace-regexp-in-string "^file:" "pdfview:" (org-file-complete-link)) + "::" + (read-from-minibuffer "Page:" "1"))) + + +(provide 'org-pdfview) + +;;; org-pdfview.el ends here -- 2.14.1 --=-=-=--