Kent OHASHI lagenorhynque

ClojureによるWeb開発のサーバサイドで注目度の高い(マイクロ)フレームワークとしてDuctがあります。

ちょうど1年前の2017年12月に私自身初めてDuctによる簡単なREST APIを試作してみて、その過程をAdvent Calendar記事にしたことがありました。

今回は主にClojure言語のことを知っていてWebアプリ開発に興味のある方向けに、英語も含めてドキュメントのとても少ないDuctというフレームワークがどのようなものなのか、技術的な詳細に踏み込んだ解説を試みます。

ちなみに、執筆時点で参照/動作確認した各種ライブラリのバージョンは、サンプルプロジェクト"hello-duct"のproject.cljの通りです(Duct最新安定版0.11.2のテンプレートのまま)。

Ductとは

(defprofile lagénorhynque
 :name "Kent OHASHI"

(defprofile lagénorhynque

(defprofile lagénorhynque

(defprofile lagénorhynque

	dev> (defrecord Tree [left right])
	dev.Tree
	dev> (defn ->list [tree]
	(letfn [(rec [acc {:keys [left right] :as t}]
	(if (instance? Tree t)
	(if (instance? Tree left)
	(recur acc (->Tree (:left left) (->Tree (:right left) right)))
	(recur (cons left acc) right))
	(cons t acc)))]
	(reverse (rec [] tree))))

	cljs.user=> (defn leibniz [n-terms]
	#_=> (->> (iterate inc 1)
	#_=> (filter odd?)
	#_=> (map / (cycle [1 -1]))
	#_=> (take n-terms)
	#_=> (apply +)
	#_=> (* 4.0)))
	#'cljs.user/leibniz
	cljs.user=> (time (leibniz 10000))
	"Elapsed time: 51.138105 msecs"

	;;; unless
	user> (defmacro unless [cond then]
	`(if (not ~cond)
	~then))
	#'user/unless
	user> (macroexpand-1 '(unless foo? bar))
	(if (clojure.core/not foo?) bar)
	;;; case
	user> (defmacro case-table [k m]
	`(case ~k

	{:deps
	{io.forward/yaml {:mvn/version "1.0.9"}}}