commit 04aefc815acc45e1e2991fe85112953ba4355799
from: Omar Polo <op@omarpolo.com>
date: Wed Jan 18 20:56:25 2023 UTC

amusing: add some keybindings

commit - 9b739c87b03bd1deeb6644dedaa89e7356b294a1
commit + 04aefc815acc45e1e2991fe85112953ba4355799
blob - b0438237396d6f1dbc79b55808599bd3962856ee
blob + bd6e5e970001af74dac47c810059770d152cb60d
--- contrib/amusing
+++ contrib/amusing
@@ -289,7 +289,18 @@ grid rowconfigure .c.main 0 -weight 1
 
 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]