<?xml version="1.0"?>
<Denemo>
  <merge>
    <title>A Denemo Keymap</title>
    <author>AT, JRR, RTS</author>
    <map>
      <row>
        <action>MergeWithNextMeasure</action>
        <scheme>(let ()
	(define position (d-GetHorizontalPosition))
	(define measure (d-GetMeasure))
	(if (d-MoveToMeasureRight)
		(let ()
		(define count -1)
		(d-PushClipboard)
		(d-UnsetMark)
		(d-SetMark)
		(GoToMeasureEnd)
		(d-SetPoint)
		(d-Cut)
		(d-DeleteMeasure)
		(d-GoToPosition #f #f  measure #f)
		(GoToMeasureEnd)
		(RepeatUntilFail (lambda () (set! count (1+ count)) (d-PutClipObj 0 count))) ; paste
		(d-GoToPosition #f #f measure position)
		(d-PopClipboard))))</scheme>
        <label>Merge with Next Measure</label>
        <tooltip>Joins two measures together.</tooltip>
      </row>
    </map>
  </merge>
</Denemo>
