blob: 9d228f0544beb6484bee9ec788886c763456919d (
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
|
;;; 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 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)
;; make ibuffer play with projectile
(use-package ibuffer
:bind
("C-x C-b" . ibuffer)
:hook
(ibuffer . (lambda ()
(ibuffer-projectile-set-filter-groups)
(unless (eq ibuffer-sorting-mode 'alphabetic)
(ibuffer-do-sort-by-alphabetic)))))
;; 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)
(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
(require 'counsel)
(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)
|
