<?xml version="1.0"?>
<Denemo>
  <merge>
    <title>A Denemo Keymap</title>
    <author>AT, JRR, RTS</author>
    <map>
      <row>
        <after>NewStaffBefore</after>
        <action>PianoStaff</action>
        <scheme>;;;PianoStaff
(let ((name #f) (del (and (None?)
	(equal? (d-StaffProperties "query=denemo_name") "Unnamed"))))
	(d-AddAfter)
	(d-StaffProperties (_ "RH"))
	(d-PianoStaffStart)
	(d-PianoStaffName)
	(d-AddAfter)
	(d-InitialClef "Bass")
	(d-StaffProperties (_ "LH"))
	(d-PianoStaffEnd)
	(if del
		(begin
			(d-MoveToStaffUp)
			(d-MoveToStaffUp)
			(d-DeleteStaff))))

</scheme>
        <label>Add Piano Staff</label>
        <tooltip>Adds two staff braced together for keyboard instrument.</tooltip>
      </row>
    </map>
  </merge>
</Denemo>
