LightTable"を"プログラミングする初歩 ref: http://qiita.com/kurogelee/items/7d3ac7a3fecae3279e1b

file0.cljs

(ns sample.core
  (:require [lt.object :as o])
  (:require-macros [lt.macros :as m]))

file1.cljs

(o/object* ::my-template-name
           :tags [:my-tag-name]
           :some-nebulous-state [],
           :other-state-like-thing {})

file3.cljs

(m/behavior ::my-behavior-name
            :triggers #{:my-trigger-name}
            :reaction (fn [self & rest]
                        (prn (str "self:" self " and: " rest))))

file4.cljs

(o/add-behavior!
  (first (o/by-tag :my-tag-name))
  [::my-behavior-name])

(o/raise (first (o/by-tag :my-tag-name))
         :my-trigger-name)
(o/raise (first (o/by-tag :my-tag-name))
         :my-trigger-name :a "b")

file5.cljs

{:+ {:my-tag-name [:sample.core/my-behavior-name]}}

file6.cljs

{:+ {:my-tag-name [(:sample.core/my-behavior-name "xyzzy" "thud"]}}

lt.object抜粋1

(defn make-object* [name & r]
  (let [obj (merge {:behaviors #{} :tags #{} :triggers [] :listeners {} ::type name :children {}}
                   (apply hash-map r))]
    obj))

(defn object* [name & r]
  (-> (apply make-object* name r)
      (store-object*)
      (handle-redef)))