(lambda (x y) (string<? (cadr x) (cadr y))))))
- (font-loader (if (ly:get-option 'gs-font-load)
+ (font-loader (if (ly:get-option 'gs-load-fonts)
load-font-via-GS
load-font))
;; the left-overshoot is to make sure that
;; bar numbers stick out of margin uniformly.
;;
- (list (min left-overshoot (car xext))
- (car yext) (cdr xext) (cdr yext))))
+ (list
+
+ (if (ly:get-option 'pad-eps-boxes)
+ (min left-overshoot (car xext))
+ (car xext))
+ (car yext) (cdr xext) (cdr yext))))
+
(rounded-bbox (to-bp-box bbox))
(port (ly:outputter-port outputter))
(header (eps-header paper rounded-bbox load-fonts?)))
;; skip booktitles.
(if (and
- (not (ly:get-option 'preview-include-book-title))
+ (not (ly:get-option 'include-book-title-preview))
(pair? systems)
(ly:prob-property (car systems) 'is-book-title #f))