<?xml version="1.0"?>
<Denemo>
  <merge>
    <title>A Denemo Keymap</title>
    <author>AT, JRR, RTS</author>
    <map>
      <row>
        <after>ShiftRealDialogUp</after>
        <action>ShiftRealDialogDown</action>
        <scheme>(let ()
(define interval (AskForInterval))
(SingleAndSelectionSwitcher 
	(lambda ()
		(if (Note?) 
			(ANS::ChangeChordNotes (map (lambda (x) (ANS::IntervalCalcDown x interval)) (ANS::GetChordNotes)))
			#f)))) </scheme>
        <label>Arbitrary transpose down</label>
        <tooltip>Transpose/shift the cursor note or selection an arbitrary number of tones down. User can specify interval through a dialog.</tooltip>
      </row>
    </map>
  </merge>
</Denemo>
