<?xml version="1.0"?>
<Denemo>
  <merge>
    <title>A Denemo Keymap</title>
    <author>AT, JRR, RTS</author>
    <map>
      <row>
        <after>Change7</after>
        <action>DotDoubleDotNoDot</action>
        <scheme>;DotDoubleDotNoDot
(let ((dots (d-GetDots)))
	(if dots
		(cond ((or (= dots 0) (= dots 1))
				(d-AddDot))
			   ((= dots 1)
			   	(d-RemoveDot))
			   (else
			   	(d-RemoveDot)
			   	(d-RemoveDot)))
		(d-InfoDialog "Cursor must be on a chord/note/rest")))
</scheme>
        <label>Dot</label>
        <tooltip>Adds a dot to the note/rest/chord at the cursor, or removes them if double dotted.</tooltip>
      </row>
    </map>
  </merge>
</Denemo>
