orgtre / pdf-tools Goto Github PK

(use-package pdf-tools
  :straight '(pdf-tools :type git :host github
                        :repo "vedang/pdf-tools"
                        :fork (:host github
                                     :repo "orgtre/pdf-tools"))
  :defer t 
  :bind (:map pdf-view-mode-map
              ("j" . pdf-view-next-line-or-next-page)
              ("k" . pdf-view-previous-line-or-previous-page)
              ("h" . image-backward-hscroll)
              ("l" . image-forward-hscroll)
              ("d" . pdf-view-midnight-minor-mode)
              ("i" . consult-imenu)
              ("C-c C-r M" . pdf-view-remove-margins-mode))
  :mode ("\\.[pP][dD][fF]\\'" . pdf-view-mode)    
  :magic ("%PDF" . pdf-view-mode)
  :custom
  (pdf-view-display-size 'fit-page)
  (pdf-view-resize-factor 1.1)
  (pdf-view-use-unicode-ligther nil)

  ;; LaTeX
  (TeX-view-program-selection '((output-pdf "PDF Tools")))
  (TeX-view-program-list '(("PDF Tools" TeX-pdf-tools-sync-view)))
  (TeX-source-correlate-start-server t)

  ;; pdf-annot
  (pdf-annot-minor-mode-map-prefix "a")
  (pdf-annot-list-format '((page . 3) (type . 7) (contents . 200)))
  (pdf-annot-activate-created-annotations t)

  ;; pdf-outline
  (pdf-outline-imenu-use-flat-menus t)

  ;; pdf-keynav
  (pdf-keynav-copy-region-blink-delay 2)
  (pdf-keynav-transient-mark-mode t)

  :init
  ;; Dealing with retina issues on MacOs
  (when *sys/mac*
    (setq pdf-view-use-scaling t)
    (setq pdf-view-use-imagemagick nil))

  (pdf-tools-install :no-query)
  :config
  (define-pdf-cache-function pagelabels)
  (add-to-list 'pdf-tools-enabled-modes 'pdf-virtual-global-minor-mode)
  (add-to-list 'pdf-tools-enabled-modes 'pdf-keynav-minor-mode)
  
  ;;; Define functions
  (defun pdf-outline-indent (fn link &optional labels)
    (let ((item (funcall fn link labels))
          (indent pdf-outline-buffer-indent))
      (cons (concat (make-string (* indent (1- (alist-get 'depth link))) ?\s)
                    (car item))
            (cdr item))))
  (advice-add 'pdf-outline-imenu-create-item :around #'pdf-outline-indent)

  (defun pdf-view-midnight-colors-theme ()
    (cons (frame-parameter nil 'foreground-color)
          (color-darken-name
           (frame-parameter nil 'background-color) 5)))

  (defun ctb/pdf-tools-backdrop ()
    (face-remap-add-relative
     'default
     `(:background ,(modus-themes-color 'bg-alt))))
  (defun ctb/pdf-tools-midnight-mode-toggle ()
    (when (derived-mode-p 'pdf-view-mode)
      (if (eq (car custom-enabled-themes) 'modus-vivendi)
          (pdf-view-midnight-minor-mode 1)
        (pdf-view-midnight-minor-mode -1))
      (ctb/pdf-tools-backdrop)))

  ;; Other customizations: modeline and removing margins
  (defun mode-line-extra-pdf-view-mode ()
    (let ((cur (number-to-string (pdf-view-current-page)))
          (tot (or (ignore-errors (number-to-string (pdf-cache-number-of-pages)))
                   "???")))
      (format "(%s/%s)" cur tot)))

  (define-minor-mode pdf-view-remove-margins-mode
    "Minor mode for removing margins from every pdf page."
    :lighter " pdf-margins"
    (if (not (eq major-mode 'pdf-view-mode))
        (user-error "Not in a pdf-view-mode buffer")
      (if pdf-view-remove-margins-mode
          (progn
            (pdf-view-set-slice-from-bounding-box)
            (add-hook 'pdf-view-after-change-page-hook #'pdf-view-set-slice-from-bounding-box))
        (progn
          (pdf-view-reset-slice)
          (remove-hook
           'pdf-view-after-change-page-hook #'pdf-view-set-slice-from-bounding-box)))))

  :hook (
         ;; (pdf-view-mode-hook . (lambda() (linum-mode -1)))
         ;; (pdf-view-mode-hook . (lambda () (display-line-numbers-mode -1)))
         (pdf-view-mode-hook . pdf-tools-enable-minor-modes)
         (modus-themes-after-load-theme-hook . ctb/pdf-tools-midnight-mode-toggle)
         (pdf-view-mode-hook . ctb/pdf-tools-midnight-mode-toggle)
         (pdf-view-midnight-mode-hook . pdf-view-midnight-colors-theme)
         (TeX-after-compilation-finished-functions . TeX-revert-document-buffer)))