85 lines
3.0 KiB
EmacsLisp
85 lines
3.0 KiB
EmacsLisp
;;; syd-lang-clojure.el -*- lexical-binding: t; -*-
|
|
|
|
(use-package clojure-mode
|
|
:mode (rx "." (or "clj" "cljs" "edn" "cljc") eol)
|
|
:config
|
|
(add-hook 'clojure-mode-hook #'syd-lisp-mode)
|
|
(dolist (c '(?- ?_ ?? ?! ?+ ?* ?/ ?: ?> ?< ?= ?&))
|
|
(modify-syntax-entry c "w" clojure-mode-syntax-table)))
|
|
|
|
(use-package cider
|
|
:after clojure-mode)
|
|
|
|
(defun syd-clojure-open-repl (&optional arg type)
|
|
"Open a Cider REPL for clojure and return the buffer."
|
|
(interactive "P")
|
|
;; TODO: Better error handling
|
|
;; type is `clj' for clojure and `cljs' for clojurescript
|
|
;; ... with no type specified, assume `clj'.
|
|
(let ((type (or type 'clj)))
|
|
(if-let* ((buffer (cider-current-repl type)))
|
|
(pop-to-buffer buffer)
|
|
(let ((process (cond ((eq type 'clj) (cider-jack-in-clj arg))
|
|
((eq type 'cljs) (cider-jack-in-cljs arg)))))
|
|
(message "Starting CIDER server for the first time...")
|
|
(while (and (process-live-p process)
|
|
(not (cider-current-repl type)))
|
|
(sit-for 1))
|
|
(message "Starting CIDER server for the first time...done")
|
|
(pop-to-buffer (cider-current-repl type))))))
|
|
|
|
(use-package cider-mode
|
|
:straight nil
|
|
;; :after clojure-mode
|
|
:hook (clojure-mode-local-vars . cider-mode)
|
|
:init
|
|
(with-eval-after-load 'clojure-mode
|
|
(set-repl-handler! '(clojure-mode clojurec-mode)
|
|
#'syd-clojure-open-repl :persist t)
|
|
(set-repl-handler! 'clojurescript-mode
|
|
#'syd-clojure-open-cljs-repl :persist t)
|
|
(set-eval-handler! '(clojure-mode clojurec-mode clojurescript-mode)
|
|
#'cider-eval-region))
|
|
:config
|
|
(add-hook 'cider-mode-hook #'eldoc-mode)
|
|
(set-popup-rules!
|
|
`(("^\\*cider-error*" :ignore t)
|
|
("^\\*cider-repl" :quit nil :ttl nil)
|
|
("^\\*cider-repl-history" :vslot 2 :ttl nil)
|
|
(,(rx bol "*cider-cheatsheet*")
|
|
:width ,(lambda (win)
|
|
(with-selected-window win
|
|
(enlarge-window (- (min 45 (* 0.2 (frame-width)))
|
|
(window-width))
|
|
t)))
|
|
:side right :vslot -8 :quit t :select t)
|
|
(,(rx bol "*cider-doc*")
|
|
:slot 2 :vslot -8 :quit t :select t)))
|
|
;; DEPRECATED: Remove once syd-strategies is working.
|
|
(syd-add-hook 'clojure-mode-hook
|
|
(defun syd-clojure-set-handlers-h ()
|
|
(setq-local syd-lookup-documentation-handlers
|
|
(list #'cider-doc))))
|
|
(general-define-key
|
|
:keymaps 'cider-mode-map
|
|
:states '(normal visual motion emacs insert)
|
|
:major-modes t
|
|
:prefix syd-localleader-key
|
|
:non-normal-prefix syd-alt-localleader-key
|
|
"\"" #'cider-jack-in-cljs
|
|
"'" #'cider-jack-in-clj
|
|
"c" #'cider-connect-clj
|
|
"C" #'cider-connect-cljs
|
|
"r l" #'cider-load-buffer
|
|
"r n" #'cider-repl-set-ns
|
|
"r r" #'cider-ns-refresh
|
|
"r R" #'cider-restart
|
|
"r q" #'cider-quit
|
|
"h c" #'cider-cheatsheet))
|
|
|
|
;; Give different pairs of delimiters different colours.
|
|
(use-package rainbow-delimiters
|
|
:hook (clojure-mode . rainbow-delimiters-mode))
|
|
|
|
(provide 'syd-lang-clojure)
|