Source
leiningen/pom.clj:112
top
(defn make-mailing-list [{:keys [name archive other-archives
post subscribe unsubscribe]}]
(let [mailing-list (MailingList.)]
(doto mailing-list
(.setName name)
(.setArchive archive)
(.setPost post)
(.setSubscribe subscribe)
(.setUnsubscribe unsubscribe))
(doseq [other-archive other-archives]
(.addOtherArchive mailing-list other-archive))
mailing-list))
Comments top
No comments for make-mailing-list. Log in to add a comment.