1 ;; -*- lexical-binding: t; -*-
2 (require 'seq)
3 (require 'xdg)
4 
5 (package-initialize)
6 
7 (push
8  (let ((lisp-path (expand-file-name "lisp" user-emacs-directory)))
9    (unless (file-exists-p lisp-path)
10      (make-directory lisp-path))
11    lisp-path)
12  load-path)
13 
14 (require 'lh)
15 (require 'lh-insert)
16 (require 'lh-resurrect)
17 (require 'iso-transl)
18 (require 'substitute)
19 
20 (with-eval-after-load 'paredit
21   (require 'paredit-menu))
22 (with-eval-after-load 'restclient
23   (require 'restclient-capf))
24 (with-eval-after-load 'elfeed
25   (require 'elfeed-tube)
26   (require 'elfeed-tube-mpv)
27   (elfeed-tube-setup))
28 
29 (setq org-roam-v2-ack t)
30 
31 (setq lh/dir-documents
32       (expand-file-name
33        (cond ((eq system-type 'gnu/linux) (or (xdg-user-dir "DOCUMENTS") "~/Documents"))
34              ((eq system-type 'windows-nt) "~/Documents"))))
35 (setq lh/dir-data-home
36       (expand-file-name
37        (cond ((eq system-type 'gnu/linux) (or (xdg-data-home) "~/.local/share"))
38              ((eq system-type 'windows-nt) (getenv "APPDATA")))))
39 
40 (defadvice split-window-below (after lh/split-window-below activate)
41   (other-window 1))
42 (defadvice split-window-right (after lh/split-window-right activate)
43   (other-window 1))
44 (defadvice toggle-frame-fullscreen (before lh/toggle-frame-fullscreen-bars activate)
45   (menu-bar-mode (if menu-bar-mode -1 1))
46   (tool-bar-mode (if tool-bar-mode -1 1))
47   (scroll-bar-mode (if scroll-bar-mode -1 1)))
48 
49 (defun lh/org-capture-skip-below-toplevel ()
50   (when (> (org-current-level) 1)
51     (save-excursion (org-end-of-subtree t))))
52 
53 (defun lh/diff-file-changes ()
54   (interactive)
55   (let ((file-name (make-temp-file "emacs-diff-"))
56         (original-file-name (buffer-file-name)))
57     (unwind-protect
58         (progn
59           (unwind-protect
60               (progn
61                 (set-visited-file-name file-name)
62                 (save-buffer))
63             (set-visited-file-name original-file-name))
64           (diff original-file-name file-name nil t))
65       (delete-file file-name))))
66 
67 (defun lh/indent-region-inhibit-message (start end &optional column)
68   (interactive "r\nP")
69   (let ((inhibit-message t))
70     (indent-region start end column)))
71 
72 (defmacro lh/global-set-keys (keys-alist)
73   `(progn
74      ,@(seq-map
75         (lambda (x)
76           `(global-set-key (kbd ,(car x)) #',(cdr x)))
77         keys-alist)))
78 
79 (defmacro lh/define-keys (keymap keys-alist &optional after)
80   (let ((defines (seq-map
81                   (lambda (x)
82                     `(define-key
83                       ,keymap
84                       ,(let ((key (car x)))
85                          (cond
86                           ((stringp key) `(kbd ,key))
87                           (t key)))
88                       #',(cdr x)))
89                   keys-alist)))
90     (if (null after)
91         (cons 'progn defines)
92       `(with-eval-after-load ',after
93          ,@defines))))
94 
95 (lh/global-set-keys
96  (("C-x C-M-t" . transpose-regions)
97   ("C-x K" . kill-current-buffer)
98   ("C-x C-b" . ibuffer)
99 
100   ;;;; Consult bindings
101   ;; C-c bindings (mode-specific-map)
102   ("C-c h" . consult-history)
103   ("C-c m" . consult-mode-command)
104   ("C-c b" . consult-bookmark)
105   ("C-c k" . consult-kmacro)
106   ;; C-x bindings (ctl-x-map)
107   ("C-x M-:" . consult-complex-command)     ;; orig. repeat-complex-command
108   ("C-x b" . consult-buffer)                ;; orig. switch-to-buffer
109   ("C-x 4 b" . consult-buffer-other-window) ;; orig. switch-to-buffer-other-window
110   ("C-x 5 b" . consult-buffer-other-frame)  ;; orig. switch-to-buffer-other-frame
111   ;; Custom M-# bindings for fast register access
112   ("M-#" . consult-register-load)
113   ("M-'" . consult-register-store)          ;; orig. abbrev-prefix-mark (unrelated)
114   ("C-M-#" . consult-register)
115   ;; Other custom bindings'
116   ("<help> a" . consult-apropos)            ;; orig. apropos-command
117   ;; M-g bindings (goto-map)
118   ("M-g e" . consult-compile-error)
119   ("M-g f" . consult-flymake)               ;; Alternative: consult-flycheck
120   ("M-g g" . consult-goto-line)             ;; orig. goto-line
121   ("M-g M-g" . consult-goto-line)           ;; orig. goto-line
122   ("M-g o" . consult-outline)               ;; Alternative: consult-org-heading
123   ("M-g m" . consult-mark)
124   ("M-g k" . consult-global-mark)
125   ("M-g i" . consult-imenu)
126   ("M-g I" . consult-imenu-multi)
127   ;; M-s bindings (search-map)
128   ("M-s f" . consult-find)
129   ("M-s L" . consult-locate)
130   ("M-s g" . consult-grep)
131   ("M-s G" . consult-git-grep)
132   ("M-s l" . consult-line)
133   ("M-s m" . consult-multi-occur)
134   ("M-s k" . consult-keep-lines)
135   ("M-s u" . consult-focus-lines)
136   ("M-s s" . consult-eglot-symbols)
137   ;; Isearch integration
138   ("M-s e" . consult-isearch)
139 
140   ("C-." . embark-act)
141   ("M-." . embark-dwim)
142 
143   ("C-+" . er/expand-region)
144 
145   ("M-o" . ace-window)
146 
147   ("C-c '" . imenu-list-smart-toggle)
148 
149   ("C-c r l" . org-roam-buffer-toggle)
150   ("C-c r f" . org-roam-node-find)
151   ("C-c r i" . org-roam-node-insert)
152 
153   ("C-h f" . helpful-callable)
154   ("C-h F" . helpful-function)
155   ("C-h C" . helpful-command)
156   ("C-h v" . helpful-variable)
157   ("C-h k" . helpful-key)
158   ("C-c C-d" . helpful-at-point)
159 
160   ("C-S-p" . lh/move-line-up)
161   ("M-<up>" . lh/move-line-up)
162   ("C-S-n" . lh/move-line-down)
163   ("M-<down>" . lh/move-line-down)
164 
165   ("M-s r" . deadgrep)
166 
167   ("C-c p" . lh/pop-out-buffer)
168   ("C-c n" . lh/buffer-create-new)
169   ("C-c a" . org-agenda)
170   ("C-c c" . org-capture)
171   ("C-c l" . org-store-link)
172   ("C-c s" . substitute-prefix-map)
173 
174   ("C-c i j" . lh/insert-json-encoded)
175   ("C-c i i s" . lh/insert-random-sha1)
176   ("C-c i i u" . uuidgen)
177   ("C-c i r f" . lh/insert-number-from-register-format)
178 
179   ("C-c e x" . lh/xml-escape-region)
180 
181   ("<mouse-8>" . xref-go-back)
182   ("<mouse-9>" . xref-go-forward)))
183 
184 (lh/define-keys icomplete-fido-mode-map
185                 (("TAB" . icomplete-force-complete)
186                  ("<left>" . left-char)
187                  ("<right>" . right-char)
188                  ("^" . icomplete-fido-backward-updir)
189                  ("DEL" . backward-delete-char))
190                 icomplete)
191 (lh/define-keys isearch-mode-map
192                 (("M-e" . consult-isearch)
193                  ("M-s e" . consult-isearch)
194                  ("M-s l" . consult-line)))
195 (lh/define-keys paredit-mode-map
196                 (("M-s" . nil)
197                  ("M-S" . paredit-splice-sexp))
198                 paredit)
199 (lh/define-keys elfeed-search-mode-map
200                 (("G" . elfeed-update))
201                 elfeed)
202 (lh/define-keys json-mode-map
203                 (("C-c C-j" . jq-interactively))
204                 json-mode)
205 (lh/define-keys sly-inspector-mode-map
206                 (("<mouse-8>" . sly-inspector-pop)
207                  ("<mouse-9>" . sly-inspector-next))
208                 sly)
209 
210 (with-eval-after-load 'icomplete
211   (define-key icomplete-minibuffer-map (kbd "C-.") nil))
212 
213 (defun lh/elfeed-show-visit ()
214   (interactive)
215   (let ((link (elfeed-entry-link elfeed-show-entry)))
216     (if (string-match-p (rx
217                          line-start
218                          "http" (opt "s") "://"
219                          (opt "www.")
220                          "youtube.com/")
221                         link)
222         (elfeed-tube-mpv (point))
223       (elfeed-show-visit))))
224 
225 (lh/define-keys elfeed-show-mode-map
226                 (("b" . lh/elfeed-show-visit)
227                  ("F" . elfeed-tube-fetch)
228                  ([remap save-buffer] . elfeed-tube-save)
229                  ("C-c C-f" . elfeed-tube-mpv-follow-mode)
230                  ("C-c C-w" . elfeed-tube-mpv-where))
231                 elfeed)
232 (lh/define-keys elfeed-search-mode-map
233                 (("F" . elfeed-tube-fetch)
234                  ([remap save-buffer] . elfeed-tube-save))
235                 elfeed)
236 
237 (defun corfu-insert-with-return ()
238   (interactive)
239   (let ((idx corfu--index))
240     (corfu-insert)
241     (when (< idx 0)
242       (funcall (key-binding (kbd "RET")))
243       (indent-according-to-mode))))
244 
245 (lh/define-keys corfu-map
246                 (("RET" . corfu-insert-with-return))
247                 corfu)
248 
249 (defun lh/lisp-mode-hook ()
250   (paredit-mode 1)
251   (prism-mode 1)
252   (highlight-function-calls-mode 1))
253 
254 (add-hook 'lisp-mode-hook 'lh/lisp-mode-hook)
255 (add-hook 'emacs-lisp-mode-hook 'lh/lisp-mode-hook)
256 ;; Aggressive Intent mode causes 100% CPU for me whenever the sly repl prints warnings
257 (add-hook 'sly-mrepl-mode-hook
258           (lambda ()
259             (aggressive-indent-mode -1)))
260 (add-hook 'embark-collect-mode-hook 'consult-preview-at-point-mode)
261 (add-hook 'prog-mode-hook
262           (lambda ()
263             (setq-local show-trailing-whitespace t)))
264 
265 ;; notmuch's tag selection doesnt work with consult-completing-read-multiple
266 ;; items need to be trimmed
267 (defun lh/notmuch-read-tag-changes-trim (tags)
268   (seq-map (lambda (x)
269              (string-trim-right x))
270            tags))
271 
272 (advice-add #'notmuch-read-tag-changes :filter-return #'lh/notmuch-read-tag-changes-trim)
273 
274 ;; Fixes bug in minibuffer.el that causes consult to not work without any text
275 ;; https://github.com/minad/consult/issues/566
276 ;; https://debbugs.gnu.org/cgi/bugreport.cgi?bug=55205
277 (defun lh/advice-fix-minibuffer-consult (func &rest args)
278   (apply func (list (car args)
279                     (cadr args)
280                     (copy-sequence (caddr args)))))
281 
282 (advice-add #'completion--replace :around #'lh/advice-fix-minibuffer-consult)
283 
284 ;; file-name-all-completions seems to return file names in whatever order the
285 ;; filesystem feels like returning. This is super annoying with the flex
286 ;; completion style. If the FS returns "barfoo" before "foobar", flex completion
287 ;; will match "barfoo" first. This advice sorts the file name list.
288 (defun lh/advice-sort-file-name-all-completions (files)
289   (sort files #'string<))
290 
291 (advice-add 'file-name-all-completions :filter-return 'lh/advice-sort-file-name-all-completions)
292 
293 (setq completion-ignore-case t)
294 
295 (custom-set-variables
296  ;; custom-set-variables was added by Custom.
297  ;; If you edit it by hand, you could mess it up, so be careful.
298  ;; Your init file should contain only one such instance.
299  ;; If there is more than one, they won't work right.
300  '(aggressive-indent-region-function 'lh/indent-region-inhibit-message)
301  '(all-the-icons-completion-mode t)
302  '(auth-sources '(default))
303  '(aw-dispatch-always t)
304  '(aw-keys '(97 115 100 102 103 104 106 107 108))
305  '(aw-scope 'frame)
306  '(backup-by-copying t)
307  '(before-save-hook '(whitespace-cleanup))
308  '(bookmark-completion-ignore-case nil)
309  '(calendar-christian-all-holidays-flag nil)
310  '(calendar-mark-holidays-flag t)
311  '(calendar-week-start-day 1)
312  '(column-number-mode t)
313  '(completion-ignore-case t t)
314  '(completion-styles '(basic substring initials))
315  '(context-menu-mode t)
316  '(corfu-auto t)
317  '(corfu-auto-delay 0.0)
318  '(corfu-auto-prefix 1)
319  '(corfu-popupinfo-delay '(0 . 0))
320  '(corfu-popupinfo-hide nil)
321  '(corfu-popupinfo-mode t)
322  '(corfu-preselect 'prompt)
323  '(corfu-quit-at-boundary t)
324  '(create-lockfiles nil)
325  '(cursor-type 'bar)
326  '(custom-enabled-themes '(modus-operandi))
327  '(custom-safe-themes
328    '("1ea82e39d89b526e2266786886d1f0d3a3fa36c87480fad59d8fab3b03ef576e" "3d94d6d1a1c23113a60c8496c9aed094dbc2695f219e8127bb168d17b1e6dab3" "4b026ac68a1aa4d1a91879b64f54c2490b4ecad8b64de5b1865bca0addd053d9" "58264887d7ab17702ef85bbd96e11bd7f613622ff9c63990be860b958c978f09" "611ef0918b8b413badb8055089b5499c1d4ac20f1861efba8f3bfcb36ad0a448" "15604b083d03519b0c2ed7b32da6d7b2dc2f6630bef62608def60cdcf9216184" "88cb0f9c0c11dbb4c26a628d35eb9239d1cf580cfd28e332e654e7f58b4e721b" "69f7e8101867cfac410e88140f8c51b4433b93680901bb0b52014144366a08c8" "21e3d55141186651571241c2ba3c665979d1e886f53b2e52411e9e96659132d4" default))
329  '(delete-old-versions t)
330  '(delete-selection-mode t)
331  '(denote-modules '(project xref ffap))
332  '(denote-modules-global-mode t)
333  '(desktop-save-mode t)
334  '(dired-dwim-target 'dired-dwim-target-next)
335  '(dired-kill-when-opening-new-dired-buffer t)
336  '(dired-mode-hook '(all-the-icons-dired-mode))
337  '(display-buffer-alist
338    '(("\\\\*sly-db for"
339       (display-buffer-reuse-window display-buffer-below-selected)
340       (dedicated . t)
341       (window-height . 0.3))
342      ("\\\\*Async Shell Command\\\\*" display-buffer-no-window)))
343  '(ediff-split-window-function 'split-window-horizontally)
344  '(ediff-window-setup-function 'ediff-setup-windows-plain)
345  '(editorconfig-mode t)
346  '(elfeed-tube-auto-save-p t)
347  '(fido-mode t)
348  '(fido-vertical-mode t)
349  '(focus-follows-mouse t)
350  '(frame-resize-pixelwise t)
351  '(global-aggressive-indent-mode t)
352  '(global-auto-revert-mode t)
353  '(global-corfu-mode t)
354  '(global-diff-hl-mode t)
355  '(help-window-select t)
356  '(ibuffer-mode-hook '(all-the-icons-ibuffer-mode))
357  '(ignored-local-variable-values '((sly-load-failed-fasl . ask)))
358  '(indent-tabs-mode nil)
359  '(inferior-lisp-program "sbcl")
360  '(kept-new-versions 10)
361  '(kept-old-versions 5)
362  '(lh/global-resurrect-mode t)
363  '(marginalia-mode t)
364  '(mouse-autoselect-window 0.2)
365  '(mouse-wheel-progressive-speed nil)
366  '(mouse-wheel-scroll-amount '(5 ((shift) . hscroll) ((meta)) ((control) . text-scale)))
367  '(notmuch-archive-tags '("-inbox" "-unread"))
368  '(org-agenda-custom-commands
369    '(("n" "Agenda and all TODOs"
370       ((agenda "" nil)
371        (alltodo "" nil))
372       nil)
373      ("g" "GTD View"
374       ((agenda "" nil)
375        (tags-todo "+aktion+TODO=\"NEXT\""
376                   ((org-agenda-overriding-header "Nächste Aktionen:")))
377        (tags "projekt"
378              ((org-agenda-overriding-header "Projekte:")
379               (org-agenda-skip-function 'lh/org-capture-skip-below-toplevel)))
380        (tags-todo "WAITING"
381                   ((org-agenda-overriding-header "Warten auf:"))))
382       nil nil)))
383  '(org-agenda-loop-over-headlines-in-active-region nil)
384  '(org-babel-load-languages '((awk . t) (lisp . t) (shell . t) (emacs-lisp . t)))
385  '(org-html-validation-link "")
386  '(org-log-done 'time)
387  '(org-log-done-with-time t)
388  '(org-refile-use-outline-path 'file)
389  '(org-src-window-setup 'other-window)
390  '(org-startup-folded t)
391  '(org-startup-indented t)
392  '(org-startup-truncated nil)
393  '(package-archive-priorities
394    '(("gnu" . 3)
395      ("nongnu" . 2)
396      ("melpa-stable" . 1)
397      ("melpa" . 0)))
398  '(package-archives
399    '(("gnu" . "https://elpa.gnu.org/packages/")
400      ("nongnu" . "https://elpa.nongnu.org/nongnu/")
401      ("melpa-stable" . "https://stable.melpa.org/packages/")
402      ("melpa" . "https://melpa.org/packages/")))
403  '(package-pinned-packages '((sly . "melpa")))
404  '(package-selected-packages
405    '(notmuch substitute highlight-function-calls prism modus-themes imenu-list diff-hl embark-consult embark all-the-icons-completion all-the-icons-ibuffer all-the-icons-dired sly-named-readtables sly-macrostep denote-refs denote-menu denote ox-epub ob-powershell powershell web-mode lexic editorconfig elfeed-tube-mpv elfeed-tube restclient-jq graphviz-dot-mode consult-eglot jq-mode ob-restclient restclient deadgrep helpful pdf-tools paredit-menu paredit corfu sly eglot aggressive-indent project nov nhexl-mode elfeed magit yaml-mode json-mode lua-mode go-mode org-contrib org ace-window expand-region consult marginalia uuidgen diminish which-key))
406  '(pcomplete-ignore-case t t)
407  '(pixel-scroll-precision-mode t)
408  '(prism-parens t)
409  '(read-buffer-completion-ignore-case t)
410  '(read-file-name-completion-ignore-case t)
411  '(reb-re-syntax 'string)
412  '(recentf-max-saved-items 200)
413  '(recentf-mode t)
414  '(repeat-mode t)
415  '(ring-bell-function 'ignore)
416  '(safe-local-variable-values
417    '((Syntax . ANSI-Common-Lisp) (Package . POSTMODERN) (Base . 10)
418      (Syntax . Ansi-Common-Lisp)))
419  '(save-place-mode t)
420  '(savehist-mode t)
421  '(scroll-conservatively 100)
422  '(tab-always-indent 'complete)
423  '(use-short-answers t)
424  '(warning-suppress-types '((comp)))
425  '(which-key-mode t))
426 (custom-set-faces
427  ;; custom-set-faces was added by Custom.
428  ;; If you edit it by hand, you could mess it up, so be careful.
429  ;; Your init file should contain only one such instance.
430  ;; If there is more than one, they won't work right.
431  '(default ((t (:family "Go Mono"))))
432  '(variable-pitch ((t (:family "IBM Plex Serif")))))
433 
434 ;; This is the place where I override all customize stuff
435 
436 (with-eval-after-load 'prism
437   (prism-set-colors
438     :desaturations '(0)
439     :lightens '(0)
440     :colors (modus-themes-with-colors
441               (list fg-main
442                     magenta
443                     cyan-cooler
444                     magenta-cooler
445                     blue
446                     magenta-warmer
447                     cyan-warmer
448                     red-cooler
449                     green
450                     fg-main
451                     cyan
452                     yellow
453                     blue-warmer
454                     red-warmer
455                     green-cooler
456                     yellow-faint))))
457 
458 (let ((feeds (expand-file-name "feeds.el" user-emacs-directory)))
459   (when (file-exists-p feeds)
460     (load feeds)))
461 
462 (customize-set-value
463  'elfeed-db-directory
464  (let ((data-dir (expand-file-name "elfeed" lh/dir-data-home)))
465    (unless (file-exists-p data-dir)
466      (make-directory data-dir))
467    data-dir))
468 
469 (customize-set-value
470  'backup-directory-alist
471  (let ((backup-dir (concat user-emacs-directory "backup")))
472    (unless (file-exists-p backup-dir)
473      (make-directory backup-dir t))
474    `(("." . ,backup-dir))))
475 
476 (let* ((dir (expand-file-name "org" lh/dir-documents))
477        (roam-dir (expand-file-name "notes" dir)))
478   (unless (file-exists-p dir)
479     (make-directory dir t))
480   (unless (file-exists-p roam-dir)
481     (make-directory roam-dir t))
482   (customize-set-value
483    'org-directory
484    dir)
485   (customize-set-value
486    'org-agenda-files
487    (list dir))
488   (customize-set-value
489    'org-roam-directory
490    roam-dir)
491   (with-eval-after-load "org"
492     (setq org-capture-templates
493           `(("g" "GTD Inbox" entry
494              (file ,(expand-file-name "inbox.org" dir))
495              "* %?")))))
496 
497 (customize-set-value
498  'dired-guess-shell-alist-user
499  (cond
500   ((eq system-type 'gnu/linux)
501    `((,(rx "." (or "png" "jpg" (seq "jp" (? "e") "g"))) "pqiv")
502      (,(rx "." (or "mkv" "mp4" "webm" "ogv" "avi")) "mpv")
503      (,(rx "." (or "flac" "ogg" "mp3" "wav")) "mpv --force-window")))
504   (t nil)))
505 
506 (diminish 'which-key-mode)
507 (diminish 'aggressive-indent-mode)
508 (diminish 'editorconfig-mode)
509 
510 (let ((path (expand-file-name "private.el" user-emacs-directory)))
511   (when (file-exists-p path)
512     (load path)))
513 
514 (pdf-loader-install)
515 
516 (server-start)
517 (put 'narrow-to-region 'disabled nil)