Change line-endings to Unix

author: Case Duckworth 2020-10-25 13:18:40 -0500
committer: Case Duckworth 2020-10-25 13:18:40 -0500
commit: eeb506f55237a289725f932bdf233f2443c73261 (patch)
tree: 9f77adbed61da3edb06668c1caaf5f3938411eca
parent: Convert to Literate Config (diff)
download: emacs-eeb506f55237a289725f932bdf233f2443c73261.tar.gz
emacs-eeb506f55237a289725f932bdf233f2443c73261.zip
2 files changed, 555 insertions, 609 deletions
diff --git a/early-init.el b/early-init.el
deleted file mode 100644
index 5e62175..0000000
--- a/early-init.el
+++ /dev/null

@@ -1,22 +0,0 @@
-;;; early-init.el -*- lexical-binding: t; no-byte-compile: t -*-
-(setq load-prefer-newer t)
-;;; Bootstrap `straight.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))
-;;; Bootstrap `use-package'
-(setq straight-use-package-by-default t)
-(straight-use-package 'use-package)
diff --git a/init.org b/init.org
index 98e081d..52f0d9e 100644
--- a/init.org
+++ b/init.org

@@ -1,587 +1,555 @@
-#+TITLE: Emacs config
+#+TITLE: Emacs config
-#+AUTHOR: Case Duckworth
+#+AUTHOR: Case Duckworth
-#+BABEL: :cache yes
+#+BABEL: :cache yes
-#+PROPERTY: header-args :tangle init.el
+#+PROPERTY: header-args :tangle init.el
-#+BANKRUPTCY_COUNT: 1
+#+BANKRUPTCY_COUNT: 1
-* Preamble
+* 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.
+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
+* Bootstrap
-/Check out Lars's config for the reasoning behind this./
+/Check out Lars's config for the reasoning behind this./
-When this configuration is loaded for the first time, this ~init.el~ is loaded:
+When this configuration is loaded for the first time, this ~init.el~ is loaded:
-#+BEGIN_SRC emacs-lisp :tangle no
+#+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:
+  ;; 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
+  ;; git update-index --assume-unchanged init.el
-  ;;
+  ;;
-  ;; If it needs to be changed, start tracking it again thusly:
+  ;; If it needs to be changed, start tracking it again thusly:
-  ;; git update-index --no-assume-unchanged init.el
+  ;; git update-index --no-assume-unchanged init.el
-  (require 'org)
+  (require 'org)
-  (find-file (concat user-emacs-directory "init.org"))
+  (find-file (concat user-emacs-directory "init.org"))
-  (org-babel-tangle)
+  (org-babel-tangle)
-  (load-file (concat user-emacs-directory "init.el"))
+  (load-file (concat user-emacs-directory "init.el"))
-  (byte-compile-file (concat user-emacs-directory "init.el"))
+  (byte-compile-file (concat user-emacs-directory "init.el"))
-#+END_SRC
+#+END_SRC
-** Tangling
+** 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.
+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
+#+NAME: tangle-on-save
-#+BEGIN_SRC emacs-lisp
+#+BEGIN_SRC emacs-lisp :tangle no
-  (defun acdw/tangle-init ()
+  (defun acdw/tangle-init ()
-    "If the current buffer is `init.org', the code blocks are tangled,
+    "If the current buffer is `init.org', the code blocks are tangled,
-  and the tangled file is compiled."
+  and the tangled file is compiled."
-    (when (equal (buffer-file-name)
+    (when (equal (buffer-file-name)
-                 (expand-file-name (concat user-emacs-directory "init.org")))
+                 (expand-file-name (concat user-emacs-directory "init.org")))
-      ;; Avoid running hooks when tangling.
+      ;; Avoid running hooks when tangling.
-      (let ((prog-mode-hook nil))
+      (let ((prog-mode-hook nil))
-        (org-babel-tangle)
+        (org-babel-tangle)
-        (byte-compile-file (concat user-emacs-directory "init.el")))))
+        (byte-compile-file (concat user-emacs-directory "init.el")))))
-(add-hook 'after-save-hook #'acdw/tangle-init)
+(add-hook 'after-save-hook #'acdw/tangle-init)
-#+END_SRC
+#+END_SRC
-* Early initiation
+* 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.
+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
+** Preamble
-Of course, first thing is the modeline.  After that, I set ~load-prefer-newer~ because, well, it /should/.
+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
+#+BEGIN_SRC emacs-lisp :tangle early-init.el
-  ;;; early-init.el -*- lexical-binding: t; no-byte-compile: t -*-
+  ;;; early-init.el -*- lexical-binding: t; no-byte-compile: t -*-
-(setq load-prefer-newer t)
+(setq load-prefer-newer t)
-#+END_SRC
+#+END_SRC
-** Computers
+** 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.
+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
+#+BEGIN_SRC emacs-lisp :tangle early-init.el
-  (defconst *acdw/at-work* (eq system-type 'windows-nt))
+  (defconst *acdw/at-work* (eq system-type 'windows-nt))
-  (defconst *acdw/at-larry* (string= (system-name) "larry"))
+  (defconst *acdw/at-larry* (string= (system-name) "larry"))
-  (defconst *acdw/at-bax* (string= (system-name) "bax"))
+  (defconst *acdw/at-bax* (string= (system-name) "bax"))
-  (defconst *acdw/at-home* (or *acdw/at-larry* *acdw/at-bax*))
+  (defconst *acdw/at-home* (or *acdw/at-larry* *acdw/at-bax*))
-#+END_SRC
+#+END_SRC
-** Package management
+** 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.
+ 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
+*** At work, Git's in a weird place
-#+BEGIN_SRC emacs-lisp :tangle early-init.el
+#+BEGIN_SRC emacs-lisp :tangle early-init.el
-  (when *acdw/at-work*
+  (when *acdw/at-work*
-    (add-to-list 'exec-path "~/bin")
+    (add-to-list 'exec-path "~/bin")
-    (add-to-list 'exec-path "C:/Users/aduckworth/Downloads/PortableGit/bin"))
+    (add-to-list 'exec-path "C:/Users/aduckworth/Downloads/PortableGit/bin"))
-#+END_SRC
+#+END_SRC
-*** [[https://github.com/raxod502/straight.el][straight.el]]
+*** [[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/=).
+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
+#+BEGIN_SRC emacs-lisp :tangle early-init.el
-  (defvar bootstrap-version)
+  (defvar bootstrap-version)
-  (let ((bootstrap-file
+  (let ((bootstrap-file
-         (expand-file-name "straight/repos/straight.el/bootstrap.el"
+         (expand-file-name "straight/repos/straight.el/bootstrap.el"
-                           user-emacs-directory))
+                           user-emacs-directory))
-        (bootstrap-version 5))
+        (bootstrap-version 5))
-    (unless (file-exists-p bootstrap-file)
+    (unless (file-exists-p bootstrap-file)
-      (with-current-buffer
+      (with-current-buffer
-          (url-retrieve-synchronously
+          (url-retrieve-synchronously
-           "https://raw.githubusercontent.com/raxod502/straight.el/develop/install.el"
+           "https://raw.githubusercontent.com/raxod502/straight.el/develop/install.el"
-           'silent 'inhibit-cookies)
+           'silent 'inhibit-cookies)
-        (goto-char (point-max))
+        (goto-char (point-max))
-        (eval-print-last-sexp)))
+        (eval-print-last-sexp)))
-    (load bootstrap-file nil 'nomessage))
+    (load bootstrap-file nil 'nomessage))
-#+END_SRC
+#+END_SRC
-*** [[https://github.com/jwiegley/use-package][use-package]]
+*** [[https://github.com/jwiegley/use-package][use-package]]
-Yeah, you know it, I know it, we all love it.  It's 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
+#+BEGIN_SRC emacs-lisp :tangle early-init.el
-  (setq straight-use-package-by-default t)
+  (setq straight-use-package-by-default t)
-  (straight-use-package 'use-package)
+  (straight-use-package 'use-package)
-#+END_SRC
+#+END_SRC
-* Begin init.el
+* Begin init.el
-#+BEGIN_SRC emacs-lisp
+#+BEGIN_SRC emacs-lisp :noweb tangle
-  ;;; init.el -*- lexical-binding: t; coding: utf-8 -*-
+  ;;; init.el -*- lexical-binding: t; coding: utf-8 -*-
-#+END_SRC
+  <<tangle-on-save>>
-* Macros
+#+END_SRC
-** cuss
+* Macros
-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?
+** 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
+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~!
-  (defmacro cuss (var val)
+#+BEGIN_SRC emacs-lisp
-    "Basically `use-package''s `:custom', but without either."
+  (defmacro cuss (var val)
-    `(progn
+    "Basically `use-package''s `:custom', but without either."
-       (funcall (or (get ',var 'custom-set) #'set-default)
+    `(progn
-                ',var ,val)))
+       (funcall (or (get ',var 'custom-set) #'set-default)
-#+END_SRC
+                ',var ,val)))
-* Files
+#+END_SRC
-** [[https://github.com/emacscollective/no-littering][Keep .emacs.d tidy]]
+* Files
-#+BEGIN_SRC emacs-lisp
+** [[https://github.com/emacscollective/no-littering][Keep .emacs.d tidy]]
-  (use-package no-littering)
+#+BEGIN_SRC emacs-lisp
-#+END_SRC
+  (use-package no-littering)
-** Customize
+#+END_SRC
-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.
+** Customize
-#+BEGIN_SRC emacs-lisp
+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.
-  (cuss custom-file (no-littering-expand-etc-file-name "custom.el"))
+#+BEGIN_SRC emacs-lisp
-#+END_SRC
+  (cuss custom-file (no-littering-expand-etc-file-name "custom.el"))
-** Encoding
+#+END_SRC
-#+BEGIN_SRC emacs-lisp
+** Encoding
-  (set-charset-priority 'unicode)
+#+BEGIN_SRC emacs-lisp
-  (set-language-environment "UTF-8")
+  (set-charset-priority 'unicode)
-  (set-default-coding-systems 'utf-8)
+  (set-language-environment "UTF-8")
-  (set-terminal-coding-system 'utf-8)
+  (set-default-coding-systems 'utf-8)
-  (set-keyboard-coding-system 'utf-8)
+  (set-terminal-coding-system 'utf-8)
-  (set-selection-coding-system 'utf-8)
+  (set-keyboard-coding-system 'utf-8)
-  (prefer-coding-system 'utf-8)
+  (set-selection-coding-system 'utf-8)
-#+END_SRC
+  (prefer-coding-system 'utf-8)
-** Recent files
+#+END_SRC
-#+BEGIN_SRC emacs-lisp
+** Recent files
-  (use-package recentf
+#+BEGIN_SRC emacs-lisp
-    :config
+  (use-package recentf
-    (add-to-list 'recentf-exclude no-littering-var-directory)
+    :config
-    (add-to-list 'recentf-exclude no-littering-etc-directory)
+    (add-to-list 'recentf-exclude no-littering-var-directory)
-    :custom
+    (add-to-list 'recentf-exclude no-littering-etc-directory)
-    (recentf-max-menu-items 100)
+    :custom
-    (recentf-max-saved-items 100)
+    (recentf-max-menu-items 100)
-    :config
+    (recentf-max-saved-items 100)
-    (recentf-mode 1))
+    :config
-#+END_SRC
+    (recentf-mode 1))
-** Backups
+#+END_SRC
-#+BEGIN_SRC emacs-lisp
+** Backups
-  (cuss backup-directory-alist
+#+BEGIN_SRC emacs-lisp
-        `((".*" . ,(no-littering-expand-var-file-name "backup/"))))
+  (cuss backup-directory-alist
-#+END_SRC
+        `((".*" . ,(no-littering-expand-var-file-name "backup/"))))
-** [[https://github.com/bbatsov/super-save][Autosave]]
+#+END_SRC
-#+BEGIN_SRC emacs-lisp
+** [[https://github.com/bbatsov/super-save][Autosave]]
-  (use-package super-save
+#+BEGIN_SRC emacs-lisp
-    :custom
+  (use-package super-save
-    (auto-save-default nil)
+    :custom
-    (super-save-auto-save-when-idle t)
+    (auto-save-default nil)
-    (super-save-exclude '(".gpg"))
+    (super-save-auto-save-when-idle t)
-    :config
+    (super-save-exclude '(".gpg"))
-    (super-save-mode 1))
+    :config
-#+END_SRC
+    (super-save-mode 1))
-** Save places
+#+END_SRC
-#+BEGIN_SRC emacs-lisp
+** Save places
-  (use-package saveplace
+#+BEGIN_SRC emacs-lisp
-    :custom
+  (use-package saveplace
-    (save-place-file (no-littering-expand-var-file-name "places"))
+    :custom
-    :config
+    (save-place-file (no-littering-expand-var-file-name "places"))
-    (save-place-mode 1))
+    :config
-#+END_SRC
+    (save-place-mode 1))
-** Save history
+#+END_SRC
-#+BEGIN_SRC emacs-lisp
+** Save history
-  (use-package savehist
+#+BEGIN_SRC emacs-lisp
-    :custom
+  (use-package savehist
-    (savehist-addtional-variables
+    :custom
-     '(kill-ring
+    (savehist-addtional-variables
-       search-ring
+     '(kill-ring
-       regexp-search-ring))
+       search-ring
-    (savehist-save-minibuffer-history t)
+       regexp-search-ring))
-    :config
+    (savehist-save-minibuffer-history t)
-    (savehist-mode 1))
+    :config
-#+END_SRC
+    (savehist-mode 1))
-* User interface
+#+END_SRC
-** Look
+* User interface
-*** Frames and windows
+** Look
-**** Frame defaults
+*** Frames and windows
-#+BEGIN_SRC emacs-lisp
+**** Frame defaults
-  (cuss default-frame-alist '((tool-bar-lines . 0)
+#+BEGIN_SRC emacs-lisp
-                              (menu-bar-lines . 0)
+  (cuss default-frame-alist '((tool-bar-lines . 0)
-                              (vertical-scroll-bars . nil)
+                              (menu-bar-lines . 0)
-                              (horizontal-scroll-bars . nil)
+                              (vertical-scroll-bars . nil)
-                              (right-divider-width . 2)
+                              (horizontal-scroll-bars . nil)
-                              (bottom-divider-width . 2)
+                              (right-divider-width . 2)
-                              (left-fringe-width . 2)
+                              (bottom-divider-width . 2)
-                              (right-fringe-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)
+  ;; also disable these with modes, so I can re-enable them more easily
-  (tool-bar-mode -1)
+  (menu-bar-mode -1)
-  (scroll-bar-mode -1)
+  (tool-bar-mode -1)
-#+END_SRC
+  (scroll-bar-mode -1)
-**** Resizing
+#+END_SRC
-#+BEGIN_SRC emacs-lisp
+**** Resizing
-  (cuss frame-resize-pixelwise t)
+#+BEGIN_SRC emacs-lisp
-  (cuss window-combination-resize t)
+  (cuss frame-resize-pixelwise t)
-#+END_SRC
+  (cuss window-combination-resize t)
-*** Buffers
+#+END_SRC
-#+BEGIN_SRC emacs-lisp
+*** Buffers
-  (cuss uniquify-buffer-name-style 'forward)
+#+BEGIN_SRC emacs-lisp
+  (cuss uniquify-buffer-name-style 'forward)
-  (cuss indicate-buffer-boundaries
-        '((top . right)
+  (cuss indicate-buffer-boundaries
-          (bottom . right)
+        '((top . right)
-          (t . nil)))
+          (bottom . right)
-#+END_SRC
+          (t . nil)))
-**** Startup buffer
+#+END_SRC
-#+BEGIN_SRC emacs-lisp
+**** Startup buffer
-  (cuss inhibit-startup-buffer-menu t)
+#+BEGIN_SRC emacs-lisp
-  (cuss inhibit-startup-screen t)
+  (cuss inhibit-startup-buffer-menu t)
-  (cuss initial-buffer-choice t) ; start in *scratch*
+  (cuss inhibit-startup-screen t)
-  (cuss initial-scratch-message nil)
+  (cuss initial-buffer-choice t) ; start in *scratch*
-#+END_SRC
+  (cuss initial-scratch-message nil)
-*** Cursor
+#+END_SRC
-#+BEGIN_SRC emacs-lisp
+*** Cursor
-  (cuss cursor-type 'bar)
+#+BEGIN_SRC emacs-lisp
-  (cuss cursor-in-non-selected-windows 'hollow)
+  (cuss cursor-type 'bar)
-  (blink-cursor-mode 0)
+  (cuss cursor-in-non-selected-windows 'hollow)
-#+END_SRC
+  (blink-cursor-mode 0)
-*** Interactivity
+#+END_SRC
-**** Mouse
+*** Interactivity
-#+BEGIN_SRC emacs-lisp
+**** Mouse
-  (cuss mouse-yank-at-point t)
+#+BEGIN_SRC emacs-lisp
-#+END_SRC
+  (cuss mouse-yank-at-point t)
-**** Dialogs
+#+END_SRC
-#+BEGIN_SRC emacs-lisp
+**** Dialogs
-  (cuss use-dialog-box nil)
+#+BEGIN_SRC emacs-lisp
-#+END_SRC
+  (cuss use-dialog-box nil)
-**** Disabled functions
+#+END_SRC
-#+BEGIN_SRC emacs-lisp
+**** Disabled functions
-  (cuss disabled-command-function nil)
+#+BEGIN_SRC emacs-lisp
-#+END_SRC
+  (cuss disabled-command-function nil)
-** Themes: [[https://github.com/protesilaos/modus-themes][Modus]]
+#+END_SRC
-#+BEGIN_SRC emacs-lisp
+** Themes: [[https://github.com/protesilaos/modus-themes][Modus]]
-  (use-package modus-operandi-theme)
+#+BEGIN_SRC emacs-lisp
-  (use-package modus-vivendi-theme)
+  (use-package modus-operandi-theme)
-#+END_SRC
+  (use-package modus-vivendi-theme)
-*** [[https://github.com/hadronzoo/theme-changer][Change themes]] based on time of day
+#+END_SRC
-#+BEGIN_SRC emacs-lisp
+*** [[https://github.com/hadronzoo/theme-changer][Change themes]] based on time of day
-  (use-package theme-changer
+#+BEGIN_SRC emacs-lisp
-    :init
+  (use-package theme-changer
-    (setq calendar-location-name "Baton Rouge, LA"
+    :init
-          calendar-latitude 30.39
+    (setq calendar-location-name "Baton Rouge, LA"
-          calendar-longitude -91.83)
+          calendar-latitude 30.39
-    :config
+          calendar-longitude -91.83)
-    (change-theme 'modus-operandi 'modus-vivendi))
+    :config
-#+END_SRC
+    (change-theme 'modus-operandi 'modus-vivendi))
-** Modeline: [[https://github.com/Malabarba/smart-mode-line][smart-mode-line]]
+#+END_SRC
-#+BEGIN_SRC emacs-lisp
+** Modeline: [[https://github.com/Malabarba/smart-mode-line][smart-mode-line]]
-  (use-package smart-mode-line
+#+BEGIN_SRC emacs-lisp
-    :config
+  (use-package smart-mode-line
-    (sml/setup))
+    :config
-#+END_SRC
+    (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
+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")~.
-  (use-package rich-minority
+#+BEGIN_SRC emacs-lisp
-    :custom
+  (use-package rich-minority
-    (rm-whitelist '("^$")) ; show no minor modes
+    :custom
-    :config
+    (rm-whitelist '("^$")) ; show no minor modes
-    (rich-minority-mode 1))
+    :config
-#+END_SRC
+    (rich-minority-mode 1))
-** Fonts
+#+END_SRC
-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.
+** Fonts
-#+BEGIN_SRC emacs-lisp
+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.
-  (cuss face-font-family-alternatives
+#+BEGIN_SRC emacs-lisp
-        '(("Monospace" "courier" "fixed")
+  (cuss face-font-family-alternatives
-          ("Monospace Serif" "Courier 10 Pitch" "Consolas" "Courier Std" "FreeMono" "Nimbus Mono L" "courier" "fixed")
+        '(("Monospace" "courier" "fixed")
-          ("courier" "CMU Typewriter Text" "fixed")
+          ("Monospace Serif" "Courier 10 Pitch" "Consolas" "Courier Std" "FreeMono" "Nimbus Mono L" "courier" "fixed")
-          ("Sans Serif" "helv" "helvetica" "arial" "fixed")
+          ("courier" "CMU Typewriter Text" "fixed")
-          ("helv" "helvetica" "arial" "fixed")
+          ("Sans Serif" "helv" "helvetica" "arial" "fixed")
-          ;; now mine
+          ("helv" "helvetica" "arial" "fixed")
-          ("FixedPitch" "DejaVu Sans Mono" "Consolas" "fixed")
+          ;; now mine
-          ("VariablePitch" "DejaVu Serif" "Georgia" "fixed")))
+          ("FixedPitch" "DejaVu Sans Mono" "Consolas" "fixed")
+          ("VariablePitch" "DejaVu Serif" "Georgia" "fixed")))
-  (set-face-attribute 'default nil
-                      :family "FixedPitch"
+  (set-face-attribute 'default nil
-                      :height 110)
+                      :family "FixedPitch"
+                      :height 110)
-  (set-face-attribute 'fixed-pitch nil
-                      :family "FixedPitch"
+  (set-face-attribute 'fixed-pitch nil
-                      :height 110)
+                      :family "FixedPitch"
+                      :height 110)
-  (set-face-attribute 'variable-pitch nil
-                      :family "VariablePitch"
+  (set-face-attribute 'variable-pitch nil
-                      :height 110)
+                      :family "VariablePitch"
-#+END_SRC
+                      :height 110)
+#+END_SRC
-*** [[https://github.com/rolandwalker/unicode-fonts][Unicode fonts]]
-#+BEGIN_SRC emacs-lisp
+*** [[https://github.com/rolandwalker/unicode-fonts][Unicode fonts]]
-  (use-package unicode-fonts
+#+BEGIN_SRC emacs-lisp
-    :config
+  (use-package unicode-fonts
-    (unicode-fonts-setup))
+    :config
-#+END_SRC
+    (unicode-fonts-setup))
-* Editing
+#+END_SRC
-** Completion
+* Editing
-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.
+** Completion
-#+BEGIN_SRC emacs-lisp
+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.
-  (bind-key "M-/" #'hippie-expand)
+#+BEGIN_SRC emacs-lisp
-#+END_SRC
+  (bind-key "M-/" #'hippie-expand)
-** Ignore case
+#+END_SRC
-#+BEGIN_SRC emacs-lisp
+** Ignore case
-  (cuss completion-ignore-case t)
+#+BEGIN_SRC emacs-lisp
-  (cuss read-buffer-completion-ignore-case t)
+  (cuss completion-ignore-case t)
-  (cuss read-file-name-completion-ignore-case t)
+  (cuss read-buffer-completion-ignore-case t)
-#+END_SRC
+  (cuss read-file-name-completion-ignore-case t)
-** Selection & Minibuffer
+#+END_SRC
-*** Selectrum and Prescient for narrowing selection
+** Selection & Minibuffer
-#+BEGIN_SRC emacs-lisp
+*** Selectrum and Prescient for narrowing selection
-  (use-package selectrum
+#+BEGIN_SRC emacs-lisp
-    :config
+  (use-package selectrum
-    (selectrum-mode +1))
+    :config
+    (selectrum-mode +1))
-  (use-package prescient
-    :config
+  (use-package prescient
-    (prescient-persist-mode +1))
+    :config
+    (prescient-persist-mode +1))
-  (use-package selectrum-prescient
-    :after (selectrum prescient)
+  (use-package selectrum-prescient
-    :config
+    :after (selectrum prescient)
-    (selectrum-prescient-mode +1))
+    :config
-#+END_SRC
+    (selectrum-prescient-mode +1))
-*** CtrlF for searching
+#+END_SRC
-#+BEGIN_SRC emacs-lisp
+*** CtrlF for searching
-  (use-package ctrlf
+#+BEGIN_SRC emacs-lisp
-    :custom
+  (use-package ctrlf
-    (ctrlf-show-match-count-at-eol nil)
+    :custom
-    :config
+    (ctrlf-show-match-count-at-eol nil)
-    (ctrlf-mode +1))
+    :config
-#+END_SRC
+    (ctrlf-mode +1))
-** Undo
+#+END_SRC
-#+BEGIN_SRC emacs-lisp
+** Undo
-  (use-package undo-fu
+#+BEGIN_SRC emacs-lisp
-    :bind
+  (use-package undo-fu
-    ("C-/" . undo-fu-only-undo)
+    :bind
-    ("C-?" . undo-fu-only-redo))
+    ("C-/" . undo-fu-only-undo)
+    ("C-?" . undo-fu-only-redo))
-  (use-package undo-fu-session
-    :after no-littering
+  (use-package undo-fu-session
-    :custom
+    :after no-littering
-    (undo-fu-session-incompatible-files
+    :custom
-     '("/COMMIT_EDITMSG\\'"
+    (undo-fu-session-incompatible-files
-       "/git-rebase-todo\\'"))
+     '("/COMMIT_EDITMSG\\'"
-    (undo-fu-session-directory
+       "/git-rebase-todo\\'"))
-     (no-littering-expand-var-file-name "undos/"))
+    (undo-fu-session-directory
-    :config
+     (no-littering-expand-var-file-name "undos/"))
-    (global-undo-fu-session-mode +1))
+    :config
-#+END_SRC
+    (global-undo-fu-session-mode +1))
-** Visual editing
+#+END_SRC
-*** ~zap-to-char~ replacement
+** Visual editing
-#+BEGIN_SRC emacs-lisp
+*** ~zap-to-char~ replacement
-  (use-package zop-to-char
+#+BEGIN_SRC emacs-lisp
-    :bind
+  (use-package zop-to-char
-    ([remap zap-to-char] . zop-to-char)
+    :bind
-    ([remap zap-up-to-char] . zop-up-to-char))
+    ([remap zap-to-char] . zop-to-char)
-#+END_SRC
+    ([remap zap-up-to-char] . zop-up-to-char))
-*** Operate on a line if there's no current region
+#+END_SRC
-#+BEGIN_SRC emacs-lisp
+*** Operate on a line if there's no current region
-  (use-package whole-line-or-region
+#+BEGIN_SRC emacs-lisp
-    :config
+  (use-package whole-line-or-region
-    (whole-line-or-region-global-mode +1))
+    :config
-#+END_SRC
+    (whole-line-or-region-global-mode +1))
-*** Expand-region
+#+END_SRC
-#+BEGIN_SRC emacs-lisp
+*** Expand-region
-  (use-package expand-region
+#+BEGIN_SRC emacs-lisp
-    :bind
+  (use-package expand-region
-    ("C-=" . er/expand-region)
+    :bind
-    ("C-+" . er/contract-region))
+    ("C-=" . er/expand-region)
-#+END_SRC
+    ("C-+" . er/contract-region))
-*** Volatile highlights
+#+END_SRC
-#+BEGIN_SRC emacs-lisp
+*** Volatile highlights
-  (use-package volatile-highlights
+#+BEGIN_SRC emacs-lisp
-    :config
+  (use-package volatile-highlights
-    (volatile-highlights-mode 1))
+    :config
-#+END_SRC
+    (volatile-highlights-mode 1))
-*** Visual line mode
+#+END_SRC
-#+BEGIN_SRC emacs-lisp
+*** Visual line mode
-  (global-visual-line-mode 1)
+#+BEGIN_SRC emacs-lisp
-#+END_SRC
+  (global-visual-line-mode 1)
-*** A better ~move-beginning-of-line~
+#+END_SRC
-#+BEGIN_SRC emacs-lisp
+*** A better ~move-beginning-of-line~
-  (defun my/smarter-move-beginning-of-line (arg)
+#+BEGIN_SRC emacs-lisp
-    "Move point back to indentation of beginning of line.
+  (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.
+  Move point to the first non-whitespace character on this line.
-  Effectively toggle between the first non-whitespace character and
+  If point is already there, move to the beginning of the line.
-  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."
+  If ARG is not nil or 1, move forward ARG - 1 lines first.  If
-    (interactive "^p")
+  point reaches the beginning or end of the buffer, stop there."
-    (setq arg (or arg 1))
+    (interactive "^p")
+    (setq arg (or arg 1))
-    ;; Move lines first
-    (when (/= arg 1)
+    ;; Move lines first
-      (let ((line-move-visual nil))
+    (when (/= arg 1)
-        (forward-line (1- arg))))
+      (let ((line-move-visual nil))
+        (forward-line (1- arg))))
-    (let ((orig-point (point)))
-      (back-to-indentation)
+    (let ((orig-point (point)))
-      (when (= orig-point (point))
+      (back-to-indentation)
-        (move-beginning-of-line 1))))
+      (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)
+  (bind-key "C-a" ; can't do [remap], don't know why
-#+END_SRC
+            #'my/smarter-move-beginning-of-line)
-** Delete the selection when typing
+#+END_SRC
-#+BEGIN_SRC emacs-lisp
+** Delete the selection when typing
-  (delete-selection-mode 1)
+#+BEGIN_SRC emacs-lisp
-#+END_SRC
+  (delete-selection-mode 1)
-** Clipboard
+#+END_SRC
-#+BEGIN_SRC emacs-lisp
+** Clipboard
-  (cuss save-interprogram-paste-before-kill t)
+#+BEGIN_SRC emacs-lisp
-#+END_SRC
+  (cuss save-interprogram-paste-before-kill t)
-** Tabs & Spaces
+#+END_SRC
-#+BEGIN_SRC emacs-lisp
+** Tabs & Spaces
-  (cuss indent-tabs-mode nil)
+#+BEGIN_SRC emacs-lisp
-  (cuss sentence-end-double-space t)
+  (cuss indent-tabs-mode nil)
-#+END_SRC
+  (cuss sentence-end-double-space t)
-* Programming
+#+END_SRC
-** Git
+* Programming
-#+BEGIN_SRC emacs-lisp
+** Git
-  (use-package magit
+#+BEGIN_SRC emacs-lisp
-    :bind
+  (use-package magit
-    ("C-x g" . magit-status)
+    :bind
-    :config
+    ("C-x g" . magit-status)
-    (add-to-list 'magit-no-confirm 'stage-all-changes))
+    :config
+    (add-to-list 'magit-no-confirm 'stage-all-changes))
-  ;; hook into `prescient'
-  (define-advice magit-list-refs
+  ;; hook into `prescient'
-      (:around (orig &optional namespaces format sortby)
+  (define-advice magit-list-refs
-               prescient-sort)
+      (:around (orig &optional namespaces format sortby)
-    "Apply prescient sorting when listing refs."
+               prescient-sort)
-    (let ((res (funcall orig namespaces format sortby)))
+    "Apply prescient sorting when listing refs."
-      (if (or sortby
+    (let ((res (funcall orig namespaces format sortby)))
-              magit-list-refs-sortby
+      (if (or sortby
-              (not selectrum-should-sort-p))
+              magit-list-refs-sortby
-          res
+              (not selectrum-should-sort-p))
-        (prescient-sort res))))
+          res
+        (prescient-sort res))))
-  (when (executable-find "cmake")
-    (use-package libgit)
+  (when (executable-find "cmake")
-    (use-package magit-libgit))
+    (use-package libgit)
+    (use-package magit-libgit))
-  (use-package forge
-    :after magit
+  (use-package forge
-    :custom
+    :after magit
-    (forge-owned-accounts '(("duckwork"))))
+    :custom
-#+END_SRC
+    (forge-owned-accounts '(("duckwork"))))
-** Code formatting and display
+#+END_SRC
-#+BEGIN_SRC emacs-lisp
+** Code formatting and display
-  (use-package format-all
+#+BEGIN_SRC emacs-lisp
-    :hook
+  (use-package format-all
-    (prog-mode . format-all-mode))
+    :hook
+    (prog-mode . format-all-mode))
-  (add-hook 'prog-mode-hook #'prettify-symbols-mode)
+  (add-hook 'prog-mode-hook #'prettify-symbols-mode)
-#+END_SRC
-*** Parentheses
+#+END_SRC
-#+BEGIN_SRC emacs-lisp
+*** Parentheses
-  (cuss show-paren-style 'mixed)
+#+BEGIN_SRC emacs-lisp
-  (show-paren-mode +1)
+  (cuss show-paren-style 'mixed)
+  (show-paren-mode +1)
-  (use-package smartparens
-    :init
+  (use-package smartparens
-    (defun acdw/setup-smartparens ()
+    :init
-      (require 'smartparens-config)
+    (defun acdw/setup-smartparens ()
-      (smartparens-mode +1))
+      (require 'smartparens-config)
-    :hook
+      (smartparens-mode +1))
-    (prog-mode . acdw/setup-smartparens))
+    :hook
+    (prog-mode . acdw/setup-smartparens))
-  (use-package rainbow-delimiters
-    :hook
+  (use-package rainbow-delimiters
-    (prog-mode . rainbow-delimiters-mode))
+    :hook
-#+END_SRC
+    (prog-mode . rainbow-delimiters-mode))
-** Line numbers
+#+END_SRC
-#+BEGIN_SRC emacs-lisp
+** Line numbers
-  (add-hook 'prog-mode-hook
+#+BEGIN_SRC emacs-lisp
-            (if (and (fboundp 'display-line-numbers-mode)
+  (add-hook 'prog-mode-hook
-                     (display-graphic-p))
+            (if (and (fboundp 'display-line-numbers-mode)
-                #'display-line-numbers-mode
+                     (display-graphic-p))
-              #'linum-mode))
+                #'display-line-numbers-mode
-#+END_SRC
+              #'linum-mode))
-** Languages
+#+END_SRC
-*** Lua
+** Languages
-#+BEGIN_SRC emacs-lisp
+*** Lua
-  (use-package lua-mode
+#+BEGIN_SRC emacs-lisp
-    :mode "\\.lua\\'"
+  (use-package lua-mode
-    :interpreter "lua")
+    :mode "\\.lua\\'"
-#+END_SRC
+    :interpreter "lua")
-*** Fennel
+#+END_SRC
-#+BEGIN_SRC emacs-lisp
+*** Fennel
-  (use-package fennel-mode
+#+BEGIN_SRC emacs-lisp
-    :mode "\\.fnl\\'")
+  (use-package fennel-mode
-#+END_SRC
+    :mode "\\.fnl\\'")
-*** Web
+#+END_SRC
-#+BEGIN_SRC emacs-lisp
+*** Web
-  (use-package web-mode
+#+BEGIN_SRC emacs-lisp
-    :custom
+  (use-package web-mode
-    (web-mode-markup-indent-offset 2)
+    :custom
-    (web-mode-code-indent-offset 2)
+    (web-mode-markup-indent-offset 2)
-    (web-mode-css-indent-offset 2)
+    (web-mode-code-indent-offset 2)
-    :mode (("\\.ts\\'" . web-mode)
+    (web-mode-css-indent-offset 2)
-           ("\\.html?\\'" . web-mode)
+    :mode (("\\.ts\\'" . web-mode)
-           ("\\.css?\\'" . web-mode)
+           ("\\.html?\\'" . web-mode)
-           ("\\.js\\'" . web-mode)))
+           ("\\.css?\\'" . web-mode)
-#+END_SRC
+           ("\\.js\\'" . web-mode)))
-* Writing
+#+END_SRC
-* Applications
+* Writing
-** Gemini & Gopher
+* Applications
-#+BEGIN_SRC emacs-lisp
+** Gemini & Gopher
-  (use-package elpher
+#+BEGIN_SRC emacs-lisp
-    :straight (elpher
+  (use-package elpher
-               :repo "git://thelambdalab.xyz/elpher.git")
+    :straight (elpher
-    :bind (:map elpher-mode-map
+               :repo "git://thelambdalab.xyz/elpher.git")
-                ("n" . elpher-next-link)
+    :bind (:map elpher-mode-map
-                ("p" . elpher-prev-link)
+                ("n" . elpher-next-link)
-                ("o" . elpher-follow-current-link)
+                ("p" . elpher-prev-link)
-                ("G" . elpher-go-current)))
+                ("o" . elpher-follow-current-link)
+                ("G" . elpher-go-current)))
-  (use-package gemini-mode
-    :straight (gemini-mode
+  (use-package gemini-mode
-               :repo "https://git.carcosa.net/jmcbray/gemini.el.git")
+    :straight (gemini-mode
-    :mode "\\.\\(gemini|gmi\\)\\'")
+               :repo "https://git.carcosa.net/jmcbray/gemini.el.git")
+    :mode "\\.\\(gemini|gmi\\)\\'")
-  (use-package gemini-write
-    :straight (gemini-write
+  (use-package gemini-write
-               :repo "https://alexschroeder.ch/cgit/gemini-write"))
+    :straight (gemini-write
+               :repo "https://alexschroeder.ch/cgit/gemini-write"))
-  (defun post-to-gemlog-blue (post-title user pass)
+  (use-package post-to-gemlog-blue
-    "Post current buffer to gemlog.blue."
+    :straight (post-to-gemlog-blue
-    (interactive
+               :repo "https://git.sr.ht/~acdw/post-to-gemlog-blue.el"))
-     (let* ((title-maybe (progn ;; TODO this is ... clunky
+#+END_SRC
-                           (goto-char (point-min))
+** Pastebin
-                           (if (re-search-forward "^# \\(.*\\)" nil t)
+#+BEGIN_SRC emacs-lisp
-                               (buffer-substring-no-properties
+  (use-package 0x0
-                                (match-beginning 1)
+    :custom
-                                (match-end 1))
+    (0x0-default-service 'ttm))
-                             "")))
+#+END_SRC
-            (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
author	Case Duckworth	2020-10-25 13:18:40 -0500
committer	Case Duckworth	2020-10-25 13:18:40 -0500
commit	eeb506f55237a289725f932bdf233f2443c73261 (patch)
tree	9f77adbed61da3edb06668c1caaf5f3938411eca
parent	Convert to Literate Config (diff)
download	emacs-eeb506f55237a289725f932bdf233f2443c73261.tar.gz emacs-eeb506f55237a289725f932bdf233f2443c73261.zip