feat: better clojure config

This commit is contained in:
Flinner 2022-03-05 17:03:17 +03:00
parent 1c929d7255
commit 7fefa1280a
Signed by: flinner
GPG Key ID: 95CE0DA7F0E58CA6
1 changed files with 46 additions and 12 deletions

View File

@ -906,7 +906,7 @@ scale inline
#+end_src
** Babel
Don't confirm, I know what I am doing
Don't confirm, I know what I am doing!
#+begin_src emacs-lisp
(setq org-confirm-babel-evaluate nil)
#+end_src
@ -917,9 +917,9 @@ Don't confirm, I know what I am doing
'org-babel-load-languages
'((emacs-lisp . t)
(python . t)
(restclient . t)
;(restclient . t)
(sql . t)
(mermaid . t)
;(mermaid . t)
(octave . t)
(scheme . t)
(shell . t)))
@ -950,10 +950,9 @@ Allow fast code insertion
** Capture
*** Templates
#+begin_src emacs-lisp :results none
#+begin_src emacs-lisp
(setq org-capture-templates
(doct `(
("Consume: Read/watch" :keys "c"
(doct `(("Consume: Read/watch" :keys "c"
:file ,(concat org-directory "todo.org")
:prepend t
:template ("* %{todo-state} %^{Description}"
@ -967,7 +966,24 @@ Allow fast code insertion
("Watch" :keys "w"
:headline "Watch"
:todo-state "TODO")))
("GTD" :keys "g"
("Ideas" :keys "i"
:file ,(concat org-directory "todo.org")
:prepend t
:template ("* %{todo-state} %^{Description}"
":PROPERTIES:"
":Created: %U"
":END:"
"%?")
:children (("Project" :keys "p"
:olp ("Ideas" "Project")
:todo-state "")
("Blogs" :keys "b"
:olp ("Ideas" "Blog")
:todo-state "")
("placeholder" :keys "w"
:headline "Watch"
:todo-state "TODO")))
("GTD" :keys "t"
:file ,(concat org-directory "todo.org")
:prepend t
:template ("* %{todo-state} %^{Description}"
@ -1372,16 +1388,34 @@ Get treemacs-lsp
#+end_src
** Language
*** Arduino
#+begin_src emacs-lisp
(use-package arduino-mode)
#+end_src
*** Clojure
#+begin_src emacs-lisp
(use-package cider
:defer t
:config (require 'flycheck-clj-kondo)
:hook (clojure-mode . zprint-format-on-save-mode)
:bind (:map cider-mode-map
([remap lsp-find-definition] . cider-find-var)
([remap eval-defun] . cider-eval-list-at-point)
([remap eval-last-sexp] . cider-eval-last-sexp)))
#+end_src
Auto format
#+begin_src emacs-lisp
(use-package zprint-format
:after cider)
#+end_src
#+begin_src emacs-lisp
(use-package flycheck-clj-kondo
:after cider)
#+end_src
*** Rust
#+begin_src emacs-lisp
(use-package rustic
@ -1546,7 +1580,7 @@ Better Diff in header sizes
'(markdown-header-face-5 ((t (:inherit markdown-header-face :height 1.1))))
'(markdown-header-face-6 ((t (:inherit markdown-header-face :height 1.0))))
))
(add-hook 'markdown-mode-hook 'my/org-mode/org-mode-visual-fill)
;; (add-hook 'markdown-mode-hook 'my/org-mode/org-mode-visual-fill)
;; (add-hook 'markdown-mode-hook 'outline-minor-mode)
#+end_src