I hereby claim:
- I am mynomoto on github.
- I am mynomoto (https://keybase.io/mynomoto) on keybase.
- I have a public key ASAMf1rWQrOzOESVx3LdT_IrgJTyxreNYJyzwZVyIIFPFQo
To claim this, I am signing this object:
I hereby claim:
To claim this, I am signing this object:
#!/bin/sh | |
set -e | |
die () { | |
echo "$@" | |
exit 1 | |
} | |
limit_memory () { |
(ns broadbrim.react-relay | |
(:require | |
[cljs.core :refer [specify! this-as js-arguments js-obj]] | |
[clojure.java.io :as io] | |
[clojure.string :as str] | |
[clojure.tools.macro :as macro] | |
[me.raynes.conch :as conch] | |
[potemkin] | |
[sablono.core :as sablono] | |
[taoensso.timbre :as log])) |
;; clojure.spec's missing piece, work in progress | |
;; this is only halfway done, somebody else will need to do the other 95% | |
(require | |
'[clojure.spec :as s] | |
'[clojure.spec.test :as test]) | |
(defn naive-english-explain | |
"Copy and paste this into your app. Figure out what it does by | |
trying it in production." |
(ns ui.form | |
(:refer-hoplon :exclude [select input textarea label form]) | |
(:require [ui.form.input :as input] | |
[ui.button :as button] | |
[ui.modal :as modal] | |
[ui.grid :as grid] | |
[ui.filters :as filters] | |
[ui.link :as link] | |
[ui.util :as util] | |
[ui.icon :as icon] |
#!/usr/bin/env ruby | |
require 'base64' | |
require 'nokogiri' | |
require 'uri' | |
def main | |
html = Nokogiri::HTML($stdin.read) | |
inline_all_images(html) | |
inline_all_css(html) |
(ns styles.hoplon | |
(:require garden.compiler | |
hoplon.core)) | |
(defmethod hoplon.core/do! :garden | |
[el _ v] | |
; Replace all the inline styles on an element with css generated by Garden. | |
; Obviously does not play nice with other methods of setting inline styles. | |
(let [vs (if (sequential? v) v [v]) | |
css (garden.compiler/compile-style vs)] |
(ns ui.app | |
(:refer-hoplon :exclude [main body]) | |
(:refer-clojure :exclude [meta]) | |
(:require-macros [ui.app :as app]) | |
(:require [app.routes :as routes] | |
[app.integrations :as int] | |
[ui.global-state :as global])) | |
(def meta html-meta) |
(require '[boot.pod :as pod]) | |
(def pod-deps '[[boot/core "2.6.0" :scope "test"] | |
[adzerk/env "0.3.0" :scope "test"] | |
[me.raynes/conch "0.8.0" :scope "test"]]) | |
(deftask postgres [] | |
(let [pod (future (pod/make-pod (update-in (get-env) [:dependencies] into pod-deps)))] | |
(with-pass-thru _ | |
(pod/with-eval-in @pod |