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

<accel state="0" spec="list_keybindings">
(glame-accel-edit-dialog "" #f)
</accel>

<scope scope="swapfile">
  <accel state="0" spec="F1">
(glame-accel-edit-dialog "swapfile" #f)
  </accel>
  <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="0" spec="w">
(waveedit-new (swapfilegui-active-item))
  </accel>
</scope>

<scope scope="waveview">
  <accel state="0" spec="F1">
(glame-accel-edit-dialog "waveview" #f)
  </accel>
  <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>
  <accel state="0" spec="Home">
(waveedit-set-scroll-position! 0)
  </accel>
  <accel state="0" spec="End">
(let ((pos (waveedit-get-scroll))) (waveedit-set-scroll-position! (caddr (cddr pos))))
  </accel>
  <accel state="0" spec="space">
(let ((grp (waveedit-gpsm-grp))
      (sel (waveedit-get-selection))
      (mar (waveedit-get-marker)))
  (if (&lt;= (cdr sel) 0)
      (waveedit-play mar (gpsm-item-hsize grp) #f #f)
      (waveedit-play (car sel) (+ (car sel) (cdr sel)) #t #f)))
  </accel>
  <accel state="1" spec="space">
(let ((grp (waveedit-gpsm-grp))
      (sel (waveedit-get-selection))
      (mar (waveedit-get-marker)))
  (if (&lt;= (cdr sel) 0)
      (waveedit-play mar (gpsm-item-hsize grp) #f #t)
      (waveedit-play (car sel) (+ (car sel) (cdr sel)) #t #t)))
  </accel>
</scope>

<scope scope="filteredit">
  <accel state="0" spec="F1">
(glame-accel-edit-dialog "filteredit" #f)
  </accel>
  <accel state="0" spec="v">
(editfilter-view-all)
  </accel>
  <accel state="0" spec="e">
(editfilter-expand-selected)
  </accel>
  <accel state="0" spec="c">
(editfilter-collapse-selection)
  </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>
  <accel state="0" spec="y">
(let* ((selection (editfilter-get-selection))
       (subnet (filter-collapse "Clipboard" selection)))
  (editfilter-set-clipboard! (filter-new subnet))
  (filter-expand subnet)
  (filter-delete subnet))
  </accel>
  <accel state="0" spec="p">
(let ((copy (filter-new (editfilter-clipboard))))
  (filter-add-node (editfilter-network) copy "foo")
  (filter-expand copy)
  (filter-delete copy)
  (editfilter-redraw))
  </accel>
</scope>

<scope scope="timeline">
  <accel state="0" spec="F1">
(glame-accel-edit-dialog "timeline" #f)
  </accel>
  <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>

