branch: elpa/pdf-tools
commit 326552eef71ae6d53e215c46be5bf532575b7abb
Author: Nicholas Harrison <[email protected]>
Commit: Vedang Manerikar <[email protected]>
Add functions for left/right aligning and centering
Useful convenience functions for scrolling the pdf horizontally.
Closes: #59
---
lisp/pdf-view.el | 26 ++++++++++++++++++++++++++
1 file changed, 26 insertions(+)
diff --git a/lisp/pdf-view.el b/lisp/pdf-view.el
index 70c2ee48dd..506ed12934 100644
--- a/lisp/pdf-view.el
+++ b/lisp/pdf-view.el
@@ -779,6 +779,32 @@ displayed page number."
(error "No such label: %s" label))
(pdf-view-goto-page (1+ index))))
+(defun pdf-view-center-in-window ()
+ "Center PDF in window horizontally."
+ (interactive)
+ (image-set-window-hscroll
+ (/ (* (- (car (pdf-view-image-size))
+ (window-pixel-width))
+ (window-width))
+ 2 (window-pixel-width))) ; convert from pixel to character width
+ (pdf-view-redisplay t))
+
+(defun pdf-view-align-left ()
+ "Align left edge of pdf with left edge of window."
+ (interactive)
+ (image-set-window-hscroll 0)
+ (pdf-view-redisplay t))
+
+(defun pdf-view-align-right ()
+ "Align right edge of pdf with right edge of window."
+ (interactive)
+ (image-set-window-hscroll
+ (/ (* (- (car (pdf-view-image-size))
+ (window-pixel-width))
+ (window-width))
+ (window-pixel-width))) ; convert from pixel to character width
+ (pdf-view-redisplay t))
+
;; * ================================================================== *
;; * Slicing
