From 0f7a29d0faa0b93805ff273331b219f52918ba77 Mon Sep 17 00:00:00 2001
From: larstvei <larstvei@ifi.uio.no>
Date: Tue, 13 Jun 2023 02:14:27 +0200
Subject: [PATCH] use-package pdf-tools

---
 init.org | 32 +++++++++++++++++---------------
 1 file changed, 17 insertions(+), 15 deletions(-)

diff --git a/init.org b/init.org
index 2dc324b..c5073e1 100644
--- a/init.org
+++ b/init.org
@@ -207,8 +207,7 @@
 
   (let* ((package--builtins nil)
          (packages
-          '(pdf-tools            ; Emacs support library for PDF files
-            proof-general        ; A generic Emacs interface for proof assistants
+          '(proof-general        ; A generic Emacs interface for proof assistants
             racket-mode          ; Major mode for Racket language
             rustic               ; Rust development environment
             slime                ; Superior Lisp Interaction Mode for Emacs
@@ -698,22 +697,25 @@
 
 * PDF Tools
 
-  [[https://github.com/politza/pdf-tools][PDF Tools]] makes a huge improvement on the built-in [[http://www.gnu.org/software/emacs/manual/html_node/emacs/Document-View.html][doc-view-mode]]; the only
-  drawback is the =pdf-tools-install= (which has to be executed before the
-  package can be used) takes a couple of /seconds/ to execute. Instead of
-  running it at init-time, we'll run it whenever a PDF is opened. Note that
-  it's only slow on the first run!
+  [[https://github.com/vedang/pdf-tools][PDF Tools]] makes a huge improvement on the built-in [[http://www.gnu.org/software/emacs/manual/html_node/emacs/Document-View.html][doc-view-mode]]! Removing
+  the =header-line-format= gives a very clean PDF-viewer; let's add that to a
+  key.
 
   #+begin_src emacs-lisp
 
-  (pdf-loader-install)
-
-  #+end_src
-
-  #+begin_src emacs-lisp
-
-  (add-hook 'pdf-view-mode-hook
-            (lambda () (setq header-line-format nil)))
+  ;; Emacs support library for PDF files
+  (use-package pdf-tools
+    :defer t
+    :mode "\\.pdf\\'"
+    :init (pdf-loader-install)
+    :bind (:map pdf-view-mode-map
+                ("c" . (lambda ()
+                         (interactive)
+                         (if header-line-format
+                             (setq header-line-format nil)
+                           (nano-modeline-pdf-mode))))
+                ("j" . pdf-view-next-line-or-next-page)
+                ("k" . pdf-view-previous-line-or-previous-page)))
 
   #+end_src