25 lines
740 B
Plaintext
25 lines
740 B
Plaintext
|
(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"
|
||
|
})
|
||
|
|