- (page-number (1- (ly:output-def-lookup paper 'firstpagenumber)))
- (page-count (length pages))
- (hsize (ly:output-def-lookup paper 'hsize))
- (vsize (ly:output-def-lookup paper 'vsize))
- (page-width (inexact->exact (ceiling (* output-scale hsize))))
- (page-height (inexact->exact (ceiling (* output-scale vsize))))
- (page-set? (> page-count 1)))
+ (page-number (1- (ly:output-def-lookup paper 'first-page-number)))
+ (page-count (length page-stencils))
+ (paper-width (ly:output-def-lookup paper 'paper-width))
+ (paper-height (ly:output-def-lookup paper 'paper-height))
+ (page-width (inexact->exact (ceiling (* output-scale paper-width))))
+ (page-height (inexact->exact (ceiling (* output-scale paper-height))))
+ (page-set? (or (> page-count 1) landscape?)))
+
+ (ly:outputter-output-scheme outputter
+ `(begin (set! lily-unit-length ,unit-length) ""))
+ (dump (eo 'svg
+ '(xmlns . "http://www.w3.org/2000/svg")
+ '(xmlns:xlink . "http://www.w3.org/1999/xlink")
+ '(version . "1.2")
+
+ ;; Argggghhhh: SVG takes the px <-> mm mapping from the windowing system
+ `(width . ,(format "~s" page-width))
+ `(height . ,(format "~s" page-height))))