Skip to content

Instantly share code, notes, and snippets.

View locations.clj
(ns scratch.scratch)
(def locations
[{:unit "moscow"
:type "city"
:subunits [{:unit "abc"
:type "area"}
{:unit "xyz"}]}
{:unit "london"}
{:unit "tokyo"}])
View keybase.md

Keybase proof

I hereby claim:

  • I am flyingmachine on github.
  • I am nonrecursive (https://keybase.io/nonrecursive) on keybase.
  • I have a public key ASDS9szLnff6f8HuT0fd8PAIK9wAr_4J8_68dAGc2z50GQo

To claim this, I am signing this object:

View guard-task.clj
(set-env!
: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"]])
(require
'[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
[ctx]
(-> (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
[ctx]
View application.css
@charset "UTF-8";
@import url(http://fonts.googleapis.com/css?family=Open+Sans:300italic,400italic,600italic,400,300,600,700);
@import url(http://fonts.googleapis.com/css?family=Source+Code+Pro:400,600);
@-webkit-keyframes blinking {
0% {
opacity: 1; }
50% {
opacity: 0; }
100% {
opacity: 1; } }
@flyingmachine
flyingmachine / try1.clj
Created Jul 3, 2015
trying to get CSSTransitionGroup 0.13.3 working with Om 0.8.8
View try1.clj
(ns pleasework.app
(:require [om.core :as om :include-macros true]
[om.dom :as dom :include-macros true]))
(enable-console-print!)
(def app-state (atom {}))
(def ctg (-> js/React (aget "addons") (aget "CSSTransitionGroup")))
View gist:68235370de0ef802d0dd
[!] clj-time
✔ 0.6.0
ring/ring-core
✘ 0.5.0
cljs-ajax
[✔] org.clojure/clojure
✘ 1.7.0-beta2
cljs-ajax
✔ 1.7.0-RC2
org.clojure/clojure
View build.boot
(set-env!
: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"]
View enqueue-expansion.clj
(let [saying (promise)]
(future (deliver saying (do (wait 100 "Cheerio!"))))
@(let [saying (promise)]
(future (deliver saying (do (wait 400 "Pip pip!"))))
@(let [saying (promise)]
(future (deliver saying (do (wait 200 (println "'Ello, gov'na!")))))
(println @saying)
saying)
(println @saying)
saying)