Skip to content

Instantly share code, notes, and snippets.

@awkay
awkay / gist:7883750
Created December 10, 2013 00:31
Sample JSON
{
a: 1,
dt: '2012-11-01',
arr: [ 1,2,3 ]
}
(ns om-tutorial.core
(:require [goog.dom :as gdom]
[om.next :as om :refer-macros [defui]]
[cljs.pprint :refer [pprint]]
[om.dom :as dom]))
(enable-console-print!)
(def init-data
{:current-user {:email "[email protected]" :things [[:thing/by-id 1] [:thing/by-id 2]]}
(ns sample.macro-fun)
#?(:clj
(defn some-xform [body] (reverse body)))
#?(:clj
(defn bump-numbers [body]
(map #(if (number? %) (+ 1 %) %) body)))
#?(:clj
//
// Source code recreated from a .class file by IntelliJ IDEA
// (powered by Fernflower decompiler)
//
package com.openedgepay.settings;
public enum ResultCode {
AIDSELECTIONTIMEOUT("AID Selection Timeout."),
APPROVED("Transaction approved."),
@awkay
awkay / routing-helpers.cljc
Created August 12, 2021 20:58
Some functions for working with Fulcro dynamic routers. I'll probably put some version of these once they're refined into Fulcro itself, but for now there are here for reference.
(defn- get-ast-children [query-ast at-depth]
(let [{:keys [children] :as node} query-ast]
(cond
(and (zero? at-depth) (seq children)) children
(zero? at-depth) node
:else (let [sub-children (mapcat :children children)]
(get-ast-children {:type :root
:children sub-children} (dec at-depth))))))