Skip to content

Instantly share code, notes, and snippets.

View Conaws's full-sized avatar

Conor White-Sullivan Conaws

View GitHub Profile
(ns history.motion
(:require [reagent.core :as rx ]
[posh.core :as rx-db :refer [pull transact!]]
[reagent.session :as session]
[re-frame.core :refer [register-sub subscribe dispatch register-handler]]
[re-frame.db :as rdb :refer [app-db]]
[datascript.core :as mdb ]
[cljs.reader ]
[clojure.string :as str ])
(:require-macros
#bso .nav {justify-content: space-between
backface-visiblibility: hidden;
}
#bso .nav__dropdown {
height: 300px;
color: grey;
background-color: red;
/* transition: height 1s; */
(ns undead.cards.multi
(:require
[posh.core :as posh :refer [posh!]]
[cljs.pprint :refer [pprint]]
[re-com.core :as rc :refer [v-box box input-text h-box]]
[datascript.core :as d]
[undead.util :refer [deref-or-value]]
[clojure.string :as str]
[reagent-forms.core :refer [bind-fields]]
[reagent.core :as r]
(ns undead.cards.poem
(:require
[goog.i18n.DateTimeFormat :as dtf]
[posh.core :as posh :refer [posh!]]
[reagent-table.core :as rt]
[cljs-time.core :as time :refer [now]]
[keybind.core :as keys]
[cljs.pprint :refer [pprint]]
[undead.cards.multi :as multi]
[datascript.core :as d]
(ns history.parser
(:require [instaparse.core :as insta]
[debux.core :as dbg]
[history.util :refer [defc p makeInt]]
[clojure.pprint :refer [pprint] :as pp]
[clojure.string :as str]
[clojure.core.async :as async :refer [>! go go-loop <! <!! chan put!]]))
(defn filter-ke-tree
(ns history.parser
(:require [instaparse.core :as insta]
[debux.core :as dbg]
[history.util :refer [defc p makeInt]]
[clojure.pprint :refer [pprint] :as pp]
[clojure.string :as str]
[clojure.core.async :as async :refer [>! go go-loop <! <!! chan put!]]))
(defn filter-ke-tree
(ns history.logicparser
(:require [instaparse.core :as insta]
[clojure.string :as str]))
(def desireparse
(insta/parser
"S = desire phrase '.'
desire = 'I want'
phrase = (<w> word)+
(ns history.parser
(:require [instaparse.core :as insta]
[debux.core :as dbg]
[history.util :refer [defc p makeInt]]
[clojure.pprint :refer [pprint] :as pp]
[clojure.string :as str]
[clojure.core.async :as async :refer [>! go go-loop <! <!! chan put!]]))
(defn filter-ke-tree
(ns history.parser
(:require [instaparse.core :as insta]
[debux.core :as dbg]
[history.util :refer [defc p makeInt]]
[clojure.pprint :refer [pprint] :as pp]
[clojure.string :as str]
[clojure.core.async :as async :refer [>! go go-loop <! <!! chan put!]]))
(defn filter-ke-tree