add emacs config

1 files changed, 1475 insertions, 0 deletions

diff --git a/dot_config/emacs/init.el b/dot_config/emacs/init.el
new file mode 100644
index 0000000..e9fc0fb
--- /dev/null
+++ b/dot_config/emacs/init.el
@@ -0,0 +1,1475 @@
+;; Example Elpaca configuration -*- lexical-binding: t; -*-
+(defvar elpaca-installer-version 0.11)
+(defvar elpaca-directory (expand-file-name "elpaca/" user-emacs-directory))
+(defvar elpaca-builds-directory (expand-file-name "builds/" elpaca-directory))
+(defvar elpaca-repos-directory (expand-file-name "repos/" elpaca-directory))
+(defvar elpaca-order '(elpaca :repo "https://github.com/progfolio/elpaca.git"
+                              :ref nil :depth 1 :inherit ignore
+                              :files (:defaults "elpaca-test.el" (:exclude "extensions"))
+                              :build (:not elpaca--activate-package)))
+(let* ((repo  (expand-file-name "elpaca/" elpaca-repos-directory))
+       (build (expand-file-name "elpaca/" elpaca-builds-directory))
+       (order (cdr elpaca-order))
+       (default-directory repo))
+  (add-to-list 'load-path (if (file-exists-p build) build repo))
+  (unless (file-exists-p repo)
+    (make-directory repo t)
+    (when (<= emacs-major-version 28) (require 'subr-x))
+    (condition-case-unless-debug err
+        (if-let* ((buffer (pop-to-buffer-same-window "*elpaca-bootstrap*"))
+                  ((zerop (apply #'call-process `("git" nil ,buffer t "clone"
+                                                  ,@(when-let* ((depth (plist-get order :depth)))
+                                                      (list (format "--depth=%d" depth) "--no-single-branch"))
+                                                  ,(plist-get order :repo) ,repo))))
+                  ((zerop (call-process "git" nil buffer t "checkout"
+                                        (or (plist-get order :ref) "--"))))
+                  (emacs (concat invocation-directory invocation-name))
+                  ((zerop (call-process emacs nil buffer nil "-Q" "-L" "." "--batch"
+                                        "--eval" "(byte-recompile-directory \".\" 0 'force)")))
+                  ((require 'elpaca))
+                  ((elpaca-generate-autoloads "elpaca" repo)))
+            (progn (message "%s" (buffer-string)) (kill-buffer buffer))
+          (error "%s" (with-current-buffer buffer (buffer-string))))
+      ((error) (warn "%s" err) (delete-directory repo 'recursive))))
+  (unless (require 'elpaca-autoloads nil t)
+    (require 'elpaca)
+    (elpaca-generate-autoloads "elpaca" repo)
+    (let ((load-source-file-function nil)) (load "./elpaca-autoloads"))))
+(add-hook 'after-init-hook #'elpaca-process-queues)
+(elpaca `(,@elpaca-order))
+
+;; Install use-package support
+(elpaca elpaca-use-package
+  ;; Enable use-package :ensure support for Elpaca.
+  (elpaca-use-package-mode)
+  ;; Auto ensure
+  (require 'use-package-ensure)
+  (setq use-package-always-ensure t))
+
+
+
+(use-package project
+  :ensure (:wait t))
+
+(use-package emacs
+  :ensure nil
+  :custom
+  (default-frame-alist (assq-delete-all 'background-color default-frame-alist))
+  (context-menu-mode t)
+  (enable-recursive-minibuffers t)
+  (read-extended-command-predicate #'command-completion-default-include-p)
+  (read-file-name-completion-ignore-case t)
+  (read-buffer-completion-ignore-case t)
+  (completion-ignore-case t)
+  (minibuffer-prompt-properties
+   '(read-only t cursor-intangible t face minibuffer-prompt))
+  (ring-bell-function #'ignore)
+  (display-time-24hr-format t)
+  (custom-file (expand-file-name "customs.el" user-emacs-directory))
+  (history-length 10000)
+  (savehist-file (concat (or (getenv "XDG_CACHE_HOME") "~/.cache")
+                         "/emacs/history"))
+  :config
+  (blink-cursor-mode 0)
+  (set-face-attribute 'default        nil :font "Aporetic Serif Mono" :height 125)
+  (set-face-attribute 'variable-pitch nil :font "Aporetic Serif" :inherit 'default)
+  (set-face-attribute 'fixed-pitch    nil :inherit 'default)
+  (set-fontset-font t 'emoji (font-spec :family "Noto Emoji") nil 'prepend)
+
+  (server-start)
+
+  (column-number-mode 1)
+
+  (setq mode-line-compact 'long)
+
+  ;; Save all tempfiles in $TMPDIR/emacs$UID/
+  (defconst emacs-tmp-dir (expand-file-name (format "emacs%d" (user-uid)) temporary-file-directory))
+  (setq backup-directory-alist `((".*" . ,emacs-tmp-dir)))
+  (setq auto-save-file-name-transforms `((".*" ,emacs-tmp-dir t)))
+  (setq auto-save-list-file-prefix emacs-tmp-dir)
+
+  (prefer-coding-system 'utf-8)
+  (set-language-environment "UTF-8")
+  (set-default-coding-systems 'utf-8)
+  (set-terminal-coding-system 'utf-8)
+  (setq-default buffer-file-coding-system 'utf-8)
+
+  (defalias 'yes-or-no-p 'y-or-n-p))
+
+(setq default-input-method "russian-computer")
+
+(define-prefix-command 'cmmm/toggle-map nil)
+(define-key mode-specific-map (kbd "x") '("toggles" . cmmm/toggle-map))
+
+(define-prefix-command 'cmmm/application-map nil)
+(define-key mode-specific-map (kbd "a") '("applications" . cmmm/application-map))
+(define-key cmmm/application-map (kbd "w") 'woman)
+(define-key cmmm/application-map (kbd "m") 'man)
+
+(use-package modus-themes
+  :custom
+  (modus-themes-bold-constructs t)
+  (modus-themes-italic-constructs t)
+  (modus-themes-slanted-constructs t)
+  (modus-themes-mixed-fonts t)
+  (modus-themes-variable-pitch-ui t)
+  (modus-themes-common-palette-overrides '((border-mode-line-active unspecified)
+                                           (border-mode-line-inactive unspecified)
+                                           (fringe unspecified)
+                                           (fg-line-number-inactive "gray50")
+                                           (fg-line-number-active fg-main)
+                                           (bg-line-number-inactive unspecified)
+                                           (bg-line-number-active unspecified)
+                                           (bg-region bg-ochre)
+                                           (fg-region unspecified)
+                                           ;; (comment green-warmer)
+                                           ))
+  (modus-themes-headings '(((1 . (1.15))
+                            (2 . (1.1))
+                            (3 . (1.1))
+                            (4 . (1.0))
+                            (5 . (1.0))
+                            (6 . (1.0))
+                            (7 . (0.9))
+                            (8 . (0.9)))))
+  :bind
+  (:map cmmm/toggle-map
+        ("t" . modus-themes-toggle))
+  :hook (after-init . cmmm/modus-themes-load-vivendi)
+  :config
+  (defun cmmm/modus-themes-load-vivendi ()
+    (modus-themes-load-theme 'modus-vivendi))
+  ;; (modus-themes-load-theme 'modus-vivendi)
+  )
+
+(defun cmmm/sync-gtk-theme ()
+  (interactive)
+  (let ((gtk-theme (pcase (car custom-enabled-themes)
+                    ('modus-operandi "Adwaita-light")
+                    ('modus-vivendi  "Adwaita"))))
+    (shell-command (format "gsettings set org.gnome.desktop.interface gtk-theme %s" gtk-theme) nil)))
+(advice-add 'modus-themes-toggle :after 'cmmm/sync-gtk-theme)
+
+(use-package savehist
+  :ensure nil
+  :config
+  (savehist-mode))
+
+(use-package spacious-padding)
+
+(use-package subword
+  :ensure nil
+  :config
+  (global-subword-mode))
+
+(use-package ansi-color
+  :ensure nil
+  :config
+  (add-hook 'compilation-filter-hook 'ansi-color-compilation-filter)
+  (add-hook 'compilation-mode-hook 'toggle-truncate-lines))
+
+(use-package eshell
+  :ensure nil
+  :init
+  (require 'esh-mode)
+  :bind
+  (:map eshell-mode-map
+        ("C-c M-o" . eshell/clear)))
+
+(use-package eshell-syntax-highlighting
+  :config
+  (eshell-syntax-highlighting-global-mode))
+
+(use-package eshell-prompt-extras
+  :config
+  (with-eval-after-load 'em-prompt
+    (autoload 'epe-theme-lambda "eshell-prompt-extras")
+    (setq eshell-prompt-function 'epe-theme-lambda)
+    (setq eshell-highlight-prompt nil)))
+
+(setq world-clock-list
+      '(("UTC" "UTC")
+        ("Europe/Bratislava" "Bratislava")
+        ("Europe/Moscow" "Moscow")
+        ("America/La_Paz" "La Paz")))
+
+(with-eval-after-load 'xref
+          (setq xref-auto-jump-to-first-definition 'move)
+          (setq xref-auto-jump-to-first-xref 'move)
+          ;; (setq xref-prompt-for-identifier
+          ;;       '(not xref-find-definitions-other-window
+          ;;             xref-find-definitions-other-frame))
+          (setq xref-show-xrefs-function 'consult-xref)
+          (setq xref-show-definitions-function 'consult-xref))
+   
+(define-key global-map (kbd "s-d") 'dired-jump)
+(define-key global-map (kbd "s-r") 'recompile)
+(define-key global-map (kbd "s-b") 'consult-buffer)
+(define-key minibuffer-local-map (kbd "s-b") 'exit-minibuffer)
+(define-key global-map (kbd "C-x C-b") 'ibuffer)
+(defun cmmm/switch-to-prev-buffer-or-eshell (arg)
+  (interactive "P")
+  (if arg
+      (eshell arg)
+    (switch-to-buffer (other-buffer (current-buffer) 1))))
+(with-eval-after-load 'esh-mode
+  (define-key eshell-mode-map (kbd "s-e") 'cmmm/switch-to-prev-buffer-or-eshell))
+(define-key global-map (kbd "s-e") 'eshell)
+(define-key global-map (kbd "s-t") 'vterm)
+(define-key global-map (kbd "s-w") 'kill-current-buffer)
+(define-key global-map (kbd "s-W") 'kill-buffer-and-window)
+(define-key global-map (kbd "s-o") 'other-window)
+
+(use-package dired
+  :ensure nil
+  :custom
+  (dired-clean-confirm-killing-deleted-buffers nil)
+  (dired-auto-revert-buffer t)
+  (dired-listing-switches "-Alh --time-style=long-iso")
+  (dired-dwim-target t)
+  (dired-recursive-copies  'always)
+  (dired-recursive-deletes 'always)
+  (dired-omit-files (string-join '("\\`[.]?#" "\\`[.][.]?" "\\`[.].*" "\\`[_].*"
+                                   "\\`compile_commands.json"
+                                   "\\`GPATH" "\\`GRTAGS" "\\`GTAGS\\'")
+                                 "\\|"))
+  :hook
+  (dired-mode . dired-omit-mode)
+  (dired-mode . dired-hide-details-mode))
+(use-package dired-rsync)
+(use-package dired-rsync-transient
+  :after (transient dired-rsync))
+
+(defvar cmmm/monocle--previous-window-configuration nil
+          "Window configuration for restoring on monocle exit.")
+(defun cmmm/toggle-monocle (arg)
+  "Make window occupy whole frame if there are many windows. Restore
+previous window layout otherwise.  With universal argument toggles
+`global-olivetti-mode'."
+          (interactive "P")
+
+          (if arg
+              (if (and global-olivetti-mode global-hide-mode-line-mode)
+                  (progn
+                   (global-hide-mode-line-mode -1)
+                   (global-olivetti-mode -1))
+                  (progn
+                   (global-hide-mode-line-mode 1)
+                   (global-olivetti-mode 1)))
+              (if (one-window-p)
+                  (if cmmm/monocle--previous-window-configuration
+                      (let ((cur-buffer (current-buffer)))
+                        (set-window-configuration
+                         cmmm/monocle--previous-window-configuration)
+                        (setq cmmm/monocle--previous-window-configuration nil)
+                        (switch-to-buffer cur-buffer)))
+                  (setq cmmm/monocle--previous-window-configuration
+                        (current-window-configuration))
+                  (delete-other-windows))))
+(define-key global-map (kbd "s-f") 'cmmm/toggle-monocle)
+
+(use-package which-key
+  :config
+  (which-key-mode))
+
+(use-package keycast)
+
+(use-package xref
+  :ensure nil
+  :config
+  (setq xref-search-program 'ripgrep))
+
+;; https://coredumped.dev/2025/06/18/making-tramp-go-brrrr./
+(use-package tramp
+  :custom
+  (tramp-copy-size-limit (* 1024 1024)) ; 1MB
+  (tramp-use-scp-direct-remote-copying t)
+  (tramp-allow-unsafe-temporary-files t)
+  (tramp-file-name-with-method "doas")
+  (tramp-verbose 2)
+  (tramp-ssh-controlmaster-options
+   (concat "-o ControlPath=/tmp/ssh-ControlPath-%%r@%%h:%%p "
+           "-o ControlMaster=auto -o ControlPersist=yes"))
+  (tramp-use-connection-share nil)
+  :config
+  (connection-local-set-profile-variables
+   'vps-profile
+   '((dired-listing-switches . "-Alh --full-time")))
+
+  (connection-local-set-profiles
+   '(:application tramp :machine "vps")
+   'vps-profile)
+
+  (connection-local-set-profile-variables
+   'remote-profile
+    `((tramp-direct-async-process . t)      
+      (vc-ignore-dir-regexp . ,(format "\\(%s\\)\\|\\(%s\\)"
+                                       vc-ignore-dir-regexp
+                                       tramp-file-name-regexp))))
+
+  (connection-local-set-profiles
+   '(:application tramp :protocol "ssh")
+   'remote-profile)
+
+  (with-eval-after-load 'compile
+    (remove-hook 'compilation-mode-hook #'tramp-compile-disable-ssh-controlmaster-options)))
+
+(use-package vc-hooks
+  :ensure nil
+  :config
+  (setq vc-handled-backends '(Git)))
+
+(use-package files
+  :ensure nil
+  :custom
+  (remote-file-name-inhibit-locks t)
+  (remote-file-name-inhibit-cache t)
+  (remote-file-name-inhibit-delete-by-moving-to-trash t))
+
+(use-package treesit
+  :ensure nil
+  :custom
+  (treesit-language-source-alist
+   '((c "https://github.com/tree-sitter/tree-sitter-c")
+     (cpp "https://github.com/tree-sitter/tree-sitter-cpp")
+     (json "https://github.com/tree-sitter/tree-sitter-json")
+     (cmake "https://github.com/uyha/tree-sitter-cmake")
+     (python "https://github.com/tree-sitter/tree-sitter-python")))
+  (treesit-font-lock-level 4)
+  (add-to-list 'major-mode-remap-alist (c-mode . c-ts-mode))
+  (add-to-list 'major-mode-remap-alist (c++-m ode . c++-ts-mode))
+  (add-to-list 'major-mode-remap-alist (json- mode . json-ts-mode))
+  (add-to-list 'major-mode-remap-alist (pytho n-mode . python-ts-mode))
+  :hook
+  (c-ts-mode . c-ts-mode-toggle-comment-style))
+
+(use-package olivetti
+  :config
+  (add-hook 'org-mode-hook 'olivetti-mode)
+  (define-key cmmm/toggle-map (kbd "o") 'olivetti-mode)
+  (define-key cmmm/toggle-map (kbd "O") 'global-olivetti-mode))
+
+(use-package hide-mode-line
+  :config
+  (define-key cmmm/toggle-map (kbd "m") 'hide-mode-line-mode)
+  (define-key cmmm/toggle-map (kbd "M") 'global-hide-mode-line-mode))
+
+(use-package helpful
+  :custom
+  (help-window-select t)
+  :bind (:map help-map
+         ("o" . helpful-at-point))
+  :init
+  (with-eval-after-load 'embark
+    (define-key embark-symbol-map (vector 'remap 'describe-symbol) 'helpful-symbol)
+    (let ((map embark-become-help-map))
+      (define-key map (vector 'remap 'describe-function) 'helpful-callable)
+      (define-key map (vector 'remap 'describe-variable) 'helpful-variable)
+      (define-key map (vector 'remap 'describe-symbol) 'helpful-symbol)
+      (define-key map (vector 'remap 'describe-command) 'helpful-command)))
+  (add-hook 'helpful-mode-hook 'visual-line-mode)
+  (let ((map global-map))
+    (define-key map (vector 'remap 'describe-function    ) 'helpful-callable)
+    (define-key map (vector 'remap 'describe-variable    ) 'helpful-variable)
+    (define-key map (vector 'remap 'describe-key         ) 'helpful-key     )
+    (define-key map (vector 'remap 'describe-command     ) 'helpful-command )
+    (define-key map (vector 'Info-goto-emacs-command-node) 'helpful-function)))
+
+(use-package lorem-ipsum)
+
+(use-package crontab-mode)
+(defun cmmm/crontab-e ()
+  "Run `crontab -e' in a emacs buffer."
+  (interactive)
+  (with-editor-async-shell-command "crontab -e" nil nil "VISUAL"))
+(define-key cmmm/application-map (kbd "c") 'cmmm/crontab-e)
+
+(add-hook 'comint-preoutput-filter-functions 'ansi-color-apply nil t)
+
+(use-package dashboard
+  :custom (dashboard-center-content t)
+  :config
+  (add-hook 'elpaca-after-init-hook #'dashboard-insert-startupify-lists)
+  (add-hook 'elpaca-after-init-hook #'dashboard-initialize)
+  (dashboard-setup-startup-hook))
+
+(unload-feature 'eldoc t)
+(setq custom-delayed-init-variables '())
+(defvar global-eldoc-mode nil)
+(elpaca eldoc
+  (require 'eldoc)
+  (global-eldoc-mode))
+(use-package flymake
+  :after (eldoc))
+(use-package jsonrpc)
+(use-package eglot
+  :after (eldoc)
+  :config
+  (defun cmmm/eglot-dissable-features ()
+    (eglot-inlay-hints-mode -1)
+    (flymake-mode -1))
+  :hook
+  (eglot-managed-mode . cmmm/eglot-dissable-features)
+  (c-mode   . eglot-ensure)
+  (c++-mode . eglot-ensure))
+
+(use-package orderless
+  :init
+  (setq orderless-component-separator
+        #'orderless-escapable-split-on-space)
+  :custom
+  (completion-styles '(orderless basic))
+  (completion-category-defaults nil)
+  (completion-category-overrides '((file (styles partial-completion)))))
+
+(use-package simple-modeline
+  :init
+  (defun cmmm/move-modeline-to-header ()
+    (setq-default header-line-format mode-line-format)
+    (setq-default mode-line-format nil))
+  (defun cmmm/simple-modeline-segment-spacer ()
+    "        ")
+  :custom
+  (simple-modeline-segments '((simple-modeline-segment-modified
+                               simple-modeline-segment-buffer-name
+                               cmmm/simple-modeline-segment-spacer
+                               simple-modeline-segment-major-mode
+                               cmmm/simple-modeline-segment-spacer
+                               simple-modeline-segment-position)
+                              (simple-modeline-segment-input-method
+                               simple-modeline-segment-vc
+                               simple-modeline-segment-misc-info
+                               simple-modeline-segment-process)))
+  :hook
+  (after-init . simple-modeline-mode)
+  (simple-modeline-mode . cmmm/move-modeline-to-header))
+
+(use-package marginalia
+  :config
+  (marginalia-mode))
+
+(use-package vertico
+  :init
+  (vertico-mode)
+  ;; (setq vertico-scroll-margin 0)
+  ;; (setq vertico-count 20)
+  ;; (setq vertico-resize t)
+  (vertico-multiform-mode)
+  :bind
+  (:map vertico-map
+   ("M-?"   . minibuffer-completion-help)
+   ("M-RET" . minibuffer-force-complete-and-exit)
+   ("M-TAB" . minibuffer-complete))
+
+  :custom
+  (vertico-cycle t)
+  (vertico-multiform-categories
+   '((consult-grep buffer)
+     (imenu buffer)
+     (buffer)
+     ;; (file buffer)
+     ;; (project-file buffer)
+     (info-menu buffer)
+     (consult-org-heading buffer)
+     (consult-history buffer)
+     (consult-lsp-symbols buffer)
+     (consult-xref buffer)
+     (embark-keybinding buffer)
+     (consult-location buffer)))
+  (vertico-multiform-commands
+   '((telega-chat-with buffer)
+     (magit:--author flat)
+     ;; For some reason it doesn't have an info-menu
+     ;; category and also setting
+     ;; marginalia-command-categories doesn't help
+     ;; (org-roam-node-find buffer)
+     (Info-goto-node buffer)
+     (info-lookup-symbol buffer)
+     (Info-follow-reference buffer)
+     (consult-yank-pop buffer)))
+  :bind
+  (("s-s" . vertico-repeat))
+  :hook
+  (minibuffer-setup . vertico-repeat-save)
+  :config
+  (advice-add
+   'vertico--format-candidate :around
+   (lambda (orig cand prefix suffix index _start)
+     (let ((cand (funcall orig cand prefix suffix index _start)))
+       (concat
+        (if (= vertico--index index)
+            (propertize "» " 'face 'vertico-current)
+          "  ")
+        cand))))
+
+  ;; TODO(cmmm): add monocle support
+
+  (with-eval-after-load
+      'minibuffer
+    (setq completion-in-region-function 'consult-completion-in-region)))
+
+(use-package consult
+  :init
+  (require 'em-hist)
+  :bind
+  (;; C-c bindings in `mode-specific-map'
+         ("C-c M-x" . consult-mode-command)
+         ("C-c h" . consult-history)
+         ("C-c k" . consult-kmacro)
+         ("C-c m" . consult-man)
+         ("C-c i" . consult-info)
+         ([remap Info-search] . consult-info)
+         ;; C-x bindings in `ctl-x-map'
+         ("C-x M-:" . consult-complex-command)     ;; orig. repeat-complex-command
+         ("C-x b" . consult-buffer)                ;; orig. switch-to-buffer
+         ("C-x 4 b" . consult-buffer-other-window) ;; orig. switch-to-buffer-other-window
+         ("C-x 5 b" . consult-buffer-other-frame)  ;; orig. switch-to-buffer-other-frame
+         ("C-x r b" . consult-bookmark)            ;; orig. bookmark-jump
+         ("C-x p b" . consult-project-buffer)      ;; orig. project-switch-to-buffer
+         ;; Custom M-# bindings for fast register access
+         ("M-#" . consult-register-load)
+         ("M-'" . consult-register-store)          ;; orig. abbrev-prefix-mark (unrelated)
+         ("C-M-#" . consult-register)
+         ;; Other custom bindings
+         ("M-y" . consult-yank-pop)                ;; orig. yank-pop
+         ;; M-g bindings in `goto-map'
+         ("M-g e" . consult-compile-error)
+         ("M-g f" . consult-flymake)               ;; Alternative: consult-flycheck
+         ("M-g g" . consult-goto-line)             ;; orig. goto-line
+         ("M-g M-g" . consult-goto-line)           ;; orig. goto-line
+         ("M-g o" . consult-outline)               ;; Alternative: consult-org-heading
+         ("M-g m" . consult-mark)
+         ("M-g k" . consult-global-mark)
+         ("M-g i" . consult-imenu)
+         ("M-g I" . consult-imenu-multi)
+         ;; M-s bindings in `search-map'
+         ("M-s d" . consult-find)                  ;; Alternative: consult-fd
+         ("M-s D" . consult-locate)
+         ("M-s g" . consult-grep)
+         ("M-s G" . consult-git-grep)
+         ("M-s r" . consult-ripgrep)
+         ("M-s l" . consult-line)
+         ("M-s L" . consult-line-multi)
+         ("M-s k" . consult-keep-lines)
+         ("M-s u" . consult-focus-lines)
+         ;; Isearch integration
+         ("M-s e" . consult-isearch-history)
+         :map isearch-mode-map
+         ("M-e" . consult-isearch-history)   ;; orig. isearch-edit-string
+         ("M-s e" . consult-isearch-history) ;; orig. isearch-edit-string
+         ("M-s l" . consult-line)            ;; needed by consult-line to detect isearch
+         ("M-s L" . consult-line-multi)      ;; needed by consult-line to detect isearch
+         ;; Minibuffer history
+         :map minibuffer-local-map
+         ("M-s" . consult-history) ;; orig. next-matching-history-element
+         ("M-r" . consult-history) ;; orig. previous-matching-history-element
+         :map eshell-hist-mode-map
+         ("M-r" . consult-history))
+
+  ;; Enable automatic preview at point in the *Completions* buffer. This is
+  ;; relevant when you use the default completion UI.
+  :hook (completion-list-mode . consult-preview-at-point-mode)
+  :init
+  ;; Optionally configure the register formatting. This improves the register
+  ;; preview for `consult-register', `consult-register-load',
+  ;; `consult-register-store' and the Emacs built-ins.
+  (setq register-preview-delay 0.5
+        register-preview-function #'consult-register-format)
+
+  ;; Optionally tweak the register preview window.
+  ;; This adds thin lines, sorting and hides the mode line of the window.
+  (advice-add #'register-preview :override #'consult-register-window)
+
+  ;; Use Consult to select xref locations with preview
+  (setq xref-show-xrefs-function #'consult-xref
+        xref-show-definitions-function #'consult-xref)
+
+  ;; Configure other variables and modes in the :config section,
+  ;; after lazily loading the package.
+  :config
+
+  ;; Optionally configure preview. The default value
+  ;; is 'any, such that any key triggers the preview.
+  ;; (setq consult-preview-key 'any)
+  ;; (setq consult-preview-key "M-.")
+  ;; (setq consult-preview-key '("S-<down>" "S-<up>"))
+  ;; For some commands and buffer sources it is useful to configure the
+  ;; :preview-key on a per-command basis using the `consult-customize' macro.
+  (consult-customize
+   consult-theme :preview-key '(:debounce 0.2 any)
+   consult-ripgrep consult-git-grep consult-grep
+   consult-bookmark consult-recent-file consult-xref
+   ;; :preview-key "M-."
+   :preview-key '(:debounce 0.4 any))
+
+  ;; Optionally configure the narrowing key.
+  ;; Both < and C-+ work reasonably well.
+  (setq consult-narrow-key "<") ;; "C-+"
+
+  ;; Optionally make narrowing help available in the minibuffer.
+  ;; You may want to use `embark-prefix-help-command' or which-key instead.
+  ;; (define-key consult-narrow-map (vconcat consult-narrow-key "?") #'consult-narrow-help)
+  )
+
+(use-package corfu
+  :custom
+  (corfu-min-width 60)
+  (corfu-cycle t)                ;; Enable cycling for `corfu-next/previous'
+  (corfu-auto t)                 ;; Enable auto completion
+  (corfu-separator ?\s)          ;; Orderless field separator
+  (corfu-preview-current nil)    ;; Disable current candidate preview
+  (corfu-preselect 'prompt)      ;; Preselect the prompt
+  (corfu-scroll-margin 2)        ;; Use scroll margin
+  :init
+  (global-corfu-mode)
+  (corfu-echo-mode)
+  (corfu-history-mode)
+  :bind
+  (:map corfu-map
+   ("M-SPC" . corfu-insert-separator)))
+
+;; cloning failed -- busy
+;; (use-package corfu-candidate-overylay)
+
+(use-package detached
+  :init
+  (detached-init)
+  :bind
+  (;; Replace `async-shell-command' with `detached-shell-command'
+   ([remap async-shell-command] . detached-shell-command)
+   ;; Replace `compile' with `detached-compile'
+   ;; For recompile buffer has to have session... bad
+   ;; ([remap compile] . detached-compile)
+   ;; ([remap recompile] . detached-compile-recompile)
+   ;; Replace built in completion of sessions with `consult'
+   ([remap detached-open-session] . detached-consult-session))
+  :custom
+  (detached-init-block-list '(nano-modeline projectile))
+  (detached-show-output-on-attach t)
+  (detached-terminal-data-command system-type)
+  (detached-metadata-annotators-alist '((branch . detached--metadata-git-branch)))
+  (detached-degraded-commands '("^ls ")))
+
+(use-package simple
+  :ensure nil
+  :custom
+  (display-fill-column-indicator-column 79)
+  :config
+  (indent-tabs-mode -1)
+  :hook
+  (prog-mode . display-fill-column-indicator-mode))
+
+(use-package copyright
+  :ensure nil
+  :config
+  (setq copyright-names-regexp
+        (format "%s <%s>" user-full-name user-mail-address))
+  (add-hook 'after-save-hook (lambda () (copyright-update nil nil))))
+
+(use-package flyspell
+  :ensure nil
+  :config
+  (defun cmmm/flyspell-on-for-buffer-type
+         ()
+         "Enable Flyspell appropriately for the major mode of the current\nbuffer.  Uses `flyspell-prog-mode' for modes derived from `prog-mode',\nso only strings and comments get checked.  All other buffers get\n`flyspell-mode' to check all text.  If flyspell is already enabled,\ndoes nothing."
+         (if (not (symbol-value flyspell-mode))
+           (progn (if (derived-mode-p 'prog-mode)
+                    (progn (message "Flyspell on (code)") (flyspell-prog-mode))
+                    (progn (message "Flyspell on (text)")
+                           (flyspell-mode 1))))))
+  (defun cmmm/flyspell-toggle
+         ()
+         "Turn Flyspell on if it is off, or off if it is on.  When turning\non, it uses `flyspell-on-for-buffer-type' so code-vs-text is\nhandled appropriately."
+         (interactive)
+         (if (symbol-value flyspell-mode)
+           (progn (message "Flyspell off") (flyspell-mode -1))
+           (cmmm/flyspell-on-for-buffer-type)))
+  (setq flyspell-consider-dash-as-word-delimiter-flag t)
+  (define-key global-map (kbd "C-c x s") 'cmmm/flyspell-toggle)
+  (add-hook 'telega-chat-mode-hook 'cmmm/flyspell-on-for-buffer-type)
+  (add-hook 'text-mode-hook 'cmmm/flyspell-on-for-buffer-type)
+  (add-hook 'prog-mode-hook 'cmmm/flyspell-on-for-buffer-type))
+
+(use-package embark
+  :bind
+  (("s-." . embark-act)
+   ("s->" . embark-become)
+   :map embark-general-map
+   ("R n" . eglot-rename)
+   ("R g" . rg-project)))
+(use-package embark-consult)
+
+(setq nobreak-char-display nil)
+
+(use-package trashed
+  :custom
+  (delete-by-moving-to-trash t))
+
+(use-package page-break-lines
+  :custom
+  (page-break-lines-modes '(prog-mode conf-mode
+                            compilation-mode outline-mode help-mode))
+  :config
+  (global-page-break-lines-mode))
+
+(use-package pdf-tools
+  :demand t
+  :hook (pdf-view-mode . pdf-view-themed-minor-mode)
+  :custom
+  ;; Enable seamless scrolling between pages
+  (pdf-view-continuous-scroll-mode t)
+  ;; Use normal Emacs keybindings for scrolling
+  (pdf-view-continuous-scroll-keystrokes nil)
+  (pdf-view-display-size 'fit-page)
+  (pdf-view-use-scaling t)
+  (pdf-view-resize-factor 1.025)
+  :config
+  ;; Initialize the package
+  (pdf-tools-install)
+  ;; Associate pdf-view-mode with PDF files
+  (add-to-list 'auto-mode-alist '("\\.[pP][dD][fF]\\'" . pdf-view-mode))
+  (add-to-list 'magic-mode-alist '("%PDF" . pdf-view-mode))
+  (with-eval-after-load 'saveplace
+    (require 'saveplace-pdf-view)))
+
+(use-package nov
+  :custom
+  (nov-text-width t)
+  :config
+  (add-to-list 'auto-mode-alist '("\\.epub\\'" . nov-mode))
+  (require 'justify-kp)
+  (defun cmmm/nov-window-configuration-change-hook ()
+    (cmmm/nov-post-html-render-hook)
+    (remove-hook 'window-configuration-change-hook
+                 'cmmm/nov-window-configuration-change-hook
+                 t))
+  (defun cmmm/nov-post-html-render-hook ()
+    (if (get-buffer-window)
+        (let ((max-width (pj-line-width))
+              buffer-read-only)
+          (save-excursion
+            (goto-char (point-min))
+            (while (not (eobp))
+              (when (not (looking-at "^[[:space:]]*$"))
+                (goto-char (line-end-position))
+                (when (> (shr-pixel-column) max-width)
+                  (goto-char (line-beginning-position))
+                  (pj-justify)))
+              (forward-line 1))))
+      (add-hook 'window-configuration-change-hook
+                'cmmm/nov-window-configuration-change-hook
+                nil t)))
+  :hook
+  (nov-mode . olivetti-mode)
+  (nov-post-html-render-hook . cmmm/nov-post-html-render-hook))
+
+(use-package vterm)
+(use-package eat)
+
+(use-package telega
+  :custom
+  (telega-server-libs-prefix "/usr")
+  (telega-chat-fill-column 70)
+  (telega-open-file-function 'embark-open-externally)
+  (telega-open-message-as-file '(video audio voice-note animation video-note))
+  :config
+  (defun cmmm/telega-chatbuf-attach-markdown2 ()
+    (interactive)
+    (telega-chatbuf-attach-markup "markdown2"))
+  :bind
+  (:map cmmm/application-map
+   ("t" . telega)
+   :map telega-root-mode-map
+   ("s-B" . telega-chat-with)
+   :map telega-chat-mode-map
+   ("s-B" . telega-chat-with)
+   ("C-c C-m" . cmmm/telega-chatbut-attach-markdown2))
+  :hook (telega-load-hook . telega-notifications-mode))
+
+(use-package highlight-doxygen
+  :config
+  (highlight-doxygen-global-mode)
+  (set-face-background 'highlight-doxygen-comment nil))
+
+(setq ispell-program-name "aspell")
+(defun cmmm/ispell-change-dictionary-input-method
+       ()
+       (ispell-change-dictionary
+        (pcase current-input-method-title
+          ("RU" "ru-yeyo")
+          ("SK" "sk"))))
+(add-hook
+  'input-method-activate-hook
+  'cmmm/ispell-change-dictionary-input-method)
+(add-hook
+  'input-method-deactivate-hook
+  'cmmm/ispell-change-dictionary-input-method)
+;; (defun cmmm/sync-cursor-color ()
+;;   (set-cursor-color (if current-input-method "orange" "white")))
+;; (add-hook 'post-command-hook 'cmmm/sync-cursor-color)
+
+(use-package multiple-cursors
+  :bind
+  (("C-S-c"     . mc/edit-lines)
+   ("C->"       . mc/mark-next-like-this)
+   ("C-<"       . mc/mark-previous-like-this)
+   ("C-c C-S-c" . mc/mark-all-like-this)
+   ("C-\""      . mc/skip-to-next-like-this)
+   ("C-:"       . mc/skip-to-previous-like-this)))
+
+(use-package expand-region
+  :bind
+  (("C-=" . er/expand-region)))
+
+(use-package move-text
+  :config
+  (define-key global-map (kbd "M-P") 'move-text-up)
+  (define-key global-map (kbd "M-N") 'move-text-down))
+(define-key global-map (kbd "C-'") 'duplicate-dwim)
+(setq duplicate-line-final-position 1)
+
+(use-package hl-todo
+  :config
+  (global-hl-todo-mode 1))
+
+(use-package ligature
+  :config
+  (ligature-set-ligatures
+   't '("-<<" "-<" "-<-" "<--" "<---" "<<-" "<-" "->" "->>" "-->" "--->" "->-" ">-" ">>-"
+        "=<<" "=<" "=<=" "<==" "<===" "<<=" "<=" "=>" "=>>" "==>" "===>" "=>=" ">=" ">>="
+        "<->" "<-->" "<--->" "<---->" "<=>" "<==>" "<===>" "<====>" "::" ":::" "__"
+        "<~~" "</" "</>" "/>" "~~>" "==" "!=" "/=" "~=" "<>" "===" "!==" "!===" "=/=" "=!="
+        "<:" ":=" "*=" "*+" "<*" "<*>" "*>" "<|" "<|>" "|>" "<." "<.>" ".>" "+*" "=*" "=:" ":>"
+        "(*" "*)" "/*" "*/" "[|" "|]" "{|" "|}" "++" "+++" "\\/" "/\\" "|-" "-|" "<!--" "<!---"))
+  (global-ligature-mode -1))
+
+(use-package bluetooth)
+(use-package iwd-manager
+  :bind
+  (:map iwd-manager-mode-map
+        ("s" . iwd-manager-scan)
+        ("f" . iwd-manager-delete-network)
+        ("c" . iwd-manager-connect)
+        ("d" . iwd-manager-disconnect)))
+
+(with-eval-after-load
+  'org
+  (setq org-agenda-include-diary t)
+  (setq org-agenda-hide-tags-regexp "agenda")
+  (defun cmmm/refresh-org-agenda-files
+         ()
+         "Refresh org agenda files."
+         (interactive)
+         (setq org-agenda-files
+               (butlast
+                 (split-string
+                   (shell-command-to-string
+                     (string-join
+                       '("find ~/documents/ -type f -name ORG"
+                         "-or -name '*.org' -and -not -name '.*'"
+                         "| xargs -d'\n' grep -li '^#+FILETAGS:.*agenda'")
+                       " "))
+                   "\n"))))
+  (cmmm/refresh-org-agenda-files))
+(setq consult-find-args "find .")
+(setq consult-ripgrep-args
+      "rg --null --line-buffered --color=never --max-columns=1000 --path-separator / --smart-case --no-heading --with-filename --line-number --search-zip --unrestricted --follow")
+;; (ligature-set-ligatures 't '("-<<" "-<" "-<-" "<--" "<---" "<<-" "<-" "->" "->>" "-->" "--->" "->-" ">-" ">>-" "=<<" "=<" "=<=" "<==" "<===" "<<=" "<=" "=>" "=>>" "==>" "===>" "=>=" ">=" ">>=" "<->" "<-->" "<--->" "<---->" "<=>" "<==>" "<===>" "<====>" "::" ":::" "__" "<~~" "</" "</>" "/>" "~~>" "==" "!=" "/=" "~=" "<>" "===" "!==" "!===" "=/=" "=!=" "<:" ":=" "*=" "*+" "<*" "<*>" "*>" "<|" "<|>" "|>" "<." "<.>" ".>" "+*" "=*" "=:" ":>" "(*" "*)" "/*" "*/" "[|" "|]" "{|" "|}" "++" "+++" "\\/" "/\\" "|-" "-|" "<!--" "<!---"))
+(with-eval-after-load 'org (setq org-image-actual-width nil))
+(setq browse-url-browser-function
+      'eww-browse-url
+      shr-use-fonts
+      nil
+      shr-use-colors
+      nil
+      shr-width
+      70)
+(repeat-mode 1)
+
+;; (global-hl-todo-mode 1)
+
+;; (set-face-attribute
+;;   'page-break-lines
+;;   nil
+;;   :foreground
+;;   'unspecified
+;;   :inherit
+;;   'font-lock-comment-face)
+;; (setq page-break-lines-modes
+;;       '(text-mode fundemental-mode prog-mode special-mode conf-mode))
+;; (global-page-break-lines-mode)
+
+(defun cmmm/find-proxy-for-url
+       (url host)
+       (let ((ipv4 (dns-query host 'A)) (ipv6 (dns-query host 'AAAA)))
+         (cond ((or (equal ipv4 "127.0.0.1")
+                    (equal ipv6 "::1")
+                    (and ipv6
+                         (eq 3 (string-search ":" ipv6))
+                         (or (string-prefix-p "2" ipv6)
+                             (string-prefix-p "3" ipv6)))
+                    (and (assoc "no_proxy" url-proxy-services)
+                         (string-match
+                           (cdr (assoc "no_proxy" url-proxy-services))
+                           host)))
+                "DIRECT")
+               ((string-suffix-p ".i2p" host) "PROXY 127.0.0.1:4444")
+               ((string-suffix-p ".onion" host) "PROXY 127.0.0.1:9052")
+               (t "PROXY 324:71e:281a:9ed3::fa11:3128"))))
+(setq url-proxy-services
+      '(("no_proxy" . "^\\(.*\\.\\)?michalec.dev$"))
+      url-privacy-level
+      'paranoid
+      url-proxy-locator
+      'cmmm/find-proxy-for-url)
+(c-add-style
+  "cosmos"
+  '((c-basic-offset . 2)
+    (indent-tabs-mode . nil)
+    (c-backslash-column . 0)
+    (c-backslash-max-column . 79)
+    (c-doc-comment-style . doxygen)
+    (comment-style . extra-line)
+    (c-tab-always-indent . t)
+    (c-comment-only-line-offset . 0)
+    (c-electric-pound-behavior alignleft)
+    (c-cleanup-list brace-else-brace brace-elseif-brace defun-close-semi)
+    (c-offsets-alist
+      (substatement-open . 0)
+      (func-decl-cont . 0)
+      (topmost-intro-cont . 0)
+      (inline-open . +)
+      (block-open . 0)
+      (brace-list-entry . c-lineup-2nd-brace-entry-in-arglist)
+      (statement-cont c-lineup-ternary-bodies c-lineup-string-cont +)
+      (case-label . +)
+      (statement-case-intro . +)
+      (label . 0)
+      (defun-block-intro . +)
+      (substatement-open . 0)
+      (inline-open . 0)
+      (arglist-cont
+        c-lineup-ternary-bodies
+        c-lineup-argcont
+        c-lineup-arglist-operators)
+      (arglist-cont-nonempty
+        c-lineup-ternary-bodies
+        c-lineup-argcont
+        c-lineup-arglist
+        c-lineup-arglist-operators)
+      (arglist-close . 0)
+      (comment-intro . 0))))
+(setq c-default-style "cosmos")
+(defun cmmm/c-initialization
+       ()
+       (keymap-set c-mode-base-map "C-m" 'c-context-line-break))
+(add-hook 'c-initialization-hook 'cmmm/c-initialization)
+(defun cmmm/c-mode-common
+       ()
+       (face-remap-add-relative 'font-lock-variable-name-face 'default)
+       (face-remap-add-relative 'font-lock-function-name-face 'default)
+       (c-toggle-comment-style -1)
+       (subword-mode 1))
+(add-hook 'c-mode-common-hook 'cmmm/c-mode-common)
+;; (global-prettify-symbols-mode 1)
+
+(add-to-list 'auto-mode-alist '("\\.info\\'" . Info-on-current-buffer))
+
+(use-package hideshow
+  :ensure nil
+  :config
+  (add-hook 'prog-mode-hook 'hs-minor-mode)
+  (define-key hs-minor-mode-map (kbd "C-c h s") 'hs-show-block)
+  (define-key hs-minor-mode-map (kbd "C-c h h") 'hs-hide-block)
+  (define-key hs-minor-mode-map (kbd "C-c h S") 'hs-show-all)
+  (define-key hs-minor-mode-map (kbd "C-c h H") 'hs-hide-all))
+
+(with-eval-after-load 'info+ (setq Info-fontify-emphasis-flag nil))
+(with-eval-after-load
+  'info-look
+  (setq info-lookup-cache nil)
+  (info-lookup-add-help
+    :topic
+    'symbol
+    :mode
+    'c-mode
+    :regexp
+    (info-lookup->regexp 'symbol 'c-mode)
+    :doc-spec
+    (append
+      (info-lookup->doc-spec 'symbol 'c-mode)
+      '(("(mpfr)Function and Type Index"
+         nil
+         "^[ \t]+-+ \\(Function\\|Macro\\): .*\\<"
+         "\\>")
+        ("(gmp)Function Index"
+         nil
+         "^[ \t]+-+ \\(Function\\|Macro\\): .*\\<"
+         "\\>")
+        ("(gsl-ref)Index"
+         nil
+         "^[ \t]+-+ \\(Function\\|Macro\\|Variable\\): .*\\<"
+         "\\>")
+        ("(gcc)Concept and Symbol Index"
+         nil
+         "^[ \t]+-+ \\(Built-in Function\\): .*\\<"
+         "\\>")))
+    :parse-rule
+    (info-lookup->parse-rule 'symbol 'c-mode))
+  (info-lookup-maybe-add-help
+    :topic
+    'symbol
+    :mode
+    'c-ts-mode
+    :regexp
+    (info-lookup->regexp 'symbol 'c-mode)
+    :parse-rule
+    (info-lookup->parse-rule 'symbol 'c-mode)
+    :other-modes
+    '(c-mode)))
+(setq xref-search-program 'ripgrep)
+
+(auto-insert-mode t)
+(setf (alist-get
+        '("\\.\\([Hh]\\|hh\\|hpp\\|hxx\\|h\\+\\+\\)\\'" . "C / C++ header")
+        auto-insert-alist
+        nil
+        nil
+        'equal)
+      '((concat
+          "INCLUDED_"
+          (replace-regexp-in-string
+            "[^A-Z0-9]"
+            "_"
+            (string-replace
+              "+"
+              "P"
+              (upcase (file-name-nondirectory buffer-file-name)))))
+        "#ifndef "
+        str
+        n
+        "#define "
+        str
+        n
+        n
+        _
+        n
+        n
+        "#endif // "
+        str))
+;; (with-eval-after-load
+;;   'org
+;;   (require 'ob-emacs-lisp)
+;;   (require 'ob-latex)
+;;   (require 'ob-octave)
+;;   (require 'ob-scheme)
+;;   (require 'ob-sql)
+;;   (require 'ob-shell)
+;;   (require 'ob-dot)
+;;   (require 'ox-extra)
+;;   (ox-extras-activate '(ignore-headlines)))
+
+;; (setq transmission-refresh-interval 1)
+;; (setq transmission-refresh-modes
+;;       '(transmission-mode
+;;          transmission-files-mode
+;;          transmission-info-mode
+;;          transmission-peers-mode))
+
+(use-package transient
+  :ensure (:wait t))
+(use-package magit
+  :after (transient)
+  :custom
+  (magit-tramp-pipe-stty-settings 'pty)
+  (magit-clone-default-directory "~/downloads/repos/"))
+
+(use-package git-gutter
+  :custom
+  (git-gutter:modified-sign "~")
+  :config
+  (global-git-gutter-mode t))
+
+(use-package substitute
+  :config
+  (define-key global-map (kbd "C-c C-s") 'substitute-target-in-buffer))
+
+(auto-insert-mode t)
+(setf (alist-get
+        '("\\.\\([Hh]\\|hh\\|hpp\\|hxx\\|h\\+\\+\\)\\'" . "C / C++ header")
+        auto-insert-alist
+        nil
+        nil
+        'equal)
+      '((concat
+          "INCLUDED_"
+          (replace-regexp-in-string
+            "[^A-Z0-9]"
+            "_"
+            (string-replace
+              "+"
+              "P"
+              (upcase (file-name-nondirectory buffer-file-name)))))
+        "#ifndef "
+        str
+        n
+        "#define "
+        str
+        n
+        n
+        _
+        n
+        n
+        "#endif // "
+        str))
+
+(use-package org
+  :ensure (:wait t)
+  :custom
+  (org-src-preserve-indentation t)
+  :config
+  (keymap-unset org-mode-map "C-'")
+  (keymap-unset org-mode-map "C-,"))
+
+(use-package org-modern
+  :config
+  (global-org-modern-mode))
+
+(use-package org-contrib
+  :config
+  ;; (ox-extras-activate '(ignore-headlines))
+  (setq org-use-speed-commands t))
+
+(use-package ox-rss)
+(use-package htmlize)
+
+(use-package smartparens
+  :after (org)
+  :custom
+  (sp-highlight-pair-overlay nil)
+  :config
+  (require 'smartparens-config)
+  (sp-use-smartparens-bindings)
+  (define-key smartparens-mode-map (kbd "M-S") 'sp-forward-slurp-sexp)
+  (keymap-unset smartparens-mode-map "C-<right>")
+  (keymap-unset smartparens-mode-map "M-<right>")
+  (keymap-unset smartparens-mode-map "C-M-<right>")
+  (keymap-unset smartparens-mode-map "C-<left>")
+  (keymap-unset smartparens-mode-map "M-<left>")
+  (keymap-unset smartparens-mode-map "C-M-<left>")
+  ;; (keymap-unset smartparens-mode-map "M-<backspace>")
+  (smartparens-global-mode t)
+  (show-paren-mode -1)
+  (show-smartparens-global-mode t))
+
+(setq transmission-refresh-interval 1)
+(setq transmission-refresh-modes
+      '(transmission-mode
+         transmission-files-mode
+         transmission-info-mode
+         transmission-peers-mode))
+
+(use-package cape)
+(use-package company)
+
+(use-package notmuch
+  :init
+  (defvar cmmm/notmuch-todo-tags '("+todo" "-inbox"))
+  (defvar cmmm/notmuch-spam-tags '("+spam" "-inbox"))
+  (defvar cmmm/notmuch-trash-tags '("+trash" "-inbox" "-draft"))
+  (defvar cmmm/notmuch-delete-tags '("+deleted" "-inbox" "-draft"))
+
+  (defun cmmm/notmuch-search-watch ()
+    (interactive)
+    (notmuch-tag
+     (concat
+      "id:" (car (notmuch-query-get-message-ids
+                  (notmuch-search-find-thread-id))))
+     (list "+watch"))
+    (notmuch-tree-next-message))
+
+  (defun cmmm/notmuch-search-trash ()
+    (interactive)
+    (notmuch-search-add-tag cmmm/notmuch-trash-tags)
+    (notmuch-tree-next-message))
+
+  (defun cmmm/notmuch-search-delete ()
+    (interactive)
+    (notmuch-search-add-tag cmmm/notmuch-delete-tags)
+    (notmuch-tree-next-message))
+
+  (defun cmmm/notmuch-search-todo ()
+    (interactive)
+    ;; TODO: Change it to only matched, not the whole thread
+    (notmuch-search-add-tag cmmm/notmuch-todo-tags)
+    (notmuch-tree-next-message))
+
+  :bind
+  (("s-m" . notmuch-jump-search)
+   :map cmmm/application-map
+   ("n" . notmuch)
+   :map notmuch-show-part-map
+   ("d" . cmmm/notmuch-show-view-as-patch)
+   ("h" . cmmm/notmuch-show-view-html-part)
+   :map notmuch-search-mode-map
+   ("w" . cmmm/notmuch-search-watch)
+   ("d" . cmmm/notmuch-search-trash)
+   ("D" . cmmm/notmuch-search-delete)
+   ("T" . cmmm/notmuch-search-todo))
+  :custom
+  ;; (notmuch-saved-searches '())
+  (notmuch-search-oldest-first t)
+  (mail-user-agent 'notmuch-user-agent)
+  (notmuch-message-headers '("Subject" "To" "Cc" "Reply-To" "Date"))
+  (notmuch-fcc-dirs '(("martin@michalec.dev" . "accounts/professional/sent +sent")
+                      ("martin.michalec.2003@gmail.com" . "accounts/personal/sent +sent")
+                      ("mcmitarrr@gmail.com" . "accounts/gaming/sent +sent")
+                      ("mihalets.m@edu.spbstu.ru" . "accounts/academia/sent +sent")))
+  (notmuch-identities '("Martin Michalec <martin@michalec.dev>"))
+  (notmuch-address-use-company nil)
+  (notmuch-unthreaded-show-out nil)
+  (notmuch-show-empty-saved-searches t)
+  (notmuch-mua-cite-function 'message-cite-original-without-signature)
+
+  (notmuch-show-stash-mlarchive-link-default "yhetil")
+
+  (notmuch-search-result-format '(("date" . "%12s ")
+                                  ("count" . "%-7s ")
+                                  ("authors" . "%-20s ")
+                                  ("subject" . "%-80s  ")
+                                  ("tags" . "(%s)")))
+  (notmuch-tree-result-format '(("date" . "%12s  ")
+                                ("authors" . "%-20s")
+                                ((("tree" . "%s")
+                                  ("subject" . "%s"))
+                                 . " %-88s ")
+                                ("tags" . "(%s)")))
+  (notmuch-unthreaded-result-format '(("date" . "%12s  ")
+                                      ("authors" . "%-20s")
+                                      ((("subject" . "%s"))
+                                       . " %-88s ")
+                                      ("tags" . "(%s)")))
+
+  (notmuch-show-logo nil)
+
+  (notmuch-saved-searches
+   '((:name "TODO"               :query "tag:todo"                          :key "t")
+     (:name "Inbox"              :query "tag:inbox"                         :key "i")
+     (:name "Watching"           :query "thread:{tag:watch} and tag:unread" :key "w")
+     (:name "Drafts"             :query "tag:draft"                         :key "d")
+     (:name "Flagged"            :query "tag:flagged"                       :key "f")
+     (:name "Sent"               :query "tag:sent"                          :key "s")
+     (:name "All mail"           :query "*"                                 :key "a")
+     (:name "Professional Inbox" :query "tag:professional and tag:inbox"    :key "M")
+     ;; (:name "Community Inbox"    :query "tag:community    and tag:inbox"    :key "C")
+     (:name "Academic Inbox"     :query "tag:academia     and tag:inbox"    :key "A")
+     (:name "Personal Inbox"     :query "tag:personal     and tag:inbox"    :key "P")
+     (:name "Gaming Inbox"       :query "tag:gaming       and tag:inbox"    :key "G")))
+
+  (notmuch-hello-sections
+   (list #'notmuch-hello-insert-header
+         #'notmuch-hello-insert-saved-searches
+         #'notmuch-hello-insert-search
+         #'notmuch-hello-insert-recent-searches
+         #'notmuch-hello-insert-alltags))
+
+  (notmuch-archive-tags '("-inbox" "-todo"))
+  (notmuch-tagging-keys
+   '(("a" notmuch-archive-tags "Archive")
+     ("r" notmuch-show-mark-read-tags "Mark read")
+     ("f" ("+flagged") "Flag (favorite)")
+     ;; ("w" ("+watch") "Watch")
+     ("t" cmmm/notmuch-todo-tags "Mark as todo")
+     ("s" cmmm/notmuch-spam-tags "Mark as spam")
+     ("d" cmmm/notmuch-trash-tags "Trash")
+     ("D" cmmm/notmuch-delete-tags "Delete")))
+
+  :config
+  (mapcar
+   (lambda (x)
+     (add-to-list 'notmuch-show-stash-mlarchive-link-alist x))
+   `(("yhetil" . "https://yhetil.org/")
+     ("mail-archive" . "https://www.mail-archive.com/search?l=mid&q=")))
+
+  (defun cmmm/notmuch-show-view-html-part ()
+    "Open the text/html part of the current message using
+`notmuch-show-view-part'."
+    (interactive)
+    (save-excursion
+      (goto-char
+       (prop-match-beginning
+        (text-property-search-forward
+         :notmuch-part
+         "text/html"
+         (lambda (value notmuch-part)
+           (equal (plist-get notmuch-part :content-type) value)))))
+      (notmuch-show-view-part)))
+
+  ;; https://notmuchmail.org/emacstips/#index25h2
+  (defun cmmm/notmuch-show-view-as-patch ()
+    "View the the current message as a patch."
+    (interactive)
+    (let* ((id (notmuch-show-get-message-id))
+           (msg (notmuch-show-get-message-properties))
+           (part (notmuch-show-get-part-properties))
+           (subject (concat "Subject: " (notmuch-show-get-subject) "\n"))
+           (diff-default-read-only t)
+           (buf (get-buffer-create (concat "*notmuch-patch-" id "*")))
+           (map (make-sparse-keymap)))
+      (define-key map "q" 'notmuch-bury-or-kill-this-buffer)
+      (switch-to-buffer buf)
+      (let ((inhibit-read-only t))
+        (erase-buffer)
+        (insert subject)
+        (insert (notmuch-get-bodypart-text msg part nil)))
+      (set-buffer-modified-p nil)
+      (diff-mode)
+      (let ((new-ro-bind (cons 'buffer-read-only map)))
+        (add-to-list 'minor-mode-overriding-map-alist new-ro-bind))
+      (goto-char (point-min))))
+
+  (defun cmmm/notmuch-message-mode ()
+    "Add completion at point functions made from company backends."
+    (setq-local
+     completion-at-point-functions
+     (append
+      ;; FIXME: doesn't work well with consult-completion-in-region
+      ;; list of candidates doesn't get updated when removing characters.
+      (list (cape-company-to-capf 'notmuch-company))
+      completion-at-point-functions)))
+  :hook (message-mode . cmmm/notmuch-message-mode))
+(use-package ol-notmuch
+  :after (notmuch))
+(use-package consult-notmuch
+  :after (notmuch)
+  :bind
+  ("M-s n" . consult-notmuch-tree))
+
+(use-package message
+  :ensure nil
+  :custom
+  (message-hidden-headers '())
+  (message-mail-user-agent t)
+  (message-kill-buffer-on-exit t)
+  (message-directory "~/mail/")
+  (message-signature "Martin Michalec")
+  (sendmail-program "/usr/bin/msmtp")
+  (message-send-mail-function 'message-send-mail-with-sendmail)
+  (message-sendmail-f-is-evil t)
+  (message-sendmail-extra-arguments '("--read-envelope-from"))
+  (mml-secure-openpgp-signers '("EC8B9BEEC52ADE94D44F9F1649D78C69C2FCBB11"))
+  (mml-secure-openpgp-encrypt-to-self t)
+  (mml-secure-openpgp-sign-with-sender t)
+  (message-citation-line-function 'message-insert-formatted-citation-line)
+  (message-citation-line-format "On %Y-%m-%d %R, %N wrote:\n")
+  (message-auto-save-directory (concat (or (getenv "XDG_CACHE_HOME") "~/.cache")
+                                       "/emacs/mail-drafts"))
+  :hook
+  (message-setup . mml-secure-message-sign-pgpmime)
+  ;; :config
+  ;; MAYBE: Move to feature-sourcehut
+  ;; <https://git.sr.ht/~protesilaos/dotfiles/tree/a72ed49ea8/item/emacs/.emacs.d/prot-lisp/prot-notmuch.el#L352>
+;;   (defconst rde-message-patch-control-codes
+;;     '("PROPOSED" "NEEDS_REVISION" "SUPERSEDED"
+;;       "APPROVED" "REJECTED" "APPLIED")
+;;     "Control codes for SourceHut patches.  See
+;; `rde-message-srht-add-email-control-code' for how to apply them.")
+
+;;   (defun rde-message-srht-add-email-control-code (control-code)
+;;     "Add custom header for SourceHut email controls.  The CONTROL-CODE
+;; is among `rde-notmuch-patch-control-codes'."
+;;     (interactive
+;;      (list (completing-read "Select control code: "
+;;                             rde-message-patch-control-codes nil t)))
+;;     (if (member control-code rde-message-patch-control-codes)
+;;         (message-replace-header
+;;          "X-Sourcehut-Patchset-Update" control-code)
+;;       (user-error "%s is not specified in
+;; `rde-notmuch-patch-control-codes'" control-code)))
+  )
+
+(use-package transmission
+  :bind
+  (:map cmmm/application-map
+        ("T" . transmission)
+        :map transmission-mode-map
+        ("R" . transmission-move)))
+
+(use-package tempel
+  :bind
+  (("M-+" . tempel-complete)
+   ("M-*" . tempel-insert))
+   :init
+   ;; Setup completion at point
+   (defun cmmm/tempel-setup-capf ()
+     ;; Add the Tempel Capf to `completion-at-point-functions'.  `tempel-expand'
+     ;; only triggers on exact matches. We add `tempel-expand' *before* the main
+     ;; programming mode Capf, such that it will be tried first.
+     (setq-local completion-at-point-functions
+                 (cons #'tempel-expand completion-at-point-functions))
+
+     ;; Alternatively use `tempel-complete' if you want to see all matches.  Use
+     ;; a trigger prefix character in order to prevent Tempel from triggering
+     ;; unexpectly.
+     (setq-local corfu-auto-trigger "<"
+                 completion-at-point-functions
+                 (cons (cape-capf-trigger #'tempel-complete ?/)
+                       completion-at-point-functions)))
+
+   (add-hook 'conf-mode-hook 'cmmm/tempel-setup-capf)
+   (add-hook 'prog-mode-hook 'cmmm/tempel-setup-capf)
+   (add-hook 'text-mode-hook 'cmmm/tempel-setup-capf)
+   (add-hook 'fundamental-mode-hook 'cmmm/tempel-setup-capf)
+
+   (add-hook 'prog-mode-hook #'tempel-abbrev-mode)
+   (global-tempel-abbrev-mode))
+
+;; (use-package hledger-mode)
+(use-package wgrep)
+(use-package rg)
+(use-package constants)
+(use-package consult-dir
+  :bind (("C-x C-d" . consult-dir)
+         :map minibuffer-local-completion-map
+         ("C-x C-d" . consult-dir)
+         ("C-x C-j" . consult-dir-jump-file)))
+;; (use-package jabber)
+(use-package crdt
+  :ensure (:repo ("https://github.com/emacs-straight/crdt")))
+(use-package simple-httpd)
+
+(use-package window
+  :ensure nil
+  :custom
+  (split-width-threshold 145))
+
+(use-package browse-url
+  :ensure nil
+  :custom
+  (browse-url-browser-function 'browse-url-chromium))
+
+;; yeetube
+;; gnuplot
+;; eldoc-box
+(use-package plantuml-mode)
+(use-package glsl-mode)
+
+(use-package mmm-mode
+  :custom
+  (mmm-global-mode 'maybe))
+(use-package mmm-jinja2)
+
+(use-package chezmoi)
+
+;; org-mime
+;; org-roam-ui
+;; org-contrib
+;; org-noter
+;; org-present
+;; org-wild-notifier
+
+;; Local Variables:
+;; no-byte-compile: t
+;; no-native-compile: t
+;; no-update-autoloads: t
+;; End: