<?xml version="1.0"?>
<Denemo>
  <merge>
    <title>A Denemo Keymap</title>
    <author>AT, JRR, RTS</author>
    <map>
      <row>
        <after>DeletePreviousObject</after>
        <action>StagedDelete</action>
        <scheme>;;;;StagedDelete Deletes a chord one note at a time, finally ending at non-printing rest and then deleting that
(if (Chord?)
    (if (d-GetNonprinting)
	;;; non-printing
	(if (d-GetNotes)
	    (d-RemoveNoteFromChord)
	    (d-DeleteObject))
	
	     ;;; an ordinary black note or rest
	(if (d-GetNotes)
	    (d-RemoveNoteFromChord)
	    (d-SetNonprinting)))
	;;; not a chord
    (d-DeleteObject))	

(d-RefreshDisplay)</scheme>
        <label>Delete</label>
        <tooltip>Deletes the object at the cursor. For Chords it deletes the chord stage by stage.</tooltip>
      </row>
    </map>
  </merge>
</Denemo>
