(top-of-file): Add tagline definition. FIXME.

diff --git a/ChangeLog b/ChangeLog
index 9084a40d20ee62ecfc9e444615152ed2d38bcc58..cdf418b8de7fbb4cf38d4a3a37a4a33bc55cc5b4 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,7 @@
 2004-02-24  Jan Nieuwenhuizen  <janneke@gnu.org>
 
+       * scm/output-ps.scm (top-of-file): Add tagline definition.  FIXME.
+
        * ps/music-drawing-routines.ps: 
        * ps/lilyponddefs.ps: Add end markers.
 

diff --git a/scm/output-ps.scm b/scm/output-ps.scm
index 7c67171488c6aeb861ba5770eea1924234954951..9db2c4fc7a496348f56b9eccae16f45705a8a8dd 100644 (file)
--- a/scm/output-ps.scm
+++ b/scm/output-ps.scm
@@ -299,7 +299,11 @@
 ;; top-of-file, wtf?
 (define (top-of-file)
   (header (string-append "GNU LilyPond (" (lilypond-version) "), ")
-          (strftime "%c" (localtime (current-time)))))
+          (strftime "%c" (localtime (current-time))))
+  ;;; ugh
+  (ps-string-def
+   "lilypond" 'tagline
+   (string-append "Engraved by LilyPond (" (lilpond-version) ")")))
 
 (define (output-paper-def pd)
   (apply