From 2d50ceee20ad54a1b649663a2e4a7efd0823dc39 Mon Sep 17 00:00:00 2001 From: Jan Nieuwenhuizen Date: Tue, 24 Feb 2004 22:52:40 +0000 Subject: [PATCH] (top-of-file): Add tagline definition. FIXME. --- ChangeLog | 2 ++ scm/output-ps.scm | 6 +++++- 2 files changed, 7 insertions(+), 1 deletion(-) diff --git a/ChangeLog b/ChangeLog index 9084a40d20..cdf418b8de 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,5 +1,7 @@ 2004-02-24 Jan Nieuwenhuizen + * 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 7c67171488..9db2c4fc7a 100644 --- 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 -- 2.39.5