Convert to Literate Config
This commit is contained in:
Case Duckworth
parent
88ad211c9e
commit
1a29e22362
|
|
@ -1,5 +1,5 @@
|
|||
*
|
||||
!early-init.el
|
||||
!init.org
|
||||
!init.el
|
||||
!.gitignore
|
||||
!README.org
|
||||
|
|
|
|||
260
init.el
260
init.el
|
|
@ -1,251 +1,11 @@
|
|||
;;; init.el -*- lexical-binding: t; coding: utf-8; -*-
|
||||
;; This file replaces itself with the actual configuration when first run. To keep only this version in git, run this command:
|
||||
;; git update-index --assume-unchanged init.el
|
||||
;;
|
||||
;; If it needs to be changed, start tracking it again thusly:
|
||||
;; git update-index --no-assume-unchanged init.el
|
||||
|
||||
;;; Commentary:
|
||||
;; BANKRUPT_SCORE: 1
|
||||
;; ^ the number of times I've declared Emacs bankruptcy.
|
||||
;; Does this mean I'm part of the cool kids now?
|
||||
|
||||
;;; Macros
|
||||
(defmacro cuss (var val)
|
||||
"Basically `use-package' `:custom' but without either."
|
||||
`(progn
|
||||
(funcall (or (get ',var 'custom-set) #'set-default)
|
||||
',var ,val)))
|
||||
|
||||
;;; Files
|
||||
;; keep `emacs-user-directory' tidy
|
||||
(use-package no-littering)
|
||||
|
||||
;; don't clutter `init.el' with customize crap
|
||||
(cuss custom-file (no-littering-expand-etc-file-name "custom.el"))
|
||||
|
||||
;; backups
|
||||
(cuss backup-directory-alist
|
||||
`((".*" . ,(no-littering-expand-var-file-name "backup/"))))
|
||||
|
||||
;; recent files
|
||||
(use-package recentf
|
||||
:config
|
||||
(add-to-list 'recentf-exclude no-littering-var-directory)
|
||||
(add-to-list 'recentf-exclude no-littering-etc-directory)
|
||||
:custom
|
||||
(recentf-max-menu-items 100)
|
||||
(recentf-max-saved-items 100)
|
||||
:config
|
||||
(recentf-mode +1))
|
||||
|
||||
;; encoding
|
||||
(set-charset-priority 'unicode)
|
||||
(set-language-environment "UTF-8")
|
||||
(set-default-coding-systems 'utf-8)
|
||||
(set-terminal-coding-system 'utf-8)
|
||||
(set-keyboard-coding-system 'utf-8)
|
||||
(set-selection-coding-system 'utf-8)
|
||||
(prefer-coding-system 'utf-8)
|
||||
|
||||
;;; Save/Restore
|
||||
;; autosave, but like, better
|
||||
(use-package super-save
|
||||
:custom
|
||||
(auto-save-default nil)
|
||||
(super-save-auto-save-when-idle t)
|
||||
(super-save-exclude '(".gpg"))
|
||||
:config
|
||||
(super-save-mode +1))
|
||||
|
||||
;; save places in files
|
||||
(use-package saveplace
|
||||
:custom
|
||||
(save-place-file (no-littering-expand-var-file-name "places"))
|
||||
:config
|
||||
(save-place-mode +1))
|
||||
|
||||
;; save history of variables
|
||||
(use-package savehist
|
||||
:custom
|
||||
(savehist-additional-variables
|
||||
'(kill-ring
|
||||
search-ring
|
||||
regexp-search-ring))
|
||||
:config
|
||||
(savehist-mode +1))
|
||||
|
||||
;;; Buffers
|
||||
;; uniquely name buffers
|
||||
(cuss uniquify-buffer-name-style 'forward)
|
||||
|
||||
;;; UI
|
||||
;; frame defaults
|
||||
(cuss default-frame-alist '((tool-bar-lines . 0)
|
||||
(menu-bar-lines . 0)
|
||||
(vertical-scroll-bars . nil)
|
||||
(horizontal-scroll-bars . nil)
|
||||
(right-divider-width . 2)
|
||||
(bottom-divider-width . 2)
|
||||
(left-fringe-width . 2)
|
||||
(right-fringe-width . 2)))
|
||||
|
||||
;; also disable these with modes, so I can re-enable them more easily
|
||||
(menu-bar-mode -1)
|
||||
(tool-bar-mode -1)
|
||||
(scroll-bar-mode -1)
|
||||
|
||||
;; cursor
|
||||
(cuss cursor-type 'bar)
|
||||
(cuss cursor-in-non-selected-windows 'hollow)
|
||||
(blink-cursor-mode 0)
|
||||
|
||||
;; mouse
|
||||
(cuss mouse-yank-at-point t) ; yank at the point instead of where clicked
|
||||
|
||||
;; startup screen
|
||||
(cuss inhibit-startup-buffer-menu t)
|
||||
(cuss inhibit-startup-screen t)
|
||||
(cuss initial-buffer-choice t) ; start in *scratch*
|
||||
(cuss initial-scratch-message nil)
|
||||
|
||||
;; interactivity
|
||||
(fset 'yes-or-no-p #'y-or-n-p)
|
||||
|
||||
(cuss use-dialog-box nil)
|
||||
(cuss disabled-command-function nil)
|
||||
|
||||
;; themes
|
||||
(use-package modus-operandi-theme
|
||||
:config
|
||||
(load-theme 'modus-operandi t))
|
||||
|
||||
(use-package modus-vivendi-theme)
|
||||
|
||||
;; fonts
|
||||
(set-face-attribute 'default nil
|
||||
:family "DejaVu Sans Mono"
|
||||
:height 110)
|
||||
|
||||
(set-face-attribute 'fixed-pitch nil
|
||||
:family "DejaVu Sans Mono"
|
||||
:height 110)
|
||||
|
||||
(set-face-attribute 'variable-pitch nil
|
||||
:family "DejaVu Serif"
|
||||
:height 120)
|
||||
|
||||
;; unicode
|
||||
(use-package unicode-fonts
|
||||
:config
|
||||
(unicode-fonts-setup))
|
||||
|
||||
;;; Selecting / Minibuffer
|
||||
;; ignore case
|
||||
(cuss completion-ignore-case t)
|
||||
(cuss read-buffer-completion-ignore-case t)
|
||||
(cuss read-file-name-completion-ignore-case t)
|
||||
|
||||
(use-package selectrum
|
||||
:config
|
||||
(selectrum-mode +1))
|
||||
|
||||
(use-package prescient
|
||||
:config
|
||||
(prescient-persist-mode +1))
|
||||
|
||||
(use-package selectrum-prescient
|
||||
:after (selectrum prescient)
|
||||
:config
|
||||
(selectrum-prescient-mode +1))
|
||||
|
||||
;; searching
|
||||
(use-package ctrlf
|
||||
:custom
|
||||
(ctrlf-show-match-count-at-eol nil)
|
||||
:config
|
||||
(ctrlf-mode +1))
|
||||
|
||||
;;; Undo
|
||||
(use-package undo-fu
|
||||
:bind
|
||||
("C-/" . undo-fu-only-undo)
|
||||
("C-?" . undo-fu-only-redo))
|
||||
|
||||
(use-package undo-fu-session
|
||||
:after no-littering
|
||||
:custom
|
||||
(undo-fu-session-incompatible-files
|
||||
'("/COMMIT_EDITMSG\\'"
|
||||
"/git-rebase-todo\\'"))
|
||||
(undo-fu-session-directory
|
||||
(no-littering-expand-var-file-name "undos/"))
|
||||
:config
|
||||
(global-undo-fu-session-mode +1))
|
||||
|
||||
;;; Text editing
|
||||
;; visual line mode
|
||||
(global-visual-line-mode +1)
|
||||
|
||||
(use-package whole-line-or-region
|
||||
:config
|
||||
(whole-line-or-region-global-mode +1))
|
||||
|
||||
(use-package expand-region
|
||||
:bind
|
||||
("C-=" . er/expand-region))
|
||||
|
||||
;; delete the selection when typing
|
||||
(delete-selection-mode +1)
|
||||
|
||||
;; clipboard
|
||||
(cuss save-interprogram-paste-before-kill t) ; save existing clipboard text to kill ring before replacing it
|
||||
|
||||
;; don't insert tabs.
|
||||
(cuss indent-tabs-mode nil)
|
||||
|
||||
;;; Programming
|
||||
;; Git
|
||||
(use-package magit
|
||||
:bind
|
||||
("C-x g" . magit-status)
|
||||
:config
|
||||
(add-to-list 'magit-no-confirm 'stage-all-changes))
|
||||
|
||||
(when (executable-find "cmake")
|
||||
(use-package libgit)
|
||||
(use-package magit-libgit))
|
||||
|
||||
(use-package forge
|
||||
:after magit
|
||||
:custom
|
||||
(forge-owned-accounts '(("duckwork"))))
|
||||
|
||||
;; Code formatting
|
||||
(use-package format-all
|
||||
:hook
|
||||
(prog-mode . format-all-mode))
|
||||
|
||||
;; display
|
||||
(add-hook 'prog-mode-hook #'prettify-symbols-mode)
|
||||
|
||||
;; parentheses
|
||||
(cuss show-paren-style 'mixed)
|
||||
(show-paren-mode +1)
|
||||
|
||||
(use-package smartparens
|
||||
:init
|
||||
(defun acdw/setup-smartparens ()
|
||||
(require 'smartparens-config)
|
||||
(smartparens-mode +1))
|
||||
:hook
|
||||
(prog-mode . acdw/setup-smartparens))
|
||||
|
||||
(use-package rainbow-delimiters
|
||||
:hook
|
||||
(prog-mode . rainbow-delimiters-mode))
|
||||
|
||||
;; line numbers
|
||||
(add-hook 'prog-mode-hook
|
||||
(if (and (fboundp 'display-line-numbers-mode)
|
||||
(display-graphic-p))
|
||||
#'display-line-numbers-mode
|
||||
#'linum-mode))
|
||||
|
||||
;;; Writing
|
||||
(cuss sentence-end-double-space t)
|
||||
(require 'org)
|
||||
(find-file (concat user-emacs-directory "init.org"))
|
||||
(org-babel-tangle)
|
||||
(load-file (concat user-emacs-directory "init.el"))
|
||||
(byte-compile-file (concat user-emacs-directory "init.el"))
|
||||
|
|
|
|||
|
|
@ -0,0 +1,587 @@
|
|||
#+TITLE: Emacs config
|
||||
#+AUTHOR: Case Duckworth
|
||||
#+BABEL: :cache yes
|
||||
#+PROPERTY: header-args :tangle init.el
|
||||
#+BANKRUPTCY_COUNT: 1
|
||||
|
||||
* Preamble
|
||||
|
||||
I wanted to write my Emacs configuration in [[https://orgmode.org][Org mode]] for a while, but never could quite figure out how. Finally, I found [[https://github.com/larstvei/dot-emacs][Lars Tveito]]'s config, which does exactly what I want: =init.el= is small and simple, and replaced after the first run, and =init.org= is automatically tangled. So I'm very excited.
|
||||
|
||||
* Bootstrap
|
||||
|
||||
/Check out Lars's config for the reasoning behind this./
|
||||
|
||||
When this configuration is loaded for the first time, this ~init.el~ is loaded:
|
||||
|
||||
#+BEGIN_SRC emacs-lisp :tangle no
|
||||
;; This file replaces itself with the actual configuration when first run. To keep only this version in git, run this command:
|
||||
;; git update-index --assume-unchanged init.el
|
||||
;;
|
||||
;; If it needs to be changed, start tracking it again thusly:
|
||||
;; git update-index --no-assume-unchanged init.el
|
||||
|
||||
(require 'org)
|
||||
(find-file (concat user-emacs-directory "init.org"))
|
||||
(org-babel-tangle)
|
||||
(load-file (concat user-emacs-directory "init.el"))
|
||||
(byte-compile-file (concat user-emacs-directory "init.el"))
|
||||
#+END_SRC
|
||||
|
||||
** Tangling
|
||||
After the first run, the above ~init.el~ will be replaced by the tangled stuff here. However, when /this/ file is edited, we'll need to re-tangle everything. However, nobody has time to do that manually with =C-c C-v t=, /every time/! Luckily, Emacs is highly programmable.
|
||||
|
||||
#+NAME: tangle-on-save
|
||||
#+BEGIN_SRC emacs-lisp
|
||||
(defun acdw/tangle-init ()
|
||||
"If the current buffer is `init.org', the code blocks are tangled,
|
||||
and the tangled file is compiled."
|
||||
(when (equal (buffer-file-name)
|
||||
(expand-file-name (concat user-emacs-directory "init.org")))
|
||||
;; Avoid running hooks when tangling.
|
||||
(let ((prog-mode-hook nil))
|
||||
(org-babel-tangle)
|
||||
(byte-compile-file (concat user-emacs-directory "init.el")))))
|
||||
|
||||
(add-hook 'after-save-hook #'acdw/tangle-init)
|
||||
#+END_SRC
|
||||
|
||||
* Early initiation
|
||||
Emacs 27.1+ uses ~early-init.el~, which is evaluated before things like ~package.el~ and other stuff. So I have a few settings in there.
|
||||
|
||||
** Preamble
|
||||
Of course, first thing is the modeline. After that, I set ~load-prefer-newer~ because, well, it /should/.
|
||||
#+BEGIN_SRC emacs-lisp :tangle early-init.el
|
||||
;;; early-init.el -*- lexical-binding: t; no-byte-compile: t -*-
|
||||
|
||||
(setq load-prefer-newer t)
|
||||
#+END_SRC
|
||||
|
||||
** Computers
|
||||
I have to set these constants before bootstrapping the package manager, since ~straight.el~ depends on Git, and at work, those are in a weird place.
|
||||
|
||||
#+BEGIN_SRC emacs-lisp :tangle early-init.el
|
||||
(defconst *acdw/at-work* (eq system-type 'windows-nt))
|
||||
(defconst *acdw/at-larry* (string= (system-name) "larry"))
|
||||
(defconst *acdw/at-bax* (string= (system-name) "bax"))
|
||||
(defconst *acdw/at-home* (or *acdw/at-larry* *acdw/at-bax*))
|
||||
#+END_SRC
|
||||
|
||||
** Package management
|
||||
I've started using straight.el, which is great. It grabs packages from git, and apparently will let me fork and edit them, which I'll probably get around to ... eventually.
|
||||
|
||||
*** At work, Git's in a weird place
|
||||
#+BEGIN_SRC emacs-lisp :tangle early-init.el
|
||||
(when *acdw/at-work*
|
||||
(add-to-list 'exec-path "~/bin")
|
||||
(add-to-list 'exec-path "C:/Users/aduckworth/Downloads/PortableGit/bin"))
|
||||
#+END_SRC
|
||||
|
||||
*** [[https://github.com/raxod502/straight.el][straight.el]]
|
||||
I don't know why, but for some reason the bootstrapping doesn't work on Windows. I have to download the repo directly from github and put it in the right place (=~/.emacs.d/straight/repos/straight.el/=).
|
||||
|
||||
#+BEGIN_SRC emacs-lisp :tangle early-init.el
|
||||
(defvar bootstrap-version)
|
||||
(let ((bootstrap-file
|
||||
(expand-file-name "straight/repos/straight.el/bootstrap.el"
|
||||
user-emacs-directory))
|
||||
(bootstrap-version 5))
|
||||
(unless (file-exists-p bootstrap-file)
|
||||
(with-current-buffer
|
||||
(url-retrieve-synchronously
|
||||
"https://raw.githubusercontent.com/raxod502/straight.el/develop/install.el"
|
||||
'silent 'inhibit-cookies)
|
||||
(goto-char (point-max))
|
||||
(eval-print-last-sexp)))
|
||||
(load bootstrap-file nil 'nomessage))
|
||||
#+END_SRC
|
||||
|
||||
*** [[https://github.com/jwiegley/use-package][use-package]]
|
||||
Yeah, you know it, I know it, we all love it. It's use-package.
|
||||
#+BEGIN_SRC emacs-lisp :tangle early-init.el
|
||||
(setq straight-use-package-by-default t)
|
||||
(straight-use-package 'use-package)
|
||||
#+END_SRC
|
||||
* Begin init.el
|
||||
#+BEGIN_SRC emacs-lisp
|
||||
;;; init.el -*- lexical-binding: t; coding: utf-8 -*-
|
||||
#+END_SRC
|
||||
* Macros
|
||||
** cuss
|
||||
I like ~use-package~, but I don't like doing the weird "pseudo-package" stuff a lot of people do in their emacs configs. Partially because I have to set ~:straight nil~ on a lot of built-in packages, but also because I think being /that/ obsessive over one interface through the whole config is ... I don't know, short-sighted?
|
||||
|
||||
Either way, I /do/ like the ~:custom~ interface that ~use-package~ has, so I've re-implemented it in my own macro. This way I don't have to worry about whether to ~setq~ or ~custom-set-variable~ or whatever. Just ~cuss~!
|
||||
#+BEGIN_SRC emacs-lisp
|
||||
(defmacro cuss (var val)
|
||||
"Basically `use-package''s `:custom', but without either."
|
||||
`(progn
|
||||
(funcall (or (get ',var 'custom-set) #'set-default)
|
||||
',var ,val)))
|
||||
#+END_SRC
|
||||
* Files
|
||||
** [[https://github.com/emacscollective/no-littering][Keep .emacs.d tidy]]
|
||||
#+BEGIN_SRC emacs-lisp
|
||||
(use-package no-littering)
|
||||
#+END_SRC
|
||||
** Customize
|
||||
I don't like the customize interface, but I still sometimes use it when I'm not sure what the name of a variable is. So I save the stuff to a file, I just don't load it or keep track of it.
|
||||
#+BEGIN_SRC emacs-lisp
|
||||
(cuss custom-file (no-littering-expand-etc-file-name "custom.el"))
|
||||
#+END_SRC
|
||||
** Encoding
|
||||
#+BEGIN_SRC emacs-lisp
|
||||
(set-charset-priority 'unicode)
|
||||
(set-language-environment "UTF-8")
|
||||
(set-default-coding-systems 'utf-8)
|
||||
(set-terminal-coding-system 'utf-8)
|
||||
(set-keyboard-coding-system 'utf-8)
|
||||
(set-selection-coding-system 'utf-8)
|
||||
(prefer-coding-system 'utf-8)
|
||||
#+END_SRC
|
||||
** Recent files
|
||||
#+BEGIN_SRC emacs-lisp
|
||||
(use-package recentf
|
||||
:config
|
||||
(add-to-list 'recentf-exclude no-littering-var-directory)
|
||||
(add-to-list 'recentf-exclude no-littering-etc-directory)
|
||||
:custom
|
||||
(recentf-max-menu-items 100)
|
||||
(recentf-max-saved-items 100)
|
||||
:config
|
||||
(recentf-mode 1))
|
||||
#+END_SRC
|
||||
** Backups
|
||||
#+BEGIN_SRC emacs-lisp
|
||||
(cuss backup-directory-alist
|
||||
`((".*" . ,(no-littering-expand-var-file-name "backup/"))))
|
||||
#+END_SRC
|
||||
** [[https://github.com/bbatsov/super-save][Autosave]]
|
||||
#+BEGIN_SRC emacs-lisp
|
||||
(use-package super-save
|
||||
:custom
|
||||
(auto-save-default nil)
|
||||
(super-save-auto-save-when-idle t)
|
||||
(super-save-exclude '(".gpg"))
|
||||
:config
|
||||
(super-save-mode 1))
|
||||
#+END_SRC
|
||||
** Save places
|
||||
#+BEGIN_SRC emacs-lisp
|
||||
(use-package saveplace
|
||||
:custom
|
||||
(save-place-file (no-littering-expand-var-file-name "places"))
|
||||
:config
|
||||
(save-place-mode 1))
|
||||
#+END_SRC
|
||||
** Save history
|
||||
#+BEGIN_SRC emacs-lisp
|
||||
(use-package savehist
|
||||
:custom
|
||||
(savehist-addtional-variables
|
||||
'(kill-ring
|
||||
search-ring
|
||||
regexp-search-ring))
|
||||
(savehist-save-minibuffer-history t)
|
||||
:config
|
||||
(savehist-mode 1))
|
||||
#+END_SRC
|
||||
* User interface
|
||||
** Look
|
||||
*** Frames and windows
|
||||
**** Frame defaults
|
||||
#+BEGIN_SRC emacs-lisp
|
||||
(cuss default-frame-alist '((tool-bar-lines . 0)
|
||||
(menu-bar-lines . 0)
|
||||
(vertical-scroll-bars . nil)
|
||||
(horizontal-scroll-bars . nil)
|
||||
(right-divider-width . 2)
|
||||
(bottom-divider-width . 2)
|
||||
(left-fringe-width . 2)
|
||||
(right-fringe-width . 2)))
|
||||
|
||||
;; also disable these with modes, so I can re-enable them more easily
|
||||
(menu-bar-mode -1)
|
||||
(tool-bar-mode -1)
|
||||
(scroll-bar-mode -1)
|
||||
#+END_SRC
|
||||
**** Resizing
|
||||
#+BEGIN_SRC emacs-lisp
|
||||
(cuss frame-resize-pixelwise t)
|
||||
(cuss window-combination-resize t)
|
||||
#+END_SRC
|
||||
*** Buffers
|
||||
#+BEGIN_SRC emacs-lisp
|
||||
(cuss uniquify-buffer-name-style 'forward)
|
||||
|
||||
(cuss indicate-buffer-boundaries
|
||||
'((top . right)
|
||||
(bottom . right)
|
||||
(t . nil)))
|
||||
#+END_SRC
|
||||
**** Startup buffer
|
||||
#+BEGIN_SRC emacs-lisp
|
||||
(cuss inhibit-startup-buffer-menu t)
|
||||
(cuss inhibit-startup-screen t)
|
||||
(cuss initial-buffer-choice t) ; start in *scratch*
|
||||
(cuss initial-scratch-message nil)
|
||||
#+END_SRC
|
||||
*** Cursor
|
||||
#+BEGIN_SRC emacs-lisp
|
||||
(cuss cursor-type 'bar)
|
||||
(cuss cursor-in-non-selected-windows 'hollow)
|
||||
(blink-cursor-mode 0)
|
||||
#+END_SRC
|
||||
*** Interactivity
|
||||
**** Mouse
|
||||
#+BEGIN_SRC emacs-lisp
|
||||
(cuss mouse-yank-at-point t)
|
||||
#+END_SRC
|
||||
**** Dialogs
|
||||
#+BEGIN_SRC emacs-lisp
|
||||
(cuss use-dialog-box nil)
|
||||
#+END_SRC
|
||||
**** Disabled functions
|
||||
#+BEGIN_SRC emacs-lisp
|
||||
(cuss disabled-command-function nil)
|
||||
#+END_SRC
|
||||
** Themes: [[https://github.com/protesilaos/modus-themes][Modus]]
|
||||
#+BEGIN_SRC emacs-lisp
|
||||
(use-package modus-operandi-theme)
|
||||
(use-package modus-vivendi-theme)
|
||||
#+END_SRC
|
||||
*** [[https://github.com/hadronzoo/theme-changer][Change themes]] based on time of day
|
||||
#+BEGIN_SRC emacs-lisp
|
||||
(use-package theme-changer
|
||||
:init
|
||||
(setq calendar-location-name "Baton Rouge, LA"
|
||||
calendar-latitude 30.39
|
||||
calendar-longitude -91.83)
|
||||
:config
|
||||
(change-theme 'modus-operandi 'modus-vivendi))
|
||||
#+END_SRC
|
||||
** Modeline: [[https://github.com/Malabarba/smart-mode-line][smart-mode-line]]
|
||||
#+BEGIN_SRC emacs-lisp
|
||||
(use-package smart-mode-line
|
||||
:config
|
||||
(sml/setup))
|
||||
#+END_SRC
|
||||
|
||||
I hide all minor-modes by default for a clean modeline. However, I can add them back by adding them to the whitelist with ~(add-to-list 'rm-whitelist " REGEX")~.
|
||||
#+BEGIN_SRC emacs-lisp
|
||||
(use-package rich-minority
|
||||
:custom
|
||||
(rm-whitelist '("^$")) ; show no minor modes
|
||||
:config
|
||||
(rich-minority-mode 1))
|
||||
#+END_SRC
|
||||
** Fonts
|
||||
I'm sure there's a better way to do this, but for now, this is the best I've got. I append to the ~face-font-family-alternatives~ because I don't know what kind of weird magic they're doing in there.
|
||||
#+BEGIN_SRC emacs-lisp
|
||||
(cuss face-font-family-alternatives
|
||||
'(("Monospace" "courier" "fixed")
|
||||
("Monospace Serif" "Courier 10 Pitch" "Consolas" "Courier Std" "FreeMono" "Nimbus Mono L" "courier" "fixed")
|
||||
("courier" "CMU Typewriter Text" "fixed")
|
||||
("Sans Serif" "helv" "helvetica" "arial" "fixed")
|
||||
("helv" "helvetica" "arial" "fixed")
|
||||
;; now mine
|
||||
("FixedPitch" "DejaVu Sans Mono" "Consolas" "fixed")
|
||||
("VariablePitch" "DejaVu Serif" "Georgia" "fixed")))
|
||||
|
||||
(set-face-attribute 'default nil
|
||||
:family "FixedPitch"
|
||||
:height 110)
|
||||
|
||||
(set-face-attribute 'fixed-pitch nil
|
||||
:family "FixedPitch"
|
||||
:height 110)
|
||||
|
||||
(set-face-attribute 'variable-pitch nil
|
||||
:family "VariablePitch"
|
||||
:height 110)
|
||||
#+END_SRC
|
||||
|
||||
*** [[https://github.com/rolandwalker/unicode-fonts][Unicode fonts]]
|
||||
#+BEGIN_SRC emacs-lisp
|
||||
(use-package unicode-fonts
|
||||
:config
|
||||
(unicode-fonts-setup))
|
||||
#+END_SRC
|
||||
* Editing
|
||||
** Completion
|
||||
I was using company, but I think it might've been causing issues with ~awk-mode~, so I'm trying ~hippie-mode~ right now. So far, I'm also enjoying not having a popup all the time.
|
||||
#+BEGIN_SRC emacs-lisp
|
||||
(bind-key "M-/" #'hippie-expand)
|
||||
#+END_SRC
|
||||
** Ignore case
|
||||
#+BEGIN_SRC emacs-lisp
|
||||
(cuss completion-ignore-case t)
|
||||
(cuss read-buffer-completion-ignore-case t)
|
||||
(cuss read-file-name-completion-ignore-case t)
|
||||
#+END_SRC
|
||||
** Selection & Minibuffer
|
||||
*** Selectrum and Prescient for narrowing selection
|
||||
#+BEGIN_SRC emacs-lisp
|
||||
(use-package selectrum
|
||||
:config
|
||||
(selectrum-mode +1))
|
||||
|
||||
(use-package prescient
|
||||
:config
|
||||
(prescient-persist-mode +1))
|
||||
|
||||
(use-package selectrum-prescient
|
||||
:after (selectrum prescient)
|
||||
:config
|
||||
(selectrum-prescient-mode +1))
|
||||
#+END_SRC
|
||||
*** CtrlF for searching
|
||||
#+BEGIN_SRC emacs-lisp
|
||||
(use-package ctrlf
|
||||
:custom
|
||||
(ctrlf-show-match-count-at-eol nil)
|
||||
:config
|
||||
(ctrlf-mode +1))
|
||||
#+END_SRC
|
||||
** Undo
|
||||
#+BEGIN_SRC emacs-lisp
|
||||
(use-package undo-fu
|
||||
:bind
|
||||
("C-/" . undo-fu-only-undo)
|
||||
("C-?" . undo-fu-only-redo))
|
||||
|
||||
(use-package undo-fu-session
|
||||
:after no-littering
|
||||
:custom
|
||||
(undo-fu-session-incompatible-files
|
||||
'("/COMMIT_EDITMSG\\'"
|
||||
"/git-rebase-todo\\'"))
|
||||
(undo-fu-session-directory
|
||||
(no-littering-expand-var-file-name "undos/"))
|
||||
:config
|
||||
(global-undo-fu-session-mode +1))
|
||||
#+END_SRC
|
||||
** Visual editing
|
||||
*** ~zap-to-char~ replacement
|
||||
#+BEGIN_SRC emacs-lisp
|
||||
(use-package zop-to-char
|
||||
:bind
|
||||
([remap zap-to-char] . zop-to-char)
|
||||
([remap zap-up-to-char] . zop-up-to-char))
|
||||
#+END_SRC
|
||||
*** Operate on a line if there's no current region
|
||||
#+BEGIN_SRC emacs-lisp
|
||||
(use-package whole-line-or-region
|
||||
:config
|
||||
(whole-line-or-region-global-mode +1))
|
||||
#+END_SRC
|
||||
*** Expand-region
|
||||
#+BEGIN_SRC emacs-lisp
|
||||
(use-package expand-region
|
||||
:bind
|
||||
("C-=" . er/expand-region)
|
||||
("C-+" . er/contract-region))
|
||||
#+END_SRC
|
||||
*** Volatile highlights
|
||||
#+BEGIN_SRC emacs-lisp
|
||||
(use-package volatile-highlights
|
||||
:config
|
||||
(volatile-highlights-mode 1))
|
||||
#+END_SRC
|
||||
*** Visual line mode
|
||||
#+BEGIN_SRC emacs-lisp
|
||||
(global-visual-line-mode 1)
|
||||
#+END_SRC
|
||||
*** A better ~move-beginning-of-line~
|
||||
#+BEGIN_SRC emacs-lisp
|
||||
(defun my/smarter-move-beginning-of-line (arg)
|
||||
"Move point back to indentation of beginning of line.
|
||||
|
||||
Move point to the first non-whitespace character on this line.
|
||||
If point is already there, move to the beginning of the line.
|
||||
Effectively toggle between the first non-whitespace character and
|
||||
the beginning of the line.
|
||||
|
||||
If ARG is not nil or 1, move forward ARG - 1 lines first. If
|
||||
point reaches the beginning or end of the buffer, stop there."
|
||||
(interactive "^p")
|
||||
(setq arg (or arg 1))
|
||||
|
||||
;; Move lines first
|
||||
(when (/= arg 1)
|
||||
(let ((line-move-visual nil))
|
||||
(forward-line (1- arg))))
|
||||
|
||||
(let ((orig-point (point)))
|
||||
(back-to-indentation)
|
||||
(when (= orig-point (point))
|
||||
(move-beginning-of-line 1))))
|
||||
|
||||
(bind-key "C-a" ; can't do [remap], don't know why
|
||||
#'my/smarter-move-beginning-of-line)
|
||||
#+END_SRC
|
||||
** Delete the selection when typing
|
||||
#+BEGIN_SRC emacs-lisp
|
||||
(delete-selection-mode 1)
|
||||
#+END_SRC
|
||||
** Clipboard
|
||||
#+BEGIN_SRC emacs-lisp
|
||||
(cuss save-interprogram-paste-before-kill t)
|
||||
#+END_SRC
|
||||
** Tabs & Spaces
|
||||
#+BEGIN_SRC emacs-lisp
|
||||
(cuss indent-tabs-mode nil)
|
||||
(cuss sentence-end-double-space t)
|
||||
#+END_SRC
|
||||
* Programming
|
||||
** Git
|
||||
#+BEGIN_SRC emacs-lisp
|
||||
(use-package magit
|
||||
:bind
|
||||
("C-x g" . magit-status)
|
||||
:config
|
||||
(add-to-list 'magit-no-confirm 'stage-all-changes))
|
||||
|
||||
;; hook into `prescient'
|
||||
(define-advice magit-list-refs
|
||||
(:around (orig &optional namespaces format sortby)
|
||||
prescient-sort)
|
||||
"Apply prescient sorting when listing refs."
|
||||
(let ((res (funcall orig namespaces format sortby)))
|
||||
(if (or sortby
|
||||
magit-list-refs-sortby
|
||||
(not selectrum-should-sort-p))
|
||||
res
|
||||
(prescient-sort res))))
|
||||
|
||||
(when (executable-find "cmake")
|
||||
(use-package libgit)
|
||||
(use-package magit-libgit))
|
||||
|
||||
(use-package forge
|
||||
:after magit
|
||||
:custom
|
||||
(forge-owned-accounts '(("duckwork"))))
|
||||
#+END_SRC
|
||||
** Code formatting and display
|
||||
#+BEGIN_SRC emacs-lisp
|
||||
(use-package format-all
|
||||
:hook
|
||||
(prog-mode . format-all-mode))
|
||||
|
||||
(add-hook 'prog-mode-hook #'prettify-symbols-mode)
|
||||
|
||||
#+END_SRC
|
||||
*** Parentheses
|
||||
#+BEGIN_SRC emacs-lisp
|
||||
(cuss show-paren-style 'mixed)
|
||||
(show-paren-mode +1)
|
||||
|
||||
(use-package smartparens
|
||||
:init
|
||||
(defun acdw/setup-smartparens ()
|
||||
(require 'smartparens-config)
|
||||
(smartparens-mode +1))
|
||||
:hook
|
||||
(prog-mode . acdw/setup-smartparens))
|
||||
|
||||
(use-package rainbow-delimiters
|
||||
:hook
|
||||
(prog-mode . rainbow-delimiters-mode))
|
||||
#+END_SRC
|
||||
** Line numbers
|
||||
#+BEGIN_SRC emacs-lisp
|
||||
(add-hook 'prog-mode-hook
|
||||
(if (and (fboundp 'display-line-numbers-mode)
|
||||
(display-graphic-p))
|
||||
#'display-line-numbers-mode
|
||||
#'linum-mode))
|
||||
#+END_SRC
|
||||
** Languages
|
||||
*** Lua
|
||||
#+BEGIN_SRC emacs-lisp
|
||||
(use-package lua-mode
|
||||
:mode "\\.lua\\'"
|
||||
:interpreter "lua")
|
||||
#+END_SRC
|
||||
*** Fennel
|
||||
#+BEGIN_SRC emacs-lisp
|
||||
(use-package fennel-mode
|
||||
:mode "\\.fnl\\'")
|
||||
#+END_SRC
|
||||
*** Web
|
||||
#+BEGIN_SRC emacs-lisp
|
||||
(use-package web-mode
|
||||
:custom
|
||||
(web-mode-markup-indent-offset 2)
|
||||
(web-mode-code-indent-offset 2)
|
||||
(web-mode-css-indent-offset 2)
|
||||
:mode (("\\.ts\\'" . web-mode)
|
||||
("\\.html?\\'" . web-mode)
|
||||
("\\.css?\\'" . web-mode)
|
||||
("\\.js\\'" . web-mode)))
|
||||
#+END_SRC
|
||||
* Writing
|
||||
* Applications
|
||||
** Gemini & Gopher
|
||||
#+BEGIN_SRC emacs-lisp
|
||||
(use-package elpher
|
||||
:straight (elpher
|
||||
:repo "git://thelambdalab.xyz/elpher.git")
|
||||
:bind (:map elpher-mode-map
|
||||
("n" . elpher-next-link)
|
||||
("p" . elpher-prev-link)
|
||||
("o" . elpher-follow-current-link)
|
||||
("G" . elpher-go-current)))
|
||||
|
||||
(use-package gemini-mode
|
||||
:straight (gemini-mode
|
||||
:repo "https://git.carcosa.net/jmcbray/gemini.el.git")
|
||||
:mode "\\.\\(gemini|gmi\\)\\'")
|
||||
|
||||
(use-package gemini-write
|
||||
:straight (gemini-write
|
||||
:repo "https://alexschroeder.ch/cgit/gemini-write"))
|
||||
|
||||
|
||||
(defun post-to-gemlog-blue (post-title user pass)
|
||||
"Post current buffer to gemlog.blue."
|
||||
(interactive
|
||||
(let* ((title-maybe (progn ;; TODO this is ... clunky
|
||||
(goto-char (point-min))
|
||||
(if (re-search-forward "^# \\(.*\\)" nil t)
|
||||
(buffer-substring-no-properties
|
||||
(match-beginning 1)
|
||||
(match-end 1))
|
||||
"")))
|
||||
(title (read-string
|
||||
(format "Title%s: "
|
||||
(if (string= "" title-maybe)
|
||||
""
|
||||
(concat " (" title-maybe ")")))
|
||||
nil nil title-maybe))
|
||||
(user (read-string "User: " nil))
|
||||
(pass (read-passwd "Pass: " nil)))
|
||||
(list title user pass)))
|
||||
|
||||
(require 'mm-url)
|
||||
(let ((url-request-method "POST")
|
||||
(url-request-extra-headers
|
||||
'(("Content-Type" . "application/x-www-form-urlencoded")))
|
||||
(url-request-data
|
||||
(mm-url-encode-www-form-urlencoded
|
||||
`(("title" . ,post-title)
|
||||
("gemloguser" . ,user)
|
||||
("pw" . ,pass)
|
||||
("post" . ,(buffer-string))))))
|
||||
(with-current-buffer
|
||||
(url-retrieve-synchronously "https://gemlog.blue/post.php")
|
||||
(goto-char (point-min))
|
||||
(re-search-forward "\\(gemini://.*\\.gmi\\)")
|
||||
(elpher-go (match-string 1)))))
|
||||
#+END_SRC
|
||||
** Pastebin
|
||||
#+BEGIN_SRC emacs-lisp
|
||||
(use-package 0x0
|
||||
:custom
|
||||
(0x0-default-service 'ttm))
|
||||
#+END_SRC
|
||||
Loading…
Reference in New Issue