X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=scm%2Fdefine-markup-commands.scm;h=d60191decf0465e3615dc09ed66ad9ba1fc7fb94;hb=5f0bcdac6b505ea8b5737e0ceaa48dc987b1ddee;hp=76d8f2441ad0207ba7e7d85af1c0263e609eeb46;hpb=8b512c90dd5cb138e5043c069dc3b5f372f68e7d;p=lilypond.git

diff --git a/scm/define-markup-commands.scm b/scm/define-markup-commands.scm
index 76d8f2441a..d60191decf 100644
--- a/scm/define-markup-commands.scm
+++ b/scm/define-markup-commands.scm
@@ -937,59 +937,25 @@ the use of @code{\\simple} is unnecessary.
 Like simple-markup, but use tie characters for @q{~} tilde symbols.
 
 @lilypond[verbatim,quote]
-\\markup \\column {
-  \\tied-lyric #\"Siam navi~all'onde~algenti Lasciate~in abbandono\"
-  \\tied-lyric #\"Impetuosi venti I nostri~affetti sono\"
-  \\tied-lyric #\"Ogni diletto~è scoglio Tutta la vita~è~un mar.\"
-}
-@end lilypond"
-  (define (replace-ties tie str)
-    (if (string-contains str "~")
-        (let*
-          ((half-space (/ word-space 2))
-           (parts (string-split str #\~))
-           (tie-str (markup #:hspace half-space
-                            #:musicglyph tie
-                            #:hspace half-space))
-           (joined  (list-join parts tie-str)))
-          (make-concat-markup joined))
-        str))
-
-  (define short-tie-regexp (make-regexp "~[^.]~"))
-  (define long-tie-regexp (make-regexp "\\w{3,}+~+\\w{3,}"))
-  (define (match-short str) (regexp-exec short-tie-regexp str))
-  (define (match-long str) (regexp-exec long-tie-regexp str))
-
-  (define (replace-short str mkp)
-    (let ((match (match-short str)))
-      (if (not match)
-          (make-concat-markup (list
-            mkp
-            (replace-ties "ties.lyric.medium" str)))
-          (let ((new-str (match:suffix match))
-                (new-mkp (make-concat-markup (list
-                          mkp
-                          (replace-ties "ties.lyric.medium"
-                                        (match:prefix match))
-                          (replace-ties "ties.lyric.short"
-                                        (match:substring match))))))
-              (replace-short new-str new-mkp)))))
-
-  (define (replace-long str mkp)
-    (let ((match (match-long str)))
-      (if (not match)
-          (replace-short str mkp)
-          (let ((new-str (match:suffix match))
-                (new-mkp (make-concat-markup (list
-                          (replace-short (match:prefix match)
-                                         mkp)
-                          (replace-ties "ties.lyric.long"
-                                        (match:substring match))))))
-              (replace-long new-str new-mkp)))))
+\\markup {
+  \\tied-lyric #\"Lasciate~i monti\"
+}
+@end lilypond"
+  (if (string-contains str "~")
+      (let*
+	  ((half-space (/ word-space 2))
+	   (parts (string-split str #\~))
+	   (tie-str (markup #:hspace half-space
+	                    #:musicglyph "ties.lyric"
+	                    #:hspace half-space))
+	   (joined  (list-join parts tie-str))
+	   (join-stencil (interpret-markup layout props tie-str))
+	   )
 
-  (interpret-markup layout
-                    props
-                    (replace-long str (markup))))
+	(interpret-markup layout
+			  props
+			  (make-concat-markup joined)))
+      (interpret-markup layout props str)))
 
 (define-public empty-markup
   (make-simple-markup ""))