Do header and footer.

[lilypond.git] / scm / output-ps.scm

diff --git a/scm/output-ps.scm b/scm/output-ps.scm
index 6850996fe140cb61d3ca7856271abb8b5241e6d4..7f3953bc8d4fe2743d355d2c5a48129cac027e33 100644 (file)
--- a/scm/output-ps.scm
+++ b/scm/output-ps.scm
@@ -267,10 +267,16 @@
   
   (string-append (select-font name-mag-pair) exp))
 
-(define (header creator generate) 
+(define (header creator time-stamp) 
   (string-append
    "%!PS-Adobe-3.0\n"
-   "%%Creator: " creator generate "\n"))
+   "%%Creator: " creator " " time-stamp "\n"
+   ;;(string-append "GNU LilyPond (" (lilypond-version) "), ")
+   ;;     (strftime "%c" (localtime (current-time))))
+   ;; FIXME: duplicated in every backend
+   (ps-string-def
+    "lilypond" 'tagline
+    (string-append "Engraved by LilyPond (version " (lilypond-version) ")"))))
 
 (define (header-end)
   (string-append
@@ -401,16 +407,6 @@
 ;;  (string-append "(" (escape-parentheses s) ") show "))
   (string-append "(" (ps-encoding s) ") show "))
 
-;; top-of-file, wtf?
-(define (top-of-file)
-  (string-append
-   (header (string-append "GNU LilyPond (" (lilypond-version) "), ")
-          (strftime "%c" (localtime (current-time))))
-  ;;; ugh
-   (ps-string-def
-    "lilypond" 'tagline
-    (string-append "Engraved by LilyPond (" (lilypond-version) ")"))))
-
 (define (unknown) 
   "\n unknown\n")