3 #(set-default-paper-size "a4")
5 #(include-special-characters)
8 #(define-markup-list-command (show-special-characters layout props) ()
9 (let ((defs (ly:output-def-lookup layout 'text-font-defaults)))
10 (interpret-markup-list layout props
12 (markup #:override '(line-width . 18)
14 (#:override '(replacement-alist . ()) (car pair)
15 #:override '(thickness . 0.1) #:box (cdr pair))))
16 (list-tail (assoc-get 'replacement-alist defs) 3)))))
18 \markuplines \justified-lines \show-special-characters