awkay

(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))))))

awkay

//
// 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

(ns sample.macro-fun)

#?(:clj
   (defn some-xform [body] (reverse body)))

#?(:clj
   (defn bump-numbers [body]
     (map #(if (number? %) (+ 1 %) %) body)))

#?(:clj

awkay

(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 "bob.smith@gmail.com" :things [[:thing/by-id 1] [:thing/by-id 2]]}

awkay

{
  a: 1,
  dt: '2012-11-01',
  arr: [ 1,2,3 ]
}