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 #+end_src
** Babel ** Babel
Don't confirm, I know what I am doing Don't confirm, I know what I am doing!
#+begin_src emacs-lisp #+begin_src emacs-lisp
(setq org-confirm-babel-evaluate nil) (setq org-confirm-babel-evaluate nil)
#+end_src #+end_src
@ -917,9 +917,9 @@ Don't confirm, I know what I am doing
'org-babel-load-languages 'org-babel-load-languages
'((emacs-lisp . t) '((emacs-lisp . t)
(python . t) (python . t)
(restclient . t) ;(restclient . t)
(sql . t) (sql . t)
(mermaid . t) ;(mermaid . t)
(octave . t) (octave . t)
(scheme . t) (scheme . t)
(shell . t))) (shell . t)))
@ -950,10 +950,9 @@ Allow fast code insertion
** Capture ** Capture
*** Templates *** Templates
#+begin_src emacs-lisp :results none #+begin_src emacs-lisp
(setq org-capture-templates (setq org-capture-templates
(doct `( (doct `(("Consume: Read/watch" :keys "c"
("Consume: Read/watch" :keys "c"
:file ,(concat org-directory "todo.org") :file ,(concat org-directory "todo.org")
:prepend t :prepend t
:template ("* %{todo-state} %^{Description}" :template ("* %{todo-state} %^{Description}"
@ -967,7 +966,24 @@ Allow fast code insertion
("Watch" :keys "w" ("Watch" :keys "w"
:headline "Watch" :headline "Watch"
:todo-state "TODO"))) :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") :file ,(concat org-directory "todo.org")
:prepend t :prepend t
:template ("* %{todo-state} %^{Description}" :template ("* %{todo-state} %^{Description}"
@ -1372,14 +1388,32 @@ Get treemacs-lsp
#+end_src #+end_src
** Language ** Language
*** Arduino
#+begin_src emacs-lisp
(use-package arduino-mode)
#+end_src
*** Clojure *** Clojure
#+begin_src emacs-lisp #+begin_src emacs-lisp
(use-package cider (use-package cider
:defer t :defer t
:bind (:map cider-mode-map :config (require 'flycheck-clj-kondo)
([remap lsp-find-definition] . cider-find-var) :hook (clojure-mode . zprint-format-on-save-mode)
([remap eval-defun] . cider-eval-list-at-point) :bind (:map cider-mode-map
([remap eval-last-sexp] . cider-eval-last-sexp))) ([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 #+end_src
*** Rust *** Rust
@ -1546,7 +1580,7 @@ Better Diff in header sizes
'(markdown-header-face-5 ((t (:inherit markdown-header-face :height 1.1)))) '(markdown-header-face-5 ((t (:inherit markdown-header-face :height 1.1))))
'(markdown-header-face-6 ((t (:inherit markdown-header-face :height 1.0)))) '(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) ;; (add-hook 'markdown-mode-hook 'outline-minor-mode)
#+end_src #+end_src