<?xml version="1.0"?>
<Denemo>
  <merge>
    <title>A Denemo Keymap</title>
    <author>AT, JRR, RTS</author>
    <map>
      <row>
        <action>TransposeStaffOutput</action>
        <scheme>;; transpose output
(define start (d-GetNote))
(d-MoveCursorRight)
(define end (d-GetNote))

(if (or (string=? start "") (string=? end ""))
    (d-GetUserInput (_ "No Transposition Interval") (_ "To use this function you need to place the cursor/non the first of two notes which define /nthe transposition required") (_ "Ok"))
(d-StaffProperties (string-append "staff-prolog-insert \\transpose " start " " end)))

</scheme>
        <menupath>/ObjectMenu/StaffMenu</menupath>
        <label>Transpose Output</label>
        <tooltip>Transpose this staff in the print out. The cursor must be on the first of two notes that define the interval to use.</tooltip>
      </row>
    </map>
  </merge>
</Denemo>
