12 lines
430 B
EmacsLisp
12 lines
430 B
EmacsLisp
((nil
|
|
. ((cider-clojure-cli-aliases . ":dev")
|
|
(eval
|
|
. (progn
|
|
(defun start-deertopia-server ()
|
|
(let ((n (cider-format-connection-params "%j" cider-launch-params)))
|
|
(when (equal n "deertopia.net")
|
|
(cider-interactive-eval
|
|
"(do (require '[net.deertopia.publish.server :as server])
|
|
(server/start!))"))))
|
|
(add-hook 'cider-connected-hook #'start-deertopia-server))))))
|