Add initial implementation of keyboard shortcuts to workspace.

This commit is contained in:
Andrey Antukh 2015-12-23 00:42:24 +02:00
parent a0d1a03a16
commit 2cd98a516c
6 changed files with 92 additions and 39 deletions

View file

@ -1,9 +1,10 @@
(ns uxbox.core
(:require [beicon.core :as rx]
[uxbox.state :as s]
[uxbox.router :as r]
[uxbox.router :as rt]
[uxbox.rstore :as rs]
[uxbox.ui :as ui]
[uxbox.ui.keyboard :as kb]
[uxbox.data.load :as dl]))
(enable-console-print!)
@ -11,7 +12,10 @@
(defonce +setup+
(do
(println "bootstrap")
(r/init)
(rt/init)
(ui/init)
(kb/init)
(rs/emit! (dl/load-data))
(rx/on-value s/stream #(dl/persist-state %))))