pdf-tools has a new maintainer

1 files changed, 39 insertions, 16 deletions

diff --git a/init.org b/init.org
index a662b1c..7e8ce4c 100644
--- a/init.org
+++ b/init.org
@@ -662,6 +662,9 @@
             '(" %l" (:eval (format "/%d" (line-number-at-pos (point-max))))))
       (line-number-mode -1)
       (column-number-mode 1)
+      (when (jao-colors-scheme-dark-p)
+        (setq jao-minibuffer-active-buffer-line-color "lightsteelblue3"
+              jao-minibuffer-inactive-buffer-line-color "grey30"))
       (jao-minibuffer-add-mode-line 90)
     #+end_src
 *** Mode line time
@@ -1110,10 +1113,11 @@
       (defun jao-buffer-same-mode (&optional mode pre-fn)
         (interactive)
         (let* ((mode (or mode major-mode))
+               (modes (if (symbolp mode) (list mode) mode))
                (pred `(lambda (b)
                         (let ((b (get-buffer (if (consp b) (car b) b))))
-                          (and ;; (not (eq b ,(current-buffer)))
-                               (eq ',mode (buffer-local-value 'major-mode b))))))
+                          (member (buffer-local-value 'major-mode b)
+                                  ',modes))))
                (buff (read-buffer "Buffer: " nil t pred)))
           (when pre-fn (funcall pre-fn))
           (pop-to-buffer buff)))
@@ -1616,8 +1620,17 @@
     (jao-load-org "email")
   #+end_src
 * PDFs
-*** doc-view
-    #+begin_src emacs-lisp
+*** doc-view and pdf-tools
+    #+begin_src emacs-lisp
+      ;; this is an ugly hack: when jao-minibuffer is active,
+      ;; somehow docview scrolling is not triggering a refresh,
+      ;; specially for scroll down movements, so we advice the
+      ;; scrolling functions to force a redisplay by going to
+      ;; another window.
+      (defun jao--refresh (&rest _rest)
+          (let ((jao-minibuffer-enabled-p nil))
+            (other-window 1) (other-window -1)))
+
       (use-package doc-view
         :init
         (setq doc-view-cache-directory "~/.emacs.d/cache/docview"
@@ -1627,16 +1640,6 @@
 
         :config
 
-        ;; this is an ugly hack: when jao-minibuffer is active,
-        ;; somehow docview scrolling is not triggering a refresh,
-        ;; specially for scroll down movements, so we advice the
-        ;; scrolling functions to force a redisplay by going to
-        ;; another window.
-
-        (defun jao--refresh (&rest _rest)
-          (let ((jao-minibuffer-enabled-p nil))
-            (other-window 1) (other-window -1)))
-
         (dolist (f '(doc-view-scroll-up-or-next-page
                      doc-view-scroll-down-or-previous-page
                      doc-view-previous-line-or-previous-page
@@ -1658,7 +1661,26 @@
                     ("S" . jao-doc-view-save-session)
                     ("u" . jao-doc-view-visit-url)))
 
-      (use-package saveplace-pdf-view :ensure t :demand t :after doc-view)
+      (use-package pdf-tools
+        :ensure t
+        :demand t
+        :config
+        (pdf-tools-install)
+
+        (dolist (f '(pdf-view-scroll-up-or-next-page
+                     pdf-view-scroll-down-or-previous-page
+                     pdf-view-previous-line-or-previous-page
+                     pdf-view-next-line-or-next-page))
+          (advice-add f :after #'jao--refresh))
+
+        :diminish ((pdf-view-midnight-minor-mode . ""))
+        :bind (:map pdf-view-mode-map
+                    (("C-c C-d" . pdf-view-midnight-minor-mode))))
+
+      (use-package saveplace-pdf-view
+        :ensure t
+        :demand t
+        :after doc-view)
     #+end_src
 *** open pdfs
     #+begin_src emacs-lisp
@@ -3318,7 +3340,8 @@
        (("n" jao-org-notes-open-or-create "capture note")
         ("N" jao-org-notes-open "go to note"))
        "Docs"
-       (("d" (jao-buffer-same-mode 'docview-mode #'jao-afio--goto-docs)
+       (("d" (jao-buffer-same-mode '(pdf-view-mode docview-mode)
+                                   #'jao-afio--goto-docs)
          "go to doc")
         ("D" jao-open-doc "open to doc"))
        "Packages"