Lemzwerg: New category

2025-11-21T23:20:48Z

New category

← Older revision		Revision as of 23:20, 21 November 2025
Line 127:		Line 127:

	[[Category:Text]]		[[Category:Text]]
	[[Category:Vocal music]][[Category:Snippet]]		[[Category:Vocal music]]
			[[Category:Snippet]]

Lemzwerg at 23:02, 21 November 2025

2025-11-21T23:02:30Z

← Older revision		Revision as of 23:02, 21 November 2025
Line 127:		Line 127:

	[[Category:Text]]		[[Category:Text]]
	[[Category:Vocal music]]		[[Category:Vocal music]][[Category:Snippet]]

Jean Abou Samra: Replace version="2.24.0" with version="2.24" now that the LilyWiki extension supports auto-selecting the latest release in a stable series

2025-11-16T18:57:38Z

Replace version="2.24.0" with version="2.24" now that the LilyWiki extension supports auto-selecting the latest release in a stable series

← Older revision		Revision as of 18:57, 16 November 2025
Line 13:		Line 13:
	}</pre>		}</pre>

	<lilypond version="2.24.0" full>		<lilypond version="2.24" full>
	%% http://lsr.di.unimi.it/LSR/Item?id=744		%% http://lsr.di.unimi.it/LSR/Item?id=744

Jean Abou Samra: Import snippet from LSR

2025-10-26T22:46:28Z

Import snippet from LSR

New page

The snippet allows to re-use the lyrics as a markup, e.g., for extracting a libretto. It defines a <code>\verse</code> markup command to include <code>\lyricmode</code> text. You can decide to use a linebreak character or wrap lines in the marked places.

<pre>words = \lyricmode {
Du lil -- le \markup \italic fis -- \markup \italic ker \nl
Du \markup \italic lil -- \markup \italic le fis -- ker
}
\markup {
\override #'(line-width . 40) % set the line width
\override #'(display-nl . #t) % show a newline character or break lines (default)
\override #`(make-line . ,make-wordwrap-markup) % use word-wrapped and left aligned
% or justified (default) lines/paragraphs
\verse #words
}</pre>

<lilypond version="2.24.0" full>
%% http://lsr.di.unimi.it/LSR/Item?id=744

#(define linebreakindicator "\\")

% \nl command that inserts the placeholder event into a lyrics
nl = #(make-music 'LineBreakEvent)

%% Function to extract strings from lyrics.
%
#(define (lyrics->list lyrics)
"Return only syllables and hyphens from @code{lyrics}."
(if (ly:music? lyrics)
(cond
((music-is-of-type? lyrics 'lyric-event)
(let* ((art (ly:music-property lyrics 'articulations))
(hyphen?
(not (null?
(filter
(lambda (m)
(music-is-of-type? m 'hyphen-event))
art))))
(text (ly:music-property lyrics 'text)))
(if hyphen? (list text hyphen?) (list text))))
((music-is-of-type? lyrics 'line-break-event)
(list linebreakindicator))
(else
(let ((elt (ly:music-property lyrics 'element))
(elts (ly:music-property lyrics 'elements)))
(if (ly:music? elt)
(lyrics->list elt)
(if (null? elts)
'()
(map
(lambda(x) (lyrics->list x))
elts))))))
'()))

#(define (flatten-nonmarkup-list x)
"Unnest list one level, but don't flatten markup constructs!"
;; The check for markup? is likely not needed
;; We let it in for clarity
(append-map (lambda (e) (if (markup? e) e `(,@e))) x))

#(define (reduce-hyphens text)
(if (not (null? text))
(let eat ((wd (car text)) (wds (cdr text)))
(cond
((null? wds) (list wd))
((and (boolean? (car wds))
(not (null? (cdr wds))))
(eat (markup #:concat (wd (cadr wds)))
(cddr wds)))
(else (cons wd (eat (car wds) (cdr wds))))))
'()))

#(define-markup-command (verse layout props lyrics) (ly:music?)
#:properties ((display-nl #f)
(make-line make-justify-markup))
"Verse command that marks up a column of \\nl-separated lines"
(let* ((unnested-lyr-ls
(reduce-hyphens (flatten-nonmarkup-list (lyrics->list lyrics))))
(split-cond?
(lambda (a)
(and (not display-nl)
(equal? a linebreakindicator))))
(list-of-lines
(map
(lambda (l) (make-line l))
(split-list-by-separator unnested-lyr-ls split-cond?))))
(if (null? unnested-lyr-ls)
(begin
(ly:warning "lyrics is empty, returning empty-stencil")
empty-stencil)
(interpret-markup layout props (make-column-markup list-of-lines)))))

%%%%%%%%%%%%%%%%

\header { tagline = ##f }

mus = \relative c'' { \partial 4. g8 a g e c r4 r8 g' a g | f[ d] }

words = \lyricmode {
\override LyricHyphen.minimum-distance = #1.2
Du lil -- le \markup \italic fis -- \markup \italic ker \nl
Du \markup \italic lil -- \markup \italic le fis -- ker
}

%{
<<
\new Voice = "mel" \mus
\new Lyrics \lyricsto "mel" \words
>>
%}

\mus
\addlyrics { \words }

\markup \line \bold { With line breaks (no overrides) }
\markup { \verse #words }

\markup \vspace #1

\markup \line \bold { With visible line break character }
\markup { \override #'(display-nl . #t) \verse #words }
%{
%% To have left-aligned word-wrapping with
%% long lines, use
\markup { \override #`(make-line . ,make-wordwrap-markup) \verse #words }
%% (the default is make-justify-markup)
%}
</lilypond>

[[Category:Text]]
[[Category:Vocal music]]

Using lyrics as markup text - Revision history

Lemzwerg: New category

Lemzwerg at 23:02, 21 November 2025

Jean Abou Samra: Replace version="2.24.0" with version="2.24" now that the LilyWiki extension supports auto-selecting the latest release in a stable series

Jean Abou Samra: Import snippet from LSR