-(define-public (set-paper-size name)
- (if (module-defined? (current-module) '$is-paper)
- (internal-set-paper-size (current-module) name)
+ (if landscape?
+ (module-define! module 'landscape #t)))
+ (else
+ (ly:warn (string-append "Unknown papersize: " name))))))
+
+(define-public (set-default-paper-size name . rest)
+ (internal-set-paper-size
+ (ly:output-def-scope (eval '$defaultpaper (current-module)))
+ name
+ (memq 'landscape rest)))
+
+(define-public (set-paper-size name . rest)
+ (if (module-defined? (current-module) 'is-paper)
+ (internal-set-paper-size (current-module) name
+ (memq 'landscape rest))