今天說(shuō)點(diǎn)clojure的東西主经。大家可能都聽(tīng)說(shuō)過(guò)kickstarter上的一個(gè)IDE項(xiàng)目叫LightTable的吧，這款最開(kāi)始主打clojure編程的IDE籌到了一大筆錢庭惜，現(xiàn)在已經(jīng)放出來(lái)好幾個(gè)試用版了罩驻。最新的一個(gè)版本支持一個(gè)叫做custom expression的功能，允許用戶選中任意塊代碼蜈块，將代碼替換為這段代碼的執(zhí)行結(jié)果鉴腻。
clojure里現(xiàn)在有一個(gè)lib叫做kitbit，它是一個(gè)clojure的靜態(tài)代碼解析和替換工具百揭，具體就是可以分析你的一部分clojure代碼塊爽哎，然后看這段代碼有沒(méi)有對(duì)應(yīng)的慣用實(shí)現(xiàn)任岸，如果有的話可以選擇將自己的代碼替換為慣用實(shí)現(xiàn)改览。這有點(diǎn)像intellij里面的功能灾馒，可以把有些用法例如? :三元運(yùn)算符替換為if else做葵。比如：
At src/overtone/examples/compositions/jazz.clj:114:
Consider using:
(inc beat)
instead of:
(+ beat 1)
kitbit有emacs的插件踩寇，也就是說(shuō)在emacs里面配置好了以后也可以實(shí)現(xiàn)一鍵代碼分析和重構(gòu)了牺堰。至于這些慣用法九秀，我們是可以自定義的嘁锯，看了一下它的默認(rèn)設(shè)置请毛，默認(rèn)的內(nèi)容挺簡(jiǎn)單的：
(defrules rules
[(if ?x ?y nil) (when ?x ?y)]
[(if ?x nil ?y) (when-not ?x ?y)]
[(if ?x (do . ?y)) (when ?x . ?y)]
[(if (not ?x) ?y ?z) (if-not ?x ?y ?z)]
[(when (not ?x) . ?y) (when-not ?x . ?y)]
[(do ?x) ?x]
[(if-let ?binding ?expr nil) (when-let ?binding ?expr)]
[(when ?x (do . ?y)) (when ?x . ?y)]
[(when-not ?x (do . ?y)) (when-not ?x . ?y)]
;; suggest `while` for bindingless loop-recur
[(loop [] (when ?test . ?exprs (recur)))
(while ?test . ?exprs)]
[(let ?binding (do . ?exprs)) (let ?binding . ?exprs)]
最后看看這個(gè)能貼在紙上的電路志鞍，有各種傳感器，還可以編程方仿。
