diff options
Diffstat (limited to 'emacs-evil/config.org')
| -rw-r--r-- | emacs-evil/config.org | 832 |
1 files changed, 832 insertions, 0 deletions
diff --git a/emacs-evil/config.org b/emacs-evil/config.org new file mode 100644 index 0000000..046865a --- /dev/null +++ b/emacs-evil/config.org @@ -0,0 +1,832 @@ +#+TITLE: Venomade's Emacs Config +#+AUTHOR: Venomade +#+STARTUP: showeverything + +* Table of Contents :toc_2: +- [[#straight-package-manager][Straight Package Manager]] +- [[#configs][Configs]] + - [[#custom-functions][Custom Functions]] + - [[#fix-annoyances][Fix Annoyances]] + - [[#setup-line-numbers][Setup Line Numbers]] +- [[#general][General]] + - [[#beacon][Beacon]] + - [[#colors][Colors]] + - [[#diminish][Diminish]] + - [[#evil-mode][Evil Mode]] + - [[#general-keybindings][General Keybindings]] + - [[#magit][Magit]] + - [[#ivy-counsel][Ivy (Counsel)]] + - [[#pdf-tools][PDF Tools]] + - [[#simple-modeline][Simple Modeline]] + - [[#smart-parentheses-pairing][Smart Parentheses Pairing]] + - [[#undo-tree][Undo Tree]] + - [[#which-key][Which Key]] +- [[#dashboard][Dashboard]] + - [[#dashboard-config][Dashboard Config]] + - [[#clean-up][Clean Up]] +- [[#org-mode][Org Mode]] + - [[#table-of-contents][Table of Contents]] + - [[#bullet-headers][Bullet Headers]] + - [[#org-agenda][Org Agenda]] + - [[#org-babel][Org Babel]] + - [[#org-tempo][Org Tempo]] + - [[#mixed-pitch][Mixed Pitch]] + - [[#styling][Styling]] +- [[#programming][Programming]] + - [[#lsp-mode][LSP Mode]] + - [[#corfu][Corfu]] + - [[#utilities][Utilities]] +- [[#terminal][Terminal]] + - [[#vterm][VTerm]] +- [[#user-interface][User Interface]] + - [[#add-nerd-icons][Add Nerd Icons]] + - [[#kind-icons][Kind Icons]] + - [[#fonts][Fonts]] + - [[#theme][Theme]] + - [[#niceties][Niceties]] + +* Straight Package Manager +I'm using the Straight package manager instead of use-package because it is only available in Emacs 29 and above. +#+begin_src emacs-lisp + (defvar bootstrap-version) + (let ((bootstrap-file + (expand-file-name "straight/repos/straight.el/bootstrap.el" user-emacs-directory)) + (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)) + + (setq straight-use-package-by-default t) +#+end_src + +* Configs + +** Custom Functions +*** Cursor follow on split +This is so that action can be taken as soon as a split takes place, to either close/move the window or perform an action inside of it. +#+begin_src emacs-lisp + (defun split-and-follow-horizontally() + (interactive) + (split-window-below) + (balance-windows) + (other-window 1)) + + (defun split-and-follow-vertically() + (interactive) + (split-window-right) + (balance-windows) + (other-window 1)) +#+end_src + +** Fix Annoyances +*** Disable Backups +Living on the edge. +#+begin_src emacs-lisp + (setq make-backup-files nil) + (setq auto-save-default nil) +#+end_src +*** Disable Bell +Only flash, no sound, it gets annoying. +#+begin_src emacs-lisp + (setq ring-bell-function 'ignore) +#+end_src +*** Hide Warnings +Fixing warnings is for nerds. This is basically necessary after more than 5 packages. +#+begin_src emacs-lisp + (setq warning-minimum-level :emergency) +#+end_src +*** Add Scroll Margin +This adds a scroll margin at the top and bottom of 12 lines to make it easier to scroll through the buffer. +#+begin_src emacs-lisp + (setq scroll-margin 12) +#+end_src + +** Setup Line Numbers +Vim style line numbers. +#+begin_src emacs-lisp + (add-hook 'prog-mode-hook 'display-line-numbers-mode) + (setq display-line-numbers-type 'relative) + (global-visual-line-mode t) +#+end_src +*** Generally use spaces instead of tabs +Generally, as in everywhere but Go. +#+begin_src emacs-lisp + (setq-default indent-tabs-mode nil) + (setq tab-width 4) + (setq tab-stop-list (number-sequence 4 200 4)) +#+end_src + +* General + +** Beacon +Highlight the cursor's position to make it's position clear on cursor jump. +#+begin_src emacs-lisp + (use-package beacon + :diminish beacon-mode + :init + (beacon-mode 1)) +#+end_src + +** Colors +*** Highlight Todo +Highlight TODO items so they can be reviewed later. +#+begin_src emacs-lisp + (use-package hl-todo + :diminish hl-todo-mode + :hook ((org-mode . hl-todo-mode) + (prog-mode . hl-todo-mode)) + + :config + (setq hl-todo-highlight-punctuation ":" + hl-todo-highlight-faces + `(("TODO" warning bold) + ("FIXME" error bold) + ("HACK" font-lock-constant-face bold) + ("REVIEW" font-lock-doc-face bold) + ("NOTE" success bold) + ("DEPRECATED" font-lock-doc-face bold)))) +#+end_src +*** Rainbow Mode +Highlights color hex codes with their color +#+begin_src emacs-lisp + (use-package rainbow-mode + :diminish rainbow-mode + :hook ((org-mode . rainbow-mode) + (prog-mode . rainbow-mode))) +#+end_src +*** Rainbow Delimiters +Makes different brackets and other delimeters levels different colors so they can be quickly distinguished. +#+begin_src emacs-lisp + (use-package rainbow-delimiters + :diminish rainbow-delimiters-mode + :hook (prog-mode . rainbow-delimiters-mode)) +#+end_src + +** Diminish +Hides modes from the modeline to make it cleaner +#+begin_src emacs-lisp + (use-package diminish) +#+end_src + +** Evil Mode +*** Evil Mode Package +Adds Vim motions to Emacs, I was a vim user and have no interest in getting carpal tunnel, sue me. +#+begin_src emacs-lisp + (use-package evil + :diminish evil-mode + :init + (setq evil-want-integration t) + (setq evil-want-keybinding nil) + (setq evil-vsplit-window-right t) + (setq evil-split-window-below t) + (evil-mode)) +#+end_src +*** Evil Collection +Adds Vim motions to even more Emacs packages. +#+begin_src emacs-lisp + (use-package evil-collection + :after evil + :config + (setq evil-collection-mode-list '(dashboard dired ibuffer magit)) + (evil-collection-init)) +#+end_src + +** General Keybindings +Keybindings for my most common actions. +#+begin_src emacs-lisp + (use-package general + :diminish general-override-mode + :config + (general-evil-setup) + + ;; Set 'SPC' as the leader key + (general-create-definer vnmd/leader-keys + :states '(normal insert visual emacs) + :keymaps 'override + :prefix "SPC" + :global-prefix "M-SPC") ;; For insert mode ;; FIXME Alt-Space is a common keybind for the application menu. + + (vnmd/leader-keys + "/" '(swiper t :wk "Search") + "r" '(:ignore t :wk "Reload") + "r c" '((lambda () (interactive) (load-file "~/.emacs.d/init.el")) :wk "Reload Config")) + + (vnmd/leader-keys + "b" '(:ignore t :wk "Buffer") + "b b" '(switch-to-buffer :wk "Switch buffer") + "b k" '(kill-this-buffer :wk "Kill this buffer") + "b n" '(next-buffer :wk "Next buffer") + "b p" '(previous-buffer :wk "Previous buffer") + "b r" '(revert-buffer :wk "Reload buffer")) + + (vnmd/leader-keys + "e" '(:ignore t :wk "Evaluate / Eshell") + "e b" '(eval-buffer :wk "Evaluate Elisp buffer") + "e d" '(eval-defun :wk "Evaluate Elisp defun") + "e e" '(eval-expression :wk "Evaluate Elisp expression") + "e l" '(eval-last-sexp :wk "Evaluate Elisp expression before point") + "e r" '(eval-region :wk "Evaluate Elisp region") + "e s" '(eshell :wk "Eshell")) + + (vnmd/leader-keys + "f" '(:ignore t :wk "Open File") + "f c" '((lambda () (interactive) (find-file "~/.emacs.d/config.org")) :wk "Open Emacs config") + "f f" '(counsel-fzf :wk "Find (File) Fuzzy") + "f g" '(counsel-rg :wk "Find (Rip)Grep") + "f p" '(find-file :wk "Find (File) Path") + "f r" '(counsel-recentf :wk "Recent file")) + + (vnmd/leader-keys + "g" '(:ignore t :wk "Git") + "g s" '(magit-status :wk "Git Status")) + + (vnmd/leader-keys + "l" '(:ignore t :wk "LSP") + "l a" '(lsp-execute-code-action :wk "Execute code action") + "l d" '(lsp-describe-thing-at-point :wk "Describe at point") + "l f" '(lsp-format-buffer :wk "Format buffer") + "l m" '(lsp-command-map :wk "LSP Command Map") + "l w" '(flycheck-list-errors :wk "Show Diagnostics")) + + (vnmd/leader-keys + "m" '(:ignore t :wk "Make") + "m c" '(compile :wk "Compile") + "m r" '(recompile :wk "Recompile")) + + (vnmd/leader-keys + "o" '(:ignore t :wk "Org Mode") + "o a" '(org-agenda :wk "Open Agenda") + "o A" '((lambda () (interactive) (find-file "~/Documents/Org/agenda.org")) :wk "Edit Agenda") + "o d" '(:ignore t :wk "Date") + "o d n" '(org-timestamp-up :wk "Next Date") + "o d p" '(org-timestamp-down :wk "Previous Date") + "o d d" '(org-time-stamp :wk "Insert Date") + "o e" '(:ignore t :wk "Org Export") + "o e h" '(org-html-export-to-html :wk "Export to HTML")) + + (vnmd/leader-keys + "t" '(:ignore t :wk "Terminal") + "t t" '(vterm-toggle :wk "Toggle Terminal")) + + (vnmd/leader-keys + "u" '(undo-tree-visualize :wk "Undo Tree")) + + (vnmd/leader-keys + "w" '(:ignore t :wk "Windows") + + "w h" '(evil-window-left :wk "Window Left") + "w <left>" '(evil-window-left :wk "Window Left") + + "w j" '(evil-window-down :wk "Window Down") + "w <down>" '(evil-window-down :wk "Window Down") + + "w k" '(evil-window-up :wk "Window Up") + "w <up>" '(evil-window-up :wk "Window Up") + + "w l" '(evil-window-right :wk "Window Right") + "w <right>" '(evil-window-right :wk "Window Right") + + "w u" '(winner-undo :wk "Undo Movement") + "w r" '(winner-redo :wk "Redo Movement") + + "w c" '(evil-window-delete :wk "Close Window") + "w n" '(evil-window-new :wk "New Window") + "w v" '(evil-window-vsplit :wk "Split Window (Vertical)") + "w s" '(evil-window-split :wk "Split Window (Horizontal)")) + + (vnmd/leader-keys + :keymaps 'org-mode-map + "c" '(:ignore t :wk "Org-Src") + "c '" '(org-edit-src-code :wk "Edit Source Block")) + (vnmd/leader-keys + :keymaps 'org-src-mode-map + "c" '(:ignore t :wk "Org-Src") + "c '" '(org-edit-src-exit :wk "Exit Source Block")) + ) +#+end_src + +** Magit +A very extensive Git GUI for Emacs. +#+begin_src emacs-lisp + (use-package magit + :after evil-collection) +#+end_src + +** Ivy (Counsel) +*** Counsel +Adds better fuzzy completion to many Emacs commands. +#+begin_src emacs-lisp + (use-package counsel + :diminish counsel-mode + :after ivy + :config (counsel-mode)) +#+end_src +*** Counsel Web +Adds an interactible web search into emacs. +#+begin_src emacs-lisp + (use-package counsel-web) + (setq counsel-web-search-action 'browse-url) +#+end_src +*** Ivy +Adds fuzzy completion to basic Emacs commands. +#+begin_src emacs-lisp + (use-package ivy + :diminish ivy-mode + :custom + (setq ivy-use-virtual-buffers t) + (setq ivy-count-format "(%d/%d) ") + (setq enable-recursive-minibuffers t) + :config + (ivy-mode)) +#+end_src +*** Ivy Rich +Adds Icons to all the new fuzzy completed Emacs commands. +#+begin_src emacs-lisp + (use-package ivy-rich + :diminish ivy-rich-mode + :after ivy + :init (ivy-rich-mode 1) + :custom + (ivy-virtual-abbreviate 'full + ivy-rich-switch-buffer-align-virtual-buffer t + ivy-rich-path-style 'abbrev)) +#+end_src + +** PDF Tools +View PDFs within Emacs and have their colours match the theme. +*** Install and Theme +#+begin_src emacs-lisp + (use-package pdf-tools + :init + (pdf-tools-install) + :config + (pdf-tools-install) + :hook (pdf-view-mode . pdf-view-themed-minor-mode)) +#+end_src + +*** Evil mode compatibility fix +Fix an evil-mode pdf-view-mode compatibility bug that draws a flashing border around the PDF. +#+begin_src emacs-lisp + (evil-set-initial-state 'pdf-view-mode 'emacs) + (add-hook 'pdf-view-mode-hook + (lambda () + (set (make-local-variable 'evil-emacs-state-cursor) (list nil)))) +#+end_src + +** Simple Modeline +Make the modeline simple, yet still display helpful information. +#+begin_src emacs-lisp + (use-package simple-modeline + :diminish simple-modeline-mode + :custom + (simple-modeline-segments + '((simple-modeline-segment-modified + simple-modeline-segment-buffer-name + simple-modeline-segment-position) + (simple-modeline-segment-vc + ;;simple-modeline-segment-minor-modes + ;;simple-modeline-segment-misc-info + ;;simple-modeline-segment-process + simple-modeline-segment-major-mode))) + :hook (after-init . simple-modeline-mode)) +#+end_src + +** Smart Parentheses Pairing +Automatically deals with parentheses in pairs. +#+begin_src emacs-lisp + (use-package smartparens + :diminish smartparens-mode + :hook (prog-mode text-mode markdown-mode) + :config + (require 'smartparens-config)) +#+end_src + +** Undo Tree +Makes undo history like a Git commit tree, very powerful. +#+begin_src emacs-lisp + (use-package undo-tree + :diminish undo-tree-mode + :config + (setq undo-tree-auto-save-history nil) + (evil-set-undo-system 'undo-tree) + (add-hook 'evil-local-mode-hook 'turn-on-undo-tree-mode)) +#+end_src + +** Which Key +After pressing a key and a half-second delay, list out the possible next keys to perform a shortcut. +#+begin_src emacs-lisp + (use-package which-key + :diminish which-key-mode + :init + (which-key-mode 1) + :config + (setq which-key-side-window-location 'bottom + which-key-sort-order #'which-key-key-order-alpha + which-key-sort-uppercase-first nil + which-key-add-column-padding 1 + which-key-max-display-columns nil + which-key-min-display-lines 6 + which-key-side-window-slot -10 + which-key-side-window-max-height 0.25 + which-key-idle-delay 0.4 + which-key-max-description-length 25 + which-key-allow-imprecise-window-fit t + which-key-separator " -> " )) +#+end_src + +* Dashboard + +** Dashboard Config +A dashboard for quick actions after entering Emacs. +#+begin_src emacs-lisp + (use-package welcome-dashboard + :diminish welcome-dashboard-mode + :straight '(:type git :host github :repo "konrad1977/welcome-dashboard") + :config + (setq welcome-dashboard-latitude 52.0848 + welcome-dashboard-longitude 0.4368 ;; latitude and longitude must be set to show weather information + welcome-dashboard-path-max-length 75 + welcome-dashboard-use-fahrenheit nil ;; show in celcius or fahrenheit. + welcome-dashboard-min-left-padding 10 + welcome-dashboard-image-file "~/.emacs.d/EmacsLogo.png" + welcome-dashboard-image-width 261 + welcome-dashboard-image-height 220 + welcome-dashboard-title "Welcome Venomade. Time to Emacs!") + (welcome-dashboard-create-welcome-hook)) + +#+end_src + +** Clean Up +*** Hide Mode Line +Hide the modeline in the dashboard. +#+begin_src emacs-lisp + (use-package hide-mode-line + :hook + (welcome-dashboard-mode . hide-mode-line-mode)) +#+end_src +*** Hide messages +Hide startup messages, like 'hide warnings' but for information tooltips. +#+begin_src emacs-lisp + (defun display-startup-echo-area-message () + (message "")) + (setq inhibit-startup-message t) + (setq inhibit-startup-echo-area-message t) + + (defun dashboard-quiet() + "Shut up those messages" + (message nil)) + + (add-hook 'dashboard-quiet 'welcome-dashboard-mode) +#+end_src + +* Org Mode + +** Table of Contents +Automatically generate a table of contents for an Org file. +#+begin_src emacs-lisp + (use-package toc-org + :diminish toc-org-mode + :commands toc-org-enable + :init (add-hook 'org-mode-hook 'toc-org-enable) + :config (setq org-src-window-setup 'current-window)) + (add-hook 'org-mode-hook 'org-indent-mode) +#+end_src + +** Bullet Headers +Stylize Org Mode headers with Nerd Icons. +#+begin_src emacs-lisp + (use-package org-bullets + :diminish org-bullets-mode + :config + (setq org-bullets-bullet-list '( + "" + "" + "" + "" + ""))) + (add-hook 'org-mode-hook (lambda () (org-bullets-mode 1))) +#+end_src + +** Org Agenda +Manage a Todo list, a Calendar, and other organization tools with Org. +#+begin_src emacs-lisp + (setq org-agenda-files '("~/Documents/Org/agenda.org")) + (setq org-fancy-priorities-list '("[A]" "[B]" "[C]") + org-priority-faces + '((?A :foreground "#ff6c6b" :weight bold) + (?B :foreground "#ffff91" :weight bold) + (?C :foreground "#aaffaa" :weight bold))) + (setq org-agenda-custom-commands + '(("v" "View Agenda" + ((tags "PRIORITY=\"A\"" + ((org-agenda-skip-function '(org-agenda-skip-entry-if 'todo 'done)) + (org-agenda-overriding-header "HIGH PRIORITY:"))) + (tags "PRIORITY=\"B\"" + ((org-agenda-skip-function '(org-agenda-skip-entry-if 'todo 'done)) + (org-agenda-overriding-header "Medium Priority:"))) + (tags "PRIORITY=\"C\"" + ((org-agenda-skip-function '(org-agenda-skip-entry-if 'todo 'done)) + (org-agenda-overriding-header "low priority:"))) + (agenda "") + (alltodo ""))))) +#+end_src + +** Org Babel +Setup literate progamming in Org Mode. +*** Config +Don't ask for conformation when evaluating source blocks. +#+begin_src emacs-lisp + (setq org-confirm-babel-evaluate nil) +#+end_src +*** Load Languages +#+begin_src emacs-lisp + (org-babel-do-load-languages + 'org-babel-load-languages + '((python . t) + (scheme . t))) +#+end_src + +** Org Tempo +This provides shorthands for Org functions. +#+begin_src emacs-lisp + (require 'org-tempo) +#+end_src + +** Mixed Pitch +Allow Monospace fonts and Proportional fonts in the same buffer, enabling it for Org Mode. +#+begin_src emacs-lisp + (use-package mixed-pitch + :diminish mixed-pitch-mode + :hook + (org-mode . mixed-pitch-mode)) +#+end_src + +** Styling +Hide markers for bold, italic and other types of text styling. +#+begin_src emacs-lisp + (setq org-hide-emphasis-markers t) +#+end_src + +* Programming +** LSP Mode +Use language servers to provide info and completion +#+begin_src emacs-lisp + (use-package lsp-mode + :init + (setq lsp-completion-provider :none) + :commands lsp lsp-deferred + :config + (lsp-enable-snippet nil) + (lsp-enable-which-key-integration t) + :hook (prog-mode . lsp-deferred)) + + (use-package lsp-ui + :commands lsp-ui-mode + :hook (prog-mode . lsp-ui-mode)) + + (define-key evil-normal-state-map (kbd "K") 'lsp-ui-doc-show) +#+end_src + +** Corfu +A lightweight auto-completion utility +#+begin_src emacs-lisp + (use-package corfu + :diminish corfu-mode + :custom + (corfu-auto t) + (corfu-auto-delay 0.1) + (corfu-auto-prefix 2) + (corfu-quit-no-match t) + (corfu-cycle t) + (corfu-preselect 'prompt) + :bind + (:map corfu-map + ("RET" . nil) + ("TAB" . corfu-next) + ([tab] . corfu-next) + ("S-TAB" . corfu-previous) + ([backtab] . corfu-previous)) + :init + (global-corfu-mode) + (corfu-popupinfo-mode)) + + (use-package emacs + :init + (setq completion-cycle-threshold 3) + (setq corfu-popupinfo-delay 0) + (setq tab-always-indent 'complete)) +#+end_src + +** Utilities +*** Flycheck +Syntax checking for Emacs. +#+begin_src emacs-lisp + (use-package flycheck + :diminish flycheck-mode + :defer t + :init (global-flycheck-mode)) +#+end_src + +*** Tree Sitter +Insane syntax highlighting. +#+begin_src emacs-lisp + (use-package tree-sitter) + (use-package tree-sitter-langs) + + (global-tree-sitter-mode) + (add-hook 'tree-sitter-after-on-hook #'tree-sitter-hl-mode) +#+end_src + +*** Languages +Specific language packages +**** Rust +#+begin_src emacs-lisp + (use-package rust-mode + :init + (setq rust-mode-treesitter-derive t)) + + (setenv "PATH" + (concat + (concat + (concat + (expand-file-name "~/.cargo/bin") + ":") + (getenv "PATH")))) + + (setq exec-path + (append exec-path + (list (expand-file-name "~/.cargo/bin")))) +#+end_src + +* Terminal + +** VTerm +Add a more traditional terminal to Emacs. +*** VTerm Package +#+begin_src emacs-lisp + (use-package vterm + :config + (setq shell-file-name "/bin/bash" + vterm-max-scrollback 5000)) +#+end_src +*** VTerm Toggle +Toggle VTerm with 'SPC-t-t' +#+begin_src emacs-lisp + (use-package vterm-toggle + :after vterm + :config + (setq vterm-toggle-fullscreen-p nil) + (setq vterm-toggle-scope 'project) + (add-to-list 'display-buffer-alist + '((lambda (buffer-or-name _) + (let ((buffer (get-buffer buffer-or-name))) + (with-current-buffer buffer + (or (equal major-mode 'vterm-mode) + (string-prefix-p vterm-buffer-name (buffer-name buffer)))))) + (display-buffer-reuse-window display-buffer-at-bottom) + (reusable-frames . visible) + (window-height . 0.3)))) +#+end_src + +* User Interface + +** Add Nerd Icons +Use Icons from Nerd Font to add a little modern spice to Emacs. +#+begin_src emacs-lisp + (use-package nerd-icons + :if (display-graphic-p)) + + (use-package nerd-icons-dired + :hook + (dired-mode . nerd-icons-dired-mode)) + + (use-package nerd-icons-ivy-rich + :init (nerd-icons-ivy-rich-mode 1)) + + (setq welcome-dashboard-use-nerd-icons t) +#+end_src + +** Kind Icons +#+begin_src emacs-lisp + (use-package kind-icon + :after corfu + :custom + (kind-icon-default-face 'corfu-default) + :config + (add-to-list 'corfu-margin-formatters #'kind-icon-margin-formatter)) +#+end_src + +** Fonts +*** Set Font +Set fonts for both Monospace and Proportional text. +#+begin_src emacs-lisp + (set-face-attribute 'variable-pitch nil + :font "ZedMono Nerd Font" + :height 160 + :weight 'regular) + (add-to-list 'default-frame-alist + '(font . "ZedMono Nerd Font-16")) + (set-face-attribute 'font-lock-comment-face nil + :slant 'italic) + (set-face-attribute 'font-lock-keyword-face nil + :slant 'italic) +#+end_src +*** Ligatures +Make ligature symbols out of common function symbols. +#+begin_src emacs-lisp + (dolist (char/ligature-re + `((?- . ,(rx (or (or "-->" "-<<" "->>" "-|" "-~" "-<" "->") (+ "-")))) + (?/ . ,(rx (or (or "/==" "/=" "/>" "/**" "/*") (+ "/")))) + (?* . ,(rx (or (or "*>" "*/") (+ "*")))) + (?< . ,(rx (or (or "<<=" "<<-" "<|||" "<==>" "<!--" "<=>" "<||" "<|>" "<-<" + "<==" "<=<" "<-|" "<~>" "<=|" "<~~" "<$>" "<+>" "</>" + "<*>" "<->" "<=" "<|" "<:" "<>" "<$" "<-" "<~" "<+" + "</" "<*") + (+ "<")))) + (?: . ,(rx (or (or ":?>" "::=" ":>" ":<" ":?" ":=") (+ ":")))) + (?= . ,(rx (or (or "=>>" "==>" "=/=" "=!=" "=>" "=:=") (+ "=")))) + (?! . ,(rx (or (or "!==" "!=") (+ "!")))) + (?> . ,(rx (or (or ">>-" ">>=" ">=>" ">]" ">:" ">-" ">=") (+ ">")))) + (?& . ,(rx (+ "&"))) + (?| . ,(rx (or (or "|->" "|||>" "||>" "|=>" "||-" "||=" "|-" "|>" + "|]" "|}" "|=") + (+ "|")))) + (?. . ,(rx (or (or ".?" ".=" ".-" "..<") (+ ".")))) + (?+ . ,(rx (or "+>" (+ "+")))) + (?\[ . ,(rx (or "[<" "[|"))) + (?\{ . ,(rx "{|")) + (?\? . ,(rx (or (or "?." "?=" "?:") (+ "?")))) + (?# . ,(rx (or (or "#_(" "#[" "#{" "#=" "#!" "#:" "#_" "#?" "#(") + (+ "#")))) + (?\; . ,(rx (+ ";"))) + (?_ . ,(rx (or "_|_" "__"))) + (?~ . ,(rx (or "~~>" "~~" "~>" "~-" "~@"))) + (?$ . ,(rx "$>")) + (?^ . ,(rx "^=")) + (?\] . ,(rx "]#")))) + (let ((char (car char/ligature-re)) + (ligature-re (cdr char/ligature-re))) + (set-char-table-range composition-function-table char + `([,ligature-re 0 font-shape-gstring])))) +#+end_src +*** Font Zooming +Bind both scroling and +/- to zooming. +#+begin_src emacs-lisp + (global-set-key (kbd "C-=") 'text-scale-increase) + (global-set-key (kbd "C--") 'text-scale-decrease) + (global-set-key (kbd "<C-wheel-up>") 'text-scale-increase) + (global-set-key (kbd "<C-wheel-down>") 'text-scale-decrease) +#+end_src + +** Theme +Set the theme to a nice dark one +#+begin_src emacs-lisp + (use-package gruber-darker-theme + :init + (load-theme 'gruber-darker t)) +#+end_src + +** Niceties +*** Indent Guides +Display indent guidelines when programming. +#+begin_src emacs-lisp + (use-package highlight-indent-guides + :hook + (prog-mode . highlight-indent-guides-mode) + :config + (setq + highlight-indent-guides-method 'character + highlight-indent-guides-character ?\| + highlight-indent-guides-responsive 'top + highlight-indent-guides-auto-character-face-perc 90)) +#+end_src +*** MacOS Titlebar +Blend MacOS titlebar into Emacs for a seamless effect. +#+begin_src emacs-lisp + (add-to-list 'default-frame-alist '(ns-transparent-titlebar . t)) + (add-to-list 'default-frame-alist '(ns-appearance . dark)) + (setq frame-title-format nil) + (setq ns-use-proxy-icon nil) +#+end_src +*** Disable Extra GUI Features +Disable GUI features to simplify frames. +#+begin_src emacs-lisp + (menu-bar-mode -1) + (tool-bar-mode -1) + (scroll-bar-mode -1) +#+end_src +*** No Scroll Jump +Scroll line by line instead of jumping multiple. +#+begin_src emacs-lisp + (setq scroll-conservatively 100) +#+end_src +*** Winner Mode +Allow undoing and redoing of window movements. +#+begin_src emacs-lisp + (winner-mode 1) +#+end_src |