Skip to content

Instantly share code, notes, and snippets.

View hoeck's full-sized avatar

Erik Söhnel hoeck

66 followers · 36 following
  • Dresden, Germany
View GitHub Profile
@hoeck
hoeck / palava-example.html
Last active August 29, 2015 13:57 — forked from thammi/palava-example.html
<!DOCTYPE html>
<html>
<head>
<meta charset="utf-8" />
<title>Meine erste Videoapplikation</title>
<script src="https://code.jquery.com/jquery-1.10.1.min.js"></script>
<script src="https://raw.github.com/Wolfy87/EventEmitter/master/EventEmitter.min.js"></script>
<script src="https://raw.github.com/palavatv/palava-client/master/palava.min.js"></script>
<script type="text/coffeescript">
@hoeck
hoeck / gist:3910565
Created October 18, 2012 09:01
import locale
x = [ u'sac', u'sáb']
sorted(x)
>>> [u'sac', u's\xe1b']
locale.setdefault(locale.LC_COLLATE, 'de_DE.UTF-8')
sorted(x, cmp=locale.strcoll)
>>> [u's\xe1b', u'sac']
@hoeck
hoeck / gist:789596
Created January 21, 2011 12:15 — forked from LauJensen/gist:789530
(project (table :t1)
[:id :title]
(case :alias??
(<= :wage 200)
"low"
(and (> :wage 200) (< :wage 400))
"average"
(>= :wage 400)
"high"
:else "negative"))
@hoeck
hoeck / gist:789595
Created January 21, 2011 12:14 — forked from LauJensen/gist:789530
(project (table :t1)
[:id :title]
(case :alias
(when (<= :wage 200)
"low")
(when (and (> :wage 200) (< :wage 400))
"average")
(when (>= :wage 400)
"high")
:else
@hoeck
hoeck / gist:700983
Created November 15, 2010 21:30
\usepackage{listings}
\lstdefinelanguage{Clojure}
{morekeywords={defn, defmacro, let, if, when, loop, recur},
sensitive=false,
morecomment=[l]{;;},
morecomment=[s]{/*}{*/},
morestring=[b]",
}
@hoeck
hoeck / gist:665449
Created November 6, 2010 14:10
(def x {:a 1 :b 2 :c 3})
(def y {:a 2 :b 3 :c 4})
(def z (zipmap [:a :b :c] (range 10 15)))
(def g #{:a :b})
(defn always-merge-with [f keyseq & maps]
(reduce (fn [ret k] (assoc ret k (apply f (map #(get % k) maps)))) {} keyseq))
(always-merge-with vector g x y z)
=> {:b [2 nil 11], :a [1 2 10]}
@hoeck
hoeck / gist:665448
Created November 6, 2010 14:09
(def x {:a 1 :b 2 :c 3})
(def y {:a 2 :b 3 :c 4})
(def z (zipmap [:a :b :c] (range 10 15)))
(def g #{:a :b})
(defn always-merge-with [f keyseq & maps]
(reduce (fn [ret k] (assoc ret k (apply f (map #(get % k) maps)))) {} keyseq))
(always-merge-with vector g x y z)
=> {:b [2 nil 11], :a [1 2 10]}
@hoeck
hoeck / gist:658635
Created November 1, 2010 18:13
(clojure.xml/emit {:tag :FOO
:attrs {:attr 'xxx},
:content [{:tag :BAR
:attrs {:name "bar", :num 123}}
{:tag :BAR
:attrs {:name "baz", :num 100}}]})
<?xml version='1.0' encoding='UTF-8'?>
<FOO attr='xxx'>
<BAR name='bar' num='123'/>
<BAR name='baz' num='100'/>
@hoeck
hoeck / gist:658590
Created November 1, 2010 17:52
(binding [*print-meta* true]
[(str (with-meta 'symbol {:a 1}))
(pr-str (with-meta 'symbol {:a 1}))])
=> ["symbol" "^{:a 1} symbol"]
@hoeck
hoeck / clj-pivot treeviews
Created October 14, 2010 21:40
;; snippets to be used on the repl or within the example applet
(ns demo)
(defmacro show [& body]
`(pivot/disp-> (pivot/show (do ~@body))))
;; ---title---
;; Treeview Tutorial
;; ---description---