initial commit

.config/emacs/config.org

@@ -0,0 +1,629 @@
+#+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]

.config/emacs/early-init.el

@@ -0,0 +1 @@
+(setq package-enable-at-startup nil)

.config/emacs/init.el

@@ -0,0 +1,12 @@
+;(add-to-list 'load-path
+;	     (expand-file-name
+;	      "tao-theme-emacs/"
+;	      user-emacs-directory))
+;
+;(load "tao-yin-theme.el")
+;(load-theme 'tao-yin t)
+
+(org-babel-load-file
+ (expand-file-name
+  "config.org"
+  user-emacs-directory))