Skip to content

Instantly share code, notes, and snippets.

View form.cljs.hl
(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]
[ :as link]
[ui.util :as util]
[ui.icon :as icon]
View inline.rb
#!/usr/bin/env ruby
require 'base64'
require 'nokogiri'
require 'uri'
def main
html = Nokogiri::HTML($
View gist:c9110cadd08721d0cd20d63623c603a5
(ns styles.hoplon
(:require garden.compiler
(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)]
View app.cljs.hl
(:refer-hoplon :exclude [main body])
(:refer-clojure :exclude [meta])
(:require-macros [ :as app])
(:require [app.routes :as routes]
[app.integrations :as int]
[ :as global]))
(def meta html-meta)
mynomoto / profile.boot
Created Jun 15, 2016 — forked from arichiardi/profile.boot
Profile.boot for postgres in a docker
View profile.boot
(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
mynomoto / gist:11928f70aa9273f8e9f4
Created Aug 12, 2014
Reactive font size and grid
View gist:11928f70aa9273f8e9f4
(page "index.html")
(defc t "Grumpy wizards make toxic brew for the evil Queen and Jack.")
(defc size 16)
(defn r [size] (range 1 size))
(defc= make-grid
(str "background-size: " size "px, " size "px; background-image:repeating-linear-gradient(0deg, #000, #000 1px, transparent 1px, transparent "
size "px); height:100%; width:100%; position:absolute;z-index: 1"))