…smileyNoteHead = #(define-music-function (smiley-choice) (string?) #{ \once\override NoteHead.stencil = #(lambda (grob) (grob-interpret-markup grob #{ \markup\smiley $smiley-choice #0.9 #})) \once\override NoteHead.stem-attachment = #'(1 . -.2) \once\override Stem.…