+ (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 (basename name ".tex"))
+ (cmd (string-append "dvips "
+ (if preview?
+ "-E "
+ (string-append
+ "-t"
+ ;; careful: papersizename is user-set.
+ (sanitize-command-option papersizename)
+ " "))
+ (if landscape? "-t landscape " "")
+ (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 " ""
+ base)))
+ (let ((ps-name (string-append base ".ps")))
+ (if (access? ps-name W_OK)
+ (delete-file ps-name)))
+ (if (not (ly:get-option 'verbose))
+ (begin
+ (format (current-error-port) (_ "Converting to `~a'...")
+ (string-append base ".dvi"))
+ (newline (current-error-port))))
+ (ly:system cmd)))