Skip to content

Instantly share code, notes, and snippets.

View mbertheau's full-sized avatar

Markus Bertheau mbertheau

48 followers · 3 following
View GitHub Profile
@mbertheau
mbertheau / f.clj
Created February 20, 2020 19:09
(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
mbertheau / f.clj
Created February 20, 2020 16:42
(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
mbertheau / f.clj
Created February 20, 2020 16:31
(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
mbertheau / gist.clj
Created July 26, 2017 12:02
Helper macros, see also https://github.com/Day8/re-frame/issues/354
(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
mbertheau / hard_to_read.cljs
Created January 8, 2016 15:32
(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
mbertheau / gist:1c7c5ac5c21ff5e104a4
Created December 16, 2015 09:30
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
mbertheau / gist:58a45c3da73361cd2509
Created November 16, 2015 10:25
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
mbertheau / still_not_idiomatic.cljs
Last active September 24, 2015 20:02
(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
mbertheau / non_idiomatic.cljs
Last active September 24, 2015 09:45
(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
mbertheau / handler_macros.clj
Last active September 22, 2015 14:46
My first macro
(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)))