Implementing a counter in markup text - Revision history

Rudi Guggt: warning in red

2025-12-06T09:05:00Z

warning in red

← Older revision		Revision as of 09:05, 6 December 2025
Line 38:		Line 38:
	\markup { Set first counter to 15: \setcounter #"mycounter" #15 }		\markup { Set first counter to 15: \setcounter #"mycounter" #15 }
	\markup { It is increasing: \counter #"mycounter" }		\markup { It is increasing: \counter #"mycounter" }
	\markup { ~~don~~'t rush it: }		\markup \with-color #red { Don't rush it: }
	\markup { Three calls in a row: \counter #"mycounter", \counter #"mycounter" and \counter #"mycounter" }		\markup { Three calls in a row: \counter #"mycounter", \counter #"mycounter" and \counter #"mycounter" }
	\markup { It is increasing: \counter #"mycounter" }		\markup { It is increasing: \counter #"mycounter" }

Lemzwerg at 09:59, 3 December 2025

2025-12-03T09:59:26Z

← Older revision		Revision as of 09:59, 3 December 2025
Line 1:		Line 1:
	This snippet shows how to implement a counter in LilyPond for use in markup texts. Whenever you call the <code>\counter "name"</code> markup function, the counter named <code>name</code> will be increased by one and the new value will be printed as a text markup. The first call will print “1” by default. Example:		This snippet shows how to implement a counter in LilyPond for use in markup texts. Whenever you call the <code>\counter #"name"</code> markup function, the counter named <code>name</code> will be increased by one and the new value will be printed as a text markup. The first call will print “1” by default. Example:

	\markup {		\markup {

Lemzwerg at 09:58, 3 December 2025

2025-12-03T09:58:21Z

← Older revision		Revision as of 09:58, 3 December 2025
Line 1:		Line 1:
	This snippet shows how to implement a counter in LilyPond for use in markup texts. Whenever you call the <code>\counter ~~#"~~name~~"~~</code> markup function, the counter named <code>name</code> will be increased by one and the new value will be printed as a text markup. The first call will print “1” by default. Example:		This snippet shows how to implement a counter in LilyPond for use in markup texts. Whenever you call the <code>\counter "name"</code> markup function, the counter named <code>name</code> will be increased by one and the new value will be printed as a text markup. The first call will print “1” by default. Example:

	~~<code>~~\markup { Initial value of the counter: \counter #~~"~~mycounter~~"~~. Second call: \counter #~~"~~mycounter~~"~~ }~~</code>~~		\markup {
			Initial value of the counter: \counter #"mycounter".
			Second call: \counter #"mycounter" }

	The snippet also implements a <code>\setcounter #~~"~~name~~"~~ newvalue</code> markup command to set the the counter to a specific value and print it out.		The snippet also implements a <code>\setcounter #"name" newvalue</code> markup command to set the the counter to a specific value and print it out.

	One can have an arbitrary number of simultaneous counters, each indicated by its own name (as a string).		One can have an arbitrary number of simultaneous counters, each indicated by its own name (as a string).
Line 9:		Line 11:
	The storage of the counter values is implemented as a global alist <code>counter-alist</code> (Scheme/Guile's concept of a hash), where the <code>counter</code> command simply extracts the current value, increases it by one and stores it back in the alist.		The storage of the counter values is implemented as a global alist <code>counter-alist</code> (Scheme/Guile's concept of a hash), where the <code>counter</code> command simply extracts the current value, increases it by one and stores it back in the alist.

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

	~~\paper { tagline = ##f }~~

	~~%here starts the snippet:~~

	#(define counter-alist '())		#(define counter-alist '())

Rudi Guggt: simultanous calls are backward!

2025-12-02T09:15:36Z

simultanous calls are backward!

← Older revision		Revision as of 09:15, 2 December 2025
Line 33:		Line 33:
	(interpret-markup layout props (make-counter-markup name)))		(interpret-markup layout props (make-counter-markup name)))

	\markup { Initial value of the counter: \counter #"mycounter". Second call: \counter #"mycounter" }		\markup { Initial value of the counter: \counter #"mycounter". }
			\markup { Second call: \counter #"mycounter" }
	\markup { It is increasing: \counter #"mycounter" }		\markup { It is increasing: \counter #"mycounter" }
	\markup { A second counter: \counter #"myothercounter" }		\markup { A second counter: \counter #"myothercounter" }
Line 41:		Line 42:
	\markup { Set first counter to 15: \setcounter #"mycounter" #15 }		\markup { Set first counter to 15: \setcounter #"mycounter" #15 }
	\markup { It is increasing: \counter #"mycounter" }		\markup { It is increasing: \counter #"mycounter" }
	\markup { ~~It is increasing~~: ~~\counter #"mycounter"~~ }		\markup { don't rush it: }
	\markup { ~~It is increasing~~: \counter #"mycounter" }		\markup { Three calls in a row: \counter #"mycounter", \counter #"mycounter" and \counter #"mycounter" }
	\~~markup { It is increasing:~~ \counter #"mycounter" }
	\markup { It is increasing: \counter #"mycounter" }		\markup { It is increasing: \counter #"mycounter" }
	\markup { Second counter is increasing: \counter #"myothercounter" }		\markup { Second counter is increasing: \counter #"myothercounter" }

Lemzwerg: New category

2025-11-21T23:36:59Z

New category

← Older revision		Revision as of 23:36, 21 November 2025
Line 49:		Line 49:

	[[Category:Text]]		[[Category:Text]]
	[[Category:Scheme]][[Category:Snippet]]		[[Category:Scheme]]
			[[Category:Snippet]]

Lemzwerg at 22:54, 21 November 2025

2025-11-21T22:54:51Z

← Older revision		Revision as of 22:54, 21 November 2025
Line 49:		Line 49:

	[[Category:Text]]		[[Category:Text]]
	[[Category:Scheme]]		[[Category:Scheme]][[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:49:07Z

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:49, 16 November 2025
Line 9:		Line 9:
	The storage of the counter values is implemented as a global alist <code>counter-alist</code> (Scheme/Guile's concept of a hash), where the <code>counter</code> command simply extracts the current value, increases it by one and stores it back in the alist.		The storage of the counter values is implemented as a global alist <code>counter-alist</code> (Scheme/Guile's concept of a hash), where the <code>counter</code> command simply extracts the current value, increases it by one and stores it back in the alist.

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

Jean Abou Samra: Import snippet from LSR

2025-10-26T22:43:24Z

Import snippet from LSR

New page

This snippet shows how to implement a counter in LilyPond for use in markup texts. Whenever you call the <code>\counter #"name"</code> markup function, the counter named <code>name</code> will be increased by one and the new value will be printed as a text markup. The first call will print “1” by default. Example:

<code>\markup { Initial value of the counter: \counter #"mycounter". Second call: \counter #"mycounter" }</code>

The snippet also implements a <code>\setcounter #"name" newvalue</code> markup command to set the the counter to a specific value and print it out.

One can have an arbitrary number of simultaneous counters, each indicated by its own name (as a string).

The storage of the counter values is implemented as a global alist <code>counter-alist</code> (Scheme/Guile's concept of a hash), where the <code>counter</code> command simply extracts the current value, increases it by one and stores it back in the alist.

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

\paper { tagline = ##f }

%here starts the snippet:

#(define counter-alist '())

#(define-markup-command (counter layout props name) (string?)
"Increases and prints out the value of the given counter named @var{name}.
If the counter does not yet exist, it is initialized with 1."
(let* ((oldval (assoc-ref counter-alist name))
(newval (if (number? oldval) (+ oldval 1) 1)))
(set! counter-alist (assoc-set! counter-alist name newval))
(interpret-markup layout props
(markup (number->string newval)))))

#(define-markup-command (setcounter layout props name value) (string? number?)
"Set the given counter named @var{name} to the given @var{value} and prints
out the value. The counter does not yet have to exist."
(set! counter-alist (assoc-set! counter-alist name (- value 1)))
(interpret-markup layout props (make-counter-markup name)))

\markup { Initial value of the counter: \counter #"mycounter". Second call: \counter #"mycounter" }
\markup { It is increasing: \counter #"mycounter" }
\markup { A second counter: \counter #"myothercounter" }
\markup { First counter is increasing: \counter #"mycounter" }
\markup { Second counter is increasing: \counter #"myothercounter" }
\markup { Setting to a specific value works, too: }
\markup { Set first counter to 15: \setcounter #"mycounter" #15 }
\markup { It is increasing: \counter #"mycounter" }
\markup { It is increasing: \counter #"mycounter" }
\markup { It is increasing: \counter #"mycounter" }
\markup { It is increasing: \counter #"mycounter" }
\markup { It is increasing: \counter #"mycounter" }
\markup { Second counter is increasing: \counter #"myothercounter" }
</lilypond>

[[Category:Text]]
[[Category:Scheme]]