#+TITLE: >.<macs
#+AUTHOR: mux

#+STARTUP: shrink

* SANE DEFAULTS
** Generic optimizations
#+begin_src emacs-lisp
  (setq gc-cons-threshold most-positive-fixnum)
  (add-hook 'emacs-startup-hook
            (lambda ()
              (setq gc-cons-threshold (* 50 1024 1024))))

  (setq backup-directory-alist '(("." . "~/.config/emacs/backups")))
  (setq auto-save-file-name-transforms '((".*" "~/.config/emacs/auto-save-list/" t)))
  (setq delete-old-versions t
        kept-new-versions 6
        kept-old-versions 2
        version-control t)
#+end_src

** Declutter user interface
#+begin_src emacs-lisp
  (menu-bar-mode -1)
  (tool-bar-mode -1)
  (scroll-bar-mode -1)
#+end_src

** Tweak appearance
#+begin_src emacs-lisp
  (set-face-attribute 'default nil
                      :family "ShureTechMono Nerd Font"
                      :height 190)
  (global-display-line-numbers-mode 1)
  (setq display-line-numbers 'relative)
  (setq-default line-spacing 5)
  (setq-default
   inhibit-startup-message t
   initial-scratch-message nil
   sentence-end-double-space nil
   ring-bell-function 'ignore
   make-backup-files t
   vc-follow-symlinks t
   ad-redefinition-action 'accept
   help-window-select t
   use-short-answers t)

  (dolist (mode '(term-mode-hook
                  shell-mode-hook
                  treemacs-mode-hook
                  eshell-mode-hook
                  help-mode-hook
                  vterm-mode-hook))
    (add-hook mode (lambda () (display-line-numbers-mode 0))))
#+end_src

* PACKAGE MANAGEMENT
** Elpaca package manager
#+begin_src emacs-lisp
  (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
    (elpaca-use-package-mode))
#+end_src

* EDITING & MODAL INPUT
** Meow modal editing
#+begin_src emacs-lisp
  (use-package meow
    :ensure t
    :preface
    (defun meow-word ()
      "Expand word/symbol under cursor."
      (interactive)
      (if (and (use-region-p)
               (equal (car (region-bounds))
                      (bounds-of-thing-at-point 'word)))
          (meow-mark-symbol 1)
        (progn
          (when (and (mark)
                     (equal (car (region-bounds))
                            (bounds-of-thing-at-point 'symbol)))
            (meow-pop-selection))
          (meow-mark-word 1))))

    (defun meow-kill-line ()
      "Kill till the end of line."
      (interactive)
      (let ((select-enable-clipboard meow-use-clipboard))
        (kill-line)))

    (defun meow-change-line ()
      "Kill till end of line and switch to INSERT state."
      (interactive)
      (meow--cancel-selection)
      (meow-end-of-thing
       (car (rassoc 'line meow-char-thing-table)))
      (meow-change))

    (defun meow-save-clipboard ()
      "Copy in clipboard."
      (interactive)
      (let ((meow-use-clipboard t))
        (meow-save)))

    (defvar meow--trim-yank nil)

    (defun meow-insert-for-yank-advice (orig-fn str)
      "Advice for `insert-for-yank' function to correctly insert lines."
      (when meow--trim-yank
        (set 'str (string-trim-right str "\n")))
      (if (and (not (eq (point) (+ 1 (line-end-position 0))))
               (string-match-p "^.+\n$" str))
          (save-excursion
            (beginning-of-line)
            (funcall orig-fn str))
        (funcall orig-fn str)))

    (defun meow-yank-dwim ()
      "Smart yank."
      (interactive)
      (advice-add 'insert-for-yank :around 'meow-insert-for-yank-advice)
      (if (use-region-p)
          (let ((meow--trim-yank t))
            (delete-region (region-beginning) (region-end))
            (meow-yank))
        (meow-yank))
      (advice-remove 'insert-for-yank 'meow-insert-for-yank-advice))

    (defun meow-yank-pop-dwim ()
      "Smart yank pop."
      (interactive)
      (advice-add 'insert-for-yank :around 'meow-insert-for-yank-advice)
      (if (use-region-p)
          (let ((meow--trim-yank t))
            (delete-region (region-beginning) (region-end))
            (meow-yank-pop))
        (meow-yank-pop))
      (advice-remove 'insert-for-yank 'meow-insert-for-yank-advice))

    (defun meow-smart-reverse ()
      "Reverse selection or begin negative argument."
      (interactive)
      (if (use-region-p)
          (meow-reverse)
        (negative-argument nil)))

    (defun meow-kmacro ()
      "Toggle recording of kmacro."
      (interactive)
      (if defining-kbd-macro
          (meow-end-kmacro)
        (meow-start-kmacro)))

    (defun meow-eldoc ()
      "Toggle the display of the eldoc window."
      (interactive)
      (if (get-buffer-window eldoc--doc-buffer)
          (delete-window (get-buffer-window eldoc--doc-buffer))
        (eldoc-doc-buffer t)))

    (defun meow-ergo-setup ()
      (setq meow-cheatsheet-layout meow-cheatsheet-layout-qwerty)
      (setq meow-normal-state-keymap (make-sparse-keymap))
      (setf (alist-get 'normal meow-keymap-alist) meow-normal-state-keymap)
      (meow-motion-define-key
       '("l" . meow-next)
       '("j" . meow-prev)
       '("<escape>" . ignore))
      (meow-leader-define-key
       '("1" . meow-digit-argument)
       '("2" . meow-digit-argument)
       '("3" . meow-digit-argument)
       '("4" . meow-digit-argument)
       '("5" . meow-digit-argument)
       '("6" . meow-digit-argument)
       '("7" . meow-digit-argument)
       '("8" . meow-digit-argument)
       '("9" . meow-digit-argument)
       '("0" . meow-digit-argument)
       '("/" . meow-keypad-describe-key)
       '("?" . meow-cheatsheet))

      (meow-thing-register 'angle
                           '(pair ("<") (">"))
                           '(pair ("<") (">")))

      (setq meow-char-thing-table
            '((?f . round)
              (?d . square)
              (?s . curly)
              (?a . angle)
              (?r . string)
              (?v . paragraph)
              (?c . line)
              (?x . buffer)))

      (meow-normal-define-key
       ;; Expansion
       '("0" . meow-expand-0)
       '("1" . meow-expand-1)
       '("2" . meow-expand-2)
       '("3" . meow-expand-3)
       '("4" . meow-expand-4)
       '("5" . meow-expand-5)
       '("6" . meow-expand-6)
       '("7" . meow-expand-7)
       '("8" . meow-expand-8)
       '("9" . meow-expand-9)
       '("'" . meow-reverse)

       ;; Movement
       '("i" . meow-prev)
       '("k" . meow-next)
       '("j" . meow-left)
       '("l" . meow-right)
       '("y" . meow-search)
       '("/" . meow-visit)

       ;; Expansion
       '("I" . meow-prev-expand)
       '("K" . meow-next-expand)
       '("J" . meow-left-expand)
       '("L" . meow-right-expand)

       '("u" . meow-back-word)
       '("U" . meow-back-symbol)
       '("o" . meow-next-word)
       '("O" . meow-next-symbol)

       '("a" . meow-mark-word)
       '("A" . meow-mark-symbol)
       '("s" . meow-line)
       '("S" . meow-goto-line)
       '("w" . meow-block)
       '("q" . meow-join)
       '("g" . meow-grab)
       '("G" . meow-pop-grab)
       '("m" . meow-swap-grab)
       '("M" . meow-sync-grab)
       '("p" . meow-cancel-selection)
       '("P" . meow-pop-selection)

       '("x" . meow-till)
       '("z" . meow-find)

       '("," . meow-beginning-of-thing)
       '("." . meow-end-of-thing)
       '("<" . meow-inner-of-thing)
       '(">" . meow-bounds-of-thing)

       ;; Editing
       '("d" . meow-kill)
       '("f" . meow-change)
       '("t" . meow-delete)
       '("c" . meow-save)
       '("v" . meow-yank)
       '("V" . meow-yank-pop)

       '("e" . meow-insert)
       '("E" . meow-open-above)
       '("r" . meow-append)
       '("R" . meow-open-below)

       '("h" . undo-only)
       '("H" . undo-redo)

       '("b" . open-line)
       '("B" . split-line)

       '("[" . indent-rigidly-left-to-tab-stop)
       '("]" . indent-rigidly-right-to-tab-stop)

       ;; Prefix commands
       '("nf" . meow-comment)
       '("nt" . meow-start-kmacro-or-insert-counter)
       '("nr" . meow-start-kmacro)
       '("ne" . meow-end-or-call-kmacro)

       '(";f" . save-buffer)
       '(";F" . save-some-buffers)
       '(";d" . meow-query-replace-regexp)

       ;; Buffer navigation
       '(";[b" . previous-buffer)
       '(";]b" . next-buffer)
       '(";b" . switch-to-buffer)
       '(";nb" . rename-buffer)
       '(";B" . revert-buffer)

       '("<escape>" . ignore)))
    
    :config
    (meow-ergo-setup)
    (meow-global-mode 1))
#+end_src

** Formatter
#+begin_src emacs-lisp
  (use-package format-all
    :ensure t
    :preface
    (defun refmt ()
      "Auto-format whole buffer."
      (interactive)
      (cond
       ((derived-mode-p 'prolog-mode)
        (prolog-indent-buffer))
       ((derived-mode-p 'emacs-lisp-mode)
        (indent-region (point-min) (point-max)))
       ((derived-mode-p 'org-mode)
        (org-indent-region (point-min) (point-max)))
       (t
        (format-all-buffer))))
    :config
    (global-set-key (kbd "M-f") #'refmt)
    (add-hook 'prog-mode-hook #'format-all-ensure-formatter))
#+end_src

* PROGRAMMING FEATURES
** Syntax highlighting
#+begin_src emacs-lisp
  (use-package treesit-auto
    :ensure t
    :custom
    (treesit-auto-install 'prompt)
    :config
    (treesit-auto-add-to-auto-mode-alist 'all)
    (global-treesit-auto-mode))
#+end_src

** LSP
#+begin_src emacs-lisp
  (use-package lsp-mode
    :ensure t
    :hook
    (prog-mode . lsp-deferred)
    (lsp-mode . lsp-enable-which-key-integration)
    :commands (lsp lsp-deferred)
    :init
    (setq lsp-keymap-prefix "C-c l")
    :custom
    (lsp-idle-delay 0.500)
    (lsp-log-io nil)
    (lsp-completion-provider :none)
    (lsp-headerline-breadcrumb-enable nil))

  (use-package flycheck
    :ensure t
    :config
    (global-flycheck-mode +1))
#+end_src

** Indentation preferences
#+begin_src emacs-lisp
  (setq-default
   indent-tabs-mode t         
   tab-width 4              
   standard-indent 4)            
  (setq tab-always-indent 1)

  (use-package dtrt-indent
    :ensure t
    :hook (prog-mode . dtrt-indent-mode))

  (use-package whitespace
    :hook (prog-mode . whitespace-mode)
    :custom
    (whitespace-style '(face tabs tab-mark trailing))
    (whitespace-display-mappings
     '((tab-mark ?\t [?→ ?\t] [?> ?\t]))))
#+end_src

* COMPLETION SYSTEM
** Helpful documentation
#+begin_src emacs-lisp
  (use-package helpful
    :ensure t
    :bind
    ([remap describe-function] . helpful-callable)
    ([remap describe-variable] . helpful-variable)
    ([remap describe-key] . helpful-key))
#+end_src

** Minibuffer completion (Vertico + Marginalia)
#+begin_src emacs-lisp
  (use-package marginalia
    :ensure t
    :bind (:map minibuffer-local-map
                ("M-A" . marginalia-cycle))
    :init
    (marginalia-mode))

  (use-package vertico
    :ensure t
    :custom
    (vertico-cycle t)
    :init
    (vertico-mode))

  (use-package savehist
    :init
    (savehist-mode))

  (use-package orderless
    :ensure t
    :custom
    (completion-styles '(orderless basic))
    (completion-category-defaults nil)
    (completion-category-overrides '((file (styles partial-completion)))))
#+end_src

** Minibuffer settings
#+begin_src emacs-lisp
  (use-package emacs
    :custom
    (context-menu-mode t)
    (enable-recursive-minibuffers t)
    (read-extended-command-predicate #'command-completion-default-include-p)
    (text-mode-ispell-word-completion nil)
    (minibuffer-prompt-properties
     '(read-only t cursor-intangible t face minibuffer-prompt)))
#+end_src

** In-buffer completion (Corfu + Cape)
#+begin_src emacs-lisp
  (use-package corfu
    :ensure t
    :custom
    (corfu-auto t)
    (corfu-cycle t)
    (corfu-preselect 'prompt)
    :init
    (global-corfu-mode)
    (corfu-history-mode)
    (corfu-popupinfo-mode)
    :bind
    (:map corfu-map
          ("TAB" . corfu-next)
          ([tab] . corfu-next)
          ("S-TAB" . corfu-previous)
          ([backtab] . corfu-previous)))

  (use-package cape
    :ensure t
    :bind ("C-c p" . cape-prefix-map)
    :hook
    ((completion-at-point-functions . cape-dabbrev)
     (completion-at-point-functions . cape-file)
     (completion-at-point-functions . cape-elisp-block)))

#+end_src

#+RESULTS:
: [nil 26870 55996 618175 nil elpaca-process-queues nil nil 712000 nil]

* VISUAL APPEARANCE
** Theme and colors
#+begin_src emacs-lisp
  (use-package doom-themes
    :ensure t
    :custom
    (doom-themes-enable-bold t)
    (doom-themes-enable-italic t)
    :config
    (load-theme 'doom-moonlight t)
    (doom-themes-visual-bell-config)
    (doom-themes-org-config)

    (let ((bg "#16191C")
          (fg "#C5CACE")
          (bg-alt "#252A2E")
          (fg-alt "#A3AAAF")
          (fg-muted "#50555A"))
      (custom-set-faces
       `(default ((t (:background ,bg :foreground ,fg))))
       `(fringe ((t (:background ,bg))))
       `(hl-line ((t (:background ,bg-alt))))
       `(mode-line ((t (:background ,bg-alt :foreground ,fg))))
       `(mode-line-inactive ((t (:background ,bg :foreground ,fg-muted))))
       `(line-number ((t (:foreground ,fg-muted :background ,bg))))
       `(line-number-current-line ((t (:foreground ,fg-alt :background ,bg-alt :weight bold))))
       `(font-lock-comment-face ((t (:foreground ,fg-alt)))))))

  (add-hook 'org-mode-hook
            (lambda ()
              (set-face-background 'org-block "#16191C")
              (set-face-foreground 'org-block "#C5CACE")
              (set-face-background 'org-block-begin-line "#252A2E")
              (set-face-foreground 'org-block-begin-line "#A3AAAF")
              (set-face-background 'org-block-end-line "#252A2E")
              (set-face-foreground 'org-block-end-line "#A3AAAF")))
#+end_src

** Modeline
#+begin_src emacs-lisp
  (use-package doom-modeline
    :ensure t
    :init (doom-modeline-mode +1))
#+end_src

** Color preview
#+begin_src emacs-lisp
  (use-package colorful-mode
    :ensure t
    :custom
    (colorful-use-prefix t)
    (colorful-only-strings 'only-prog)
    (css-fontify-colors nil)
    :config
    (global-colorful-mode t)
    (add-to-list 'global-colorful-modes 'helpful-mode))

  (use-package rainbow-delimiters
    :ensure t
    :hook (prog-mode . rainbow-delimiters-mode))
#+end_src

#+RESULTS:
: [nil 26870 59644 357807 nil elpaca-process-queues nil nil 727000 nil]

* INTEGRATIONS & UTILITIES
** Discord presence
#+begin_src emacs-lisp
  (use-package elcord
    :ensure t
    :config
    (elcord-mode +1))
#+end_src

** Project management
#+begin_src emacs-lisp
  (use-package projectile
    :ensure t
    :config
    (projectile-mode +1)
    (define-key projectile-mode-map (kbd "C-c p") 'projectile-command-map))

  (use-package editorconfig
    :ensure t
    :config
    (editorconfig-mode 1))
#+end_src
** Dashboard
#+begin_src emacs-lisp
  (use-package page-break-lines
    :ensure t
    :config
    (page-break-lines-mode +1))

  (use-package all-the-icons
    :ensure t
    :if (display-graphic-p))

  (use-package dashboard
    :ensure t
    :custom
    (dashboard-banner-logo-title "DMs~ ;)")
    (dashboard-startup-banner "~/.config/emacs/dash.gif")
    :config
    (add-hook 'elpaca-after-init-hook #'dashboard-insert-startupify-lists)
    (add-hook 'elpaca-after-init-hook #'dashboard-initialize)
    (dashboard-setup-startup-hook))
#+end_src

** File tree
#+begin_src emacs-lisp
  (use-package treemacs
    :ensure t
    :bind ("C-c t" . treemacs)
    :config
    (setq treemacs-width 30))

  (use-package treemacs-projectile
    :ensure t
    :after (treemacs projectile))

  (use-package treemacs-all-the-icons
    :ensure t
    :after (treemacs all-the-icons)
    :config
    (treemacs-load-theme "all-the-icons"))

  (use-package treemacs-icons-dired
    :ensure t
    :hook (dired-mode . treemacs-icons-dired-enable-once))

#+end_src

#+RESULTS:
: [nil 26870 60289 404113 nil elpaca-process-queues nil nil 420000 nil]