<?xml version="1.0"?>
<Denemo>
  <merge>
    <title>A Denemo Keymap</title>
    <author>AT, JRR, RTS</author>
    <map>
      <row>
        <action>ApplyToSelection</action>
        <scheme>
(let ((command 0))
	(begin
(set! command (d-GetCommand))
(if (string=? command "d-")
    (d-WarningDialog "This keypress is not a shortcut")	
    (begin
      (set! command (string-append "(if (Chord?) (" command "))"))	
      (ApplyToSelection command "(d-GoToSelectionStart)")))))
</scheme>
        <label>Apply Shortcut to Notes in Selection</label>
        <tooltip>Followed by a shortcut: applies the shortcut to each note in the selection.</tooltip>
      </row>
    </map>
  </merge>
</Denemo>
