blob: edf252f1037f44a6c13ae122d538ba3dd56e6b7b (
plain)
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
126
127
128
129
130
|
;;; The config specifically for editing code
(provide 'coding-config)
;; (add-hook 'xref-backend-functions 'gxref-xref-backend)
;; better commenting binds
(global-set-key (kbd "C-x C-;") 'comment-or-uncomment-region)
(global-set-key (kbd "C-x ;") 'comment-line)
(global-set-key (kbd "C-x :") 'comment-set-column) ;never gonna use but whatever
(setq asm-comment-char ?#) ; prefer # over ; for asm comments
;; generate tags for label names in asm files, based on asm files in the current directory
(add-hook 'asm-mode-hook
(lambda ()
(add-hook 'after-save-hook
(lambda ()
(shell-command
"find . -iregex '.*\\.[sS]' -exec etags -l none -r '/\\([a-zA-Z0-9\\-_]+\\):/\1/' {} +"))
0 t)))
(use-package lsp-mode)
(use-package lsp-haskell)
(use-package pyvenv)
(use-package sideline
:init
(setq sideline-backends-right '()))
(use-package sideline-flycheck
:init
(push 'sideline-flycheck sideline-backends-right))
(use-package sideline-flymake
:init
(push 'sideline-flymake sideline-backends-right))
(use-package sideline-lsp
:init
(push 'sideline-lsp sideline-backends-right))
(use-package flycheck
:config
;; flymake stuff to be less annoying
;; (face-spec-set 'flycheck-note '((t :underline nil)))
;; (face-spec-set 'flycheck-info '((t :underline nil)))
;; (face-spec-set 'flycheck-warning '((t :underline nil)))
;; (face-spec-set 'flycheck-error '((t :underline nil)))
(add-hook 'prog-mode-hook (lambda () flycheck-mode 1)))
;; Find defs in various ways
(global-set-key (kbd "M-i") 'imenu)
(global-set-key (kbd "M-I") 'xref-find-definitions)
(setq imenu-auto-rescan t)
(setq imenu-flatten t)
;; make shells and whatnot slightly better
(require 'comint)
(setq comint-scroll-to-bottom-on-input t)
(setq comint-scroll-to-bottom-on-output t)
;; ediff
(setq ediff-window-setup-function 'ediff-setup-windows-plain)
;; various folding types and binds
;;(autoload 'hide-lines "hide-lines" "Hide lines based on a regexp" t)
;;(global-set-key (kbd "C-c /") 'hide-lines)
(use-package fold-this
:init
(define-prefix-command 'fold-map)
(global-set-key (kbd "M-F") 'fold-map)
(define-keymap :full nil
:parent nil
:suppress nil
:keymap nil
:name "fold-map"
:prefix 'fold-map
(kbd "c") 'fold-this
(kbd "e") 'fold-this-unfold-at-point
(kbd "t") 'hs-toggle-hiding
(kbd "f") 'fold-this-fold-forward
(kbd "b") 'fold-this-fold-backward
(kbd "l") 'hs-hide-level))
;; global prog stuff that differs from global/text
(require 'my-funcs)
(add-hook 'prog-mode-hook (lambda ()
(hs-minor-mode 1)
(hl-todo-mode 1)
(superword-mode 1)
(modify-syntax-entry ?_ "w")
(display-fill-column-indicator-mode 1)
(add-hook 'before-save-hook
(lambda ()
(if (not (eq major-mode 'makefile-gmake-mode))
(clean-prog-file (current-buffer)))))))
;; haskell flavor and tags
(use-package haskell-mode
:custom
(haskell-tags-on-save t)
(haskell-process-type 'cabal-repl)
:hook
(haskell-mode . (lambda ()
;; (hindent-mode 1)
(interactive-haskell-mode 1))))
(global-set-key (kbd "M-m") 'goto-next-locus)
(global-set-key (kbd "M-M") 'recompile)
(setq compilation-always-kill t
compilation-scroll-output t)
;; Allow compilation buffer to be dedicated across frames
(push '("\\*compilation\\*" . (nil (reusable-frames . t))) display-buffer-alist)
;; better searching
(use-package swiper)
(use-package counsel)
(use-package ivy)
(setq counsel-grep-base-command
"rg -i -M 120 --no-heading --line-number --color never '%s' %s")
(global-set-key (kbd "C-s") 'counsel-grep-or-swiper)
(global-set-key (kbd "C-S-s") 'isearch-forward)
;; racket
(use-package racket-mode)
;; rust
(use-package rustic)
|
