<?xml version="1.0"?>
<Denemo>
  <merge>
    <title>A Denemo Keymap</title>
    <author>AT, JRR, RTS</author>
    <map>
      <row>
        <action>Anacrusis</action>
        <scheme>
	;;;Scheme code for command Anacrusis
	(d-GoToBeginning)
	(while (d-StaffUp)
		(display "going up"))
	(d-InsertMeasure)
	(d-InsertLilyDirective "directive=\\partial 8\0display=Upbeat")
	(d-Insert3)
	(while (d-StaffDown)
		(begin (d-InsertLilyDirective "directive=\\partial 8\0display=Upbeat")
		(d-Insert3)))
	(while (d-StaffUp)
		(display "going up"))
	(d-MeasureRight)
</scheme>
        <label>Insert Anacrusis</label>
        <tooltip>Insert a LilyPond Directive to give an eighth note upbeat</tooltip>
      </row>
    </map>
  </merge>
</Denemo>
