Skip to content

Instantly share code, notes, and snippets.

View donut-system-merging.clj
;; The question: how to clearly provide system def overrides?
;; There are two main scenarios where we want to do this:
;; 1. Deriving a new "profile", e.g. deriving a test profile from a base profile
;; to be used for all tests
;; 2. Defining point overrides, e.g. you might want to mock out a specific component
;; only for a specific test
;; Ultimately developers can use what works for them, but I want to figure out
;; the recommended approach. Also, I need to figure out the behavior of helpers
View locations.clj
(ns scratch.scratch)
(def locations
[{:unit "moscow"
:type "city"
:subunits [{:unit "abc"
:type "area"}
{:unit "xyz"}]}
{:unit "london"}
{:unit "tokyo"}])

Keybase proof

I hereby claim:

  • I am flyingmachine on github.
  • I am nonrecursive ( on keybase.
  • I have a public key ASDS9szLnff6f8HuT0fd8PAIK9wAr_4J8_68dAGc2z50GQo

To claim this, I am signing this object:

View guard-task.clj
:source-paths #{"src"}
:resource-paths #{"html"}
:dependencies '[[adzerk/boot-cljs "2.1.3" :scope "test"]
[adzerk/boot-reload "0.5.2" :scope "test"]
[org.clojure/clojurescript "1.9.908"]
[pandeiro/boot-http "0.8.3" :scope "test"]])
'[adzerk.boot-cljs :refer [cljs]]
View os_projects.clj
(ns cljobs.resources.manage.os-projects
(:require [cljobs.resources.common :as c]
[cljobs.db.queries :as q]))
(def new-data (c/query-result q/user-os-projects))
(defn process-params
(-> (c/assoc-user ctx :os-project/user)
(update-in [:request :params]
View os_projects.clj
(ns cljobs.resources.manage.os-projects
(:require [cljobs.resources.common :as c]
[cljobs.db.validations :as v]
[cljobs.db.queries :as q]
[datomic.api :as d]))
(def new-data (c/query-result q/user-os-projects))
(defn process-params
View application.css
@charset "UTF-8";
@import url(,400italic,600italic,400,300,600,700);
@import url(,600);
@-webkit-keyframes blinking {
0% {
opacity: 1; }
50% {
opacity: 0; }
100% {
opacity: 1; } }
flyingmachine / try1.clj
Created Jul 3, 2015
trying to get CSSTransitionGroup 0.13.3 working with Om 0.8.8
View try1.clj
(:require [om.core :as om :include-macros true]
[om.dom :as dom :include-macros true]))
(def app-state (atom {}))
(def ctg (-> js/React (aget "addons") (aget "CSSTransitionGroup")))
View gist:68235370de0ef802d0dd
[!] clj-time
✔ 0.6.0
✘ 0.5.0
[✔] org.clojure/clojure
✘ 1.7.0-beta2
✔ 1.7.0-RC2
View build.boot
:source-paths #{"src/clj" "src/cljs"}
:resource-paths #{"resources"}
:dependencies '[[adzerk/boot-cljs "0.0-2814-4"]
[adzerk/boot-cljs-repl "0.1.10-SNAPSHOT" :scope "test"]
[adzerk/boot-reload "0.2.6" :scope "test"]
[environ "1.0.0"]
[danielsz/boot-environ "0.0.1"]
[org.clojure/core.async "0.1.346.0-17112a-alpha"]