<?xml version="1.0"?>
<Denemo>
  <merge>
    <title>A Denemo Keymap</title>
    <author>AT, JRR, RTS</author>
    <map>
      <row>
        <after>EnterRest</after>
        <action>WholeMeasureRest</action>
        <scheme>;;;WholeMeasureRest
(let ((timesig #f))	
  (set! timesig (d-InsertTimeSig "query=timesigname"))
  (d-InsertWholeRest)
   (d-SetDurationInTicks (* 1536 (GetPrevailingTimeSig #t)))
   (d-DirectivePut-chord-graphic "WholeMeasureRest" "WholeMeasureRest" )
  (d-DirectivePut-chord-gx "WholeMeasureRest" 50)
   (d-DirectivePut-chord-gy "WholeMeasureRest" 8)
   ;(d-DirectivePut-chord-minpixels "WholeMeasureRest" 0)
   (d-DirectivePut-chord-override "WholeMeasureRest" (logior DENEMO_OVERRIDE_LILYPOND DENEMO_OVERRIDE_GRAPHIC))
   (d-DirectivePut-chord-postfix "WholeMeasureRest" (string-append "R1*" timesig))
   ;(d-MoveCursorRight)
   (d-SetSaved #f))
   </scheme>
        <label>Whole Measure Rest</label>
        <tooltip>Inserts a whole measure rest at the cursor</tooltip>
      </row>
    </map>
  </merge>
</Denemo>
