(local core (require :core))
(local command (require :core.command))
(local keymap (require :core.keymap))
(local SlideshowView (require :presentation.engine))

(command.add nil {
  "presentation:start" (fn []
    (let [node (core.root_view:get_active_node)]
      (node:add_view (SlideshowView (require :presentation.slides))))
  )
})
(command.add :presentation.engine {
  "presentation:next" #(core.active_view:advance)
  "presentation:prev" #(core.active_view:back)
  "presentation:next-slide" #(core.active_view:next-slide)
  "presentation:prev-slide" #(core.active_view:prev-slide)
})
(keymap.add {
  "left"  "presentation:prev"
  "right" "presentation:next"
  ","     "presentation:prev-slide"
  "."     "presentation:next-slide"
})