commit - 9b739c87b03bd1deeb6644dedaa89e7356b294a1
commit + 04aefc815acc45e1e2991fe85112953ba4355799
blob - b0438237396d6f1dbc79b55808599bd3962856ee
blob + bd6e5e970001af74dac47c810059770d152cb60d
--- contrib/amusing
+++ contrib/amusing
grid columnconfigure .c.bottom 1 -weight 1
grid rowconfigure .c.bottom 0 -weight 1
+
+# define keybindings
+bind . <space> {amused toggle}
+bind . <n> {amused next}
+bind . <p> {amused prev}
+bind . <s> {amused stop}
+bind . <comma> {exec amused seek -1}
+bind . <less> {exec amused seek -5}
+bind . <period> {exec amused seek +1}
+bind . <greater> {exec amused seek +5}
+
# init the state
set fd [open "|amused monitor" r]