mbertheau

(def spy #(do (println "DEBUG:" %) %))

(def items [{:steps 5 :date :ereyesterday}
            {:steps 4 :date :yesterday}
            {:steps 6 :date :today}
            {:steps 7 :date :tomorrow}
            {:steps 3 :date :overmorrow}])

(def items-noreach [{:steps 1 :date :ereyesterday}
                    {:steps 1 :date :yesterday}

mbertheau

(def spy #(do (println "DEBUG:" %) %))

(def items [{:steps 5 :date :ereyesterday}
            {:steps 4 :date :yesterday}
            {:steps 6 :date :today}
            {:steps 7 :date :tomorrow}
            {:steps 3 :date :overmorrow}])

(def items-noreach [{:steps 1 :date :ereyesterday}
                    {:steps 1 :date :yesterday}

mbertheau

(def spy #(do (println "DEBUG:" %) %))

(def items [{:steps 5 :date :ereyesterday}
            {:steps 4 :date :yesterday}
            {:steps 6 :date :today}
            {:steps 7 :date :tomorrow}
            {:steps 3 :date :overmorrow}])

(def items-noreach [{:steps 1 :date :ereyesterday}
                    {:steps 1 :date :yesterday}

mbertheau

(defmacro listen [[sub-name & args]]
  (let [ns-name   (str *ns*)
        ns-prefix (str (subs ns-name 0 (s/index-of ns-name \.)) "/")]
    `(deref (re-frame.core/subscribe [(keyword (str ~ns-prefix (name ~sub-name)))
                                      ~@args]))))

(defmacro r-sub
  [sub-name args inputs body]
  (let [query-v             (into ['_] args)
        partitioned-inputs  (partition 2 inputs)

mbertheau

(defn ^:export init [js-product-form-data]
  (let [product-form-data  (js->clj js-product-form-data :keywordize-keys true)
        contains-in? (fn [m [k & ks]]
                       (if (contains? m k)
                         (if (nil? ks)
                           true
                           (recur (get m k) ks))
                         false))
        update-in-maybe (fn [m ks f] (if (contains-in? m ks)
                                       (update-in m ks f)

mbertheau

Debugger entered--Lisp error: (void-variable package-archives)
  (member (quote ("melpa-stable" . "http://stable.melpa.org/packages/")) package-archives)
  (if (member (quote ("melpa-stable" . "http://stable.melpa.org/packages/")) package-archives) package-archives (setq package-archives (cons (quote ("melpa-stable" . "http://stable.melpa.org/packages/")) package-archives)))
  dotspacemacs/init()
  (condition-case err (dotspacemacs/init) ((debug error) (configuration-layer//set-error) (spacemacs-buffer/append (format "Error in %s: %s\n" (quote "dotspacemacs/init") (error-message-string err)) t)))
  (progn (condition-case err (dotspacemacs/init) ((debug error) (configuration-layer//set-error) (spacemacs-buffer/append (format "Error in %s: %s\n" (quote "dotspacemacs/init") (error-message-string err)) t))))
  (if (fboundp (quote dotspacemacs/init)) (progn (condition-case err (dotspacemacs/init) ((debug error) (configuration-layer//set-error) (spacemacs-buffer/append (format "Error in %s: %s\n" (quote "dotspacema

mbertheau

boot.user=> (start-repl)
<< started Weasel server on ws://127.0.0.1:56621 >>
<< waiting for client to connect ... Connection is ws://localhost:56621
Writing boot_cljs_repl.cljs...
 connected! >>
To quit, type: :cljs/quit
nil
cljs.user=> (:require [com.rpl.specter :as s])
WARNING: Use of undeclared Var cljs.user/s at line 1 <cljs repl>
nil

mbertheau

(defn f [x]
  (vec (repeat (rand-int 5) [x])))

(defn g []
  (-> []
      (into ["begin"])
      (into (apply concat (for [i [\a \b \c]]
                               (f i))))
      (into ["end"])))
    

mbertheau

(defn weekdays []
  (let [weekdays-ratom {:mon {:takes-place? true :times ["9:00" "10:30"]}
                        :tue {:takes-place? false}
                        :wed {:takes-place? false}
                        :thu {:takes-place? false}
                        :fri {:takes-place? false}
                        :sat {:takes-place? false}
                        :sun {:takes-place? false}} 
        names {:mon {:intro "und zwar jeden" :word "Montag"}
               :tue {:intro "und jeden" :word "Dienstag"}

mbertheau

(defmacro defhandler
  [handler-name argv body]
  `(re-frame.core/register-handler
    ~(keyword (name handler-name))
    (comp re-frame.core/debug re-frame.core/trim-v)
    (fn ~(if (> (count argv) 1)
           (vec (list (first argv) (vec (rest argv))))
           argv)
      ~body)))