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
(ns pathom.connect-macros | |
(:require | |
[com.fulcrologic.rad.database-adapters.datomic-options :as do] | |
[clojure.spec.alpha :as s] | |
[com.fulcrologic.fulcro.algorithms.do-not-use :as futil] | |
[com.wsscode.pathom.connect :as pc])) | |
;; Use @registry as your resolvers in pathom parser def...just make sure you require all nses that define resolvers/mutations in that ns | |
;; so they all get into the registry first. | |
(defonce registry (atom [])) |
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- 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)))))) |
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
// | |
// 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."), |
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
(ns sample.macro-fun) | |
#?(:clj | |
(defn some-xform [body] (reverse body))) | |
#?(:clj | |
(defn bump-numbers [body] | |
(map #(if (number? %) (+ 1 %) %) body))) | |
#?(:clj |
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
(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]]} |
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
{ | |
a: 1, | |
dt: '2012-11-01', | |
arr: [ 1,2,3 ] | |
} |