*** empty log message ***

[lilypond.git] / scm / output-ps.scm

diff --git a/scm/output-ps.scm b/scm/output-ps.scm
index d258df8e9e7811ff21cf0b859063c92215549f76..fbdffd487b0058ec08c9250b42a3693342a209ab 100644 (file)
--- a/scm/output-ps.scm
+++ b/scm/output-ps.scm
@@ -215,21 +215,34 @@
                       (ly:input-file-line-column music-origin)
                       #f
                       ))
+        (file (if location (string-append (getcwd) "/" (car location))
+                  #f))
         (x-ext (ly:grob-extent grob grob X)) 
         (y-ext (ly:grob-extent grob grob Y)) 
         )
 
-    (if location
-       (format "~a ~a ~a ~a (~a:~a:~a) mark_file_line\n"
+    (if (and location
+            (< 0 (interval-length x-ext))
+            (< 0 (interval-length y-ext)))
+       
+       (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))
                (+ (cdr offset) (cdr y-ext))
-               (car location)
+               file
                (cadr location)
                (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))