upgrade coworkflow and respo; bump 0.2.2

Author: tiye

build.boot

@@ -1,12 +1,17 @@
 
+(defn read-password [guide]
+  (String/valueOf (.readPassword (System/console) guide nil)))
+
 (set-env!
- :resource-paths #{"src"}
- :dependencies '[[respo           "0.6.4"]
-                 [mvc-works/hsl   "0.1.2"]])
+  :resource-paths #{"src"}
+  :dependencies '[[mvc-works/hsl   "0.1.2"]]
+  :repositories #(conj % ["clojars" {:url "https://clojars.org/repo/"
+                                     :username "jiyinyiyong"
+                                     :password (read-password "Clojars password: ")}]))
 
-(def +version+ "0.2.1")
+(def +version+ "0.2.2")
 
-(deftask build []
+(deftask deploy []
   (comp
     (pom :project     'respo/value
          :version     +version+
@@ -15,12 +20,4 @@
          :scm         {:url "https://github.com/Respo/respo-value"}
          :license     {"MIT" "http://opensource.org/licenses/mit-license.php"})
     (jar)
-    (install)
-    (target)))
-
-(deftask deploy []
-  (set-env!
-    :repositories #(conj % ["clojars" {:url "https://clojars.org/repo/"}]))
-  (comp
-    (build)
-    (push :repo "clojars" :gpg-sign (not (.endsWith +version+ "-SNAPSHOT")))))
+    (push :repo "clojars" :gpg-sign false)))

coir.edn

@@ -1,9 +1,10 @@
 
 {:source-paths ["src"]
  :dependencies [[mvc-works/hsl          "0.1.2"]
-                [mvc-works/shell-page   "0.1.3"]
+                [mvc-works/shell-page   "0.1.5"]
                 [respo/ui               "0.2.0"]
-                [respo                  "0.6.4"]]
+                [binaryage/devtools     "0.9.7"]
+                [respo                  "0.7.0-a1"]]
  :open-file-command ["subl" ["%s:%s:%s" :file :line :column]]
  :builds {:browser {:target :browser
                     :output-dir "target/browser"
@@ -13,9 +14,10 @@
                               :lib {:entries [respo.core respo.macros
                                               respo.comp.inspect]}}
                     :devtools {:after-load respo-value.main/reload!
-                               :preloads [shadow.cljs.devtools.client.hud]}
+                               :preloads [shadow.cljs.devtools.client.hud
+                                          devtools.preload]}
                     :release {:output-dir "dist/"
-                              :module-hash-names true
+                              :module-hash-names 8
                               :build-options {:manifest-name "cljs-manifest.json"}}}
           :ssr {:target :node-script
                 :output-to "target/ssr.js"

render.cljs

@@ -1,12 +1,11 @@
 
 (ns respo-value.comp.container
-  (:require-macros [respo.macros :refer [defcomp cursor-> <> div span]])
   (:require [hsl.core :refer [hsl]]
             [respo-value.comp.value :refer [comp-value]]
             [respo-value.schema :as schema]
             [respo.comp.space :refer [=<]]
             [respo.comp.inspect :refer [comp-inspect]]
-            [respo.core :refer [create-comp]]
+            [respo.macros :refer [defcomp cursor-> <> div span list->]]
             [respo-value.style.layout :as layout]
             [respo-value.style.widget :as widget]))
 
@@ -45,7 +44,8 @@
    (div
     {:style layout/container}
     (span {:attrs {}})
-    (div
+    (list->
+     :div
      {}
      (->> data-table
           (map-indexed (fn [idx pair] [idx (comp-section states (first pair) (last pair))]))))

shadow-cljs.edn

@@ -1,11 +1,10 @@
 
 (ns respo-value.comp.value
-  (:require-macros [respo.macros :refer [defcomp cursor-> <> div span]])
   (:require [hsl.core :refer [hsl]]
             [respo-value.style.widget :as widget]
             [respo-value.style.layout :as layout]
             [respo-value.style.decoration :as decoration]
-            [respo.core :refer [create-comp]]))
+            [respo.macros :refer [defcomp cursor-> <> div span list->]]))
 
 (declare comp-map)
 
@@ -96,7 +95,8 @@
       (render-children states *cursor* x level)))))
 
 (defn render-fields [states *cursor* xs level]
-  (div
+  (list->
+   :div
    {:style (merge widget/style-children layout/column)}
    (->> xs
         (map-indexed
@@ -108,7 +108,8 @@
              (cursor-> index comp-value states (last field) (inc level)))])))))
 
 (defn render-children [states *cursor* xs level]
-  (div
+  (list->
+   :div
    {:style (merge widget/style-children layout/column)}
    (->> xs
         (map-indexed

src/respo_value/comp/container.cljs

@@ -15,6 +15,8 @@
     {:styles ["http://localhost:8100/main.css"],
      :scripts ["/main.js" "/browser/lib.js" "/browser/main.js"]})))
 
+(def preview? (= "preview" js/process.env.prod))
+
 (defn prod-page []
   (let [html-content (make-string (comp-container schema/store))
         webpack-info (.parse js/JSON (slurp "dist/webpack-manifest.json"))