nebkor/emacs-dot-d
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Add configuration for Clojure programming

Browse source
This commit is contained in:
Vedang Manerikar 2024-12-02 08:06:17 +05:30
parent 5d86e2fd74
commit 7a93225218
2 changed files with 101 additions and 1 deletions

55
unravel-emacs.org
View file

@ -1,4 +1,4 @@
#+title: GNU Emacs configuration
#+title: GNU Emacs configuration for Emacs 29 and above
#+author: Vedang Manerikar
#+email: vedang@unravel.tech
#+language: en
@ -5151,6 +5151,59 @@ To install ~zig~ and ~zls~ on MacOS:
:hook ((zig-mode . eglot-ensure)))
#+end_src
** The =unravel-langs.el= section for Clojure
Clojure is my favorite programming language, and it has been my bread and butter language for well over a decade. I can only hope and pray for this to continue.
#+begin_src emacs-lisp :tangle "unravel-modules/unravel-langs.el"
;;; Configuration for Clojure programming
(use-package clojure-mode
:ensure t)
(use-package cider
:ensure t
:after clojure-mode
:config
(defun cider-repl-prompt-on-newline (ns)
"Return a prompt string with newline.
NS is the namespace information passed into the function by cider."
(concat ns ">\n"))
(setq cider-repl-prompt-function #'cider-repl-prompt-on-newline))
(use-package clj-refactor
:ensure t
:after clojure-mode
:hook
((clojure-mode . clj-refactor-mode))
:config
(cljr-add-keybindings-with-prefix "C-c m")
;; Don't magically add stuff to the namespace requires form (because
;; for big projects this operation is slow) it's easier to do this
;; by hand (=add-missing= operation) after you've typed out what you
;; wanted to.
(setq cljr-magic-requires nil))
(use-package clojure-snippets
:ensure t
:after clojure-mode)
(use-package jet
:ensure t
:config
(defun json->edn ()
"Convert the selected region, or entire file, from JSON to EDN."
(interactive)
(let ((b (if mark-active (region-beginning) (point-min)))
(e (if mark-active (region-end) (point-max)))
(jet (when (executable-find "jet")
"jet --pretty --keywordize keyword --from json --to edn")))
(if jet
(let ((p (point)))
(shell-command-on-region b e jet (current-buffer) t)
(goto-char p))
(user-error "Could not find jet installed")))))
#+end_src
** Finally, we provide the =unravel-langs.el= module
:PROPERTIES:
:CUSTOM_ID: h:924224F1-61A0-4CCD-A3C3-4F230D3CF0A0

47
unravel-modules/unravel-langs.el
View file

@ -402,4 +402,51 @@ modifications."
;;; recommend it, but that's just me.
:hook ((zig-mode . eglot-ensure)))
;;; Configuration for Clojure programming
(use-package clojure-mode
:ensure t)
(use-package cider
:ensure t
:after clojure-mode
:config
(defun cider-repl-prompt-on-newline (ns)
"Return a prompt string with newline.
NS is the namespace information passed into the function by cider."
(concat ns ">\n"))
(setq cider-repl-prompt-function #'cider-repl-prompt-on-newline))
(use-package clj-refactor
:ensure t
:after clojure-mode
:hook
((clojure-mode . clj-refactor-mode))
:config
(cljr-add-keybindings-with-prefix "C-c m")
;; Don't magically add stuff to the namespace requires form (because
;; for big projects this operation is slow) it's easier to do this
;; by hand (=add-missing= operation) after you've typed out what you
;; wanted to.
(setq cljr-magic-requires nil))
(use-package clojure-snippets
:ensure t
:after clojure-mode)
(use-package jet
:ensure t
:config
(defun json->edn ()
"Convert the selected region, or entire file, from JSON to EDN."
(interactive)
(let ((b (if mark-active (region-beginning) (point-min)))
(e (if mark-active (region-end) (point-max)))
(jet (when (executable-find "jet")
"jet --pretty --keywordize keyword --from json --to edn")))
(if jet
(let ((p (point)))
(shell-command-on-region b e jet (current-buffer) t)
(goto-char p))
(user-error "Could not find jet installed")))))
(provide 'unravel-langs)