<?xml version="1.0"?>
<Denemo>
  <merge>
    <title>A Denemo Keymap</title>
    <author>AT, JRR, RTS</author>
    <map>
      <row>
        <after>LHFinger</after>
        <action>RHFinger</action>
        <scheme>;;;;;; RHFinger
(let ((tag "RHFinger") (num "0"))
	(set! num (d-GetKeypress))
	(if (string-&gt;number num) 
		(begin 
			(d-DirectivePut-note-display tag num)
			(d-DirectivePut-note-postfix tag  (string-append "-\\rightHandFinger #" num " "))
			(d-DirectivePut-note-minpixels tag 20)
			(d-DirectivePut-note-tx tag 10)
			(d-Chordize #t))
		(begin
			(d-DirectiveDelete-note tag)))
(d-SetSaved #f)
(d-RefreshDisplay))
</scheme>
        <label>Right Hand Fingering</label>
        <tooltip>Follow with a number keypress, the note at the cursor is typeset with the given number as right hand fingering. Use a non-number to delete.</tooltip>
      </row>
    </map>
  </merge>
</Denemo>
