Skip to content

Instantly share code, notes, and snippets.

Keybase proof

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:

@mynomoto
mynomoto / limit
Created May 15, 2017 18:38 — forked from dgvncsz0f/limit
#!/bin/sh
set -e
die () {
echo "$@"
exit 1
}
limit_memory () {
@mynomoto
mynomoto / react_relay.clj
Created April 5, 2017 02:46 — forked from domkm/react_relay.clj
This is an incredibly hacky ClojureScript wrapper for Relay 0. While we used this in production at one point, I would recommend against doing so. I'm only uploading it for posterity. Relay 1, which decouples the React wrapper from the GraphQL client, will enable us to write a good CLJS wrapper, as opposed to this abomination.
(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)]
@mynomoto
mynomoto / app.cljs.hl
Created November 15, 2016 23:22 — forked from micha/app.cljs.hl
(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)
@mynomoto
mynomoto / profile.boot
Created June 15, 2016 00:59 — forked from arichiardi/profile.boot
Profile.boot for postgres in a docker
(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