diff options
Diffstat (limited to 'init.org')
| -rw-r--r-- | init.org | 55 |
1 files changed, 39 insertions, 16 deletions
@@ -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" |