Skip to content

Instantly share code, notes, and snippets.

View szamuboy's full-sized avatar

Gergely Szabó szamuboy

View GitHub Profile
$ lein new hoplon my-project
java.lang.ClassCastException: clojure.lang.Symbol cannot be cast to clojure.lang.Associative
at clojure.lang.RT.assoc (RT.java:702)
clojure.core$assoc.invoke (core.clj:187)
ancient_clj.core$latest_version_BANG_.doInvoke (core.clj:139)
clojure.lang.RestFn.invoke (RestFn.java:423)
ancient_clj.core$latest_version_string_BANG_.doInvoke (core.clj:148)
clojure.lang.RestFn.applyTo (RestFn.java:139)
clojure.core$apply.invoke (core.clj:626)
clojure.core$partial$fn__4228.doInvoke (core.clj:2468)
# -*- mode: ruby -*-
# vi: set ft=ruby :
$provscript = <<SCRIPT
apt-get update
apt-get -y install python-dev \
libffi-dev \
python-setuptools \
python-pip
pip install python-ceilometerclient
@szamuboy
szamuboy / core.cljs
Last active December 26, 2015 18:28
Clojurescript big object literal issue
(ns bigobj.core
(:require-macros [bigobj.macros :as m]))
(def o1 (m/bigobj 10 3)) ;; Compiles successfully
(def o2 (m/bigobj 1 100)) ;; Compiles successfully
(def o3 (m/bigobj 100 100)) ;; Compiles successfully
(def o4 (m/bigobj 10000 1)) ;; Does not compile
@szamuboy
szamuboy / core.clj
Created October 15, 2012 09:07
Evaling an anonymous function with closure
(ns why-is-that.core)
(def test-1 (list (fn [arg]
arg) 1))
;; (eval test-1) -> 1
(def test-2 (list ((fn []
(fn [arg]
['hello arg]))) 1))
@szamuboy
szamuboy / core.clj
Created March 7, 2012 22:36
SimpleQ
(ns simpleq.core)
(defn- start-simpleq-thread-loop [q thread-active exception]
(.start (Thread.
#((comment println "Thread started")
(loop [expr (first @q)]
(comment println "Sleeping for 2 sec")
(comment Thread/sleep 2000)
(comment println (str "Executing " expr))