diff options
| -rw-r--r-- | .config/emacs/config.org | 483 |
1 files changed, 251 insertions, 232 deletions
diff --git a/.config/emacs/config.org b/.config/emacs/config.org index d79780a..b0fddfe 100644 --- a/.config/emacs/config.org +++ b/.config/emacs/config.org @@ -444,234 +444,6 @@ Commenting code is a super common task — so make it an operator! #+END_SRC -** User Interface - -The default Emacs UI is fucking atrocious — we need to make it better. - -*** Shorter Prompts - -For some reason emacs has both the ~y-or-n-p~ and ~yes-or-no-p~ functions. I do -not like having to spell out full words — /y/ or /n/ is good enough for me — so -let’s just redefine ~yes-or-no-p~. - -#+BEGIN_SRC elisp - - (fset #'yes-or-no-p #'y-or-n-p) - -#+END_SRC - -*** Disable Basic UI Modes - -Emacs has a lot of UI modes that are enabled by default to make life easier for -the novice user. I am not the novice user and would rather these modes never -turned on ever again. - -#+BEGIN_SRC elisp - - (menu-bar-mode -1) - (scroll-bar-mode -1) - (tool-bar-mode -1) - (tooltip-mode -1) - -#+END_SRC - -*** Warnings - -I am typically not a fan around being warned about things unless something is -actually breaking or going wrong. - -In order, these options disable the following warnings: - -1. Opening large files -2. Following symbolic links -3. Adding advice to functions - -#+BEGIN_SRC elisp - - (setq large-file-warning-threshold nil - vc-follow-symlinks t - ad-redefinition-action 'accept) - -#+END_SRC - -*** Visible Bell - -Why not? I might disable this later. - -#+BEGIN_SRC elisp - - (setq visible-bell t) - -#+END_SRC - -*** Scrolling - -By default, scrolling is really bad. Luckily we can improve it a lot; there’s -even a pixel-precision scrolling mode! - -#+BEGIN_SRC elisp - - (setq mouse-wheel-scroll-amount '(1 ((shift) . 1)) - mouse-wheel-progressive-speed nil - mouse-wheel-follow-mouse t - scroll-step 1) - (pixel-scroll-precision-mode) - -#+END_SRC - -*** Auto Reverting Buffers - -This is just good to have all of the time; you should never be looking at a file -whose state was changed by an external process, and not see those changes *instantly*. - -#+BEGIN_SRC elisp - - (setq global-auto-revert-non-file-buffers t) - (global-auto-revert-mode) - -#+END_SRC - -*** Highlight Matching Parenthesis - -This is generally a good thing — especially when writing lisp code — but I don’t -want this /everywhere/. - -#+BEGIN_SRC elisp - - (defvar mm-highlight-matching-parenthesis-modes - '(prog-mode conf-mode) - "A list of modes for which the parenthesis that pairs up with the parenthesis - at point should be highlighted.") - - (show-paren-mode -1) - - (mm-for-each (mapcar #'mm-mode-to-hook mm-highlight-matching-parenthesis-modes) - (add-hook x #'show-paren-local-mode)) - -#+END_SRC - -*** Line- and Column Numbers - -It’s a bit tricky to remember, but ~line-number-mode~ and -~display-line-numbers-mode~ are very different. The former displays the current -line number in the modeline while the latter displays line numbers on the left -of the buffer. Personally I like to always display the current line number in -the modeline along with the column number — I find that it helps me wrap text -properly when I am not using ~auto-fill-mode~ — but I would prefer to only -display line numbers in certain modes. - -#+BEGIN_SRC elisp - - (line-number-mode) - (column-number-mode) - - ;; Enable and disable line numbers for some modes - (defvar mm-enable-line-numbers-modes - '(text-mode prog-mode conf-mode) - "A list of modes for which line numbers should be displayed.") - - (defvar mm-disable-line-numbers-modes - '(org-mode) - "A list of modes for which line numbers shouldn’t be displayed.") - - (mm-for-each (mapcar #'mm-mode-to-hook mm-enable-line-numbers-modes) - (add-hook x #'display-line-numbers-mode)) - (mm-for-each (mapcar #'mm-mode-to-hook mm-disable-line-numbers-modes) - (add-hook x (λ (display-line-numbers-mode -1)))) - -#+END_SRC - -*** Emacs Theme - -The default theme is a light theme. I am not one of these weak-eyed retards -that cannot handle a light theme, but it is really, /really/ bad. Personally I -quite enjoy the /Sanity Inc./ themes, and they’re a lot less generic than the -Doom One theme that everyone and their grandmother uses. - -Personally I am not sure if I prefer ~tomorrow-night~ or ~tomorrow-eighties~, so -why not make it random? - -#+BEGIN_SRC elisp - - (use-package color-theme-sanityinc-tomorrow - :config - (let ((n (random 2))) - (cond ((eq n 0) (load-theme 'sanityinc-tomorrow-night t)) - ((eq n 1) (load-theme 'sanityinc-tomorrow-eighties t))))) - -#+END_SRC - -*** TODO Fonts - -My favorite monospace font has got to be /Iosevka/. It’s good looking, it’s far -more compact than the usual american-sized monospace fonts, and you can -customize just about every character from loads of variants. I have my own -custom compiled variant called /Iosevka Smooth/. - -On the proportional side of things, I am not really sure what font to use. -/Vollkorn/ tends to be my go-to serif-font on the web, but I dunno how well it -translates to Emacs. I am also a bit fan of Ysabeau for sans-serif. I need to -play around with this. - -#+BEGIN_SRC elisp - - (defvar mm-monospace-font '("Iosevka Smooth" :weight light :height 162) - "The default monospace font to use. This is a list containing a font name, - font weight, and font height in that order.") - - (defvar mm-proportional-font '("Ysabeau" :weight light :height 180) - "The default proportional font to use. This is a list containing a font name, - font weight, and font height in that order.") - -#+END_SRC - -Actually /setting/ the fonts is a bit tricky. I don’t really fully understand -why it works like this, but something with the whole server/client model of -Emacs is really fucking with this, so we need to add a hook to set the font for -every frame. We also can’t forget the frame that’s actually running this code. - -#+BEGIN_SRC elisp - - (defun mm-set-fonts () - "Set the fonts specified by ‘mm-monospace-font’ and ‘mm-proportional-font’." - (interactive) - (let* ((mono-family (car mm-monospace-font)) - (mono-props (cdr mm-monospace-font)) - (prop-family (car mm-proportional-font)) - (prop-props (cdr mm-proportional-font)) - (mono-weight (plist-get mono-props :weight)) - (mono-height (plist-get mono-props :height)) - (prop-weight (plist-get prop-props :weight)) - (prop-height (plist-get prop-props :height))) - (set-face-attribute 'default nil - :font mono-family - :weight mono-weight - :height mono-height) - (set-face-attribute 'fixed-pitch nil - :font mono-family - :weight mono-weight - :height mono-height) - (set-face-attribute 'variable-pitch nil - :font prop-family - :weight prop-weight - :height prop-height))) - - (add-hook 'after-make-frame-functions (lambda (_) (mm-set-fonts))) - (mm-set-fonts) - -#+END_SRC - -*** Line Highlighting - -This is just something I personally like having. It makes it very easy for me -to figure out where my point is at all times. - -#+BEGIN_SRC elisp - - (global-hl-line-mode) - -#+END_SRC - ** Completions *** Vertico & Marginalia @@ -703,11 +475,14 @@ that’s what the ~mm-minibuffer-backward-kill~ is for. ("C-h" . mm-minibuffer-backward-kill)) :custom (vertico-cycle t) - :custom-face - (vertico-current ((t (:background - ,(face-attribute 'hl-line :background nil t))))) :init - (vertico-mode)) + (vertico-mode) + (add-hook + 'mm-after-load-theme-hook + (λ (face-spec-set + 'vertico-current + `((t (:background + ,(face-attribute 'hl-line :background nil t)))))))) #+END_SRC @@ -906,6 +681,250 @@ This mode is super useful for writing HTML. It lets me expand something like #+END_SRC +** User Interface + +The default Emacs UI is fucking atrocious — we need to make it better. + +*** Shorter Prompts + +For some reason emacs has both the ~y-or-n-p~ and ~yes-or-no-p~ functions. I do +not like having to spell out full words — /y/ or /n/ is good enough for me — so +let’s just redefine ~yes-or-no-p~. + +#+BEGIN_SRC elisp + + (fset #'yes-or-no-p #'y-or-n-p) + +#+END_SRC + +*** Disable Basic UI Modes + +Emacs has a lot of UI modes that are enabled by default to make life easier for +the novice user. I am not the novice user and would rather these modes never +turned on ever again. + +#+BEGIN_SRC elisp + + (menu-bar-mode -1) + (scroll-bar-mode -1) + (tool-bar-mode -1) + (tooltip-mode -1) + +#+END_SRC + +*** Warnings + +I am typically not a fan around being warned about things unless something is +actually breaking or going wrong. + +In order, these options disable the following warnings: + +1. Opening large files +2. Following symbolic links +3. Adding advice to functions + +#+BEGIN_SRC elisp + + (setq large-file-warning-threshold nil + vc-follow-symlinks t + ad-redefinition-action 'accept) + +#+END_SRC + +*** Visible Bell + +Why not? I might disable this later. + +#+BEGIN_SRC elisp + + (setq visible-bell t) + +#+END_SRC + +*** Scrolling + +By default, scrolling is really bad. Luckily we can improve it a lot; there’s +even a pixel-precision scrolling mode! + +#+BEGIN_SRC elisp + + (setq mouse-wheel-scroll-amount '(1 ((shift) . 1)) + mouse-wheel-progressive-speed nil + mouse-wheel-follow-mouse t + scroll-step 1) + (pixel-scroll-precision-mode) + +#+END_SRC + +*** Auto Reverting Buffers + +This is just good to have all of the time; you should never be looking at a file +whose state was changed by an external process, and not see those changes *instantly*. + +#+BEGIN_SRC elisp + + (setq global-auto-revert-non-file-buffers t) + (global-auto-revert-mode) + +#+END_SRC + +*** Highlight Matching Parenthesis + +This is generally a good thing — especially when writing lisp code — but I don’t +want this /everywhere/. + +#+BEGIN_SRC elisp + + (defvar mm-highlight-matching-parenthesis-modes + '(prog-mode conf-mode) + "A list of modes for which the parenthesis that pairs up with the parenthesis + at point should be highlighted.") + + (show-paren-mode -1) + + (mm-for-each (mapcar #'mm-mode-to-hook mm-highlight-matching-parenthesis-modes) + (add-hook x #'show-paren-local-mode)) + +#+END_SRC + +*** Line- and Column Numbers + +It’s a bit tricky to remember, but ~line-number-mode~ and +~display-line-numbers-mode~ are very different. The former displays the current +line number in the modeline while the latter displays line numbers on the left +of the buffer. Personally I like to always display the current line number in +the modeline along with the column number — I find that it helps me wrap text +properly when I am not using ~auto-fill-mode~ — but I would prefer to only +display line numbers in certain modes. + +#+BEGIN_SRC elisp + + (line-number-mode) + (column-number-mode) + + ;; Enable and disable line numbers for some modes + (defvar mm-enable-line-numbers-modes + '(text-mode prog-mode conf-mode) + "A list of modes for which line numbers should be displayed.") + + (defvar mm-disable-line-numbers-modes + '(org-mode) + "A list of modes for which line numbers shouldn’t be displayed.") + + (mm-for-each (mapcar #'mm-mode-to-hook mm-enable-line-numbers-modes) + (add-hook x #'display-line-numbers-mode)) + (mm-for-each (mapcar #'mm-mode-to-hook mm-disable-line-numbers-modes) + (add-hook x (λ (display-line-numbers-mode -1)))) + +#+END_SRC + +*** Emacs Theme + +The default theme is a light theme. I am not one of these weak-eyed retards +that cannot handle a light theme, but it is really, /really/ bad. Personally I +quite enjoy the /Sanity Inc./ themes, and they’re a lot less generic than the +Doom One theme that everyone and their grandmother uses. + +Personally I am not sure if I prefer ~tomorrow-night~ or ~tomorrow-eighties~, so +why not make it random? + +#+BEGIN_SRC elisp + + (use-package color-theme-sanityinc-tomorrow + :config + (let ((n (random 2))) + (cond ((eq n 0) (load-theme 'sanityinc-tomorrow-night t)) + ((eq n 1) (load-theme 'sanityinc-tomorrow-eighties t))))) + +#+END_SRC + +There is one issue though. I like to have ~vertico~ use the same color when +highlighting my current selection as I use to highlight the current line, and +that changes with each theme I use. For this reason we need some advice around +the ~load-theme~ function to fire a hook. + +#+BEGIN_SRC elisp + + (defvar mm-after-load-theme-hook nil + "Hook called after ‘load-theme’ is run.") + + (defadvice load-theme (after load-theme-with-hooks preactivate compile) + "Advice to run ‘mm-after-load-theme-hook’ hooks after loading a custom theme." + (run-hooks 'mm-after-load-theme-hook)) + +#+END_SRC + +*** TODO Fonts + +My favorite monospace font has got to be /Iosevka/. It’s good looking, it’s far +more compact than the usual american-sized monospace fonts, and you can +customize just about every character from loads of variants. I have my own +custom compiled variant called /Iosevka Smooth/. + +On the proportional side of things, I am not really sure what font to use. +/Vollkorn/ tends to be my go-to serif-font on the web, but I dunno how well it +translates to Emacs. I am also a bit fan of Ysabeau for sans-serif. I need to +play around with this. + +#+BEGIN_SRC elisp + + (defvar mm-monospace-font '("Iosevka Smooth" :weight light :height 162) + "The default monospace font to use. This is a list containing a font name, + font weight, and font height in that order.") + + (defvar mm-proportional-font '("Ysabeau" :weight light :height 180) + "The default proportional font to use. This is a list containing a font name, + font weight, and font height in that order.") + +#+END_SRC + +Actually /setting/ the fonts is a bit tricky. I don’t really fully understand +why it works like this, but something with the whole server/client model of +Emacs is really fucking with this, so we need to add a hook to set the font for +every frame. We also can’t forget the frame that’s actually running this code. + +#+BEGIN_SRC elisp + + (defun mm-set-fonts () + "Set the fonts specified by ‘mm-monospace-font’ and ‘mm-proportional-font’." + (interactive) + (let* ((mono-family (car mm-monospace-font)) + (mono-props (cdr mm-monospace-font)) + (prop-family (car mm-proportional-font)) + (prop-props (cdr mm-proportional-font)) + (mono-weight (plist-get mono-props :weight)) + (mono-height (plist-get mono-props :height)) + (prop-weight (plist-get prop-props :weight)) + (prop-height (plist-get prop-props :height))) + (set-face-attribute 'default nil + :font mono-family + :weight mono-weight + :height mono-height) + (set-face-attribute 'fixed-pitch nil + :font mono-family + :weight mono-weight + :height mono-height) + (set-face-attribute 'variable-pitch nil + :font prop-family + :weight prop-weight + :height prop-height))) + + (add-hook 'after-make-frame-functions (lambda (_) (mm-set-fonts))) + (mm-set-fonts) + +#+END_SRC + +*** Line Highlighting + +This is just something I personally like having. It makes it very easy for me +to figure out where my point is at all times. + +#+BEGIN_SRC elisp + + (global-hl-line-mode) + +#+END_SRC + ** Extra Modes Some modes aren’t installed by default with Emacs, so let’s fetch them |