<?xml version="1.0"?>
<Denemo>
  <merge>
    <title>A Denemo Keymap</title>
    <author>AT, JRR, RTS</author>
    <map>
      <row>
        <after>Beam1234</after>
        <action>NoBeam</action>
        <scheme>;;;NoBeam
(if (&gt; (d-GetNoteBaseDuration) 2)
  (let ((tag "NoBeam"))
    (if (d-Directive-chord? tag)
	(d-DirectiveDelete-chord tag)
	(begin
		(d-DirectivePut-chord-postfix tag "\\noBeam")
		(d-DirectivePut-chord-display tag "noBeam")
		(d-DirectivePut-chord-graphic tag "NoBeam")
		(d-DirectivePut-chord-override tag DENEMO_OVERRIDE_AFFIX)))
  (d-SetSaved #f)
  (d-RefreshDisplay))
(d-WarningDialog (_ "No beam possible here")))
</scheme>
        <label>No Beam</label>
        <tooltip>(Print) Removes beam from current note</tooltip>
      </row>
    </map>
  </merge>
</Denemo>
