<?xml version="1.0"?>
<glame-accels>

<scope scope="swapfile">
  <accel state="4" spec="l">
(if (gpsm-swfile? (swapfilegui-active-item)) (gpsm-swfile-set-position! (swapfilegui-active-item) -1.57))
  </accel>
  <accel state="4" spec="r">
(if (gpsm-swfile? (swapfilegui-active-item)) (gpsm-swfile-set-position! (swapfilegui-active-item) 1.57))
  </accel>
  <accel state="4" spec="m">
(if (gpsm-swfile? (swapfilegui-active-item)) (gpsm-swfile-set-position! (swapfilegui-active-item) 0.0))
  </accel>
  <accel state="4" spec="d">
(begin (display "Hello World!") (newline))
  </accel>
</scope>

<scope scope="waveview">
  <accel state="0" spec="Prior">
(waveedit-set-zoom! (* (waveedit-get-zoom) 0.75))
  </accel>
  <accel state="0" spec="Next">
(waveedit-set-zoom! (* (waveedit-get-zoom) 1.33))
  </accel>
  <accel state="0" spec="Left">
(let* ((pos (waveedit-get-scroll)) (newpos (- (cadddr pos) (caddr pos)))) (waveedit-set-scroll-position! (if (&lt; newpos 0) 0 newpos)))
  </accel>
  <accel state="0" spec="Right">
(let* ((pos (waveedit-get-scroll)) (newpos (+ (cadddr pos) (caddr pos)))) (waveedit-set-scroll-position! (if (&gt; newpos (- (caddr (cddr pos)) (car pos))) (- (caddr (cddr pos)) (car pos)) newpos)))
  </accel>
</scope>

<scope scope="filteredit">
  <accel state="0" spec="v">
(editfilter-view-all)
  </accel>
  <accel state="1" spec="plus">
(editfilter-zoom-in)
  </accel>
  <accel state="0" spec="bracketright">
(editfilter-zoom-in 4.0)
  </accel>
  <accel state="0" spec="minus">
(editfilter-zoom-out)
  </accel>
  <accel state="0" spec="bracketleft">
(editfilter-zoom-out 4.0)
  </accel>
  <accel state="0" spec="Delete">
(editfilter-delete-selection)
  </accel>
  <accel state="0" spec="d">
(editfilter-delete-selection)
  </accel>
  <accel state="0" spec="g">
(editfilter-group-selection)
  </accel>
  <accel state="0" spec="u">
(editfilter-ungroup-selection)
  </accel>
  <scope scope="oscillator">
    <accel state="0" spec="u">
(editfilter-ungroup-selection)
    </accel>
  </scope>
</scope>

<scope scope="timeline">
  <accel state="0" spec="Up">
(let ((item (timeline-active-item)))
  (if (gpsm-item? item)
      (let ((newpos (- (gpsm-item-vposition item) 1)))
        (if (&gt; newpos 0)
            (gpsm-item-place (gpsm-item-parent item) item (gpsm-item-hposition item) newpos)
            (gpsm-item-place (gpsm-item-parent item) item (gpsm-item-hposition item) 0)))))
  </accel>
  <accel state="1" spec="Up">
(let ((item (timeline-active-group)))
  (if (gpsm-item? item)
      (let ((newpos (- (gpsm-item-vposition item) 1)))
        (if (&gt; newpos 0)
            (gpsm-item-place (gpsm-item-parent item) item (gpsm-item-hposition item) newpos)
            (gpsm-item-place (gpsm-item-parent item) item (gpsm-item-hposition item) 0)))))
  </accel>
  <accel state="0" spec="Down">
(let ((item (timeline-active-item)))
  (if (gpsm-item? item)
      (let ((newpos (+ (gpsm-item-vposition item) 1)))
        (gpsm-item-place (gpsm-item-parent item) item (gpsm-item-hposition item) newpos))))
  </accel>
  <accel state="1" spec="Down">
(let ((item (timeline-active-group)))
  (if (gpsm-item? item)
      (let ((newpos (+ (gpsm-item-vposition item) 1)))
        (gpsm-item-place (gpsm-item-parent item) item (gpsm-item-hposition item) newpos))))
  </accel>
  <accel state="0" spec="Right">
(let ((item (timeline-active-item)))
  (if (gpsm-item? item)
      (let ((newpos (+ (gpsm-item-hposition item) 4410)))
        (gpsm-item-place (gpsm-item-parent item) item newpos (gpsm-item-vposition item)))))
  </accel>
  <accel state="1" spec="Right">
(let ((item (timeline-active-group)))
  (if (gpsm-item? item)
      (let ((newpos (+ (gpsm-item-hposition item) 4410)))
        (gpsm-item-place (gpsm-item-parent item) item newpos (gpsm-item-vposition item)))))
  </accel>
  <accel state="0" spec="Left">
(let ((item (timeline-active-item)))
  (if (gpsm-item? item)
      (let ((newpos (- (gpsm-item-hposition item) 4410)))
        (if (&gt; newpos 0)
            (gpsm-item-place (gpsm-item-parent item) item newpos (gpsm-item-vposition item))
            (gpsm-item-place (gpsm-item-parent item) item 0 (gpsm-item-vposition item))))))
  </accel>
  <accel state="1" spec="Left">
(let ((item (timeline-active-group)))
  (if (gpsm-item? item)
      (let ((newpos (- (gpsm-item-hposition item) 4410)))
        (if (&gt; newpos 0)
            (gpsm-item-place (gpsm-item-parent item) item newpos (gpsm-item-vposition item))
            (gpsm-item-place (gpsm-item-parent item) item 0 (gpsm-item-vposition item))))))
  </accel>
</scope>

</glame-accels>

