Update: What would be the correct `use-package` declaration? · Issue #528 · politza/pdf-tools · GitHub -NOT working

1. Install pdf-tools from pinguim06 branch, use official git for newer version (11/29/2016-04:15:04 PM).

   let-list-1.0.1 is needed for Arch Linux in my case. Download let-alist-1.0.1 from bottom of this link, and install it via M-x package-install-file.

   
   

   1 2 3 4 5

   git clone https://github.com/pinguim06/pdf-tools $ cd /path/to/pdf-tools $ make install-server-deps # optional, does NOT work for Arch Linux $ make -s

   make produced the ELP file pdf-tools-${VERSION}.tar. This package contains all the necessary files for Emacs and may be installed by either using

   
   

   1 2	$ make install-package#

   or executing the following Emacs command:

   
   

   1 2	M-x package-install-file RET pdf-tools-${VERSION}.tar RET

   NB: rebuild and re-intstall if pdf-tools stopped working after poppler update

   
   

   1 2 3 4 5 6 7 8 9 10 11 12 13 14

   (package-initialize t) (package-activate 'pdf-tools) (pdf-tools-install) ;;grap org-pdfview https://github.com/markus1189/org-pdfview/blob/master/org-pdfview.el (eval-after-load 'org '(require 'org-pdfview)) (add-to-list 'org-file-apps '("\\.pdf\\'" . org-pdfview-open)) (add-to-list 'org-file-apps '("\\.pdf::\\([[:digit:]]+\\)\\'" . org-pdfview-open))   (eval-after-load 'pdf-view                     '(define-key pdf-view-mode-map (kbd "M-h") 'pdf-annot-add-highlight-markup-annotation)) (eval-after-load 'pdf-view          '(define-key pdf-view-mode-map (kbd "<tab>") 'pdf-annot-add-highlight-markup-annotation))

2. pdf-tools-org

   pdf-tools-org is an emacs package that provides integration between pdf-tools and org-mode. The main features are importing and exporting pdf annotations from/to org files.

   
   

   1 2 3 4 5 6 7 8 9

   ;;importing and exporting pdf annotations from/to org files. ;;https://github.com/pinguim06/pdf-tools-org (add-to-list 'load-path "/home/tan/config/emacs/extend/pdf-tools-org/") (require 'pdf-tools-org) ;;auto save org when pdf file closed (add-hook 'after-save-hook      (lambda ()        (when (eq major-mode 'pdf-view-mode) (pdf-tools-org-export-to-org-mod))))

