init
This commit is contained in:
11
.dir-locals.el
Normal file
11
.dir-locals.el
Normal file
@@ -0,0 +1,11 @@
|
||||
((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))))))
|
||||
Reference in New Issue
Block a user