[nongnu] elpa/pdf-tools 326552eef7: Add functions for left/right aligning and centering

[ELPA Syncer]

branch: elpa/pdf-tools
commit 326552eef71ae6d53e215c46be5bf532575b7abb
Author: Nicholas Harrison <nicholasharrison222@gmail.com>
Commit: Vedang Manerikar <ved.manerikar@gmail.com>

    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