3c8e6f0cc5
Finally ported my up-to-date emacs configuration here. I was putting this off for a long while, unsure of how to handle all of the work. All it took was my laptop being fried to force me to do this. So... voila!
63 lines
2.3 KiB
EmacsLisp
63 lines
2.3 KiB
EmacsLisp
;;; clojure.el --- My Clojure preferences -*- lexical-binding: t -*-
|
|
;; Author: William Carroll <wpcarro@gmail.com>
|
|
|
|
;;; Commentary:
|
|
;; Hosting my Clojure tooling preferences
|
|
|
|
;;; Code:
|
|
|
|
;; Helper functions
|
|
(defun wpc/buffer-name-for-clojure-mode (mode)
|
|
(let* ((project-name (projectile-project-name))
|
|
(cljs-name (concat "*cider-repl CLJS " project-name "*"))
|
|
(clj-name (concat "*cider-repl " project-name "*")))
|
|
(cond ((eq mode 'clojurescript-mode) cljs-name)
|
|
((eq mode 'clojure-mode) clj-name)
|
|
((eq mode 'clojurec-mode) cljs-name))))
|
|
|
|
(defun wpc/repl-function-for-clojure-mode (mode)
|
|
(let ((project-name (projectile-project-name))
|
|
(cljs-fn #'cider-jack-in-clojurescript)
|
|
(clj-fn #'cider-jack-in))
|
|
(cond ((eq mode 'clojurescript-mode) cljs-fn)
|
|
((eq mode 'clojure-mode) clj-fn)
|
|
((eq mode 'clojurec-mode) cljs-fn))))
|
|
|
|
(defun wpc/find-or-create-clojure-or-clojurescript-repl ()
|
|
(interactive)
|
|
(with-current-buffer (current-buffer)
|
|
(let ((buffer-name (wpc/buffer-name-for-clojure-mode major-mode))
|
|
(repl-function (wpc/repl-function-for-clojure-mode major-mode)))
|
|
(if (get-buffer buffer-name)
|
|
(switch-to-buffer buffer-name)
|
|
(funcall repl-function)))))
|
|
|
|
;; (defun wpc/evil-leader/set-key-for-clojure-modes (kbd callback)
|
|
;; (evil-leader/set-key-for-mode 'clojure-mode kbd callback)
|
|
;; (evil-leader/set-key-for-mode 'clojurec-mode kbd callback)
|
|
;; (evil-leader/set-key-for-mode 'clojurescript-mode kbd callback))
|
|
|
|
;; ;; clojure
|
|
;; (wpc/evil-leader/set-key-for-clojure-modes "d" #'cider-doc)
|
|
;; (wpc/evil-leader/set-key-for-clojure-modes "e" #'cider-eval-defun-at-point)
|
|
;; (wpc/evil-leader/set-key-for-clojure-modes "r" #'wpc/find-or-create-clojure-or-clojurescript-repl)
|
|
|
|
(use-package cider
|
|
:general
|
|
(cider-repl-mode-map
|
|
"C-l" 'cider-repl-clear-buffer
|
|
"C-u" 'kill-whole-line
|
|
"<up>" 'cider-repl-previous-input
|
|
"<down>" 'cider-repl-next-input
|
|
"C-c 'j" 'wpc/find-or-create-clojure-or-clojurescript-repl)
|
|
(n
|
|
"M-." 'cider-find-var)
|
|
:config
|
|
(setq cider-cljs-lein-repl
|
|
"(do (require 'figwheel-sidecar.repl-api)
|
|
(figwheel-sidecar.repl-api/start-figwheel!)
|
|
(figwheel-sidecar.repl-api/cljs-repl))"
|
|
cider-prompt-for-symbol nil))
|
|
|
|
(provide 'wpc-clojure)
|
|
;;; wpc-clojure.el ends here
|