-
Notifications
You must be signed in to change notification settings - Fork 0
/
init.el
125 lines (101 loc) · 3.71 KB
/
init.el
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
(load-file (expand-file-name "bootstrap.el" user-emacs-directory))
(setq warning-minimum-level :error)
(setq warning-minimum-log-level :error)
(defun gaiwan-filter-local (files)
(seq-filter
(lambda (file)
(file-exists-p (expand-file-name file user-emacs-directory)))
files))
(let ((straight-current-profile 'corgi))
(use-package corgi-defaults)
(use-package corgi-editor)
(use-package corgi-commands)
(use-package corgi-clojure)
(use-package corgi-emacs-lisp)
(use-package corgi-stateline)
(use-package corgi-bindings)
(use-package corkey
:config
(corkey-mode 1)
(corkey/load-and-watch
(cons 'corgi-keys
(cons 'user-keys
(gaiwan-filter-local
(list
(concat "user-keys." (user-login-name) ".el")
(concat "user-keys." system-name ".el")
(concat "user-keys." (user-login-name) "." system-name ".el")))))
(cons 'corgi-signals
(cons 'user-signals
(gaiwan-filter-local
(list
(concat "user-signals." (user-login-name) ".el")
(concat "user-signals." system-name ".el")
(concat "user-signals." (user-login-name) "." system-name ".el"))))))))
(use-package magit)
(use-package org
:config
(require 'org-tempo))
(use-package markdown-mode)
(use-package yaml-mode)
(use-package inf-clojure)
(use-package hcl-mode)
(use-package typescript-mode)
(use-package dockerfile-mode)
(use-package groovy-mode)
(use-package buttercup)
(use-package rainbow-mode)
(use-package pkg-info)
;;(use-package clj-refactor)
(server-start)
(global-display-line-numbers-mode 1)
;; use with ,,<letter>, e.g. `,,g' runs (user/go)
(set-register ?k "#_clj (do (require 'kaocha.repl) (kaocha.repl/run))")
(set-register ?K "#_clj (do (require 'kaocha.repl) (kaocha.repl/run-all))")
(set-register ?r "#_clj (do (require 'user :reload) (user/reset))")
(set-register ?g "#_clj (user/go)")
(set-register ?b "#_clj (user/browse)")
(set-register ?c "#_clj ((requiring-resolve 'nextjournal.clerk/serve!) {})")
(set-register ?, "#_clj (nextjournal.clerk/show! \"{{buffer-file-name}}\")")
(set-register ?p "#_clj (user/portal)")
(set-register ?P "#_cljs (user/portal)")
(use-package color-theme-sanityinc-tomorrow
:config
(load-theme 'sanityinc-tomorrow-night t))
(add-hook 'before-save-hook
(lambda ()
(when (derived-mode-p 'prog-mode)
(delete-trailing-whitespace))))
;;(require 'corgi-clojure-cider-extras)
;;(require 'corgi-cider-connection-indicator)
(setq cider-connection-message-fn
nil )
(setq recentf-max-saved-items 100)
(when (executable-find "bb")
(corgi/cider-jack-in-babashka))
(run-at-time nil (* 5 60) 'recentf-save-list)
(corgi/enable-cider-connection-indicator)
cider-connected-hook
(use-package visual-fill-column)
(with-current-buffer (get-buffer-create "*scratch-clj*")
(clojure-mode))
(with-current-buffer (get-buffer-create "*scratch*")
(lisp-interaction-mode))
(mapcar
(lambda (file)
(let ((local-config (expand-file-name file user-emacs-directory)))
(when (file-exists-p local-config)
(load-file local-config))))
(list "local.el"
(concat "local." (user-login-name) ".el")
(concat "local." system-name ".el")
(concat "local." (user-login-name) "." system-name ".el")))
(use-package html-to-hiccup)
(setq warning-minimum-level :warning)
(setq warning-minimum-log-level :warning)
(put-clojure-indent 'reflect/extend-signatures '(1 :form (1)))
(put-clojure-indent 'sc.api/letsc '(1))
;; (eval-after-load 'projectile
;; (setq projectile-project-root-files-bottom-up
;; (cons "deps.edn"
;; projectile-project-root-files-bottom-up)))