path: root/user/emacs/init.el

;;; init --- user init file  -*- lexical-binding: t; -*-
(eval '(setq inhibit-startup-echo-area-message "alan"))
(setq gc-cons-threshold most-positive-fixnum
      gc-cons-percentage 0.6
      file-name-handler-alist nil)
(defun set-max-gc-cons ()
  (setq gc-cons-threshold most-positive-fixnum))
(defun set-default-gc-cons ()
  (setq gc-cons-threshold (* 16 1024 1024)
        gc-cons-percentage 0.1))
(add-hook 'minibuffer-setup-hook #'set-max-gc-cons)
(add-hook 'minibuffer-exit-hook #'set-default-gc-cons)
(add-hook 'after-init-hook #'set-default-gc-cons)

(defvar default-file-name-handler-alist file-name-handler-alist)
(defun restore-file-name-handler-alist ()
  (setq file-name-handler-alist default-file-name-handler-alist))
(add-hook 'emacs-startup-hook #'restore-file-name-handler-alist)

(defun maybe-start-server ()
  (require 'server)
  (unless (server-running-p)
    (server-start)))
(add-hook 'after-init-hook #'maybe-start-server)

(eval-when-compile (require 'fringe-helper))

(defun reload-user-init-file ()
  "Reload init file."
  (interactive)
  (load-file user-init-file))

(eval-when-compile
  (require 'use-package)
  (setq use-package-expand-minimally t))
(setq use-package-always-demand (daemonp))

(defmacro quietly (&rest body)
  `(let ((inhibit-message t))
		 ,@body))
(defun quiet (original-function &rest args)
  (quietly (apply original-function args)))

;;; Customize

(setq custom-file (expand-file-name "custom.el" user-emacs-directory))
(load custom-file :noerror :nomessage)

(use-package crux
  :defer 1)

;;; Styles

;; I prefer an always-visible cursor.  Feels less distracting.
(blink-cursor-mode -1)

(setq-default truncate-lines t)

;; Don't ring the bell
(setq ring-bell-function #'ignore)

(when (or (daemonp)
          window-system)
  (use-package modus-themes
    :config (progn
              (let ((light-mode-theme 'modus-operandi)
                    (dark-mode-theme 'modus-vivendi-tinted))
                (setq modus-themes-common-palette-overrides
                      `((builtin magenta)
                        (comment yellow-faint)
                        (constant magenta-cooler)
                        (docstring green-faint)
                        (docmarkup magenta-faint)
                        (fnname magenta-warmer)
                        (keyword cyan)
                        (preprocessor cyan-cooler)
                        (string green-cooler)
                        (type magenta-cooler)
                        (variable blue-warmer)
                        (rx-construct magenta-warmer)
                        (rx-backslash blue-cooler)
                        (border-mode-line-active unspecified)
                        (border-mode-line-inactive unspecified)
                        (bg-mode-line-active bg-blue-subtle)
                        (fg-mode-line-active fg-main)
                        (fg-line-number-inactive "gray50")
                        (fg-line-number-active fg-main)
                        (bg-line-number-active bg-dim)
                        ,@modus-themes-preset-overrides-faint)
                      modus-themes-to-toggle `(,light-mode-theme ,dark-mode-theme))
                (load-theme light-mode-theme :noconfirm :noenable)
                (load-theme dark-mode-theme :noconfirm :noenable)
                (enable-theme light-mode-theme))))
  (if (eq window-system 'x)
      (setq-default line-spacing 0.2)))

(setq font-lock-maximum-decoration '((t . 1)))

(when (and (eq system-type 'darwin)
           (fboundp 'mac-mouse-wheel-mode))
  (mac-mouse-wheel-mode +1))
(context-menu-mode +1)

;;; Chrome
(column-number-mode -1)
(line-number-mode -1)
(use-package doom-modeline
  :hook (emacs-startup . doom-modeline-mode)
  :config (progn
            (setq doom-modeline-buffer-file-name-style 'relative-from-project
                  doom-modeline-buffer-encoding nil
                  doom-modeline-buffer-modification-icon nil
                  doom-modeline-percent-position nil
                  doom-modeline-project-detection 'projectile
                  doom-modeline-vcs-max-length 24
                  doom-modeline-env-version nil)
            (let ((foreground (face-attribute 'font-lock-comment-face :foreground)))
              (set-face-attribute 'doom-modeline-buffer-modified nil :foreground foreground))))

(when (eq system-type 'darwin)
  (add-to-list 'default-frame-alist '(ns-transparent-titlebar . t))
  (add-to-list 'default-frame-alist '(ns-appearance . 'light)))

(add-to-list 'default-frame-alist '(width . 100))
(add-to-list 'default-frame-alist '(height . 40))
(setq-default display-line-numbers 'relative
              display-line-numbers-widen t
              display-line-numbers-width 4)
(setq frame-resize-pixelwise t)

(defun noct-relative ()
  "Show relative line numbers."
  (setq-local display-line-numbers 'relative))

(defun noct-absolute ()
  "Show absolute line numbers."
  (setq-local display-line-numbers t))

(add-hook 'evil-insert-state-entry-hook #'noct-absolute)
(add-hook 'evil-insert-state-exit-hook #'noct-relative)

;;; Encoding

(setq-default bidi-paragraph-direction 'left-to-right
              bidi-display-reordering 'left-to-right)
(setq bidi-inhibit-bpa t
      require-final-newline t)

;;; Dates & Times

(defvar calendar-week-start-day 1)
(defvar calendar-date-style 'iso)

(defun insert-date (prefix)
  "Insert the current date.
With PREFIX, use British format.
With two prefix arguments, write out the day and month name."
  (interactive "P")
  (let ((format (cond
                 ((not prefix) "%Y-%m-%d")
                 ((equal prefix '(4)) "%d/%m/%Y")
                 ((equal prefix '(16)) "%A, %d %B %Y"))))
    (insert (format-time-string format))))

(defun insert-datetime (prefix)
  "Insert current date and time.  With PREFIX, use ISO8601 format."
  (interactive "P")
  (let ((format (cond
                 ((not prefix) "%Y-%m-%d %H:%M:%S")
                 ((equal prefix '(4)) "%Y-%m-%dT%H:%M:%SZ"))))
    (insert (format-time-string format))))

;;; Keybindings

(when (eq system-type 'darwin)
  (setq mac-option-modifier 'meta
        mac-right-option-modifier 'none
        mac-control-modifier 'control
        mac-right-control-modifier 'left
        mac-command-modifier 'super
        mac-right-command-modifier 'left
        mac-function-modifier 'hyper))

(use-package general
  :functions (general-unbind general-define-key)
  :config (progn
            (general-override-mode +1)
            (when (eq system-type 'darwin)
              (general-unbind "s-x"))))

(use-package avy
  :defer 2
  :config (setq avy-all-windows nil))
(use-package ace-link
  :after avy
  :commands (ace-link-setup-default)
  :config (ace-link-setup-default))

;; Popup keybindings following a prefix automatically.

(use-package which-key
  :defer 5
  :config (progn
            (which-key-mode +1)
            (which-key-setup-side-window-right-bottom)))

;;; Minibuffer

(setq enable-recursive-minibuffers t
      save-silently t
      uniquify-buffer-name-style 'forward
      read-extended-command-predicate #'command-completion-default-include-p)
(minibuffer-depth-indicate-mode t)

(use-package hydra
  :defer 2)

(use-package recentf
  :defer 1
  :custom (recentf-auto-cleanup 1800)
  :config (progn
            (quietly (recentf-mode +1))
            (advice-add 'recentf-cleanup :around #'quiet)))

(use-package savehist
  :init (savehist-mode +1)
  :config (progn
            (add-to-list 'savehist-additional-variables 'command-history)))

(use-package vertico
  :ghook ('after-init-hook #'vertico-mode))
(use-package prescient
  :config (progn
            (setq prescient-history-length 10000)
            (prescient-persist-mode +1)))
(use-package vertico-prescient
  :after vertico
  :ghook '(vertico-mode-hook))

(use-package marginalia
  :general (:keymaps 'minibuffer-local-map
                     "M-A" #'marginalia-cycle)
  :init (marginalia-mode +1))

(setq completion-ignore-case t
      read-buffer-completion-ignore-case t
      read-file-name-completion-ignore-case t
      completion-styles '(flex substring basic)
			completion-category-defaults nil
			completion-category-overrides '((file (styles basic partial-completion))))

(use-package smerge-mode
  :after magit
  :config
  (defhydra unpackaged/smerge-hydra
    (:color pink :hint nil :post (smerge-auto-leave))
    "
^Move^       ^Keep^               ^Diff^                 ^Other^
^^-----------^^-------------------^^---------------------^^-------
_n_ext       _b_ase               _<_: upper/base        _C_ombine
_p_rev       _u_pper              _=_: upper/lower       _r_esolve
^^           _l_ower              _>_: base/lower        _k_ill current
^^           _a_ll                _R_efine
^^           _RET_: current       _E_diff
"
    ("n" smerge-next)
    ("p" smerge-prev)
    ("b" smerge-keep-base)
    ("u" smerge-keep-upper)
    ("l" smerge-keep-lower)
    ("a" smerge-keep-all)
    ("RET" smerge-keep-current)
    ("\C-m" smerge-keep-current)
    ("<" smerge-diff-base-upper)
    ("=" smerge-diff-upper-lower)
    (">" smerge-diff-base-lower)
    ("R" smerge-refine)
    ("E" smerge-ediff)
    ("C" smerge-combine-with-next)
    ("r" smerge-resolve)
    ("k" smerge-kill-current)
    ("w" (lambda ()
           (interactive)
           (save-buffer)
           (bury-buffer))
     "Save and bury buffer" :color blue)
    ("q" nil "cancel" :color blue))
  :hook (magit-diff-visit-file . (lambda ()
                                   (when (bound-and-true-p smerge-mode)
                                     (unpackaged/smerge-hydra/body)))))

(use-package ctrlf
  :init (ctrlf-mode +1))


;;; Windows

(defun split-window-properly (&optional window)
  (let ((window (or window (selected-window))))
    (or (and (window-splittable-p window)
             ;; Split window vertically.
             (with-selected-window window
               (split-window-below)))
        (and (window-splittable-p window t)
             ;; Split window horizontally.
             (with-selected-window window
               (split-window-right))))))

(setq split-window-preferred-function #'split-window-properly
      split-height-threshold 20
      split-width-threshold 160)

(use-package eyebrowse
  :after (evil)
  :config (progn
            (setq eyebrowse-new-workspace t
                  eyebrowse-mode-line-left-delimiter ""
                  eyebrowse-mode-line-right-delimiter ""
                  eyebrowse-mode-line-separator " "
                  eyebrowse-mode-line-style 'always)
            (eyebrowse-mode +1))
  :general (:keymaps 'evil-window-map
                     "0" #'eyebrowse-switch-to-window-config-0
                     "1" #'eyebrowse-switch-to-window-config-1
                     "2" #'eyebrowse-switch-to-window-config-2
                     "3" #'eyebrowse-switch-to-window-config-3
                     "4" #'eyebrowse-switch-to-window-config-4
                     "5" #'eyebrowse-switch-to-window-config-5
                     "6" #'eyebrowse-switch-to-window-config-6
                     "7" #'eyebrowse-switch-to-window-config-7
                     "8" #'eyebrowse-switch-to-window-config-8
                     "9" #'eyebrowse-switch-to-window-config-9)
  :ghook ('evil-after-load-hook #'eyebrowse-setup-evil-keys))

(use-package winner
  :after evil
  :defer 8
  :config (progn
            (setq winner-boring-buffers '("*Completions*" "*Help*" "*Apropos*" "*Buffer List*" "*info*" "*Compile-Log*"))
            (winner-mode +1))
  :general (:keymaps 'evil-window-map
                     "u" #'winner-undo
                     "r" #'winner-redo
                     "C-r" #'winner-redo))
;;; Evil

(eval-and-compile
  (defvar evil-want-keybinding nil))
(use-package evil
  :demand t
  :commands (evil-mode evil-delete-buffer evil-ex-define-cmd)
  :config (progn
            (setq-default evil-shift-width 2)
            (setq evil-mode-line-format nil
                  evil-undo-system 'undo-tree)
            (evil-set-undo-system 'undo-tree)
            (add-to-list 'evil-emacs-state-modes 'eshell-mode)
            (add-to-list 'evil-emacs-state-modes 'ledger-reconcile-mode)
            (evil-mode +1))
  :general
  (:states 'motion
           "C-;" #'evil-avy-goto-line)
  (:states 'normal
           ";" #'evil-ex)
  (:states '(normal motion)
           "g s" #'evil-avy-goto-symbol-1))

(add-hook 'c-mode-common-hook ; make b/w/e include underscore as *part* of a word
          (lambda () (modify-syntax-entry ?_ "w")))

(use-package evil-anzu
  :defer 2
  :after evil
  :config (global-anzu-mode +1))

(use-package evil-collection
  :after (evil)
  :defer 3
  :demand t
  :commands (evil-collection-init)
  :config (progn
            (setq evil-collection-magit-use-y-for-yank nil)
            (general-unbind 'normal magit-mode-map
              "<escape>")
            (evil-collection-init)
            (with-eval-after-load 'company
              (company-tng-mode t))))

(general-create-definer my-leader-def
  :keymaps 'override
  :states '(normal motion)
  :prefix ",")

(use-package evil-space
  :defer 1
  :after evil
  :config (evil-space-mode +1))

;; this macro was copied from here: https://stackoverflow.com/a/22418983/4921402
(defmacro define-and-bind-quoted-text-object (name key start-regex end-regex)
  (let ((inner-name (make-symbol (concat "evil-inner-" name)))
        (outer-name (make-symbol (concat "evil-a-" name))))
    `(progn
       (evil-define-text-object ,inner-name (count &optional beg end type)
         (evil-select-paren ,start-regex ,end-regex beg end type count nil))
       (evil-define-text-object ,outer-name (count &optional beg end type)
         (evil-select-paren ,start-regex ,end-regex beg end type count t))
       (define-key evil-inner-text-objects-map ,key #',inner-name)
       (define-key evil-outer-text-objects-map ,key #',outer-name))))

(use-package evil-surround
  :after evil
  :defer 2
  :config (progn
            (add-hook 'javascript-mode-hook (lambda ()
                                              (define-and-bind-quoted-text-object "slash" "/" "\\/" "\\/")
                                              (push '(?\/ . ("/" . "/")) evil-surround-pairs-alist)))
            (add-hook 'emacs-lisp-mode-hook (lambda ()
                                              (push '(?` . ("`" . "'")) evil-surround-pairs-alist)))
            (global-evil-surround-mode +1)))


(use-package evil-embrace
  :after evil-surround
  :ghook ('LaTex-mode-hook #'embrace-LaTeX-mode-hook)
  :ghook ('org-mode-hook #'embrace-org-mode-hook)
  :ghook ('ruby-mode-hook #'embrace-ruby-mode-hook)
  :ghook ('emacs-lisp-mode-hook #'embrace-emacs-lisp-mode-hook)
  :config (progn
            (setq evil-embrace-show-help-p nil)
            (push ?\/ evil-embrace-evil-surround-keys)
            (evil-embrace-enable-evil-surround-integration)))

(use-package evil-commentary
  :after evil
  :defer 2
  :config (evil-commentary-mode +1))

(use-package evil-matchit
  :after evil
  :defer 2
  :config (progn
            (global-evil-matchit-mode +1)))

(use-package evil-quickscope
  :after evil
  :commands (evil-quickscope-mode)
  :ghook ('(magit-mode-hook git-rebase-mode-hook) #'turn-off-evil-quickscope-mode)
  :config (global-evil-quickscope-mode +1))

(use-package evil-numbers
  :after evil
  :general (:states '(normal visual)
                    "C-a" #'evil-numbers/inc-at-pt
                    "C-q" #'evil-numbers/dec-at-pt))

(use-package evil-org
  :after org
  :commands (evil-org-set-key-theme)
  :init (progn
          (add-hook 'org-agenda-mode-hook #'evil-org-agenda-set-keys))
  :ghook ('org-mode-hook #'evil-org-mode)
  :gfhook #'evil-org-set-key-theme)

;;; Completion

(use-package company
  :defer 2
  :commands (company-explicit-action-p)
  :config (progn
            (setq company-idle-delay 0.2
                  company-tooltip-align-annotations t
                  company-show-quick-access t
                  company-dabbrev-downcase nil
                  company-dabbrev-ignore-case nil
                  company-begin-commands '(self-insert-command)
                  company-insertion-on-trigger #'company-explicit-action-p
                  company-insertion-triggers '(?\ ?\( ?\) ?.))
            (global-company-mode +1)
            (general-unbind company-active-map
              "C-j"
              "RET"
              [return]))
  :general
  (:states 'insert
           "TAB" #'company-indent-or-complete-common
           "C-x C-f" #'company-files)
  (:keymaps 'company-active-map
            "TAB" #'company-complete-common-or-cycle
            "<tab>" #'company-complete-common-or-cycle
            "S-TAB" #'company-select-previous
            "<backtab>" #'company-select-previous))

(use-package company-posframe
  :after company
  :config (progn
            (when (display-graphic-p)
              (company-posframe-mode +1))))

(use-package company-shell
  :after company
  :config (progn
            (setq company-shell-clean-manpage t)
            (add-to-list 'company-backends '(company-shell company-shell-env))))

(use-package all-the-icons
  :defer t
  :config (setq all-the-icons-color-icons nil))

(defmacro company-set-secondary-backend-for-mode (mode backend)
  (let ((hook-fn-name (intern (concat "ap/set-local-backend-" (symbol-name mode)))))
    `(progn
       (defun ,hook-fn-name ()
         (make-local-variable 'company-backends)
         (setq company-backends (append
                                 (list
                                  'company-tabnine
                                  ,backend)
                                 (copy-tree (remq 'company-tabnine company-backends)))))
       (add-hook ',(derived-mode-hook-name mode) #',hook-fn-name))))

(use-package company-tabnine
  :commands (company-tabnine)
  :after (company)
  :config (setq company-tabnine-binaries-folder "~/.local/tabnine")
  :general ("<M-tab>" #'company-tabnine-call-other-backends
            "<C-tab>" #'company-tabnine-call-other-backends)
  :init (progn
          (advice-add 'company-tabnine-start-process :around #'quiet)
          (add-to-list 'company-backends #'company-tabnine)))

;;; Documentation

(use-package eldoc
  :defer 5
  :config (progn
            (setq eldoc-idle-delay 0.5
                  eldoc-echo-area-use-multiline-p nil)
            (global-eldoc-mode +1)))

(use-package eldoc-box
  :after (eldoc eglot)
  :ghook ('eglot-managed-mode-hook #'eldoc-box-hover-mode))

(use-package ehelp
  :defer 15)

(use-package helpful
  :after ehelp
  :general (ehelp-map
            "k" #'helpful-key
            "v" #'helpful-variable
            "f" #'helpful-callable))

;;; Files

;;;; Auto-saving

;; Auto-save everything to a temporary directory, instead of cluttering
;; the filesystem.  I don’t want emacs-specific lockfiles, either.

(setq auto-save-file-name-transforms `((".*" ,temporary-file-directory t))
      create-lockfiles nil)

;;;; Auto-reloading

(use-package autorevert
  :defer 1
  :config (progn
            (setq auto-revert-verbose nil
                  auto-revert-use-notify t)
            (global-auto-revert-mode t)))

;;;; Backups

;; I like to keep my backups out of regular folders.  I tell emacs to use
;; a subfolder of its configuration directory for that.  Also, use the
;; trash for deleting on OS X.
(let ((backup-dir (expand-file-name "emacs" (or (getenv "XDG_DATA_HOME")
                                                "~/.local/share"))))
  (unless (file-directory-p backup-dir)
    (make-directory backup-dir))
  (setq backup-directory-alist `((".*" . ,backup-dir))
        backup-by-copying-when-linked t
        backup-by-copying-when-mismatch t))

(setq delete-by-moving-to-trash t)

(use-package goto-chg
  :defer 1)


;;;; TRAMP

(use-package tramp
  :defer t
  :config (progn
            (add-to-list 'tramp-default-proxies-alist
                         '(nil "\\`root\\'" "/ssh:%h:"))
            (add-to-list 'tramp-default-proxies-alist
                         `(,(regexp-quote (system-name)) nil nil))))

;;; Directories

(setq dired-dwim-target t
      dired-recursive-copies 'top
      dired-listing-switches "-alh"
      dired-recursive-deletes (if delete-by-moving-to-trash
                                  'always
                                'top))

(add-hook 'dired-mode-hook
          (lambda ()
            (dired-hide-details-mode)))

(use-package dired-git-info
  :general (:keymaps 'dired-mode-map
                     :states 'normal
                     ")" #'dired-git-info-mode))

;;; Shells

(use-package eshell
  :defer 5
  :commands (eshell)
  :functions (eshell/pwd)
  :general (:keymaps 'eshell-command-map
                     "C-r" #'eshell-history-backwards
                     "C-s" #'eshell-history-forwards)
  :init (progn
          (with-eval-after-load 'evil-ex
            (evil-ex-define-cmd "esh[ell]" #'eshell)))
  :config (progn
            (setq eshell-prompt-function (lambda ()
                                           (concat (eshell/pwd) "\n$ "))
                  eshell-prompt-regexp "^[$][[:blank:]]"
                  eshell-cmpl-cycle-completions nil)
            (add-hook 'eshell-exit-hook (lambda ()
                                          (when (window-deletable-p)
                                            (delete-window))))))

(use-package eshell-toggle
  :after projectile
  :commands (eshell-toggle)
  :general ("C-`" #'eshell-toggle)
  :config (setq eshell-toggle-use-projectile-root t))

(use-package capf-autosuggest
  :after eshell
  :general (:keymaps 'capf-autosuggest-active-mode-map
                     "C-e" #'capf-autosuggest-end-of-line
                     "<right>" #'capf-autosuggest-end-of-line)
  :ghook ('(eshell-mode-hook
            comint-mode-hook)))

(declare-function eshell-push-command "esh-buf-stack" (CMD))
(defun my-bind-esh-push ()
  (general-define-key
   :states '(normal insert)
   :keymaps 'local
   "M-q" #'eshell-push-command))

(use-package esh-buf-stack
  :after (eshell)
  :ghook ('eshell-mode-hook #'my-bind-esh-push)
  :config (setup-eshell-buf-stack))

(use-package esh-help
  :after (eshell)
  :config (setup-esh-help-eldoc))

(use-package eshell-fringe-status
  :after eshell
  :ghook '(eshell-mode-hook))

(use-package eshell-up
  :after (eshell))

(use-package shell
  :defer t
  :general (:keymaps 'shell-mode-map
                     "C-d" #'comint-delchar-or-maybe-eof))

(use-package comint
  :defer t
  :general (:keymaps 'comint-mode-map
                     "C-c C-l" #'counsel-shell-history))

;;; Editing

(setq-default indent-tabs-mode nil
              tab-width 2
              tab-always-indent 'complete)

(electric-pair-mode +1)

(use-package ws-butler
  :ghook ('prog-mode-hook))

(use-package undo-tree
  :defer 1
  :config (progn
            (setq undo-tree-auto-save-history nil)
            (global-undo-tree-mode)))

;;; Major modes

;;;; golang
(use-package go-mode
  :defer t
  :config (progn
            (setq-default gofmt-command "goimports")
            (add-hook 'go-mode-hook (lambda ()
                                      (add-hook 'before-save-hook #'gofmt-before-save)
                                      (if (not (string-match-p "go" compile-command))
                                          (set (make-local-variable 'compile-command)
                                               "go build -v && go test && go vet"))))))

;;;; rust
(use-package rustic
  :mode (("\\.rs\\'" . rustic-mode))
  :config (progn
            (setq rustic-format-on-save t)
            (with-eval-after-load 'flycheck
              (add-to-list 'flycheck-checkers 'rustic-clippy))))

;;;; js
(setq js-indent-level 2
      js-enabled-frameworks '(javascript))

;;;; typescript
(use-package typescript-mode
  :mode (("\\.tsx\\'" . typescript-mode))
  :config (progn
            (setq typescript-indent-level 2)))

(autoload 'ansi-color-apply-on-region "ansi-color")
(defun colorise-compilation-buffer ()
  (ansi-color-apply-on-region compilation-filter-start (point-max)))
(add-hook 'compilation-filter-hook #'colorise-compilation-buffer)

;;;; shell
(general-add-hook 'sh-mode-hook
                  (lambda ()
                    (general-add-hook 'after-save-hook
                                      #'executable-make-buffer-file-executable-if-script-p :append :local)))

(add-to-list 'auto-mode-alist '("\\.env\\'" . conf-unix-mode))
(add-to-list 'auto-mode-alist '("\\.zsh\\'" . shell-script-mode))
(add-to-list 'auto-mode-alist '("zshenv\\'" . shell-script-mode))
(add-to-list 'auto-mode-alist '("zshrc\\'"  . shell-script-mode))
(setq sh-shell-file "/usr/bin/env zsh"
      sh-basic-offset 2)

(add-hook 'shell-mode-hook 'ansi-color-for-comint-mode-on)

;;;; make
(general-add-hook 'makefile-mode-hook
                  (lambda ()
                    (setq-local indent-tabs-mode t)))

;;;; nix
(with-eval-after-load 'nix-mode
  (setq nix-mode-use-smie t
        nix-indent-function #'smie-indent-line))

(use-package nix-update
  :commands (nix-update-fetch))

;;;; gitlab-ci.yml
(with-eval-after-load 'git-gutter-fringe
  (fringe-helper-define 'flycheck-fringe-bitmap-double-arrow '(center repeated)
    "XXX....."))

(setq gitlab-ci-url "https://gitlab.satoshipay.tech")
(use-package gitlab-ci-mode-flycheck
  :ghook ('gitlab-ci-mode-hook (list #'gitlab-ci-mode-flycheck-enable
                                     #'flycheck-mode)))

;;;; *ignore
(use-package gitignore-mode
  :mode ((".dockerignore\\'" . gitignore-mode)))

;;;; lisps

(use-package racket-mode
  :ghook ('racket-mode-hook #'racket-xp-mode))

(use-package clojure-mode
  :defer t)
(use-package cider
  :defer t
  :after clojure-mode)
(use-package rainbow-delimiters
  :ghook ('clojure-mode-hook
          'emacs-lisp-mode-hook))

(use-package lispy
  :ghook '(emacs-lisp-mode-hook
           clojure-mode-hook
           racket-mode-hook))

(use-package lispyville
  :ghook '(emacs-lisp-mode-hook
           clojure-mode-hook
           racket-mode-hook))

;;;; kubernetes
(setq k8s-site-docs-version "v1.13")

(use-package kubel
  :defer t)

(use-package kubel-evil
  :ghook 'kubel-mode-hook)

;;;; ledger

(use-package ledger-mode
  :gfhook '(ledger-flymake-enable ws-butler-mode)
  :defer t
  :config (progn
            (setq ledger-reconcile-default-commodity "€"
                  ledger-narrow-on-reconcile t
                  ledger-clear-whole-transactions t
                  ledger-reports `(("Monthly Expenses" "ledger -f %(ledger-file) reg -M \\^Expenses --real -X EUR -l \"payee != 'Opening Balances'\"")
                                   ("Total Expenses:This Month" "ledger -f %(ledger-file) bal \\^Expenses -p \"this month\"")
                                   ("Total Expenses:Past 90 Days" ,(concat "ledger -f %(ledger-file) balance ^Expenses -b "
                                                                           (format-time-string "%Y-%m-%d" (time-add (current-time) (days-to-time -90)))))
                                   ("Total Expenses:Past 180 Days" ,(concat "ledger -f %(ledger-file) balance ^Expenses -b "
                                                                            (format-time-string "%Y-%m-%d" (time-add (current-time) (days-to-time -180)))))
                                   ("Expenses:This Month" "ledger -f %(ledger-file) register \\^Expenses -p \"this month\"")
                                   ("Expenses:Past 90 Days (monthly)" ,(concat "ledger -f %(ledger-file) register --monthly ^Expenses -b "
                                                                               (format-time-string "%Y-%m-%d" (time-add (current-time) (days-to-time -90)))))
                                   ("Expenses:Past 180 Days (monthly)" ,(concat "ledger -f %(ledger-file) register --monthly ^Expenses -b "
                                                                                (format-time-string "%Y-%m-%d" (time-add (current-time) (days-to-time -180)))))
                                   ("All Account Balances" "ledger -f %(ledger-file) bal --current -R \\^Assets \\^Liabilities")))))


(use-package evil-ledger
  :after ledger-mode
  :ghook '(ledger-mode-hook))

;;;; org

(setq org-ellipsis "…"
      org-directory "~/Documents/org")

;;;; web modes (html)

(use-package css-mode
  :defer t
  :config (progn
            (setq css-indent-offset 2)))

(use-package web-mode
  :mode (("\\.html?\\'" . web-mode))
  :config (setq web-mode-enable-auto-pairing nil
                web-mode-code-indent-offset 2
                web-mode-markup-indent-offset 2
                web-mode-css-indent-offset 2
                web-mode-style-padding 0
                web-mode-script-padding 0
                web-mode-engines-alist '((django . "\\.html?\\'"))))

(use-package emmet-mode
  :ghook '(web-mode-hook sgml-mode-hook))

;;; IDE features

(fringe-helper-define 'left-vertical-bar '(center repeated)
  "XXX.....")
(use-package flymake
  :defer 5
  :config (setq flymake-error-bitmap '(left-vertical-bar compilation-error)
                flymake-warning-bitmap '(left-vertical-bar compilation-warning)))
(use-package flycheck
  :defer 5
  :ghook ('(typescript-mode-hook
            dockerfile-mode-hook
            yaml-mode-hook
            js-mode-hook
            css-mode-hook
            scss-mode-hook
            html-mode-hook
            haskell-mode-hook))
  :config (progn
            (setq flycheck-check-syntax-automatically '(save idle-buffer-switch mode-enabled)
                  flycheck-highlighting-mode 'sexps)
            (flycheck-define-error-level 'error
              :severity 100
              :compilation-level 2
              :overlay-category 'flycheck-error-overlay
              :fringe-bitmap 'left-vertical-bar
              :fringe-face 'flycheck-fringe-error
              :error-list-face 'flycheck-error-list-error)
            (flycheck-define-error-level 'warning
              :severity 10
              :compilation-level 1
              :overlay-category 'flycheck-warning-overlay
              :fringe-bitmap 'left-vertical-bar
              :fringe-face 'flycheck-fringe-warning
              :warning-list-face 'flycheck-error-list-warning)
            (flycheck-define-error-level 'info
              :severity -10
              :compilation-level 0
              :overlay-category 'flycheck-info-overlay
              :fringe-bitmap 'left-vertical-bar
              :fringe-face 'flycheck-fringe-info
              :info-list-face 'flycheck-error-list-info)))

;;; Projects

(use-package ripgrep
  :defer 10
  :config (progn
            (setq ripgrep-arguments '("--hidden"))))

(use-package projectile
  :defer 1
  :defines projectile-command-map
  :general (:keymaps 'projectile-command-map
                     "s s" #'projectile-ripgrep
                     "s r" #'projectile-ripgrep)
  :config (progn
            (add-to-list 'projectile-globally-ignored-files "package-lock.json")
            (add-to-list 'projectile-globally-ignored-files "pnpm-lock.yaml")
            (add-to-list 'projectile-project-root-files "package.json")
            (add-to-list 'projectile-project-root-files-bottom-up "pnpm-workspace.yaml")
            (setq projectile-kill-buffers-filter 'kill-only-files
                  projectile-sort-order 'modification-time
                  projectile-project-search-path '(("~/projects/" . 2))
                  projectile-auto-discover nil
                  projectile-project-root-functions '(projectile-root-local
                                                      projectile-root-top-down
                                                      projectile-root-bottom-up
                                                      projectile-root-top-down-recurring))
            (projectile-mode +1)
            (with-eval-after-load 'evil-ex
              (evil-ex-define-cmd "rg" #'ripgrep-regexp)
              (evil-ex-define-cmd "prg" #'projectile-ripgrep)
              (evil-ex-define-cmd "pesh[ell]" #'projectile-run-eshell)
              (evil-ex-define-cmd "pb" #'projectile-switch-to-buffer)
              (evil-ex-define-cmd "psw[itch]" #'projectile-switch-project))))

(use-package counsel-projectile
  :general (:keymaps 'projectile-command-map
                     "s s" #'counsel-projectile-rg
                     "s r" #'counsel-projectile-rg))

(use-package envrc
  :defer 2
  :after projectile
  :config (progn
            (envrc-global-mode)))

(use-package magit
  :defer 5
  :commands (magit-status magit-dispatch)
  :init (customize-set-value 'magit-auto-revert-mode nil)
  :config (progn
            (setq magit-section-visibility-indicator nil
                  magit-diff-refine-hunk 'all
                  magit-display-buffer-function #'magit-display-buffer-fullcolumn-most-v1)
            (remove-hook 'magit-status-sections-hook 'magit-insert-tags-header)
            (remove-hook 'magit-section-highlight-hook 'magit-section-highlight)
            (remove-hook 'magit-section-highlight-hook 'magit-section-highlight-selection)
            (remove-hook 'magit-section-highlight-hook 'magit-diff-highlight)))

(use-package git-gutter-fringe
  :defer 5
  :config (progn
            (add-hook 'magit-post-refresh-hook
                      #'git-gutter:update-all-windows)
            ;; places the git gutter outside the margins.
            (setq-default fringes-outside-margins nil)
            ;; thin fringe bitmaps
            (fringe-helper-define 'git-gutter-fr:added '(center repeated)
              "....XXX.")
            (fringe-helper-define 'git-gutter-fr:modified '(center repeated)
              "....XXX.")
            (fringe-helper-define 'git-gutter-fr:deleted '(center repeated)
              "....XXX.")
            (setq git-gutter-fr:side 'right-fringe)
            (global-git-gutter-mode 1)))

(use-package git-messenger
  :commands (git-messenger:popup-message)
  :defer 10
  :config (setq git-messenger:use-magit-popup t))

(use-package git-timemachine
  :commands (git-timemachine))

(use-package editorconfig
  :defer 2
  :config (editorconfig-mode +1))

(setq-default ispell-dictionary "en_GB-ise-w_accents")
(setq ispell-extra-args '("--sug-mode=ultra" "--camel-case"))
(use-package flyspell)

(use-package flyspell-correct
  :after flyspell
  :general (:states '(normal insert)
                    "<f8>" #'flyspell-correct-wrapper))
(use-package flyspell-correct-avy-menu
  :after flyspell-correct
  :init (progn
          (setq flyspell-correct-interface #'flyspell-correct-avy-menu)))
(use-package wucuo
  :ghook ('(prog-mode-hook
            text-mode-hook)
          #'wucuo-start)
  :config (progn
            (setq wucuo-aspell-language-to-use  "en_GB-ise-w_accents"
                  wucuo-enable-camel-case-algorithm-p nil)))

(use-package feature-mode
  :config (progn
            (setq feature-cucumber-command "cucumber-js {options} \"{feature}\"")))

(use-package treemacs
  :defer t
  :config (progn
            (setq treemacs-no-png-images t)))

(use-package tree-sitter
  :ghook ('(sh-mode-hook
            c-mode-common-hook
            css-mode-hook
            go-mode-hook
            html-mode-hook
            nix-mode-hook
            js-mode-hook
            js2-mode-hook
            json-mode-hook
            typescript-mode-hook
            python-mode-hook
            rustic-mode-hook))
  :ghook 'tree-sitter-after-on-hook #'tree-sitter-hl-mode)
(use-package tree-sitter-langs
  :after tree-sitter)

(use-package tree-sitter-indent
  :ghook ('(rustic-mode-hook)))

(unless (fboundp 'project-name)
  (defun project-name (project)
    (file-name-base (cdr project))))
(use-package eglot
  :general (:states 'normal :keymaps 'eglot-mode-map
                    "gd" #'xref-find-definitions
                    "gr" #'xref-find-references
                    "C-t" #'xref-pop-marker-stack)
  :ghook ('(typescript-mode-hook
            dockerfile-mode-hook
            yaml-mode-hook
            js-mode-hook
            css-mode-hook
            go-mode-hook
            scss-mode-hook
            html-mode-hook
            nix-mode-hook
            haskell-mode-hook)
          #'eglot-ensure)
  :config (progn
						(add-to-list 'eglot-stay-out-of 'company)
            (defun my/setup-eglot-eldoc ()
              (push 'flymake-eldoc-function eldoc-documentation-functions))
            (add-hook 'eglot-managed-mode-hook 'my/setup-eglot-eldoc)))

(use-package consult-eglot
  :commands (consult-eglot-symbols)
  :after eglot)

;; Inside a javascript project, it's common to install tools locally to
;; the project.  This will allows emacs to find their executables.

(use-package add-node-modules-path
  :config (setq add-node-modules-max-depth 6)
  :ghook ('(feature-mode-hook js2-mode-hook json-mode-hook typescript-mode-hook) #'add-node-modules-path))

(use-package tide
  :after (typescript-mode company flycheck)
  :ghook ('typescript-mode-hook #'tide-setup)
  :init (progn
          (setq tide-completion-setup-company-backend nil)
          (flycheck-add-next-checker 'javascript-tide 'javascript-eslint)
          (company-set-secondary-backend-for-mode typescript-mode 'company-tide)))

;;;; Reformat on save

(use-package format-all
  :ghook ('(css-mode-hook
            clojure-mode-hook
            dockerfile-mode-hook
            emacs-lisp-mode-hook
            javascript-mode-hook
            json-mode-hook
            markdown-mode-hook
            scss-mode-hook
            sgml-mode-hook
            sh-mode-hook
            sql-mode-hook
            toml-mode-hook
            typescript-mode-hook))
  :gfhook #'format-all-ensure-formatter
  :init (progn
          (advice-add 'format-all-ensure-formatter
                      :around #'quiet))
  :config (progn
            (setq format-all-show-errors 'never)))

(use-package apheleia
  :config (progn
            (setf (alist-get 'shfmt apheleia-formatters)
                  '("shfmt"))
            (setf (alist-get 'nixfmt apheleia-formatters)
                  '("nixpkgs-fmt")))
  :init (progn
          (apheleia-global-mode +1)))

;;; E-mail

(declare-function sendmail-send-it "sendmail")
(setq send-mail-function #'sendmail-send-it)

(use-package mu4e
  :if (executable-find "mu")
  :commands (mu4e)
  :defines (mu4e-contexts)
  :general (:keymaps 'mu4e-headers-mode-map
                     :states 'normal
                     "d" #'mu4e-headers-mark-for-trash
                     "T" #'mu4e-headers-mark-thread)
  (:keymaps 'mu4e-view-mode-map
            :states 'normal
            "d" #'mu4e-view-mark-for-trash)
  :init (progn
          (with-eval-after-load 'evil-ex
            (evil-ex-define-cmd "mu[4e]" #'mu4e)))
  :config (progn
            (setq mail-user-agent #'mu4e-user-agent
                  mu4e-maildir "~/mail"
                  mu4e-context-policy 'pick-first
                  mu4e-update-interval 600
                  mu4e-change-filenames-when-moving t
                  mu4e-index-lazy-check t
                  mu4e-hide-index-messages t
                  mu4e-compose-format-flowed t
                  mu4e-contexts (list
                                 (make-mu4e-context
                                  :name "SatoshiPay"
                                  :match-func (lambda (msg)
                                                (if msg
                                                    (mu4e-message-contact-field-matches
                                                     msg :to ".*@satoshipay.io")
                                                  (string-equal (system-name) "satoshipad")))
                                  :vars '((user-mail-address . "alan@satoshipay.io")
                                          (mu4e-sent-messages-behavior . delete)
                                          (mu4e-drafts-folder . "/satoshipay/[Gmail]/Drafts")
                                          (mu4e-sent-folder . "/satoshipay/[Gmail]/Sent Mail")
                                          (mu4e-refile-folder . "/satoshipay/[Gmail]/All Mail")
                                          (mu4e-trash-folder . "/satoshipay/[Gmail]/Bin")
                                          (mu4e-maildir-shortcuts . (("/satoshipay/INBOX" . ?i)
                                                                     ("/satoshipay/[Gmail]/All Mail" . ?a)
                                                                     ("/satoshipay/[Gmail]/Sent Mail" . ?s)
                                                                     ("/satoshipay/[Gmail]/Spam" . ?p)
                                                                     ("/satoshipay/[Gmail]/Spam" . ?j)))))))))

;;; Take me to my leader

(my-leader-def
  "" nil
  "`" #'eshell-toggle
  "h" '(:keymap ehelp-map :package ehelp)
  "w" '(:keymap evil-window-map :package evil)
  "x" '(:keymap ctl-x-map)
  "c" (general-simulate-key "C-c")
  "j" #'consult-eglot-symbols
  "q" #'evil-delete-buffer
  "p" '(:keymap projectile-command-map :package projectile)
  "v" #'split-window-right
  "o" #'other-window
  "u" #'universal-argument
  ";" #'execute-extended-command
  "bb" #'switch-to-buffer
  "bx" #'kill-this-buffer
  "br" #'revert-buffer
  "bk" #'kill-buffer
  "dd" #'dired
  "e" '(:keymap envrc-command-map :package envrc)
  "fs" #'save-buffer
  "ff" #'find-file
  "fw" #'write-file
  "fd" #'delete-file
  "fr" #'crux-rename-file-and-buffer
  "gs" #'magit-status
  "gm" #'git-messenger:popup-message
  "gg" #'magit-dispatch
  "gn" #'git-gutter:next-hunk
  "gp" #'git-gutter:previous-hunk
  "gi" #'git-gutter:popup-hunk
  "gs" #'git-gutter:stage-hunk
  "go" #'git-gutter:revert-hunk
  "gt" #'git-timemachine
  "gl" #'magit-log-buffer-file
  "bi" #'ibuffer
  "bz" #'bury-buffer
  "iu" #'insert-char
  "xe" #'eval-last-sexp)

(load (expand-file-name "mail.el" user-emacs-directory) :noerror :nomessage)

;; # Local Variables:
;; # flycheck-disabled-checkers: 'emacs-lisp-checkdoc
;; # End: