diff options
Diffstat (limited to 'custom/pdf-continuous-scroll-mode.el')
| -rw-r--r-- | custom/pdf-continuous-scroll-mode.el | 434 |
1 files changed, 0 insertions, 434 deletions
diff --git a/custom/pdf-continuous-scroll-mode.el b/custom/pdf-continuous-scroll-mode.el deleted file mode 100644 index 7748149d..00000000 --- a/custom/pdf-continuous-scroll-mode.el +++ /dev/null @@ -1,434 +0,0 @@ -;;; pdf-continuous-scroll-mode.el --- Continuous scroll minor mode for pdf-tools -*- lexical-binding: t; -*- -;; Copyright (C) 2020 Daniel Laurens Nicolai - -;; Author: Daniel Laurens Nicolai <dalanicolai@gmail.com> -;; with modifications by: Craig Jennings <c@ecjennings.net> -;; Version: 0 -;; Keywords: files -;; Package-Requires: ((emacs "27.1")) -;; URL: https://github.com/dalanicolai/pdf-continuous-scroll-mode.el - -;; This program is free software; you can redistribute it and/or modify -;; it under the terms of the GNU General Public License as published by -;; the Free Software Foundation, either version 3 of the License, or -;; (at your option) any later version. - -;; This program is distributed in the hope that it will be useful, -;; but WITHOUT ANY WARRANTY; without even the implied warranty of -;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -;; GNU General Public License for more details. - -;; You should have received a copy of the GNU General Public License -;; along with this program. If not, see <https://www.gnu.org/licenses/>. - -;;; Commentary: - -;; Usage: - -;;; Code: -(eval-when-compile - (require 'pdf-view)) -(require 'pdf-annot) - -(defvar pdf-cscroll-mode-line-format) -(defvar pdf-cscroll-mode-line-original-face) - -(defcustom pdf-continuous-scroll-step-size 4 - "Step size in lines (integer) for continuous scrolling." - :group 'pdf-continuous-scroll - :type 'integer) - -(defcustom pdf-continuous-scroll-reverse-scrolling nil - "Reverse default scrolling direction." - :group 'pdf-continuous-scroll - :type 'boolean) - -(defcustom pdf-continuous-scroll-custom-min-height nil - "Reverse default scrolling direction." - :group 'pdf-continuous-scroll - :type 'number) - -(defun pdf-continuous-scroll-window-dual-p () - "Return t if current scroll window status is dual, else nil." - (or (equal 'upper (alist-get 'pdf-scroll-window-status (window-parameters))) - (equal 'lower (alist-get 'pdf-scroll-window-status (window-parameters))))) - -(defun pdf-continuous-scroll-close-window-when-dual () - (when (pdf-continuous-scroll-window-dual-p) - (let ((window-status (alist-get 'pdf-scroll-window-status (window-parameters)))) - (save-excursion - (if (equal window-status 'upper) - (windmove-down) - (windmove-up)) - (delete-window) - (set-window-parameter nil 'pdf-scroll-window-status 'single))))) - -(defun pdf-continuous-scroll-forward-line (&optional arg) - "Scroll upward by ARG lines if possible, else go to the next page. -This function is an adapted version of -`pdf-view-next-line-or-next-page'. Although the ARG is kept here, -this function generally works best without ARG is 1. To increase -the step size for scrolling use the ARG in -`pdf-continuous-scroll-forward'" - (if pdf-continuous-scroll-mode - (let ((current-file buffer-file-name) - (hscroll (window-hscroll)) - (cur-page (pdf-view-current-page))) - (print (format - "%s: window-total-height %s, frame-height %s\n -next line: vscroll value, second next line: output value (image-next-line)" - (alist-get 'pdf-scroll-window-status (window-parameters)) - (window-total-height) - (frame-height)) - (get-buffer-create "*pdf-scroll-log*")) - (if (not (equal (alist-get 'pdf-scroll-window-status (window-parameters)) 'lower)) - (when (= (print - (window-vscroll nil pdf-view-have-image-mode-pixel-vscroll) - (get-buffer-create "*pdf-scroll-log*")) - (print (image-next-line arg) (get-buffer-create "*pdf-scroll-log*"))) - (cond - ((not (window-full-height-p)) - (condition-case nil - (window-resize (get-buffer-window) -1 nil t) - (error (delete-window) - (pop-to-buffer (get-file-buffer current-file)) - (set-window-parameter nil 'pdf-scroll-window-status 'single))) - (image-next-line 1)) - (t - (if (= (pdf-view-current-page) (pdf-cache-number-of-pages)) - (message "No such page: %s" (+ (pdf-view-current-page) 1)) - (display-buffer - (current-buffer) - '((display-buffer-below-selected) - (inhibit-same-window . t) - (window-height . 1))) - (set-window-parameter nil 'pdf-scroll-window-status 'upper) - (windmove-down) - (set-window-parameter nil 'pdf-scroll-window-status 'lower) - (pdf-view-goto-page cur-page) - (pdf-view-next-page) - (when (/= cur-page (pdf-view-current-page)) - (image-bob) - (image-bol 1)) - (image-set-window-hscroll hscroll) - (windmove-up) - (image-next-line 1))))) - (condition-case nil - (window-resize (get-buffer-window) +1 nil t) - (error (windmove-up) - (delete-window) - (pop-to-buffer (get-file-buffer current-file)) - (set-window-parameter nil 'pdf-scroll-window-status 'single))) - (windmove-up) - (image-next-line 1) - (windmove-down))) - (message "pdf-continuous-scroll-mode not activated"))) - -(defun pdf-continuous-scroll-forward (arg) - (interactive "P") - (let ((arg (or arg pdf-continuous-scroll-step-size))) - (dotimes (_ arg) (pdf-continuous-scroll-forward-line 1)))) - -(defun pdf-continuous-scroll-mouse-scroll-forward () - (interactive) - (with-selected-window - (or (caadr last-input-event) (selected-window)) - (if pdf-continuous-scroll-reverse-scrolling - (pdf-continuous-scroll-backward nil) - (pdf-continuous-scroll-forward nil)))) - -(defun pdf-continuous-scroll-backward-line (&optional arg) - "Scroll down by ARG lines if possible, else go to the previous page. -This function is an adapted version of -`pdf-view-previous-line-or-previous-page'. Although the ARG is -kept here, this function generally works best without ARG is 1. -To increase the step size for scrolling use the ARG in -`pdf-continuous-scroll-backward'" - (if pdf-continuous-scroll-mode - (let ((hscroll (window-hscroll)) - (cur-page (pdf-view-current-page)) - (window-min-height (or pdf-continuous-scroll-custom-min-height - window-min-height))) - (print - (format - "%s: window-total-height %s, frame-height %s\n -next line: vscroll value, second next line: output value (image-previous-line)" - (alist-get 'pdf-scroll-window-status (window-parameters)) - (window-total-height) - (frame-height)) - (get-buffer-create "*pdf-scroll-log*")) - (cond ((equal (alist-get 'pdf-scroll-window-status (window-parameters)) 'lower) - (cond ((= (window-total-height) window-min-height) - (delete-window) - (set-window-parameter nil 'pdf-scroll-window-status 'single) - (image-next-line 1)) - (t (condition-case nil - (window-resize (get-buffer-window) -1 nil t) - (error nil)) - (windmove-up) - (image-next-line 1) - (windmove-down)))) - (t (when (= (print - (window-vscroll nil pdf-view-have-image-mode-pixel-vscroll) - (get-buffer-create "*pdf-scroll-log*")) - (print - (image-previous-line arg) - (get-buffer-create "*pdf-scroll-log*"))) - (if (= (pdf-view-current-page) 1) - (message "No such page: 0") - (display-buffer-in-direction - (current-buffer) - (cons '(direction . above) '((window-height . 1)))) - (set-window-parameter nil 'pdf-scroll-window-status 'lower) - (windmove-up) - (set-window-parameter nil 'pdf-scroll-window-status 'upper) - (pdf-view-goto-page cur-page) - (pdf-view-previous-page) - (when (/= cur-page (pdf-view-current-page)) - (image-eob) - (image-bol 1)) - (image-set-window-hscroll hscroll) - (window-resize (get-buffer-window) 1 nil t))) - (cond ((< (window-total-height) (- (frame-height) window-min-height)) - (condition-case nil - (window-resize (get-buffer-window) 1 nil t) - (error nil))) - ((= (window-total-height) (- (frame-height) window-min-height)) - (set-window-parameter nil 'pdf-scroll-window-status 'single) - (windmove-down) - (delete-window)))))) - (message "pdf-continuous-scroll-mode not activated"))) - -(defun pdf-continuous-scroll-backward (arg) - (interactive "P") - (let ((arg (or arg pdf-continuous-scroll-step-size))) - (dotimes (_ arg) (pdf-continuous-scroll-backward-line 1)))) - -(defun pdf-continuous-scroll-mouse-scroll-backwards () - (interactive) - (with-selected-window - (or (caadr last-input-event) (selected-window)) - (if pdf-continuous-scroll-reverse-scrolling - (pdf-continuous-scroll-forward nil) - (pdf-continuous-scroll-backward nil)))) - -(defun pdf-continuous-next-page (arg) - (declare (interactive-only pdf-view-previous-page)) - (interactive "p") - (if pdf-continuous-scroll-mode - (let ((window-status (alist-get 'pdf-scroll-window-status (window-parameters)))) - (let ((document-length (pdf-cache-number-of-pages))) - (if (if (equal window-status 'upper) - (= (pdf-view-current-page) (- document-length 1)) - (= (pdf-view-current-page) document-length)) - (message "No such page: %s" (+ document-length 1)) - (cond ((equal window-status 'upper) - (windmove-down) - (with-no-warnings - (pdf-view-next-page arg)) - (windmove-up) - (with-no-warnings - (pdf-view-next-page arg))) - ((equal window-status 'lower) - (windmove-up) - (with-no-warnings - (pdf-view-next-page arg)) - (windmove-down) - (with-no-warnings - (pdf-view-next-page arg))) - (t (pdf-view-next-page)))))))) - -(defun pdf-continuous-previous-page (arg) - (declare (interactive-only pdf-view-previous-page)) - (interactive "p") - (if pdf-continuous-scroll-mode - (let ((window-status (alist-get 'pdf-scroll-window-status (window-parameters)))) - (if (if (equal window-status 'lower) - (= (pdf-view-current-page) 2) - (= (pdf-view-current-page) 1)) - (message "No such page: 0") - (cond ((equal window-status 'upper) - (windmove-down) - (with-no-warnings - (pdf-view-previous-page arg)) - (windmove-up) - (with-no-warnings - (pdf-view-previous-page arg))) - ((equal window-status 'lower) - (windmove-up) - (with-no-warnings - (pdf-view-previous-page arg)) - (windmove-down) - (with-no-warnings - (pdf-view-previous-page arg))) - (t (pdf-view-previous-page))))))) - -(defun pdf-cscroll-view-goto-page (page &optional window) - "Go to PAGE in PDF. - -If optional parameter WINDOW, go to PAGE in all `pdf-view' -windows." - (interactive - (list (if current-prefix-arg - (prefix-numeric-value current-prefix-arg) - (read-number "Page: ")))) - (unless (and (>= page 1) - (<= page (pdf-cache-number-of-pages))) - (error "No such page: %d" page)) - (pdf-continuous-scroll-close-window-when-dual) - (pdf-view-goto-page page window)) - -(defun pdf-cscroll-first-page () - (interactive) - (pdf-continuous-scroll-close-window-when-dual) - (pdf-view-goto-page 1)) - -(defun pdf-cscroll-last-page () - (interactive) - (pdf-continuous-scroll-close-window-when-dual) - (pdf-view-goto-page (pdf-cache-number-of-pages))) - -(defun pdf-cscroll-kill-buffer-and-windows () - (interactive) - (pdf-continuous-scroll-close-window-when-dual) - (kill-this-buffer)) - -(defun pdf-cscroll-image-forward-hscroll (&optional n) - (interactive "p") - (let ((window-status (alist-get 'pdf-scroll-window-status (window-parameters)))) - (cond ((equal window-status 'upper) - (windmove-down) - (image-forward-hscroll n) - (windmove-up) - (image-forward-hscroll n)) - ((equal window-status 'lower) - (windmove-up) - (image-forward-hscroll n) - (windmove-down) - (image-forward-hscroll n)) - (t (image-forward-hscroll n))))) - -(defun pdf-cscroll-image-backward-hscroll (&optional n) - (interactive "p") - (let ((window-status (alist-get 'pdf-scroll-window-status (window-parameters)))) - (cond ((equal window-status 'upper) - (windmove-down) - (image-forward-hscroll (- n)) - (windmove-up) - (image-forward-hscroll (- n))) - ((equal window-status 'lower) - (windmove-up) - (image-forward-hscroll (- n)) - (windmove-down) - (image-forward-hscroll (- n))) - (t (image-forward-hscroll (- n)))))) - -(defun pdf-cscroll-toggle-mode-line () - (interactive) - (if (not mode-line-format) - (setq mode-line-format pdf-cscroll-mode-line-format) - (setq pdf-cscroll-mode-line-format mode-line-format) - (setq mode-line-format nil))) - -(defun pdf-cscroll-toggle-narrow-mode-line () - (interactive) - (if (plist-get (custom-face-attributes-get 'mode-line (selected-frame)) :height) - (custom-set-faces - (list 'mode-line - (list - (list t pdf-cscroll-mode-line-original-face)))) - (setq pdf-cscroll-mode-line-original-face - (custom-face-attributes-get 'mode-line (selected-frame))) - (custom-set-faces - ;; custom-set-faces was added by Custom. - ;; If you edit it by hand, you could mess it up, so be careful. - ;; Your init file should contain only one such instance. - ;; If there is more than one, they won't work right. - '(mode-line ((t (:background "black" :height 0.1))))) - )) - -(defun pdf-cscroll-imenu () - (interactive) - (pdf-continuous-scroll-close-window-when-dual) - (cond ((fboundp 'counsel-imenu) (counsel-imenu)) - ((fboundp 'helm-imenu) (helm-imenu)) - (t (imenu (list (imenu-choose-buffer-index)))))) - -(defun pdf-cscroll-annot-list-annotations () - (interactive) - (pdf-continuous-scroll-close-window-when-dual) - (pdf-annot-list-annotations)) - - -(setq pdf-continuous-scroll-mode-map (make-sparse-keymap)) -(define-key pdf-continuous-scroll-mode-map (kbd "C-n") #'pdf-continuous-scroll-forward) -(define-key pdf-continuous-scroll-mode-map (kbd "<down>") #'pdf-continuous-scroll-forward) -(define-key pdf-continuous-scroll-mode-map (kbd "<wheel-down>") #'pdf-continuous-scroll-mouse-scroll-forward) -(define-key pdf-continuous-scroll-mode-map (kbd "<mouse-5>") #'pdf-continuous-scroll-mouse-scroll-forward) -(define-key pdf-continuous-scroll-mode-map (kbd "C-p") #'pdf-continuous-scroll-backward) -(define-key pdf-continuous-scroll-mode-map (kbd "<up>") #'pdf-continuous-scroll-backward) -(define-key pdf-continuous-scroll-mode-map (kbd "<wheel-up>") #'pdf-continuous-scroll-mouse-scroll-backwards) -(define-key pdf-continuous-scroll-mode-map (kbd "<mouse-4>") #'pdf-continuous-scroll-mouse-scroll-backwards) -(define-key pdf-continuous-scroll-mode-map "n" #'pdf-continuous-next-page) -(define-key pdf-continuous-scroll-mode-map "p" #'pdf-continuous-previous-page) -(define-key pdf-continuous-scroll-mode-map (kbd "<prior>") 'pdf-continuous-previous-page) -(define-key pdf-continuous-scroll-mode-map (kbd "<next>") 'pdf-continuous-next-page) -;; (define-key pdf-continuous-scroll-mode-map (kbd "M-<") #'pdf-cscroll-view-goto-page) -(define-key pdf-continuous-scroll-mode-map (kbd "M-g g") #'pdf-cscroll-view-goto-page) -(define-key pdf-continuous-scroll-mode-map (kbd "M-g M-g") #'pdf-cscroll-view-goto-page) -(define-key pdf-continuous-scroll-mode-map (kbd "M-<") #'pdf-cscroll-first-page) -(define-key pdf-continuous-scroll-mode-map (kbd "M->") #'pdf-cscroll-last-page) -(define-key pdf-continuous-scroll-mode-map [remap forward-char] #'pdf-cscroll-image-forward-hscroll) -(define-key pdf-continuous-scroll-mode-map [remap right-char] #'pdf-cscroll-image-forward-hscroll) -(define-key pdf-continuous-scroll-mode-map [remap backward-char] #'pdf-cscroll-image-backward-hscroll) -(define-key pdf-continuous-scroll-mode-map [remap left-char] #'pdf-cscroll-image-backward-hscroll) -(define-key pdf-continuous-scroll-mode-map "T" #'pdf-cscroll-toggle-mode-line) -(define-key pdf-continuous-scroll-mode-map "h" #'pdf-cscroll-toggle-narrow-mode-line) -(define-key pdf-continuous-scroll-mode-map (kbd "q") #'(lambda () (interactive) (pdf-continuous-scroll-mode -1))) -(define-key pdf-continuous-scroll-mode-map "Q" #'pdf-cscroll-kill-buffer-and-windows) -(define-key pdf-continuous-scroll-mode-map (kbd "C-c C-a l") #'pdf-cscroll-annot-list-annotations) - -;;;###autoload -(with-eval-after-load 'pdf-view - (define-key pdf-view-mode-map "c" #'pdf-continuous-scroll-mode)) - -(when (boundp 'spacemacs-version) - (evil-define-minor-mode-key 'evilified 'pdf-continuous-scroll-mode - "j" #'pdf-continuous-scroll-forward - (kbd "<mouse-5>") #'pdf-continuous-scroll-mouse-scroll-forward - "k" #'pdf-continuous-scroll-backward - (kbd "<mouse-4>") #'pdf-continuous-scroll-mouse-scroll-backwards - "J" #'pdf-continuous-next-page - "K" #'pdf-continuous-previous-page - ;; (kbd "C-j") #'pdf-view-scroll-up-or-next-page - ;; (kbd "C-k") #'pdf-view-scroll-down-or-previous-page - (kbd "g t") #'pdf-cscroll-view-goto-page - (kbd "g g") #'pdf-cscroll-first-page - "G" #'pdf-cscroll-last-page - "M" #'pdf-cscroll-toggle-mode-line - "q" #'pdf-cscroll-kill-buffer-and-windows - "l" #'pdf-cscroll-image-forward-hscroll - "h" #'pdf-cscroll-image-backward-hscroll) - (spacemacs/set-leader-keys-for-minor-mode - 'pdf-continuous-scroll-mode - (kbd "a l") #'pdf-cscroll-annot-list-annotations)) - -;;;###autoload -(define-minor-mode pdf-continuous-scroll-mode - "Emulate continuous scroll with two synchronized buffers" - - :init-value nil - :lighter " Continuous" - :keymap pdf-continuous-scroll-mode-map - (unless pdf-continuous-scroll-mode - (pdf-continuous-scroll-close-window-when-dual)) - (set-window-parameter nil 'pdf-scroll-window-status 'single) - (defun pdf-outline-imenu-activate-link (&rest args) - ;; bug #14029 - (pdf-continuous-scroll-close-window-when-dual) - (when (eq (nth 2 args) 'pdf-outline-imenu-activate-link) - (setq args (cdr args))) - (pdf-links-action-perform (nth 2 args)))) - -(provide 'pdf-continuous-scroll-mode) -;;; pdf-continuous-scroll-mode.el ends here |