"half-screen" -> "right-half-screen".
(I don't know why this was needed, but calling it "half-screen" looks like it's asking for future trouble.)
This commit is contained in:
parent
e9db4df6c3
commit
ca64179b63
|
@ -44,7 +44,7 @@
|
||||||
(define print-target #f)
|
(define print-target #f)
|
||||||
(define smoothing? #t)
|
(define smoothing? #t)
|
||||||
(define screen-number 0)
|
(define screen-number 0)
|
||||||
(define half-screen? #f)
|
(define right-half-screen? #f)
|
||||||
|
|
||||||
(define init-page 0)
|
(define init-page 0)
|
||||||
|
|
||||||
|
@ -122,8 +122,8 @@
|
||||||
(set! use-prefetch-in-preview? #t))
|
(set! use-prefetch-in-preview? #t))
|
||||||
(("--keep-titlebar") "give the slide window a title bar and resize border"
|
(("--keep-titlebar") "give the slide window a title bar and resize border"
|
||||||
(set! keep-titlebar? #t))
|
(set! keep-titlebar? #t))
|
||||||
(("--half-screen") "display slides on right half of the screen"
|
(("--right-half-screen") "display slides on right half of the screen"
|
||||||
(set! half-screen? #t)
|
(set! right-half-screen? #t)
|
||||||
(set! keep-titlebar? #t)
|
(set! keep-titlebar? #t)
|
||||||
(set! actual-screen-w (/ actual-screen-w 2)))
|
(set! actual-screen-w (/ actual-screen-w 2)))
|
||||||
(("--comment") "display commentary in window"
|
(("--comment") "display commentary in window"
|
||||||
|
|
|
@ -99,7 +99,7 @@
|
||||||
trust-me?
|
trust-me?
|
||||||
quad-view?
|
quad-view?
|
||||||
keep-titlebar?
|
keep-titlebar?
|
||||||
half-screen?
|
right-half-screen?
|
||||||
two-frames?
|
two-frames?
|
||||||
use-prefetch?
|
use-prefetch?
|
||||||
use-prefetch-in-preview?
|
use-prefetch-in-preview?
|
||||||
|
|
|
@ -414,7 +414,7 @@
|
||||||
(values 0 0)
|
(values 0 0)
|
||||||
(get-display-left-top-inset #:monitor config:screen-number)))
|
(get-display-left-top-inset #:monitor config:screen-number)))
|
||||||
|
|
||||||
(when config:half-screen?
|
(when config:right-half-screen?
|
||||||
(set! screen-left-inset (- screen-left-inset config:actual-screen-w)))
|
(set! screen-left-inset (- screen-left-inset config:actual-screen-w)))
|
||||||
|
|
||||||
(define fullscreen?
|
(define fullscreen?
|
||||||
|
|
Loading…
Reference in New Issue
Block a user