chore: drop stale custom pdf-continuous-scroll files + dead use-package

Removes custom/pdf-continuous-scroll-mode.el and the -latest.el variant
along with the commented-out use-package block that referenced them.
Two stale copies sat in custom/ unused.  pdf-continuous-scroll-mode is
intentionally not enabled because of a known bad interaction with
org-noter.  If that decision changes, the package can be added back
through normal use-package + ELPA channels.

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