Run add-at-macro script on src/re_demo

src/re_demo/alert_box.cljs

@@ -1,9 +1,9 @@
 (ns re-demo.alert-box
   (:require-macros
     [reagent.debug :refer [dbg prn println log dev? warn warn-unless]]
-    [re-com.core   :refer [at]])
+    [re-com.core   :refer []])
   (:require
-    [re-com.core   :refer [h-box v-box box line gap title label alert-box alert-list p]]
+    [re-com.core   :refer [at h-box v-box box line gap title label alert-box alert-list p]]
     [re-com.alert  :refer [alert-box-parts-desc alert-box-args-desc alert-list-args-desc]]
     [re-demo.utils :refer [panel-title title2 title3 parts-table args-table github-hyperlink status-text]]
     [re-com.util   :refer [px]]

src/re_demo/alert_list.cljs

@@ -1,8 +1,8 @@
 (ns re-demo.alert-list
   (:require-macros
-    [re-com.core   :refer [at]])
+    [re-com.core   :refer []])
   (:require
-    [re-com.core   :refer [h-box v-box box line gap label title button alert-box alert-list p]]
+    [re-com.core   :refer [at h-box v-box box line gap label title button alert-box alert-list p]]
     [re-com.alert  :refer [alert-list-parts-desc alert-box-args-desc alert-list-args-desc]]
     [re-com.util   :refer [insert-nth remove-id-item px]]
     [re-demo.utils :refer [panel-title title2 title3 parts-table args-table github-hyperlink status-text]]

src/re_demo/border.cljs

@@ -1,8 +1,8 @@
 (ns re-demo.border
   (:require-macros
-    [re-com.core   :refer [at]])
+    [re-com.core   :refer []])
   (:require
-    [re-com.core   :refer [h-box v-box box gap border p]]
+    [re-com.core   :refer [at h-box v-box box gap border p]]
     [re-com.box    :refer [border-args-desc]]
     [re-demo.utils :refer [panel-title title2 args-table github-hyperlink status-text]]))
 

src/re_demo/box.cljs

@@ -1,8 +1,8 @@
 (ns re-demo.box
   (:require-macros
-    [re-com.core   :refer [at]])
+    [re-com.core   :refer []])
   (:require
-    [re-com.core   :refer [h-box v-box box gap hyperlink-href p]]
+    [re-com.core   :refer [at h-box v-box box gap hyperlink-href p]]
     [re-com.box    :refer [box-args-desc]]
     [re-demo.utils :refer [panel-title title2 args-table github-hyperlink status-text]]))
 

src/re_demo/button.cljs

@@ -1,8 +1,8 @@
 (ns re-demo.button
   (:require-macros
-    [re-com.core    :refer [handler-fn at]])
+    [re-com.core    :refer [handler-fn]])
   (:require
-    [re-com.core    :refer [h-box v-box box gap line button label throbber hyperlink-href p p-span]]
+    [re-com.core    :refer [at h-box v-box box gap line button label throbber hyperlink-href p p-span]]
     [re-com.buttons :refer [button-parts-desc button-args-desc]]
     [re-demo.utils  :refer [panel-title title2 title3 parts-table args-table github-hyperlink status-text]]
     [re-com.util    :refer [px]]
@@ -88,7 +88,7 @@
                                                        :tooltip           "I'm a tooltip on the left"
                                                        :tooltip-position :left-center
                                                        :on-click          #(swap! state update-in [:see-throbber] not)]
-                                                      (when (:see-throbber @state) [throbber])]]
+                                                      (when (:see-throbber @state) [throbber :src (at)])]]
                                           [gap
                                            :src  (at)
                                            :size "20px"]

src/re_demo/checkbox.cljs

