Skip to content

Instantly share code, notes, and snippets.

View mathias's full-sized avatar

Matt Gauger mathias

View GitHub Profile
(def hadoop-ip "10.10.10.10")
(def hadoop-provider
(compute-service
"node-list"
:node-list [["hadoop" "hadoop-master" hadoop-ip :ubuntu]]))
(lift
(group-spec "hadoop-master"
:phases {:configure (phase-fn (package "vim"))})
@mathias
mathias / onready.cljs.hl.clj
Last active August 29, 2015 13:57
An on-ready handler for Hoplon pages; works but not the most elegant. (added .clj to filename to make gist syntax highlight)
(page "onready.html")
(defn doc-ready-handler []
;; do some stuff after page is loaded and ready
)
(defn on-ready [fn]
(aset js/document
"onreadystatechange"
(fn []
{
"stats": {
"articles": {
"total": 422,
"ingested": 419,
"fetched": 0,
"errored": 0,
"read": 315
},
"notes": {
{
"health": {
"timestamp": "Mon Mar 17 18:25:14 CDT 2014",
"database-value": "datomic.db.Db@142b5413",
"pid": 72843,
"process-uptime": 20318,
"memory": {
"free": 279499760,
"total": 548405248
},
mkdir gleam
cd gleam
git init .
boot :strap > build.boot
git clone https://github.com/mathias/gleam.git
cd gleam
git reset --hard 21156ad
<script type="text/hoplon">
(page "index.html"
(:refer-clojure :exclude [nth])
(:require
[tailrecursion.hoplon.reload :refer [reload-all]]))
(reload-all 25)
</script>
<!DOCTYPE html>
<script type="text/hoplon">
(page "index.html"
(:refer-clojure :exclude [nth])
(:require
[tailrecursion.hoplon.reload :refer [reload-all]]))
(def articles {:total 422
:ingested 419
:fetched 0
:errored 0
<section>
<h2>Articles</h2>
<ul>
<li>
<label>Total:</label><text> ~{(get articles :total)}</text>
</li>
<li>
<label>Ingested:</label><text> ~{(get articles :ingested)}</text>
</li>
<li>