- (newline (current-error-port))
- (display (format #f (_ "Invoking ~S") cmd) (current-error-port))
- (newline (current-error-port))
+(define-public (convert-to-ps book name)
+ (let* ((paper (ly:paper-book-paper book))
+ (preview? (string-contains name ".preview"))
+ (papersizename (ly:output-def-lookup paper 'papersizename))
+ (landscape? (eq? #t (ly:output-def-lookup paper 'landscape)))
+ (base (dir-basename name ".tex"))
+ (ps-name (format "~a.ps" base ".ps"))
+ (cmd (string-append "dvips"
+ (if preview?
+ " -E"
+ (string-append
+ " -t"
+ ;; careful: papersizename is user-set.
+ (sanitize-command-option papersizename)
+ ""))
+ (if landscape? " -tlandscape" "")
+ (if (ly:kpathsea-find-file "lm.map")
+ " -u+lm.map" "")
+ (if (ly:kpathsea-find-file "ecrm10.pfa")
+ " -u+ec-mftrace.map" "")
+ " -u+lilypond.map -Ppdf" ""
+ " -o" ps-name
+ " " base)))
+ (if (access? ps-name W_OK)
+ (delete-file ps-name))
+ (if (not (ly:get-option 'verbose))
+ (begin
+ (ly:message (_ "Converting to `~a'...") (string-append base ".ps"))
+ (ly:progress "\n")))
+ (ly:system cmd)))