This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
(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} |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
(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} |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
(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} |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
(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) |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
(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) |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
@classmethod | |
def setUpClass(cls): | |
if not hasattr(cls, 'domain'): | |
return | |
if not cls.extra_environ: | |
cls.extra_environ = {} | |
cls.extra_environ.update(HTTP_HOST=cls.domain.encode('ascii')) |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
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 |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
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 |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
(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"]))) | |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
(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"} |
NewerOlder