path: root/init.el

;;; init.el --- Emacs initiation file -*- lexical-binding: t -*-

;; Author: Case Duckworth <acdw@acdw.net>
;; Created: Sometime during Covid-19, 2020
;; Keywords: configuration
;; URL: https://tildegit.org/acdw/emacs
;; Bankruptcy: 8

;;; License:

;; Everyone is permitted to do whatever they like with this software
;; without limitation.  This software comes without any warranty
;; whatsoever, but with two pieces of advice:
;; - Be kind to yourself.
;; - Make good choices.

;;; Code:

;; Require early-init.el just in case it hasn't been yet.
(require 'early-init (locate-user-emacs-file "early-init.el") :noerror)
;; Requre my private stuff
(require 'private)

(setup (:require +defaults))

(setup (:require +init)
  (:bind "C-c s" (lambda ()
                   (interactive)
                   (+init-sort)
                   (save-buffer)))
  (:hook '+init-add-setup-to-imenu))

(setup calendar
  (require '_location)
  (:option calendar-location-name _location-name
           calendar-latitude _location-latitude
           calendar-longitude _location-longitude))

(setup dired
  (:also-load dired-x)
  (:also-straight dired-subtree
                  dired-collapse
                  dired-git-info
                  dired+)
  (:option dired-recursive-copies 'top
           dired-recursive-deletes 'top
           dired-create-destination-dirs 'ask
           delete-by-moving-to-trash t
           dired-listing-switches "-Al"
           ls-lisp-dirs-first t
           dired-ls-F-marks-symlinks t
           dired-no-confirm '(byte-compile
                              chgrp chmod chown copy
                              hardlink load move
                              shell touch symlink)
           dired-dwim-target t)
  (:bind "TAB" 'dired-subtree-cycle
         "i" 'dired-subtree-toggle
         ")" 'dired-git-info-mode)
  (:hook 'dired-collapse-mode
         'dired-hide-details-mode
         'hl-line-mode)
  (:global "C-x C-j" 'dired-jump)
  (with-eval-after-load 'dired
    (pcase system-type
      ((or 'ms-dos 'windows-nt)
       (:straight w32-browser))
      ((or 'gnu/linux)
       (:straight dired-open)
       (:option dired-listing-switches
                (concat dired-listing-switches " -F")))))
  (with-eval-after-load 'frowny
    (add-to-list 'frowny-inhibit-modes 'dired-mode)))

(setup eshell
  (:also-load +eshell
              em-smart
              em-tramp)
  (:option eshell-aliases-file (.etc "eshell/aliases" t)
           eshell-destroy-buffer-when-process-dies t
           eshell-directory-name (.etc "eshell/" t)
           eshell-error-if-no-glob t
           eshell-hist-ignore-dups t
           eshell-kill-on-exit nil
           eshell-prefer-lisp-functions t
           eshell-prefer-lisp-variables t
           eshell-review-quick-commands nil
           eshell-save-history-on-exit t
           eshell-scroll-to-bottom-on-input 'all
           eshell-smart-space-goes-to-end t
           eshell-where-to-jump 'begin)
  (:local-set outline-regexp eshell-prompt-regexp
              page-delimiter eshell-prompt-regexp)
  (:bind "C-d" '+eshell-quit-or-delete-char)
  (:when-loaded
    (setenv "PAGER" "cat")))

(setup magit
  ;; This setup is weird because of dependency issues
  (:straight (transient :host github :repo "magit/transient" :branch "master")
             (magit :host github :repo "magit/magit")
             (git-modes :host github :repo "magit/git-modes"))
  (when (eq system-type 'gnu/linux)
    (:straight (forge :host github :repo "magit/forge"))
    (with-eval-after-load 'magit
      (require 'forge)
      (add-to-list 'forge-alist
                   '("tildegit.org" "tildegit.org/api/v1" "tildegit.org"
                     forge-gitea-repository)))))

(setup (:straight 0x0)
  (:option 0x0-default-server 'ttm)
  (with-eval-after-load 'embark
    (define-key embark-region-map (kbd "U") '0x0-dwim)))

(setup (:straight acme-theme)
  ;; (load-theme 'acme t)
  )

(setup (:straight anzu)
  (:global [remap query-replace] 'anzu-query-replace-regexp
           [remap query-replace-regexp] 'anzu-query-replace-regexp)
  (global-anzu-mode +1)
  (:bind-into isearch
    [remap isearch-query-replace]
    'anzu-isearch-query-replace
    [remap isearch-query-replace-regexp]
    'anzu-isearch-query-replace-regexp))

(setup (:straight avy)
  (:also-load +avy)
  (:global "M-j" 'avy-goto-char-timer)
  (:bind-into isearch
    "M-j" 'avy-isearch)
  (:when-loaded
    (setf (alist-get ?. avy-dispatch-alist) 'avy-action-embark)))

(setup (:straight (cape :host github :repo "minad/cape"))
  (dolist (fn '(;; All available cape capfs listed here.
                cape-file-capf
                cape-dabbrev-capf
                cape-keyword-capf
                ;;cape-abbrev-capf
                ;;cape-ispell-capf
                ;;cape-dict-capf
                ))
    (add-to-list 'completion-at-point-functions fn)))

(setup (:straight (capf-autosuggest
                   :repo "https://repo.or.cz/emacs-capf-autosuggest.git"))
  (:hook-into eshell-mode
              comint-mode))

(setup (:straight circadian)
  (:option circadian-themes '((:sunrise . modus-operandi)
                              (:sunset . modus-vivendi)))
  (circadian-setup))

(setup (:straight circe)
  (:require _circe)
  (:require +circe)
  (autoload '+irc "+circe" "Connect to IRC." t)

  ;; Formatting options
  (:option circe-format-action (format (format "%%%ds* {nick} {body}"
                                               (- +circe-left-margin 2))
                                       " ")
           circe-format-say (format "{nick:%1$d.%1$ds} | {body}"
                                    (- +circe-left-margin 3))
           circe-format-self-action circe-format-action
           circe-format-self-say (replace-regexp-in-string "|" ">"
                                                           circe-format-say)
           circe-format-server-part (+circe-format-meta
                                     "PART {channel}: {reason}")
           circe-format-server-quit (+circe-format-meta "QUIT: {reason}")
           circe-format-server-quit-channel (+circe-format-meta
                                             "QUIT {channel}: {reason}")
           circe-format-server-join (+circe-format-meta "JOIN: {userinfo}")
           circe-format-server-rejoin (+circe-format-meta
                                       (concat "REJOIN: {userinfo} "
                                               "after {departuredelta}"))
           circe-format-server-topic (+circe-format-meta
                                      "TOPIC: {new-topic}")
           circe-prompt-string (format (format "%%%ds> "
                                               (- +circe-left-margin 2))
                                       " "))
  
  (:option +circe-server-buffer-action (lambda (buf)
                                         (message "Connected to %s" buf))
           +circe-network-inhibit-autoconnect _circe-network-inhibit-autoconnect
           circe-network-options _circe-network-options
           circe-color-nicks-everywhere t
           circe-default-part-message "See You, Space Cowpokes . . ."
           circe-default-user user-real-login-name
           circe-reduce-lurker-spam t
           circe-server-auto-join-default-type :after-auth)
  (:bind "C-c C-p" 'circe-command-PART
         "C-c C-t" '+circe-current-topic
         "C-l" 'lui-track-jump-to-indicator
         "C-<return>" '+circe-chat@set-prompt)

  (advice-add 'circe-command-PART :after '+circe-kill-buffer)
  (advice-add 'circe-command-QUIT :after '+circe-quit@kill-buffer)
  (advice-add 'circe-command-GQUIT :after '+circe-gquit@kill-buffer)
  
  (:with-mode circe-chat-mode
    (:hook 'enable-circe-color-nicks
           'enable-circe-new-day-notifier
           '+circe-chat@set-prompt)
    (:bind "C-c C-s" 'circe-command-SLAP))

  (:with-mode lui-mode
    (:option lui-fill-column (+ fill-column +circe-left-margin)
             lui-fill-type nil
             lui-time-stamp-position 'right-margin
             lui-time-stamp-format "[ %H:%M"
             lui-track-behavior 'before-switch-to-buffer
             lui-track-indicator 'fringe
             lui-fill-remove-face-from-newline nil)
    (:hook 'visual-line-mode
           'enable-lui-track
           'visual-fill-column-mode)
    (:local-set fringes-outside-margins t
                right-margin-width (length lui-time-stamp-format)
                scroll-margin 0
                word-wrap t
                wrap-prefix (+string-repeat +circe-left-margin " ")
                line-number-mode nil
                column-number-mode nil
                file-percentage-mode nil
                visual-fill-column-extra-text-width
                (cons +circe-left-margin 0)))

  (add-hook 'kill-emacs-hook
            (defun circe-quit-all ()
              (ignore-errors
                (advice-remove 'circe-command-GQUIT
                               'circe-gquit@kill-buffer)
                (circe-command-GQUIT "Quitting Emacs, bye!")))))

(setup (:straight consult)
  (:also-load +consult)
  ;; from Consult wiki
  (:option register-preview-delay 0
	   register-preview-function 'consult-register-format
	   xref-show-xrefs-function 'consult-xref
	   xref-show-definitions-function 'consult-xref
	   tab-always-indent 'complete
	   completion-in-region-function 'consult-completion-in-region)
  (advice-add 'register-preview :override 'consult-register-window)
  (advice-add 'completing-read-multiple :override
	      'consult-completing-read-multiple)
  (dolist (binding '(;; C-c bindings (mode-specific-map)
		     ("C-c h" . consult-history)
		     ("C-c m" . consult-mode-command)
		     ("C-c b" . consult-bookmark)
		     ("C-c k" . consult-kmacro)
		     ;; C-x bindings (ctl-x-map)
		     ("C-x M-:" . consult-complex-command)
		     ("C-x b" . consult-buffer)
		     ("C-x 4 b" . consult-buffer-other-window)
		     ("C-x 5 b" . consult-buffer-other-frame)
		     ;; Custom M-# bindings for fast register access
		     ("M-#" . consult-register-load)
		     ("M-'" . consult-register-store)
		     ("C-M-#" . consult-register)
		     ;; Other custom bindings
		     ("M-y" . consult-yank-pop)
		     ("<help> a" . consult-apropos)
		     ;; M-g bindings (goto-map)
		     ("M-g e" . consult-compile-error)
		     ("M-g f" . consult-flymake) ; or consult-flycheck
		     ("M-g g" . consult-goto-line)
		     ("M-g M-g" . consult-goto-line)
		     ("M-g o" . consult-outline) ; or 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 (search-map)
		     ("M-s f" . consult-find)
		     ("M-s F" . 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 m" . consult-multi-occur)
		     ("M-s k" . consult-keep-lines)
		     ("M-s u" . consult-focus-lines)
		     ;; Isearch integration
		     ("M-s e" . consult-isearch-history)))
    (global-set-key (kbd (car binding)) (cdr binding)))
  (with-eval-after-load 'isearch-mode
    (dolist (binding '(("M-e" . consult-isearch-history)
		       ("M-s e" . consult-isearch-history)
		       ("M-s l" . consult-line)
		       ("M-s L" . consult-line-multi)))
      (define-key isearch-mode-map (car binding) (cdr binding))))
  (with-eval-after-load 'org-mode
    (define-key org-mode-map "M-g o" 'consult-org-heading))
  (with-eval-after-load 'consult
    (:option consult-narrow-key "<"
	     consult-project-root-function '+consult-project-root)
    (consult-customize
     consult-theme
     :preview-key '(:debounce 0.2 any)
     consult-ripgrep consult-git-grep consult-grep
     consult-bookmark consult-recent-file consult-xref
     consult--source-file consult--source-project-file
     consult--source-bookmark
     :preview-key (kbd "M-."))
    (consult-history-to-modes ((minibuffer-local-map . nil)
                               (shell-mode-map . shell-mode-hook)
                               (term-mode-map . term-mode-hook)
                               (term-raw-map . term-mode-hook)
                               (comint-mode-map . comint-mode-hook)
                               (sly-mrepl-mode-map . sly-mrepl-hook)))
    (with-eval-after-load 'orderless
      (:option consult--regexp-compiler 'consult--orderless-regexp-compiler))))

(setup (:straight dictionary)
  (:option dictionary-use-single-buffer t)
  (autoload 'dictionary-search "dictionary"
    "Ask for a word and search it in all dictionaries" t)
  (autoload 'dictionary-match-words "dictionary"
    "Ask for a word and search all matching words in the dictionaries" t)
  (autoload 'dictionary-lookup-definition "dictionary"
    "Unconditionally lookup the word at point." t)
  (autoload 'dictionary "dictionary"
    "Create a new dictionary buffer" t)
  (autoload 'dictionary-mouse-popup-matching-words "dictionary"
    "Display entries matching the word at the cursor" t)
  (autoload 'dictionary-popup-matching-words "dictionary"
    "Display entries matching the word at the point" t)
  (autoload 'dictionary-tooltip-mode "dictionary"
    "Display tooltips for the current word" t)
  (autoload 'global-dictionary-tooltip-mode "dictionary"
    "Enable/disable dictionary-tooltip-mode for all buffers" t))

(setup (:straight electric-cursor)
  (electric-cursor-mode +1))

(setup (:straight electric-cursor)
  (electric-cursor-mode +1))

(setup (:straight embark)
  (:option prefix-help-command 'embark-prefix-help-command)
  (:global "C-." 'embark-act
	   "M-." 'embark-dwim
	   "C-h B" 'embark-bindings))

(setup (:straight embark-consult)
  (:load-after consult embark)
  (add-hook 'embark-collect-mode-hook 'consult-preview-at-point-mode))

(setup (:straight eshell-syntax-highlighting)
  (:hook-into eshell-mode))

(setup (:straight-when exec-path-from-shell
         (eq system-type 'gnu/linux))
  (when (daemonp)
    (exec-path-from-shell-initialize))
  (exec-path-from-shell-copy-envs '("XDG_CONFIG_HOME"
                                    "XDG_CONFIG_DIRS"
                                    "XDG_DATA_HOME"
                                    "XDG_DATA_DIRS"
                                    "XDG_CACHE_HOME")))

(setup (:straight expand-region)
  (:global "C-=" 'er/expand-region))

(setup (:straight (filldent
                   :host github
                   :repo "duckwork/filldent.el"))
  (:global "M-q" 'filldent-dwim))

(setup (:straight (frowny
                   :host github
                   :repo "duckwork/frowny.el"))
  (global-frowny-mode +1))

(setup (:straight gcmh)
  (:option gcmh-idle-delay 'auto)
  (gcmh-mode +1))

(setup (:straight helpful)
  (:global "<help> f" 'helpful-callable
           "<help> v" 'helpful-variable
           "<help> k" 'helpful-key
           "C-c C-d" 'helpful-at-point))

(setup (:straight (hippie-completing-read
                   :host github
                   :repo "duckwork/hippie-completing-read"))
  (:global "M-/" 'hippie-completing-read))

(setup (:straight hungry-delete)
  (:option hungry-delete-chars-to-skip " \t"
	   hungry-delete-join-reluctantly nil)
  (:bind-into paredit
    [remap paredit-backward-delete]
    (defun acdw/paredit-hungry-delete-backward (arg)
      (interactive "P")
      (if (looking-back "[ \t]" 1)
	  (hungry-delete-backward (or arg 1))
	(paredit-backward-delete arg)))
    [remap paredit-forward-delete]
    (defun acdw/paredit-hungry-delete-forward (arg)
      (interactive "P")
      (if (looking-at "[ \t]")
	  (hungry-delete-forward (or arg 1))
	(paredit-forward-delete arg))))
  (global-hungry-delete-mode +1))

(setup (:straight isearch-mb)
  ;; This complicatedness is an attempt to make it easier to add and
  ;; subtract `isearch-mb' bindings using the suggestions in the
  ;; project's README.
  (with-eval-after-load 'isearch-mb
    (dolist (spec '((isearch-mb--with-buffer
		     ("M-e" .  consult-isearch)
		     ("C-o" . loccur-isearch))
		    (isearch-mb--after-exit
		     ("M-%" . anzu-isearch-query-replace)
		     ("M-s l" . consult-line))))
      (let ((isearch-mb-list (car spec))
	    (isearch-mb-binds (cdr spec)))
	(dolist (cell isearch-mb-binds)
	  (let ((key (car cell))
		(command (cdr cell)))
	    (when (fboundp command)
	      (add-to-list isearch-mb-list command)
	      (define-key isearch-mb-minibuffer-map (kbd key) command)))))))
  (isearch-mb-mode +1))

(setup (:straight lacarte)
  (:global "<f10>" 'lacarte-execute-menu-command))

(setup (:straight marginalia)
  (marginalia-mode +1))

(setup (:straight minions)
  (:option minions-prominent-modes
           '(tracking-mode))
  (minions-mode +1))

(setup (:straight mode-line-bell)
  (:option mode-line-bell-flash-time 0.1)
  (mode-line-bell-mode +1))

(setup (:straight (modus-themes
                   :host gitlab
                   :repo "protesilaos/modus-themes")))

(setup (:straight mwim)
  (:global "C-a" #'mwim-beginning
           "C-e" #'mwim-end))

(setup (:straight orderless)
  (:option completion-styles '(orderless)))

(setup (:straight (org
                   :type git
                   :repo "https://git.savannah.gnu.org/git/emacs/org-mode.git"
                   :local-repo "org"
                   :depth full
                   :pre-build (straight-recipes-org-elpa--build)
                   :build (:not autoloads)
                   :files (:defaults
                           "lisp/*.el"
                           ("etc/styles/" "etc/styles/*")))
                  (org-contrib
                   :type git
                   :repo "https://git.sr.ht/~bzg/org-contrib"))
  ;; DO NOT load system-installed org !!!
  (setq load-path (cl-remove-if (lambda (path)
                                  (string-match-p "lisp/org\\'" path))
                                load-path))
  (:also-load +org
              ox-md)
  (:option org-adapt-indentation nil
           org-catch-invisible-edits 'show-and-error
           org-clock-clocked-in-display 'mode-line
           org-clock-frame-title-format (cons
                                         '(t org-mode-line-string)
                                         (cons " --- " frame-title-format))
           org-clock-string-limit 7     ; just the clock bit
           ;; org-clock-string-limit 25    ; gives enough information
           org-clock-persist t
           org-confirm-babel-evaluate nil
           org-cycle-separator-lines 0
           org-directory "~/org"
           org-ellipsis "…"
           org-export-coding-system 'utf-8-unix
           org-export-headline-levels 8
           org-export-with-section-numbers nil
           org-export-with-smart-quotes t
           org-export-with-sub-superscripts t
           org-export-with-toc nil
           org-fontify-done-headline t
           org-fontify-quote-and-verse-blocks t
           org-fontify-whole-heading-line t
           org-hide-emphasis-markers t
           org-html-coding-system  'utf-8-unix
           org-image-actual-width (list (* (window-font-width)
                                           (- fill-column 8)))
           org-imenu-depth 3
           org-list-demote-modify-bullet '(("-" . "+")
                                           ("+" . "*")
                                           ("*" . "-"))
           org-log-done 'time
           org-log-into-drawer t
           org-outline-path-complete-in-steps nil
           org-pretty-entities t
           org-refile-use-outline-path 'file
           org-special-ctrl-a/e t
           org-special-ctrl-k t
           org-src-fontify-natively t
           org-src-tab-acts-natively t
           org-src-window-setup 'current-window
           org-startup-truncated nil
           org-startup-with-inline-images t
           org-tags-column (- (- fill-column (length org-ellipsis))))
  (:bind "RET" '+org-return-dwim
         "<S-return>" '+org-table-copy-down
         "C-c C-l" '+org-insert-link-dwim
         "C-c C-n" '+org-next-heading-widen
         "C-c C-p" '+org-previous-heading-widen)
  (:local-set unfill-fill-function 'org-fill-paragraph)
  (:local-hook before-save-hook '+org-before-save@prettify-buffer)
  (advice-add 'org-delete-backward-char :override '+org-delete-backward-char)
  (with-eval-after-load 'org
    (org-clock-persistence-insinuate)))

(setup (:straight org-appear)
  (:option org-appear-autoemphasis t
           org-appear-autoentities t
           org-appear-autokeywords t
           org-appear-autolinks nil
           org-appear-autosubmarkers t
           org-appear-delay 0)
  (:hook-into org-mode))

(setup (:straight paredit)
  (:bind "DEL" 'paredit-backward-delete
         "C-<backspace>" 'paredit-backward-kill-word)
  (:hook-into emacs-lisp-mode lisp-interaction-mode
              lisp-mode scheme-mode)
  (:also-load eldoc)
  (eldoc-add-command 'paredit-backward-delete 'paredit-close-round))

(setup (:straight paren-face)
  (:hook-into emacs-lisp-mode
              ielm-mode sly-repl-mode
              lisp-mode
              lisp-interaction-mode
              scheme-mode))

(setup (:straight (shell-command+
                   :host nil
                   :repo "https://git.sr.ht/~pkal/shell-command-plus"))
  (:option shell-command-prompt "$ ")
  (:bind-into dired
    "M-!" 'shell-command+)
  (:global "M-!" 'shell-command+))

(setup (:straight (sophomore
                   :host github
                   :repo "duckwork/sophomore.el"))
  (:option disabled-command-function 'sophomore-dispatch
           sophomore-dispatch-alist '((fatfinger . sophomore-fat-finger)))
  (put 'save-buffers-kill-terminal 'disabled 'fatfinger))

(setup (:straight ssh-config-mode)
  (:file-match (rx "/.ssh/config" eos)
               (rx "/ssh" (? "d") "_config" eos))
  (:with-mode ssh-known-hosts-mode
    (:file-match (rx "/knownhosts" eos)))
  (:with-mode ssh-authorized-keys-mode
    (:file-match (rx "/authorized_keys" (? "2") eos))))

(setup (:straight super-save)
  (:option auto-save-default nil
           super-save-auto-save-when-idle t
           super-save-idle-duration 60
           super-save-exclude '(".gpg")
           super-save-remote-files nil)
  (auto-save-visited-mode -1)
  (super-save-mode +1))

(setup (:straight trashed)
  (:option trashed-action-confirmer #'y-or-n-p))

(setup (:straight undo-fu)
  (:global "C-/" #'undo-fu-only-undo
           "C-?" #'undo-fu-only-redo))

(setup (:straight undo-fu-session)
  (:option undo-fu-session-incompatible-files '("/COMMIT_EDITMSG\\'"
                                                "/git-rebase-todo\\'")
           undo-fu-session-directory (.etc "undo/" t)
           undo-fu-session-compression (eq system-type 'gnu/linux))
  (global-undo-fu-session-mode +1))

(setup (:straight (unfill :host github :repo "purcell/unfill"
                          :fork (:host github :repo "duckwork/unfill")))
  (:global "M-q" #'unfill-toggle))

(setup (:straight (vertico
                   :host github
                   :repo "minad/vertico"
                   :files ("*" "extensions/*"
                           (:exclude ".git"))))
  (:option resize-mini-windows 'grow-only
           vertico-count-format nil
           vertico-cycle t)
  (when (boundp 'native-comp-deferred-compilation-deny-list)
    (add-to-list 'native-comp-deferred-compilation-deny-list "vertico"))
  (vertico-mode +1)
  ;; Extensions
  (:also-load vertico-directory)
  (:with-map vertico-map
    (:bind "RET" 'vertico-directory-enter
           "DEL" 'vertico-directory-delete-char
           "M-DEL" 'vertico-directory-delete-word))
  (add-hook 'rfn-eshadow-update-overlay-hook 'vertico-directory-tidy))

(setup (:straight visual-fill-column)
  (:option visual-fill-column-center-text t)
  (:hook 'visual-line-mode)
  (:hook-into org-mode)
  (with-eval-after-load 'visual-fill-column
    (advice-add 'text-scale-adjust :after 'visual-fill-column-adjust)))

(setup (:straight whitespace-cleanup-mode)
  (:option whitespace-cleanup-mode-preserve-point t)
  (remove-hook 'before-save-hook 'whitespace-cleanup)
  (global-whitespace-cleanup-mode +1))