Luca Antiga lantiga
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| ki macro (export $name $val) | |
| (js exports.$name = $val) | |
| ki require core | |
| // Ported from https://github.com/clojure/clojurescript/blob/master/src/cljs/clojure/data.cljs | |
| ki (ns diff |
lantiga
/ react_ki
Last active
August 29, 2015 13:56
ki port of the official React tutorial: http://facebook.github.io/react/docs/tutorial.html. See ki at https://github.com/lantiga/ki.
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| ki -o react_ki.out.js react_ki.js |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| (ns asyncatom.core | |
| (:require [clojure.core.async :refer [chan go <! >! <!!]]) | |
| (:refer-clojure :exclude [atom swap! reset! compare-and-set! deref])) | |
| (defn atom [v] | |
| (let [c (chan)] | |
| (go | |
| (loop [v v] | |
| (let [[cmd oc & args] (<! c) | |
| v (condp = cmd |
lantiga
/ archimedes-test.project.clj
Last active
May 24, 2016 19:38
Working setup and sample Clojure code for Archimedes and Ogre (http://clojurewerkz.org/) on OrientDB 1.3 (http://orientdb.org/) via Blueprints (https://github.com/tinkerpop/blueprints/wiki).
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| (defproject archimedes-test "0.1.0-SNAPSHOT" | |
| :description "FIXME: write description" | |
| :url "http://example.com/FIXME" | |
| :license {:name "Eclipse Public License" | |
| :url "http://www.eclipse.org/legal/epl-v10.html"} | |
| :dependencies [[org.clojure/clojure "1.5.1"] | |
| [com.orientechnologies/orient-commons "1.3.0"] | |
| [com.orientechnologies/orientdb-core "1.3.0"] | |
| [com.tinkerpop.blueprints/blueprints-orient-graph "2.3.0"] | |
| [clojurewerkz/ogre "2.3.0.1"] |
lantiga
/ let-map.clj
Last active
October 11, 2015 17:58
let-map macro (creating a map using a let form) and map-let (using a map to establish local bindings in a let form)
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| (defmacro let-map | |
| "Takes a binding form (as in let) and returns a map of (keywordized) | |
| binding names and bound values. It allows to construct a map sequentially. | |
| Usage: | |
| (let-map [a 1 b (+ a 1)]) | |
| => {:a 1 :b 2}" | |
| [kv] | |
| (let [ks (map keyword (take-nth 2 kv))] | |
| `(let [~@kv] | |
| (into {} (map vec (partition 2 (interleave '~ks (take-nth 2 ~kv)))))))) |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| # Copyright (c) 2010, Luca Antiga, Orobix Srl. | |
| # All rights reserved. | |
| # | |
| # Redistribution and use in source and binary forms, with or without | |
| # modification, are permitted provided that the following conditions are | |
| # met: | |
| # | |
| # * Redistributions of source code must retain the above copyright | |
| # notice, this list of conditions and the following disclaimer. | |
| # |
NewerOlder