* 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.

diff --git a/ChangeLog b/ChangeLog
index 76c70f9821493f22bb33da1229b107fc9767f2b4..85847b670e85489dc7ada6769e150fe5bfd24e16 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,12 @@
 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
 

diff --git a/Documentation/topdocs/NEWS.tely b/Documentation/topdocs/NEWS.tely
index 7e63d7a602983f60f65c33a9327bd2889be37c32..a0e31e79de9631221c8706e97ff43c2f338ac8bb 100644 (file)
--- a/Documentation/topdocs/NEWS.tely
+++ b/Documentation/topdocs/NEWS.tely
@@ -12,16 +12,38 @@
 @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,

diff --git a/Documentation/user/point-and-click.itely b/Documentation/user/point-and-click.itely
index df12403bddc59545a9e15b9ce855caced29ea401..0e81969711136233111868cdc587ea8b1020b8fc 100644 (file)
--- a/Documentation/user/point-and-click.itely
+++ b/Documentation/user/point-and-click.itely
@@ -64,6 +64,7 @@ gvim --remote +:@var{line}:norm@var{column} @var{file}
 @end example
 
 @item nedit
+this will invoke
 @example
   nc -noask +@var{line} @var{file}'
 @end example

diff --git a/ps/music-drawing-routines.ps b/ps/music-drawing-routines.ps
index c7c0956e4473fed219cf4a98207bd6115b5ccb50..35e8b3bb1f27476d889efde75e2f5e1d86b97ab0 100644 (file)
--- a/ps/music-drawing-routines.ps
+++ b/ps/music-drawing-routines.ps
@@ -7,8 +7,9 @@
 {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

diff --git a/scm/define-markup-commands.scm b/scm/define-markup-commands.scm
index 9492d14b270cd9fed0141f1fc0dd977731eed222..dbcc1556e3b449af5c88bb82994ab3b424bc00f9 100644 (file)
--- a/scm/define-markup-commands.scm
+++ b/scm/define-markup-commands.scm
@@ -16,6 +16,20 @@
   "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)))

diff --git a/scm/output-ps.scm b/scm/output-ps.scm
index cd11700e75f05ba6e6dc703cd983362406d32721..01a73c12e01932fddf5c0a49587de9c226d73109 100644 (file)
--- a/scm/output-ps.scm
+++ b/scm/output-ps.scm
@@ -222,7 +222,7 @@
         )
 
     (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))
@@ -232,6 +232,14 @@
                (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))

diff --git a/scm/output-tex.scm b/scm/output-tex.scm
index ccd3792fa1a52cf47d32724f1431f5d4bddc5d7e..8e77e50ece6931f44695619ad5cdc5c8b2be05fa 100644 (file)
--- a/scm/output-tex.scm
+++ b/scm/output-tex.scm
@@ -69,6 +69,8 @@
 (define (unknown) 
   "%\n\\unknown\n")
 
+(define (url-link url x y)
+  "")
 
 
 (define (blank)

diff --git a/scm/page-layout.scm b/scm/page-layout.scm
index d576e20ab4199e543ad8f8adf3b3183488e40b7a..f65c8744dca489ca2cf57c610d66a648346b29d5 100644 (file)
--- a/scm/page-layout.scm
+++ b/scm/page-layout.scm
@@ -30,7 +30,14 @@
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 
 (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."