tagline.
* scm/output-tex.scm (url-link): stub.
* scm/output-ps.scm (url-link): new function.
2005-02-27 Han-Wen Nienhuys <hanwen@xs4all.nl>
+ * scm/page-layout.scm (TAGLINE): add www.lilypond.org with URL to
+ tagline.
+
+ * scm/output-tex.scm (url-link): stub.
+
+ * scm/output-ps.scm (url-link): new function.
+
* lily/lily-parser-scheme.cc (LY_DEFINE): deprecate
ly:set-point-and-click
@macro inputfileref{DIR,NAME}
@uref{../../../\DIR\/out-www/collated-files.html#\NAME\,@file{\DIR\/\NAME\}}@c
@end macro
+@macro usermanref{NAME}
+@inforef{\NAME\,,../../user/out-www/lilypond/index}@c
+@end macro
@end ifhtml
@ifnothtml
@macro inputfileref{DIR,NAME}
@file{\DIR\/\NAME\}@c
@end macro
+@macro usermanref{NAME}
+See user manual, \NAME\
+@end macro
@end ifnothtml
+
+
@itemize @bullet
+@item
+Point and click editing is now supported in the PS/PDF backend as
+well.
+See
+@ifhtml
+@uref{../../user/out-www/lilypond/Point-and-click.html,Point and click}
+@end ifhtml
+@ifnothtml
+the section Point and click in he user manual.
+@end ifnothtml
+
+
+
+
@item
With the new @code{tieWaitForNote} property, arpeggios may be written
out using ties, for example,
@end example
@item nedit
+this will invoke
@example
nc -noask +@var{line} @var{file}'
@end example
{pop} {userdict /pdfmark /cleartomark load put} ifelse
-% llx lly urx ury command
-/mark_file_line
+
+% llx lly urx ury URI
+/mark_URI
{
/command exch def
/ury exch def
"Stencil as markup"
stil)
+
+(def-markup-command (with-url layout props url arg) (string? markup?)
+ "Insert a link to @var{url} in the output."
+ (let*
+ ((stil (interpret-markup layout props arg))
+ (xextent (ly:stencil-extent stil X))
+ (yextent (ly:stencil-extent stil X))
+ (old-expr (ly:stencil-expr stil))
+ (url-expr (list 'url-link url `(quote ,xextent) `(quote ,yextent))))
+
+ (ly:stencil-add
+ (ly:make-stencil url-expr xextent yextent)
+ stil)))
+
(def-markup-command (score layout props score) (ly:score?)
"Inline an image of music."
(let* ((systems (ly:score-embedded-format score layout)))
)
(if location
- (format "~a ~a ~a ~a (textedit://~a:~a:~a) mark_file_line\n"
+ (format "~a ~a ~a ~a (textedit://~a:~a:~a) mark_URI\n"
(+ (car offset) (car x-ext))
(+ (cdr offset) (car y-ext))
(+ (car offset) (cdr x-ext))
(caddr location))
"")))
+(define (url-link url x y)
+ (format "~a ~a ~a ~a (~a) mark_URI"
+ (car x)
+ (car y)
+ (cdr x)
+ (cdr y)
+ url))
+
;; WTF is this in every backend?
(define (horizontal-line x1 x2 th)
(draw-line th x1 0 x2 0))
(define (unknown)
"%\n\\unknown\n")
+(define (url-link url x y)
+ "")
(define (blank)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(define TAGLINE
- (string-append "Engraved by LilyPond (version " (lilypond-version) ")"))
+ (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."