4
<title>A Denemo Keymap</title>
5
<author>AT, JRR, RTS</author>
9
<action>BookmarkRNonPrinting</action>
10
<scheme> ;;;Non Printing Bookmark
11
;;;by Nils Gey RTS Modified to avoid poluting the global namespace with the variable user-input
13
(let ((user-input "XXX"))
14
(set! user-input (d-GetUserInput "Named Bookmark" "Give a name" "X"))
16
(if user-input ;in case the user pressed Escape do nothing
18
(d-DirectivePut-standalone-display "BookmarkR" user-input)
20
(d-DirectivePut-standalone-ty "BookmarkR" -40)
21
(d-DirectivePut-standalone-tx "BookmarkR" -10)
26
<label>Add non-printing Bookmark</label>
27
<tooltip>Adds a custom Denemo bookmark without Lilypond output.</tooltip>