update api
This commit is contained in:
+4
-4
@@ -131,7 +131,7 @@
|
||||
Options:
|
||||
- :init - Initial model (required)
|
||||
- :update - (fn [{:keys [model event]}] {:model m :events [...]}) (required)
|
||||
- :view - (fn [model size] hiccup) where size is {:width w :height h} (required)
|
||||
- :view - (fn [model] hiccup) (required)
|
||||
- :init-events - Vector of events to dispatch at startup
|
||||
- :fps - Target frames per second (default 60)
|
||||
- :alt-screen - Use alternate screen buffer (default true)
|
||||
@@ -162,7 +162,7 @@
|
||||
(let [size (term/get-terminal-size)
|
||||
ctx {:available-height (:height size)
|
||||
:available-width (:width size)}]
|
||||
(term/render! (render/render (view init size) ctx)))
|
||||
(term/render! (render/render (view init) ctx)))
|
||||
|
||||
;; Main loop
|
||||
(loop [model init
|
||||
@@ -196,7 +196,7 @@
|
||||
(execute-event! e msg-chan)))
|
||||
|
||||
;; Render with context for flex layouts
|
||||
(term/render! (render/render (view new-model size) ctx))
|
||||
(term/render! (render/render (view new-model) ctx))
|
||||
|
||||
(recur new-model now))))))
|
||||
|
||||
@@ -218,7 +218,7 @@
|
||||
(defapp my-app
|
||||
:init {:count 0}
|
||||
:update (fn [{:keys [model event]}] ...)
|
||||
:view (fn [model size] ...))"
|
||||
:view (fn [model] ...))"
|
||||
[name & {:keys [init update view init-events]}]
|
||||
`(def ~name
|
||||
{:init ~init
|
||||
|
||||
Reference in New Issue
Block a user