+2005-03-01 Han-Wen Nienhuys <hanwen@xs4all.nl>
+
+ * scm/define-markup-commands.scm (with-url): oops. use Y extent
+ for Y.
+
+ * ly/titling-init.ly (tagline): put default tagline in \paper
+
2005-03-01 Jan Nieuwenhuizen <janneke@gnu.org>
* tex/GNUmakefile $(outdir)/latin1.enc: Build fix:
the section Point and click in he user manual.
@end ifnothtml
+@item
+White mensural ligatures now conform more closely to Renaissance
+usage.
+
@item
With the new @code{tieWaitForNote} property, arpeggios may be written
The PostScript backend is now used by default. This backend requires
less machinery to run, and gives more consistent results.
-Due bugs in GhostScript's PDF handling, it is recommended to upgrade
-to GhostScript 8.x.
+Due to bugs in GhostScript's PDF handling, it is recommended to
+upgrade to GhostScript 8.x.
@item
Separator slashes may be inserted between systems in a score. For an
@echo "or add something like that to the postinstall script."
@echo
else
-
-$(INSTALL) -d $(DESTDIR)$(package_infodir)
-install-info --remove --info-dir=$(infodir) $(outdir)/lilypond.info
install-info --info-dir=$(infodir) $(outdir)/lilypond.info
DEEP_HTML_FILES =\
$(outdir)/lilypond/index.html\
$(outdir)/lilypond-internals/index.html
-
+
else
# Links referred to by Documentation index
local-delete:
-for i in $$(seq 0 9); do \
- for j in dvi eps eps.bbox eps.trans log png tex; do \
+ for j in dvi eps eps.bbox eps.trans eps.trans.ps ps log png tex; do \
rm -f $(outdir)/lily-$$i*$$j; \
done; \
done
#(ly:set-option 'new-relative)
-#(ly:set-point-and-click #f)
#(define toplevel-scores '())
#(define $globalheader #f)
#(define version-seen? #f)
\raise #0.7 \beam #2.0 #0.5 #0.48
}
+
+tagline = \markup {
+ \with-url
+ #"http://lilypond.org/pdflink/"
+ \line {
+ "Engraved by LilyPond"
+ #(ly:export (lilypond-version))
+ "-"
+ "www.lilypond.org"
+ }
+}
bookTitleMarkup = \markup {
\column {
(let*
((stil (interpret-markup layout props arg))
(xextent (ly:stencil-extent stil X))
- (yextent (ly:stencil-extent stil X))
+ (yextent (ly:stencil-extent stil Y))
(old-expr (ly:stencil-expr stil))
(url-expr (list 'url-link url `(quote ,xextent) `(quote ,yextent))))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-(define TAGLINE
- (make-line-markup
- (list
- (make-simple-markup (string-append "Engraved by LilyPond " (lilypond-version)))
- (make-simple-markup "-")
- (make-with-url-markup "http://lilypond.org"
- (make-typewriter-markup (make-simple-markup "www.lilypond.org"))
-
- ))))
-
(define (page-headfoot layout scopes number sym sepsym dir last?)
"Create a stencil including separating space."
(let* ((header-proc (ly:output-def-lookup layout sym))
alist))
alists))
(tagline (ly:modules-lookup scopes 'tagline))
+ (default-tagline (ly:output-def-lookup layout 'tagline))
(pgnum-alist
(list
- (cons 'header:tagline (if (markup? tagline)
- tagline
- TAGLINE))
+ (cons 'header:tagline
+ (cond
+ ((markup? tagline) tagline)
+ ((markup? default-tagline) default-tagline)
+ (else "")))
(cons 'page:last? last?)
(cons 'page:page-number-string
(number->string page-number))