@@ -1,8 +1,8 @@
 (ns re-demo.checkbox
   (:require-macros
-    [re-com.core     :refer [at]])
+    [re-com.core     :refer []])
   (:require
-    [re-com.core     :refer [h-box v-box box gap line checkbox label p]]
+    [re-com.core     :refer [at h-box v-box box gap line checkbox label p]]
     [re-com.checkbox :refer [checkbox-parts-desc checkbox-args-desc]]
     [re-demo.utils   :refer [panel-title title2 title3 parts-table args-table github-hyperlink status-text]]
     [re-com.util     :refer [px]]
@@ -36,27 +36,27 @@
         all-for-one? (reagent/atom true)]
     (fn
       []
-      [v-box
+      [v-box :src (at)
        :size     "auto"
        :gap      "10px"
        :children [[panel-title "[checkbox ... ]"
                                 "src/re_com/checkbox.cljs"
                                 "src/re_demo/checkbox.cljs"]
 
-                  [h-box
+                  [h-box :src (at)
                    :gap      "100px"
-                   :children [[v-box
+                   :children [[v-box :src (at)
                                :gap      "10px"
                                :width    "450px"
                                :children [[title2 "Notes"]
                                           [status-text "Stable"]
                                           [p "A boostrap-styled checkbox, with optional label (always displayed to the right)."]
                                           [p "Clicking on the label is the same as clicking on the checkbox."]
                                           [args-table checkbox-args-desc]]]
-                              [v-box
+                              [v-box :src (at)
                                :gap      "10px"
                                :children [[title2 "Demo"]
-                                          [v-box
+                                          [v-box :src (at)
                                            :gap "15px"
                                            :children [[h-box
                                                        :src      (at)
@@ -68,7 +68,7 @@
                                                                    :model     ticked?
                                                                    :on-change #(reset! ticked? %)]
                                                                   (when @ticked? [left-arrow])
-                                                                  (when @ticked? [label :label " is ticked"])]]
+                                                                  (when @ticked? [label :src (at) :label " is ticked"])]]
 
                                                       [h-box
                                                        :src      (at)
@@ -104,16 +104,16 @@
                                                                    :label-style (if @disabled?  {:color "#888"})
                                                                    :on-change   #(reset! something1? %)]]]
 
-                                                      [h-box
+                                                      [h-box :src (at)
                                                        :gap      "1px"
                                                        :children [[checkbox
                                                                    :src       (at)
                                                                    :model     something2?
                                                                    :on-change #(reset! something2? %)]
-                                                                  [gap :size "50px"]
+                                                                  [gap :src (at) :size "50px"]
                                                                   [left-arrow]
-                                                                  [gap :size "5px"]
-                                                                  [label
+                                                                  [gap :src (at) :size "5px"]
+                                                                  [label :src (at)
                                                                    :label "no label on this one"]]]]]]]]]
                   [parts-table "checkbox" checkbox-parts-desc]]])))
 

src/re_demo/config.cljs

@@ -1,8 +1,8 @@
 (ns re-demo.config
   (:require-macros
-    [re-com.core       :refer [at]])
+    [re-com.core       :refer []])
   (:require
-   [re-com.core       :refer [h-box v-box gap line title p hyperlink-href]]
+   [re-com.core       :refer [at h-box v-box gap line title p hyperlink-href]]
    [re-demo.utils     :refer [panel-title title2 title3]]))
 
 
@@ -13,10 +13,10 @@
   [v-box
    :src      (at)
    :children [[title2 "Compiler"]
-              [line]
-              [gap :size "20px"]
+              [line :src (at)]
+              [gap :src (at) :size "20px"]
               [title3 "Production Builds"]
-              [gap :size "20px"]
+              [gap :src (at) :size "20px"]
               [p "The overhead of parameter validation is elided in production builds. This is based on "
                [:code "js/goog.DEBUG"] " being set to " [:code "false"] "."]
               [p [:code "js/goog.DEBUG"] " is automatically set by " [:code "shadow-cljs"] " to " [:code "false"] " for "
@@ -25,9 +25,9 @@
               [:pre
                {:style {:width "450px"}}
                ":closure-defines {goog.DEBUG false}"]
-              [gap :size "20px"]
+              [gap :src (at) :size "20px"]
               [title3 "Source Code Links"]
-              [gap :size "20px"]
+              [gap :src (at) :size "20px"]
               [p "When re-com produces validation errors or component stacks (such as via the " [:code "[stack-spy ...]"]
                " component) it tries to provide links to source code. For these links to be displayed it requires that you provide the root URL to the ClojureScript compiler output with source maps:"]
               [:pre
@@ -39,10 +39,10 @@
   [v-box
    :src      (at)
    :children [[title2 "Tooling"]
-              [line]
-              [gap :size "20px"]
+              [line :src (at)]
+              [gap :src (at) :size "20px"]
               [p "It is essential you have "
-               [hyperlink-href
+               [hyperlink-href :src (at)
                 :href   "https://github.com/binaryage/cljs-devtools/blob/master/docs/installation.md"
                 :label  "CLJS DevTools"
                 :target "_blank"]

src/re_demo/core.cljs

@@ -1,14 +1,14 @@
 (ns re-demo.core
   (:require-macros
-    [re-com.core            :refer [at]]
+    [re-com.core            :refer []]
     [cljs.core.async.macros :refer [go]]
     [secretary.core         :refer [defroute]])
   (:require [goog.events                   :as    events]
             [reagent.core                  :as    reagent]
             [reagent.dom                   :as    rdom]
             [alandipert.storage-atom       :refer [local-storage]]
             [secretary.core                :as    secretary]
-            [re-com.core                   :refer [h-box v-box box gap line scroller border label p title alert-box h-split] :refer-macros [handler-fn]]
+            [re-com.core                   :refer [at h-box v-box box gap line scroller border label p title alert-box h-split] :refer-macros [handler-fn]]
             [re-com.config                 :refer [version]]
             [re-com.util                   :refer [get-element-by-id item-for-id]]
             [re-demo.utils                 :refer [panel-title scroll-to-top]]

src/re_demo/datepicker.cljs

@@ -1,14 +1,14 @@
 (ns re-demo.datepicker
   (:require-macros
     [reagent.ratom     :refer [reaction]]
-    [re-com.core       :refer [at]])
+    [re-com.core       :refer []])
   (:require
     [goog.date.Date]
     [reagent.core      :as    reagent]
     [cljs-time.core    :refer [today days minus plus day-of-week before?]]
     [cljs-time.coerce  :refer [to-local-date]]
     [cljs-time.format  :refer [formatter unparse]]
-    [re-com.core       :refer [h-box v-box box gap single-dropdown datepicker datepicker-dropdown checkbox label title p button md-icon-button]]
+    [re-com.core       :refer [at h-box v-box box gap single-dropdown datepicker datepicker-dropdown checkbox label title p button md-icon-button]]
     [re-com.datepicker :refer [iso8601->date datepicker-parts-desc datepicker-dropdown-args-desc]]
     [re-com.validate   :refer [date-like?]]
     [re-com.util       :refer [now->utc px]]
@@ -46,7 +46,7 @@
 (defn- parameters-with
   "Toggle controls for some parameters."
   [content enabled-days as-days disabled? show-today? show-weeks? start-of-week-choices start-of-week]
-  [v-box
+  [v-box :src (at)
    :gap      "15px"
    :align    :start
    :children [content
@@ -85,7 +85,7 @@
                                        :child [:code ":show-weeks?"]]
                            :model     show-weeks?
                            :on-change #(reset! show-weeks? %)]
-                          [h-box
+                          [h-box :src (at)
                            :gap      "5px"
                            :align    :end
                            :children [[:code ":start-of-week"]
@@ -158,29 +158,29 @@
       :inline [(fn inline-fn
                  []
                  [parameters-with
-                  [v-box
+                  [v-box :src (at)
                    :gap      "15px"
-                   :children [[datepicker
+                   :children [[datepicker :src (at)
                                :model         model1
                                :disabled?     disabled?
                                :show-today?   @show-today?
                                :show-weeks?   @show-weeks?
                                :selectable-fn selectable-pred
                                :start-of-week @start-of-week
                                :on-change     #(do #_(js/console.log "model1:" %) (reset! model1 %))]
-                              [label :label [:span [:code ":model"] " is " (date->string @model1)]]
-                              #_[h-box
+                              [label :src (at) :label [:span [:code ":model"] " is " (date->string @model1)]]
+                              #_[h-box :src (at)
                                  :gap      "6px"
                                  :margin   "10px 0px 0px 0px"
                                  :align    :center
-                                 :children [[label :style label-style :label "Change model:"]
-                                            [md-icon-button
+                                 :children [[label :src (at) :style label-style :label "Change model:"]
+                                            [md-icon-button :src (at)
                                              :md-icon-name "zmdi-arrow-left"
                                              :size         :smaller
                                              :disabled?    (not (date-like? @model1))
                                              :on-click     #(when (date-like? @model1)
                                                               (reset! model1 (minus @model1 (days 1))))]
-                                            [md-icon-button
+                                            [md-icon-button :src (at)
                                              :md-icon-name "zmdi-arrow-right"
                                              :size         :smaller
                                              :disabled?    (if (and (date-like? @model1) (date-like? @model2))
@@ -189,7 +189,7 @@
                                                              true)
                                              :on-click     #(when (date-like? @model1)
                                                               (reset! model1 (plus @model1 (days 1))))]
-                                            [button
+                                            [button :src (at)
                                              :label    "Reset"
                                              :class    "btn btn-default"
                                              :style    {:padding  "1px 4px"}
@@ -273,7 +273,7 @@
   []
   (let [selected-variation (reagent/atom :inline)]
     (fn examples-fn []
-      [v-box
+      [v-box :src (at)
        :size     "auto"
        :gap      "10px"
        :children [[panel-title "Date Components"

src/re_demo/debug.cljs

@@ -1,8 +1,8 @@
 (ns re-demo.debug
   (:require-macros
-    [re-com.core       :refer [at]])
+    [re-com.core       :refer []])
   (:require
-    [re-com.core       :refer [h-box v-box box gap line  title checkbox p]]
+    [re-com.core       :refer [at h-box v-box box gap line title checkbox p]]
     [re-com.datepicker :refer [datepicker]]
     [reagent.core      :as    reagent]
     [re-demo.utils     :refer [panel-title title2 title3 github-hyperlink]]))
@@ -20,8 +20,8 @@
       [v-box
        :src      (at)
        :children [[title2 "Parameter Validation"]
-                  [line]
-                  [gap :size "10px"]
+                  [line :src (at)]
+                  [gap :src (at) :size "10px"]
 
                   [p "Now, our sausage fingers sometimes type " [:code "onmouseover"] " instead of " [:code "on-mouse-over"] ", "
                    " or " [:code "centre"] " rather than " [:code "center"] ", and sometimes we pass in a string where a keyword is required."]
@@ -89,8 +89,8 @@
   [v-box
    :src      (at)
    :children [[title2 [:span "The " [:code ":src"] " Parameter"]]
-              [line]
-              [gap :size "10px"]
+              [line :src (at)]
+              [gap :src (at) :size "10px"]
               [p "All re-com components accept a " [:code ":src"] " parameter through which you can provide the source code coordinates of your usage. "
                "The value must be a map with two keys " [:code ":file"] " and " [:code ":line"] "."]
               [p "re-com reflects these coordinates back to you when reporting errors and showing component stacks, and this will greatly improve your debugging experience. "]
@@ -119,8 +119,8 @@
   [v-box
    :src      (at)
    :children [[title2 [:span [:code "stack-spy"]]]
-              [line]
-              [gap :size "10px"]
+              [line :src (at)]
+              [gap :src (at) :size "10px"]
               [p [:code "h-box"] " and " [:code "v-box"] " are usually simple to use. 
                  But, in deeply nested structures, where the component is an \"elastic\" table, it can sometimes
                  be a chore to work out what part of a hierarchy is driving height and width.
@@ -142,8 +142,8 @@
   [v-box
    :src      (at)
    :children [[title2 "Layout Colourising"]
-              [line]
-              [gap :size "10px"]
+              [line :src (at)]
+              [gap :src (at) :size "10px"]
               [p "re-com contains a switch which colorises the layout primatives of " [:code "h-box"] ", " [:code "v-box"] ", " [:code "gap"] " and " [:code "box"] "."]
               [:pre " (set! re-com.box/visualise-flow? true)"]]])
 
@@ -163,7 +163,7 @@
                :gap      "100px"
                :children [[the-src-parameter-column]
                           [params-validation-column]
-                          [v-box 
+                          [v-box :src (at) 
                            :gap "20px"
                            :children [[stack-spy-column] 
                                       [colourising]]]]]]])