Skip to content

Instantly share code, notes, and snippets.

View Conaws's full-sized avatar

Conor White-Sullivan Conaws

View GitHub Profile
@Conaws
Conaws / motion.cljs
Last active May 25, 2016 21:53
One of my first uses of cljs, don't hate.
(ns motioncards
(:require [reagent.core :as rx ]
[posh.core :as rx-db :refer [pull transact!]]
[reagent.session :as session]
[datascript.core :as mdb ]
[cljs.reader ]
[clojure.string :as str ]
[soda-ash.element :as s ])
(:require-macros
[reagent.ratom :refer [reaction]]
; In case anyone else is interested, here are a few specter functions I wrote that will
; find all the nested maps inside a composite datastructure,
; assign each of them a temporary id
; then it'll pull it apart into a list,
; and replace all references to the map with its id
(ns extract-maps
(:require [datascript.core :as d]
[com.rpl.specter :as sp
:refer [ALL LAST MAP-VALS FIRST subselect
@Conaws
Conaws / motion.svg.foreign.cljs
Created July 18, 2016 07:37
An example of using reagent to embed a foreign object in an SVG, and making that object draggable
(ns motion.svg.foreign
(:require [reagent.core :refer [atom]])
(:require-macros
[devcards.core :as dc
:refer [defcard defcard-doc defcard-rg deftest]]))
(defonce position1
(atom {:state {:x 1 :y 1} :rwidth 200 :rheight 100 :moving false :start {:x 1 :y 1}}))
(ns undead.cards.grid
(:require [cljs-time.core :refer [now]]
[datascript.core :as d]
[posh.core :as posh :refer [posh!]]
[re-com.core :as rc :refer [button v-box]]
[com.rpl.specter :as sp :refer [ALL filterer]]
[reagent.core :as r]
[undead.subs :as subs :refer [e conn]]
[clojure.set :as set]
)
@Conaws
Conaws / anim.css
Last active October 11, 2016 12:26
transition-example-sliding-in
ul.todo-list {background-color: blue;
list-style: none;}
.todo {color: white;
padding: 20px;}
.todo-enter {opacity: 0.01;}
@Conaws
Conaws / re-fire.cljs
Last active October 19, 2016 09:51
Example of how to use re-frame to interact with firebase
(ns re-fire.cljs
(:require [clojure.string :as string]
[cljsjs.firebase]
[re-frame.core :as re-frame :require [dispatch subscribe]]
[reagent.core :as reagent]
[reagent.ratom :as ratom]))
(defn db-ref [path]
(.ref (js/firebase.database) (string/join "/" path)))
(ns edgemap.cloze
(:require [reagent.core :as rx ]
[posh.core :as rx-db :refer [pull transact!]]
[reagent.session :as session]
[datascript.core :as mdb ]
[clojure.set :as set ]
; [texts.texts :refer [eggs egge]]
; [edgemap.motion :refer [fo]]
[cljs.reader ]
[soda-ash.element :as s ]
(ns undead.cards.cloze
(:require [reagent.core :as rx ]
[posh.core :as rx-db :refer [pull transact!]]
[datascript.core :as mdb ]
[clojure.set :as set ]
[cljs.reader]
[clojure.string :as str ])
(:require-macros
[cljs.test :refer [testing is]]
[reagent.ratom :refer [reaction]]
(ns undead.cards.cloze
(:require [reagent.core :as rx ]
[posh.core :as rx-db :refer [pull transact!]]
[datascript.core :as mdb ]
[clojure.set :as set ]
[cljs.reader]
[clojure.string :as str ])
(:require-macros
[cljs.test :refer [testing is]]
[reagent.ratom :refer [reaction]]
(ns cards.sortable
(:require [reagent.core :as reagent])
(:require-macros
[cljs.test :refer [is testing]]
[devcards.core :refer [defcard-rg deftest]]))
(defonce app-state (reagent/atom {:list (vec (take 11 "abcdefghijkl"))
:over -1
:dragging false}))