Documentation/included/special-characters.ly

   1 \version "2.15.13"
   2
   3 #(set-default-paper-size "a4")
   4 \paper {
   5   #(include-special-characters)
   6 }
   7
   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
  11           (map (lambda (pair)
  12             (markup #:override '(line-width . 18)
  13                     #:fill-line
  14                     (#:override '(replacement-alist . ()) (car pair)
  15                      #:override '(thickness . 0.1) #:box (cdr pair))))
  16             (list-tail (assoc-get 'replacement-alist defs) 3)))))
  17
  18 \markuplines \justified-lines \show-special-characters