Slideshow --half-screen

collects/slideshow/cmdline.rkt

@@ -44,6 +44,7 @@
     (define print-target #f)
     (define smoothing? #t)
     (define screen-number 0)
+    (define half-screen? #f)
     
     (define init-page 0)
 
@@ -121,6 +122,10 @@
          (set! use-prefetch-in-preview? #t))
         (("--keep-titlebar") "give the slide window a title bar and resize border"
          (set! keep-titlebar? #t))
+        (("--half-screen") "display slides on right half of the screen"
+         (set! half-screen? #t)
+         (set! keep-titlebar? #t)
+         (set! actual-screen-w (/ actual-screen-w 2)))
         (("--comment") "display commentary in window"
          (set! commentary? #t))
         (("--comment-on-slide") "display commentary on slide"

collects/slideshow/sig.rkt

@@ -99,6 +99,7 @@
      trust-me?
      quad-view?
      keep-titlebar?
+     half-screen? 
      two-frames?
      use-prefetch?
      use-prefetch-in-preview?

collects/slideshow/viewer.rkt

@@ -414,6 +414,9 @@
 	    (values 0 0)
 	    (get-display-left-top-inset #:monitor config:screen-number)))
 
+      (when config:half-screen?
+        (set! screen-left-inset (- screen-left-inset config:actual-screen-w)))
+
       (define fullscreen?
         (and (not config:keep-titlebar?)
              (let-values ([(w h) (get-display-size #t #:monitor config:screen-number)])