Multidecorators

Like multimethods but multidecorators.

• clojure(script)
• dead simple
• no deps
• no macros

Usage

(nsexample
(:require
[darkleaf.multidecorators :as md]))
;; diamond inheritance
(derive::d::b)
(derive::d::c)
(derive::b::a)
(derive::c::a)
(defndispatch [obj]
obj)
(defninitial [obj]
[])
(defoncefunc (md/multi #'dispatch #'initial))
(md/decorate func ::a
(fn a-decorator [super obj]
(conj (super obj) :a)))
(md/decorate func ::b
(fn b-decorator [super obj]
(conj (super obj) :b)))
(md/decorate func ::c
(fn c-decorator [super obj]
(conj (super obj) :c)))
(md/decorate func ::d
(fn d-decorator [super obj]
(conj (super obj) :d)))
(md/decorate func ::e
(fn e-decorator [super obj]
(conj (super obj) :e)))
(assert (= [:a] (func::a)))
(assert (= [:a:b] (func::b)))
(assert (= [:a:c] (func::c)))
(assert (= [:a:b:c:d] (func::d)))
(assert (= [:e] (func::e)))
(assert (= [] (func::f)))

Development

lein test
lein doo node node-none once
lein doo node node-advanced once