From 393604e5bf4ce15df7342fdc094900fd1be2b39f Mon Sep 17 00:00:00 2001
From: JSDurand <mmemmew@gmail.com>
Date: Mon, 8 Feb 2021 23:36:26 +0800
Subject: Constantly growing

A lot of improvements.
---
 pdf.el | 63 +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++--
 1 file changed, 61 insertions(+), 2 deletions(-)

(limited to 'pdf.el')

diff --git a/pdf.el b/pdf.el
index cd44664..82bcc2b 100644
--- a/pdf.el
+++ b/pdf.el
@@ -1,2 +1,61 @@
-(use-package "pdf-tools/lisp" 'pdf-view
-  (define-key pdf-view-mode-map (vector ?y) #'pdf-view-previous-line-or-previous-page))
+(use-package "pdf-tools/lisp" 'pdf-view)
+
+;;;###autoload
+(defun pdf-view-down-half-page-or-previous-page ()
+  "Scroll down half page or go to the previous page."
+  (interactive)
+  (pdf-view-scroll-down-or-previous-page
+   (floor (window-body-height) 2)))
+
+;;;###autoload
+(defun pdf-view-up-half-page-or-next-page ()
+  "Scroll down half page or go to the previous page."
+  (interactive)
+  (pdf-view-scroll-up-or-next-page
+   (floor (window-body-height) 2)))
+
+;; If this information is shown in the mode line, then it will take a
+;; century to display a PDF page, probably because it uses such
+;; functions as `image-next-line', thus I bind a key to show this
+;; information when I want to acquire this information.
+
+;;;###autoload
+(defun pdf-view-page-position ()
+  (interactive)
+  "Show the current position in the page."
+  (let* ((edges (pdf-util-image-displayed-edges nil t))
+         (percent-floats (pdf-util-scale-pixel-to-relative
+                          (cons (car edges) (cadr edges)) nil t))
+         (bottom-p
+          (cond ((= (window-vscroll nil pdf-view-have-image-mode-pixel-vscroll)
+                    (image-next-line 1)))
+                ;; The return value of `image-previous-line' is not
+                ;; specified in its documentation string, but if
+                ;; `image-previous-line' returns a non-nil value, then
+                ;; this will return nil; if it returns nil, then this
+                ;; still returns nil.
+                ((image-previous-line 1) nil)))
+         (str
+          (cond
+           ((and bottom-p (= (cdr percent-floats) 0)) "All")
+           ((= (cdr percent-floats) 0) "Top")
+           (bottom-p "Bot")
+           ((format "%d%%%%" (* 100 (cdr percent-floats)))))))
+    (message str)))
+
+(define-key pdf-view-mode-map (vector ?j) #'pdf-view-next-line-or-next-page)
+(define-key pdf-view-mode-map (vector ?k) #'pdf-view-previous-line-or-previous-page)
+(define-key pdf-view-mode-map (vector ?y) #'pdf-view-previous-line-or-previous-page)
+(define-key pdf-view-mode-map (vector ?d) #'pdf-view-up-half-page-or-next-page)
+(define-key pdf-view-mode-map (vector ?u) #'pdf-view-down-half-page-or-previous-page)
+(define-key pdf-view-mode-map (vector 'tab) #'pdf-view-page-position)
+
+(use-package "pdf-tools/lisp" 'pdf-history)
+(use-package "pdf-tools/lisp" 'pdf-links)
+(use-package "pdf-tools/lisp" 'pdf-outline)
+(use-package "pdf-tools/lisp" 'pdf-sync)
+(use-package "pdf-tools/lisp" 'pdf-occur)
+(use-package "pdf-tools/lisp" 'pdf-annot)
+(use-package "pdf-tools/lisp" 'pdf-tools)
+(pdf-tools-install)
+
-- 
cgit v1.2.3-18-g5258