diff options
Diffstat (limited to 'init.el')
| -rw-r--r-- | init.el | 218 |
1 files changed, 218 insertions, 0 deletions
@@ -0,0 +1,218 @@ +;;; init.el --- Emacs configuration entry point -*- lexical-binding: t -*- + +;; ===================================== +;; 🚀 Performance Optimization +;; ===================================== + +;; Restore GC threshold after startup (maximized in early-init.el) +(add-hook 'emacs-startup-hook + (lambda () + (setq gc-cons-threshold (* 100 1024 1024)))) + +;; ===================================== +;; 📦 Package Management (straight.el) +;; ===================================== + +;; Only check for modifications when explicitly checking +(setq straight-check-for-modifications '(find-when-checking)) + +;; Bootstrap straight.el from XDG config directory +(defvar bootstrap-version) +(let* ((user-dir (file-name-as-directory + (or (getenv "XDG_CONFIG_HOME") "~/.config/"))) + (emacs-dir (concat user-dir "emacs/")) + (bootstrap-file + (expand-file-name "straight/repos/straight.el/bootstrap.el" emacs-dir)) + (bootstrap-version 6)) + (unless (file-exists-p bootstrap-file) + (with-current-buffer + (url-retrieve-synchronously + "https://raw.githubusercontent.com/radian-software/straight.el/develop/install.el" + 'silent 'inhibit-cookies) + (goto-char (point-max)) + (eval-print-last-sexp))) + (load bootstrap-file nil 'nomessage)) + +;; Freeze File +(setq straight-freeze-file (expand-file-name "versions.el" user-emacs-directory)) + +;; Integrate straight.el with use-package +(straight-use-package 'use-package) +(setq straight-use-package-by-default t) + +;; Essential use-package utilities +(use-package diminish) ;; Hide/abbreviate minor modes +(use-package bind-key) ;; Key binding utilities + +;; ===================================== +;; 🎨 UI & Visual Configuration +;; ===================================== + +;; Disable unnecessary UI elements +(menu-bar-mode -1) +(tool-bar-mode -1) +(scroll-bar-mode -1) +(tooltip-mode -1) +(blink-cursor-mode -1) +(fringe-mode 0) + +;; Disable startup messages and bell +(setq inhibit-startup-screen t + inhibit-startup-message t + inhibit-startup-echo-area-message t + ring-bell-function 'ignore) + +;; Configure line numbers with themed colors +(global-display-line-numbers-mode 1) +(setq display-line-numbers-type 'relative) ;; Relative line numbers for Evil mode +(set-face-attribute 'line-number nil + :foreground "#4fa8a8" ;; Softer cyan for line numbers + :background "#003636") +(set-face-attribute 'line-number-current-line nil + :foreground "#8affff" ;; Bright cyan for current line + :background "#003636" + :weight 'bold) +(set-face-attribute 'fringe nil :background "#003636") + +;; Configure cursor and selection colors +(set-face-attribute 'cursor nil + :background "#FFC600") ;; Yellow/gold cursor +(set-face-attribute 'region nil + :background "#395e5e" ;; Dark teal selection + :foreground 'unspecified) ;; Keep text color unchanged + +;; Configure mode-line colors +(set-face-attribute 'mode-line nil + :background "#004344" ;; Dark teal background + :foreground "#8affff" ;; Bright cyan text + :box nil) ;; Remove border +(set-face-attribute 'mode-line-inactive nil + :background "#003030" ;; Darker background for inactive + :foreground "#808080" ;; Gray text for inactive + :box nil) ;; Remove border + +;; ===================================== +;; 🔧 Editing Behavior +;; ===================================== + +;; Auto-pair parentheses, brackets, quotes, etc. +(electric-pair-mode 1) + +;; Enable electric-indent for auto-indenting on RET +(electric-indent-mode 1) + +;; Set tab-width to 4 globally (setq-default applies to all buffers) +(setq-default tab-width 4) + +;; Use TAB characters when indenting +(setq-default indent-tabs-mode t) + +;; ===================================== +;; Whitespace Visualization (listchars) +;; ===================================== + +;; Show whitespace characters like Vim's listchars +(use-package whitespace + :straight nil ;; Built-in package + :hook (prog-mode . whitespace-mode) + :config + ;; What to visualize + (setq whitespace-style '(face + tabs + spaces + trailing + space-mark + tab-mark + newline + newline-mark)) + + ;; Character mappings (like Vim listchars) + (setq whitespace-display-mappings + '( + ;; tab: show as "│»»»" (char 9 = tab) + (tab-mark 9 [9474 187 187 187] [124 187 187 187]) + ;; space: show as "·" (char 32 = space) + (space-mark 32 [183] [46]) + ;; newline: show as "↲" (char 10 = newline) + (newline-mark 10 [8626 10] [182 10]) + ;; non-breaking space: show as "␣" + (space-mark 160 [9251] [95]))) + + ;; Face colors for whitespace characters + (set-face-attribute 'whitespace-tab nil + :foreground "#016868" + :background nil) + (set-face-attribute 'whitespace-space nil + :foreground "#016868" + :background nil) + (set-face-attribute 'whitespace-newline nil + :foreground "#016868" + :background nil) + (set-face-attribute 'whitespace-trailing nil + :foreground "#d2691e" + :background "#003030")) + +;; Toggle whitespace-mode with a keybinding +;; (global-set-key (kbd "C-c w") 'whitespace-mode) + +;; ===================================== +;; Ligatures +;; ===================================== + +;; Enable ligatures for JetBrains Mono +;; Uses composition-function-table for proper ligature rendering +(defconst jetbrains-mono-ligatures + '("-->" "//" "/**" "/*" "*/" "<!--" ":=" "->>" "<<-" "->" "<-" + "<=>" "==" "!=" "<=" ">=" "=:=" "!==" "&&" "||" "..." ".." + "|||" "///" "&&&" "===" "++" "--" "=>" "|>" "<|" "||>" "<||" + "|||>" "<|||" ">>" "<<" "::=" "|]" "[|" "{|" "|}" + "[<" ">]" ":?>" ":?" "/=" "[||]" "!!" "?:" "?." "::" + "+++" "??" "###" "##" ":::" "####" ".?" "?=" "=!=" "<|>" + "<:" ":<" ":>" ">:" "<>" "***" ";;" "/==" ".=" ".-" "__" + "=/=" "<-<" "<<<" ">>>" "<=<" "<<=" "<==" "<==>" "==>" "=>>" + ">=>" ">>=" ">>-" ">-" "<~>" "-<" "-<<" "=<<" "---" "<-|" + "<=|" "/\\" "\\/" "|=>" "|~>" "<~~" "<~" "~~" "~~>" "~>" + "<$>" "<$" "$>" "<+>" "<+" "+>" "<*>" "<*" "*>" "</>" "</" "/>" + "<->" "..<" "~=" "~-" "-~" "~@" "^=" "-|" "_|_" "|-" "||-" + "|=" "||=" "#{" "#[" "]#" "#(" "#?" "#_" "#_(" "#:" "#!" "#=" + "&=")) + +;; Sort ligatures by length (longest first) to ensure proper matching +(setq jetbrains-mono-ligatures + (sort jetbrains-mono-ligatures + (lambda (x y) (> (length x) (length y))))) + +;; Register each ligature pattern in the composition function table +(dolist (ligature jetbrains-mono-ligatures) + (let ((pattern (regexp-quote ligature)) + (first-char (aref ligature 0))) + (set-char-table-range composition-function-table + first-char + (nconc (char-table-range composition-function-table first-char) + (list (vector pattern + 0 + 'compose-gstring-for-graphic)))))) + +;; ===================================== +;; Smooth Scrolling +;; ===================================== + +;; (use-package ultra-scroll +;; ;:vc (:url "https://github.com/jdtsmith/ultra-scroll") ; if desired (emacs>=v30) +;; :init +;; (setq scroll-conservatively 3 ; or whatever value you prefer, since v0.4 +;; scroll-margin 0) ; important: scroll-margin>0 not yet supported +;; :config +;; (ultra-scroll-mode 1)) + +(pixel-scroll-precision-mode 1) +(setq scroll-conservatively 101 + scroll-margin 0 + scroll-preserve-screen-position t) + + +;; ===================================== +;; 😈 eVIl Mode MWAHAHAHAHAHHA +;; ===================================== + +(load (expand-file-name "config/evil.el" user-emacs-directory)) |