From 7c6fa50ba4ae0803c27b6154daac89f71f30da07 Mon Sep 17 00:00:00 2001 From: Case Duckworth Date: Sat, 21 Nov 2020 18:34:18 -0600 Subject: full on bankruptcy --- config.org | 345 +++++++++++++++++++++++++++---------------------------------- 1 file changed, 151 insertions(+), 194 deletions(-) (limited to 'config.org') diff --git a/config.org b/config.org index a1bd3e6..08a5418 100644 --- a/config.org +++ b/config.org @@ -1,136 +1,66 @@ -#+TITLE: Emacs config +#+TITLE: Emacs configuration, literate style #+AUTHOR: Case Duckworth -# -*- encoding: utf-8-unix -*- -#+BABEL: :cache yes #+PROPERTY: header-args :tangle init.el #+OPTIONS: toc:nil -#+BANKRUPTCY_COUNT: 1.5 - -* Preamble - -** Inspiration - -I've been inspired by [[https://github.com/larstvei/dot-emacs][Lars Tveito]]'s config, which does exactly what I -want: =init.el= is small and simple, and is replaced after the first -run by the tangled contents of this file -- =config.org= -- which is -furthermore automatically tangled. - -** Problems with this setup - -+ While =config.org= automatically tangles, I can't run =(load-file - init.el)= -- it results in an endless loop for some reason. I might - need to look into a hook of some kind. - -* License - -Copyright © 2020 Case Duckworth - -This work is free. You can redistribute it and/or modify it under the -terms of the Do What the Fuck You Want To Public License, Version 2, -as published by Sam Hocevar. See the LICENSE file, or below, for more -details. - -NOTE: the WTFPL is probably (most definitely!) not compatible with GNU -Emacs's license, and I'm not sure, though I'm pretty confident, that -my =config.org= would be classified as a /derivative work/ under those -terms. Therefore, me licensing my =config.org= under the WTFPL is at -best, unenforceable, and at worst, downright in violation of the GPL. - -SUE ME, RMS !!! - -#+begin_src text :tangle LICENSE - DO WHAT THE FUCK YOU WANT TO PUBLIC LICENSE - - Version 2, December 2004 - - Copyright (C) 2004 Sam Hocevar - - Everyone is permitted to copy and distribute verbatim or modified copies of - this license document, and changing it is allowed as long as the name is changed. - - DO WHAT THE FUCK YOU WANT TO PUBLIC LICENSE - - TERMS AND CONDITIONS FOR COPYING, DISTRIBUTION AND MODIFICATION - - 0. You just DO WHAT THE FUCK YOU WANT TO. - -#+end_src +#+BANKRUPTCY_COUNT: 2 * Bootstrap -When this configuration is loaded for the first time, /this/ =init.el= -is loaded: +** Original init.el #+begin_src emacs-lisp :tangle no - ;; This file replaces itself with the actual configuration when first - ;; run. To keep only this version tracked by git, run the command + ;; 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 with the command + ;; If it needs to be changed, start tracking it again thusly: ;; ;; git update-index --no-assume-unchanged init.el - ;; - ;; edit as needed, and run the first command again. + (require 'org) (find-file (concat user-emacs-directory "config.org")) (org-babel-tangle) - (load-file (concat-user-emacs-directory "early-init.el")) - (load-file (concat-user-emacs-directory "init.el")) + (load-file (concat user-emacs-directory "early-init.el")) + (load-file (concat user-emacs-directory "init.el")) + (byte-compile-file (concat user-emacs-directory "init.el")) #+end_src ** Tangling -After first running Emacs with this config, the above snippet will be -replaced by the result of tangling this file. However, when we edit -=config.org=, we'll need to retangle it. The default keybinding to -tangle is =C-c C-v t=, which takes a while and is easy to forget. So -let's automatically tangle =config.org= on save. - -#+NAME: tangle-on-save #+begin_src emacs-lisp - ;;; init.el -*- lexical-binding: t; coding: utf-8-unix -*- + ;; init.el -*- lexical-binding: t -*- + (defun acdw/tangle-init () - "If the current buffer is `config.org', the code blocks are - tangled, and the tangled file is compiled and loaded." + "If the current buffer is `config.org', tangle it, then compile + and load the resulting files." + (when (equal (buffer-file-name) + (expand-file-name + (concat user-emacs-directory "config.org"))) + (let ((prog-mode-hook nil)) + (require 'org) + (org-babel-tangle-file + (expand-file-name + (concat user-emacs-directory "config.org")))))) + + (defun acdw/load-init () (interactive) - (let (config-org (expand-file-name - (concat user-emacs-directory "config.org"))) - (when (equal (buffer-file-name) config-org) - (require 'async) - (async-start - `(lambda () - ;; Avoid running hooks when tangling. - (let ((prog-mode-hook nil)) - (require 'org) - (org-babel-tangle-file config-org))) - (lambda (_) - (message "Tangle complete.")))))) - - ;; Add a hook to tangle config.org. - (add-hook 'after-save-hook #'acdw/tangle-init) + (load-file (expand-file-name + (concat user-emacs-directory "early-init.el"))) + (load-file (expand-file-name + (concat user-emacs-directory "init.el")))) #+end_src * Early initiation -Emacs 27.1+ uses =early-init.el= /in addition to/ =init.el=, mostly -for settings related to packags. Since I use =straight.el= for -package management, I need to specify that in this file. - #+begin_src emacs-lisp :tangle early-init.el - ;;; early-init.el -*- lexical-binding: t; no-byte-compile: t -*- - ;; DO NOT EDIT THIS FILE BY HAND. Edit =config.org= instead! + ;; early-init.el -*- lexical-binding: t; no-byte-compile: t -*- (setq load-prefer-newer t) - (when (eq system-type 'windows-nt) ; I'm at work + (when (eq system-type 'windows-nt) (add-to-list 'exec-path "~/bin") - (add-to-list 'exec-path - "C:/Users/aduckworth/Downloads/PortableGit/bin")) - - ;; This DOES NOT WORK on Windows. - ;; Download the repo directly from Github and unzip it into - ;; ~/.emacs.d/straight/repos/straight.el. + (add-to-list 'exec-path "C:/Users/aduckworth/Downloads/PortableGit/bin")) (defvar bootstrap-version) (let ((bootstrap-file @@ -146,128 +76,155 @@ package management, I need to specify that in this file. (eval-print-last-sexp))) (load bootstrap-file nil 'nomessage)) - ;; Use-package - (setq straight-use-package-by-default t) (straight-use-package 'use-package) - - ;; Use-package extra keywords - - (use-package use-package-custom-update - :straight (use-package-custom-update - :host github - :repo "a13/use-package-custom-update")) - #+end_src -* Macros +* Theme -** cuss +I want to try using the [[https://github.com/kunalb/poet][Poet]] theme. -I like =use-package= a lot, but I don't like the weird -"pseudo-package" things you see with a lot of =use-package= setups -around the Internet. They're cludgy, they /don't/ actually, in my -opinion anyway, make the config any easier to read (how am I supposed -to know what options are in =mule=, for example?!), and most -importantly, =straight.el= doesn't really like them that much. +#+begin_src emacs-lisp + (use-package poet-theme) +#+end_src -*However*, I really like the =:custom= keyword in =use-package=, - enough to implement it as my own macro. =cuss= will automagically - call =custom-set-variable= or =setq=, whichever is best for the - variable being tweaked. I pulled this straight from =use-package=, - so I /know/ it works! :P +I also want to switch themes between night and day. #+begin_src emacs-lisp - (defmacro cuss (var val) - "Basically the `:custom' macro from `use-package', by itself." - `(progn - (funcall (or (get ',var 'custom-set) #'set-default) - ',var ,val))) -;;; test + (use-package theme-changer + :custom + (calendar-latitude 30.39) + (calendar-longitude -91.83) + :config + (change-theme 'poet 'poet-dark)) #+end_src -* Machines +* Simplify GUI -I use Emacs on a couple of different computers: my two at home, and -assorted Windows machines at work. I define a couple of constants to -easily keep track of which computer I'm using. +#+begin_src emacs-lisp + (menu-bar-mode -1) + (tool-bar-mode -1) + (scroll-bar-mode -1) + + (global-visual-line-mode 1) +#+end_src + +* Fonts #+begin_src emacs-lisp - (defconst *acdw/at-work* (eq system-type 'windows-nt)) + (require 'cl) + (defun font-candidate (&rest fonts) + (loop for font in fonts + when (find-font (font-spec :name font)) + return font)) + + (set-face-attribute 'default nil + :font + (font-candidate + "Go Mono-11" + "Consolas-11")) + + (set-face-attribute 'fixed-pitch nil + :font + (font-candidate + "Go Mono-11" + "Consolas-11")) + + (set-face-attribute 'variable-pitch nil + :font + (font-candidate + "Go-12" + "Georgia-11")) +#+end_src - (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*)) +** Unicode + +#+begin_src emacs-lisp + (use-package unicode-fonts + :config + (unicode-fonts-setup)) #+end_src -* Files +** Variable pitch faces -** Keep .emacs.d tidy +#+begin_src emacs-lisp + (add-hook 'text-mode-hook + (lambda () + (variable-pitch-mode 1))) +#+end_ - By default, Emacs keeps files all over the damn place. I like the - =no-littering= package to keep files in one of two directories -- - =etc/= and =var/=. I'm going to require it right away so that I can - immediately use it. +* TODO Emacs configuration [meta] - #+begin_src emacs-lisp - (use-package no-littering) - (require 'no-littering) - #+end_src +** Keep =~/.emacs.d= tidy -** Customize +* TODO Ease of use -I don't use the customize interface -- but sometimes it's good to -figure out what settings are available for a package. So I keep the -customizations in a file (some people just throw it in =/dev/null=), -but I /don't/ load the file. +** Selectrum -#+begin_src emacs-lisp - (cuss custom-file (no-littering-expand-etc-file-name "custom.el")) -#+end_src +** Prescient -** Encoding +** CtrlF -It's 2020 -- let's use UTF-8 everywhere. Furthermore, even Notepad -can figure out Unix line endings (=LF=) -- so let's only use that. +** Startup -I'm going to be perfectly honest here. I'm not sure what like, any of -these do. I just threw everything =utf-8-unix= into a block and hope -for the best. +** Ignore case -#+begin_src emacs-lisp - (prefer-coding-system 'utf-8-unix) - (set-default-coding-systems 'utf-8-unix) - (set-terminal-coding-system 'utf-8-unix) - (set-keyboard-coding-system 'utf-8-unix) - (set-selection-coding-system 'utf-8-unix) - (set-file-name-coding-system 'utf-8-unix) - (set-clipboard-coding-system 'utf-8-unix) - (set-buffer-file-coding-system 'utf-8-unix) - (cuss locale-coding-system 'utf-8-unix) - (cuss x-select-request-type '(UTF8_STRING COMPOUND_TEXT TEXT STRING)) -#+end_src +* TODO Persistence + +** Auto-saves + +** Backup files ** Recent files -Though I haven't used this feature ... yet, maybe if I use the =C-x -C-r= binding that is suggested (like /everywhere/), it'll be easier -for me to use. +** Save places in visited files -I'm putting =recentf= in a =use-package= declaration, by the way, -because even though it's a part of Emacs, it's conveniently in its own -package. +** Save history -#+begin_src emacs-lisp - (use-package recentf - :custom-update - (recentf-exclude - (no-littering-var-directory - no-littering-etc-directory)) - :custom - (recentf-max-menu-items 100) - (recentf-max-saved-items 100) - :bind - ("C-x C-r" . recentf-open-files) - :config - (recentf-mode 1)) -#+end_src +** Undo + +* TODO General editing + +** Undo + +** Find/replace + +** Expand region + +* TODO Writing + +** Word count + +** Visual fill column mode + +** Org mode + +* TODO Coding + +** Display + +*** Prettify symbols mode + +*** Parentheses and frens + +*** Line numbers + +** Git + +** Programming languages + +*** Shell + +*** Lisp + +*** Fennel + +*** Lua + +*** Web (HTML/CSS/JS) + +* Applications + +** Elpher + +** Pastebin (0x0) -- cgit 1.4.1-21-gabe81