3. Modified annotation export function to include the link back to pdf.

   
   

   1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46

   ;; modify the original function (see below) to add page link back to pdf file, Tan (defun pdf-tools-org-export-to-org-mod ()   "Export annotations to an Org file."   (interactive)    (setq fname buffer-file-name)   (let ((annots (sort (pdf-annot-getannots) 'pdf-annot-compare-annotations))         (filename (format "%s.org"                           (file-name-sans-extension                            (buffer-name))))         (buffer (current-buffer)))     (with-temp-buffer       ;; org-set-property sometimes never returns if buffer not in org-mode       (org-mode)       (insert (concat "#+TITLE: Annotation notes for " (file-name-sans-extension filename)))       (mapc        (lambda (annot) ;; traverse all annotations          (progn            (org-insert-heading-respect-content)       ;;retrieve page # for annotation (number-to-string (assoc-default 'page annot))       ;;  (insert (number-to-string (nth 1 (assoc-default 'edges annot)))) for margin        (insert (concat (symbol-name (pdf-annot-get-id annot)) "\s[[pdfview:" fname  "::" (number-to-string (assoc-default 'page annot))             "++" (number-to-string (nth 1 (assoc-default 'edges annot)))  "][p." (number-to-string (assoc-default 'page annot))  "]]" ))      (insert (concat " :" (symbol-name (pdf-annot-get-type annot)) ":"))        ;; insert text from marked-up region in an org-mode quote            (when (pdf-annot-get annot 'markup-edges)              (insert (concat "\n#+BEGIN_QUOTE\n"                              (with-current-buffer buffer                                   (pdf-info-gettext (pdf-annot-get annot 'page)                                                (pdf-tools-org-edges-to-region                                                 (pdf-annot-get annot 'markup-edges))))                            "\n#+END_QUOTE")))          (insert (concat "\n\n" (pdf-annot-get annot 'contents)))          ;; set org properties for each of the remaining fields          (mapcar           '(lambda (field) ;; traverse all fields              (when (member (car field) pdf-tools-org-exportable-properties)                (org-set-property (symbol-name (car field))                                  (format "%s" (cdr field)))))           annot)))      (cl-remove-if       (lambda (annot) (member (pdf-annot-get-type annot) pdf-tools-org-non-exportable-types))       annots)      )     (org-set-tags 1) (write-file filename pdf-tools-org-export-confirm-overwrite))))

   save the annotation as org file when pdf file is saved.

   
   

   1 2 3 4 5 6

   ;;auto save org when pdf file closed (add-hook 'after-save-hook (lambda ()       (when (eq major-mode 'pdf-view-mode)     (pdf-tools-org-export-to-org-mod))))

   

4. Export pdf outline as org-headings and extracting images of square annotations and inlining them. see code myrjola. Not all pdfs have outlines.

   
   

   1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69

   (defun pdf-annot-markups-as-org-text (pdfpath &optional title level) "Acquire highlight annotations as text"   (interactive "fPath to PDF: ") (let* ((outputstring "") ;; the text to be return        (title (or title (replace-regexp-in-string "-" " " (file-name-base pdfpath ))))        (level (or level (1+ (org-current-level)))) ;; I guess if we're not in an org-buffer this will fail        (levelstring (make-string level ?*))        (pdf-image-buffer (get-buffer-create "*temp pdf image*"))        )   (with-temp-buffer ;; use temp buffer to avoid opening zillions of pdf buffers     (insert-file-contents pdfpath)     (pdf-view-mode)     (pdf-annot-minor-mode t)     (ignore-errors (pdf-outline-noselect (current-buffer)))       (setq outputstring (concat levelstring " Annotations from " title "\n\n")) ;; create heading       (let* ((annots (sort (pdf-annot-getannots nil (list 'square 'highlight)  nil)                          'pdf-annot-compare-annotations))            (last-outline-page -1))       (mapc        (lambda (annot) ;; traverse all annotations          (message "%s" annot)          (let* ((page (assoc-default 'page annot))                 (height (nth 1 (assoc-default 'edges annot)))                 (type (assoc-default 'type annot))                 (id (symbol-name (assoc-default 'id annot)))                 (text (pdf-info-gettext page (assoc-default 'edges annot)))                 (imagefile (concat id ".png"))                 (region (assoc-default 'edges annot))                 ;; use pdfview link directly to page number                 (linktext (concat "[[pdfview:" pdfpath "::" (number-to-string page)                                   "++" (number-to-string height) "][" title  "]]" ))                 ;; The default export is for highlight annotations                 (annotation-as-org (concat text "\n(" linktext ", " (number-to-string page) ")\n\n"))                 )              ;; Square annotations are written to images and displayed inline         (when (eq type 'square)           (pdf-view-extract-region-image (list region) page (cons 1000 1000) pdf-image-buffer)           (with-current-buffer pdf-image-buffer             (write-file imagefile))           (setq annotation-as-org (concat "[[file:" imagefile "]]" "\n\n(" linktext ", " (number-to-string page) ")\n\n")))           ;; Insert outline heading if not already inserted         (let* ((outline-info (ignore-errors                                (with-current-buffer (pdf-outline-buffer-name)                                  (pdf-outline-move-to-page page)                                  (pdf-outline-link-at-pos))))                 (outline-page (when outline-info (number-to-string (assoc-default 'page outline-info)))))            (when outline-info              (unless (equal last-outline-page outline-page)                (setq outputstring (concat outputstring                                           (make-string (+ level (assoc-default 'depth outline-info)) ?*)                                           " "                                           (assoc-default 'title outline-info)                                           ", "                                           outline-page                                           "\n\n"))                (setq last-outline-page outline-page))))            (setq outputstring (concat outputstring annotation-as-org)))        )      annots))   ) (insert outputstring) ))

5. Note Taking with PDF-Tools

   yet another resource.

6. vitual PDFs

   from here.

   1. Enable recognition of *.vpdf files via M-x pdf-virtual-global-mode.
   2. Open a PDF in a directory with many more PDF files.
   3. M-x pdf-virtual-create-buffer

   4. C-c C-c

      This would create a virtual PDF representing all (complete) pages of all documents in the directory. And for the most part it acts just like any other PDF document, with the exception that the document is read-only, i.e. no modification of annotations. The file-format is explained in the buffer.

      This would be even more fun, if we could display multiple pages (e.g. snippets of multiple math-definitions, which you can’t seem to remember) per window.