diff options
| author | Simon Parri <simonparri@ganzeria.com> | 2025-09-11 10:46:15 -0500 |
|---|---|---|
| committer | Simon Parri <simonparri@ganzeria.com> | 2025-09-11 10:46:15 -0500 |
| commit | 738d45afdcb6990a6c7fba4cb77326bcba277b4d (patch) | |
| tree | 731527b8dfd981b098353aa633f1ddcc1b2c7796 | |
| parent | 7263c926ef7e23ad0080213e81d42dff1c51fd38 (diff) | |
| download | pdf-view-reader-738d45afdcb6990a6c7fba4cb77326bcba277b4d.tar.gz pdf-view-reader-738d45afdcb6990a6c7fba4cb77326bcba277b4d.zip | |
Make `pdf-view-offset-mode' not prompt, add command to set offset
| -rw-r--r-- | pdf-view-reader.el | 18 |
1 files changed, 11 insertions, 7 deletions
diff --git a/pdf-view-reader.el b/pdf-view-reader.el index 80cee20..fee2090 100644 --- a/pdf-view-reader.el +++ b/pdf-view-reader.el @@ -187,13 +187,17 @@ have `pdf-view-pages-mode' enabled." (define-minor-mode pdf-view-offset-mode "Minor mode to have an offset for PDF pages in `pdf-view-mode'." :lighter (:eval (format " Off(%d)" pdf-view-offset)) - :interactive (pdf-view-mode) - (if pdf-view-offset-mode - (thread-last - (read-number "Current page: " (pdf-view-current-page)) - (- (pdf-view-current-page)) - (setq pdf-view-offset)) - (setq pdf-view-offset 0))) + :interactive (pdf-view-mode)) + +;;;###autoload +(defun pdf-view-offset-current-page (n) + "Set the offest so that going to page N goes to the current page." + (interactive + (list (read-number "Current page: " (pdf-view-current-page)))) + (unless pdf-view-offset-mode + (pdf-view-offset-mode 1)) + (setq pdf-view-offset + (- (pdf-view-current-page) n))) ;;;###autoload (defun pdf-view-offset-set (n) |