Add keybindings for page up/page down keys

synyx · Feb 22, 2019 · 22a4d98 · 22a4d98
1 parent 270fecd
commit 22a4d98
Showing 1 changed file with 5 additions and 1 deletion.
diff --git a/src/cljs/tales/db.cljs b/src/cljs/tales/db.cljs
@@ -30,11 +30,15 @@
                           " " :slide/next
                           "ArrowLeft" :slide/prev
                           "ArrowRight" :slide/next
+                          "PageUp" :slide/prev
+                          "PageDown" :slide/next
                           "Ctrl+ArrowLeft" :slide/swap-prev
                           "Ctrl+ArrowRight" :slide/swap-next
                           "Meta+ArrowLeft" :slide/swap-prev
                           "Meta+ArrowRight" :slide/swap-next
                           "Delete" :slide/delete}
                  :presenter {" " :slide/fly-to-next
                              "ArrowLeft" :slide/fly-to-prev
-                             "ArrowRight" :slide/fly-to-next}}})
+                             "ArrowRight" :slide/fly-to-next
+                             "PageUp" :slide/fly-to-prev
+                             "PageDown" :slide/fly-to-next}}})