From 3bd9512832ee7c4376c0165abfd27742f484e424 Mon Sep 17 00:00:00 2001 From: Case Duckworth Date: Tue, 22 Dec 2020 20:34:45 -0600 Subject: Update README --- README.md | 466 +++++++++++++++++++++++++++---------------------------------- config.org | 2 +- 2 files changed, 208 insertions(+), 260 deletions(-) diff --git a/README.md b/README.md index 9e0e26d..b4e10ba 100644 --- a/README.md +++ b/README.md @@ -80,7 +80,6 @@ when it errors. '(use-package-custom-update :host github :repo "a13/use-package-custom-update")) - (require 'use-package-custom-update) @@ -103,19 +102,26 @@ when it errors. ## Keep a tidy `~/.emacs` - (use-package no-littering - :custom - (backup-directory-alist - `((".*" . ,(no-littering-expand-var-file-name "backup/")))) - (auto-save-file-name-transforms - `((".*" ,(no-littering-expand-var-file-name "autosaves/") t))) - (save-place-file - (no-littering-expand-var-file-name "places")) - (undo-fu-session-directory - (no-littering-expand-var-file-name "undos/")) - (elpher-certificate-directory - (no-littering-expand-var-file-name "elpher-certificates/"))) + (straight-use-package 'no-littering) + + (cuss backup-directory-alist `((".*" . ,(no-littering-expand-var-file-name "backup/"))) + "Where to store backup files.") + + (cuss auto-save-file-name-transforms + `((".*" ,(no-littering-expand-var-file-name "autosaves/") t)) + "Where to store auto-save files.") + (cuss save-place-file (no-littering-expand-var-file-name "places") + "Where to store place files.") + + (cuss undo-fu-session-directory (no-littering-expand-var-file-name "undos/") + "Where to store undo information.") + + (cuss elpher-certificate-directory + (no-littering-expand-var-file-name "elpher-certificates/") + "Where to store elpher client certificates.") + + ;; Make all directories defined above (dolist (dir '("backup" "autosaves" "undos" @@ -140,7 +146,6 @@ when it errors. (cuss default-frame-alist '((tool-bar-lines . 0) (menu-bar-lines . 0))) - (menu-bar-mode -1) (tool-bar-mode -1) @@ -149,7 +154,6 @@ when it errors. (add-to-list 'default-frame-alist '(vertical-scroll-bars . nil)) (scroll-bar-mode -1) - (add-to-list 'default-frame-alist '(horizontal-scroll-bars . nil)) (horizontal-scroll-bar-mode -1) @@ -167,7 +171,6 @@ when it errors. ### Remove the bell (cuss visible-bell (not (string= (system-name) "larry"))) - (defun acdw/ring-bell-function () "Custom bell-ringing function." (let ((orig-face (face-foreground 'mode-line))) @@ -177,7 +180,6 @@ when it errors. (lambda (fg) (set-face-foreground 'mode-line fg)) orig-face))) - (cuss ring-bell-function #'acdw/ring-bell-function) @@ -204,7 +206,6 @@ when it errors. '((width . 80) (height . 2) (vertical-scrollbars . nil))) - (set-window-scroll-bars (minibuffer-window) nil nil) 2. Keep the cursor from going into the prompt @@ -243,43 +244,15 @@ when it errors. ### Buffer boundaries (cuss indicate-buffer-boundaries - '((top . right) - (bottom . right) + '((up . right) + (down . right) (t . nil))) - (cuss indicate-empty-lines t) ## Windows -### Split windows *more* sensibly - -from [Stack Overflow](https://stackoverflow.com/questions/23659909/reverse-evaluation-order-of-split-height-threshold-and-split-width-threshold-in). - - (defun my-split-window-sensibly (&optional window) - (let ((window (or window (selected-window)))) - (or (and (window-splittable-p window t) - ;; Split window horizontally. - (with-selected-window window - (split-window-right))) - (and (window-splittable-p window) - ;; Split window vertically. - (with-selected-window window - (split-window-below))) - (and (eq window (frame-root-window (window-frame window))) - (not (window-minibuffer-p window)) - ;; If WINDOW is the only window on its frame and is not the - ;; minibuffer window, try to split it horizontally disregarding - ;; the value of `split-width-threshold'. - (let ((split-width-threshold 0)) - (when (window-splittable-p window t) - (with-selected-window window - (split-window-right)))))))) - - (setq split-window-preferred-function #'my-split-window-sensibly) - - ### Winner mode (when (fboundp 'winner-mode) @@ -338,40 +311,40 @@ from [link0ff](https://github.com/link0ff/emacs-init). ## Theme - (use-package modus-themes - :straight (modus-themes - :host gitlab - :repo "protesilaos/modus-themes" - :branch "main") - :custom - (modus-themes-slanted-constructs t) - (modus-themes-bold-constructs t) - (modus-themes-fringes nil) - (modus-themes-mode-line '3d) - (modus-themes-syntax 'yellow-comments) - (modus-themes-intense-hl-line nil) - (modus-themes-paren-match 'intense-bold) - (modus-themes-links nil) - (modus-themes-no-mixed-fonts nil) - (modus-themes-prompts nil) - (modus-themes-completions nil) - (modus-themes-diffs nil) - (modus-themes-org-blocks 'grayscale) - (modus-themes-headings - '((1 . line) - (t . t))) - (modus-themes-variable-pitch-headings t) - (modus-themes-scale-headings t) - (modus-themes-scale-1 1.1) - (modus-themes-scale-2 1.15) - (modus-themes-scale-3 1.21) - (modus-themes-scale-4 1.27) - (modus-themes-scale-5 1.33) - :custom-face - (font-lock-comment-face - ((t (:inherit (custom-comment italic variable-pitch))))) - :init - (load-theme 'modus-operandi t)) + (straight-use-package '(modus-themes + :host gitlab + :repo "protesilaos/modus-themes" + :branch "main")) + + (cuss modus-themes-slanted-constructs t) + (cuss modus-themes-bold-constructs t) + (cuss modus-themes-fringes nil) + (cuss modus-themes-mode-line '3d) + (cuss modus-themes-syntax 'yellow-comments) + (cuss modus-themes-intense-hl-line nil) + (cuss modus-themes-paren-match 'intense-bold) + (cuss modus-themes-links nil) + (cuss modus-themes-no-mixed-fonts nil) + (cuss modus-themes-prompts nil) + (cuss modus-themes-completions nil) + (cuss modus-themes-diffs nil) + (cuss modus-themes-org-blocks 'grayscale) + (cuss modus-themes-headings + '((1 . line) + (t . t))) + (cuss modus-themes-variable-pitch-headings t) + (cuss modus-themes-scale-headings t) + (cuss modus-themes-scale-1 1.1) + (cuss modus-themes-scale-2 1.15) + (cuss modus-themes-scale-3 1.21) + (cuss modus-themes-scale-4 1.27) + (cuss modus-themes-scale-5 1.33) + + ;; :custom-face + (custom-set-faces `(font-lock-comment-face + ((t (:inherit (custom-comment italic variable-pitch)))))) + + (load-theme 'modus-operandi t) ### Change theme based on time of day @@ -379,19 +352,35 @@ from [link0ff](https://github.com/link0ff/emacs-init). (cuss calendar-latitude 30.4515) (cuss calendar-longitude -91.1871) - (use-package circadian - :custom - (circadian-themes '((:sunrise . modus-operandi) - (:sunset . modus-vivendi))) - :config - (circadian-setup)) + (straight-use-package 'circadian) + + (cuss circadian-themes '((:sunrise . modus-operandi) + (:sunset . modus-vivendi))) + + (circadian-setup) ### Modeline - (use-package mood-line - :config - (mood-line-mode +1)) + (straight-use-package 'smart-mode-line) + (cuss sml/no-confirm-load-theme t) + (sml/setup) + +1. Rich minority + + Since this *comes* with smart mode line, I’m just going to use it, instead of `diminish` or another package. I do have to write this helper function, though, to add things to the whitelist. + + (defun rm/whitelist-add (regexp) + "Add a REGEXP to the whitelist for `rich-minority'." + (if (listp 'rm--whitelist-regexps) + (add-to-list 'rm--whitelist-regexps regexp) + (setq rm--whitelist-regexps `(,regexp))) + (setq rm-whitelist + (mapconcat 'identity rm--whitelist-regexps "\\|"))) + + (straight-use-package 'rich-minority) + + (rm/whitelist-add "^$") ### Fonts @@ -422,25 +411,22 @@ from [link0ff](https://github.com/link0ff/emacs-init). :height 100) ("Consolas" :height 100))) - (set-face-from-alternatives 'fixed-pitch '(("Libertinus Mono" - :height 1.0) + :height 110) ("Linux Libertine Mono O" - :height 1.0) + :height 110) ("Go Mono" - :height 1.0) + :height 100) ("Consolas" - :height 1.0))) - + :height 100))) (set-face-from-alternatives 'variable-pitch '(("Libertinus Serif" - :height 1.0) + :height 120) ("Linux Libertine O" - :height 1.0) + :height 120) ("Georgia" - :height 1.0))) - + :height 110))) (remove-function after-focus-change-function #'acdw/setup-fonts))) (add-function :before after-focus-change-function #'acdw/setup-fonts) @@ -455,8 +441,8 @@ from [link0ff](https://github.com/link0ff/emacs-init). 4. Unicode fonts - (use-package unicode-fonts - :config + (straight-use-package 'unicode-fonts) + (with-eval-after-load 'unicode-fonts (unicode-fonts-setup)) @@ -465,11 +451,9 @@ from [link0ff](https://github.com/link0ff/emacs-init). ## Async - (use-package async) - + (straight-use-package 'async) (autoload 'dired-async-mode "dired-async.el" nil t) (dired-async-mode +1) - (async-bytecomp-package-mode +1) @@ -478,29 +462,36 @@ from [link0ff](https://github.com/link0ff/emacs-init). ### Shadow file names - (cuss file-name-shadow-properties - '(invisible t)) + (cuss file-name-shadow-properties '(invisible t)) (file-name-shadow-mode +1) ### Selectrum - (use-package selectrum - :config - (selectrum-mode +1)) + (straight-use-package 'selectrum) + (require 'selectrum) + (selectrum-mode +1) ### Prescient - (use-package prescient - :config - (prescient-persist-mode +1)) + (straight-use-package 'prescient) + (require 'prescient) - (use-package selectrum-prescient - :after (selectrum prescient) - :config - (selectrum-prescient-mode +1)) + (prescient-persist-mode +1) + + (straight-use-package 'selectrum-prescient) + + (with-eval-after-load 'prescient + (with-eval-after-load 'selectrum + (selectrum-prescient-mode +1))) + + (straight-use-package 'company-prescient) + + (with-eval-after-load 'prescient + (with-eval-after-load 'company + (company-prescient-mode +1))) ### Consult @@ -520,7 +511,6 @@ from [link0ff](https://github.com/link0ff/emacs-init). (" a" . consult-apropos)) :init (fset 'multi-occur #'consult-multi-occur)) - (use-package consult-selectrum :straight (consult-selectrum :host github @@ -529,19 +519,19 @@ from [link0ff](https://github.com/link0ff/emacs-init). ### Marginalia - (use-package marginalia - :straight (marginalia - :host github - :repo "minad/marginalia" - :branch "main") - :init - (marginalia-mode +1) - (cuss marginalia-annotators - (if (eq system-type 'windows-nt) - '(marginalia-annotators-light - marginalia-annotators-heavy) - '(marginalia-annotators-heavy - marginalia-annotators-light)))) + (straight-use-package '(marginalia + :host github + :repo "minad/marginalia" + :branch "main")) + + (cuss marginalia-annotators + (if (eq system-type 'windows-nt) + '(marginalia-annotators-light + marginalia-annotators-heavy) + '(marginalia-annotators-heavy + marginalia-annotators-light))) + + (marginalia-mode +1) ## Ignore case @@ -595,21 +585,21 @@ From [link0ff](https://github.com/link0ff/emacs-init). I thought they made a gr Also from link0ff. See the above for a link. - (defvar my-map + (defvar acdw/map (let ((map (make-sparse-keymap)) (c-z (global-key-binding "\C-z"))) (global-unset-key "\C-z") (define-key global-map "\C-z" map) (define-key map "\C-z" c-z) map)) - (run-hooks 'my-map-defined-hook) + (run-hooks 'acdw/map-defined-hook) ### Which-key - (use-package which-key - :config - (which-key-mode +1)) + (straight-use-package 'which-key) + + (which-key-mode +1) ### Bindings @@ -630,11 +620,8 @@ Also from link0ff. See the above for a link. '(kill-ring search-ring regexp-search-ring)) - (cuss savehist-save-minibuffer-history t) - (cuss history-length t) - (cuss history-delete-duplicates t) (savehist-mode +1) @@ -656,7 +643,6 @@ Also from link0ff. See the above for a link. (cuss recentf-max-menu-items 100) (cuss recentf-max-saved-items 100) - (with-eval-after-load 'no-littering (add-to-list 'recentf-exclude no-littering-var-directory) (add-to-list 'recentf-exclude no-littering-etc-directory)) @@ -683,13 +669,13 @@ Also from link0ff. See the above for a link. ("C-/" . undo-fu-only-undo) ("C-?" . undo-fu-only-redo)) - (use-package undo-fu-session - :custom - (undo-fu-session-incompatible-files - '("/COMMIT_EDITMSG\\'" - "/git-rebase-todo\\'")) - :config - (global-undo-fu-session-mode +1)) + (straight-use-package 'undo-fu-session) + + (cuss undo-fu-session-incompatible-files + '("/COMMIT_EDITMSG\\'" + "/git-rebase-todo\\'")) + + (global-undo-fu-session-mode +1) # Editing @@ -748,11 +734,11 @@ Also from link0ff. See the above for a link. ## Highlight modified regions - (use-package goggles - :custom - (goggles-pulse nil) - :config - (goggles-mode +1)) + (straight-use-package 'goggles) + + (cuss goggles-pulse nil) + + (goggles-mode +1) # Files @@ -776,10 +762,10 @@ Also from link0ff. See the above for a link. from [Emacs Wiki](https://www.emacswiki.org/emacs/EndOfLineTips). (defun ewiki/no-junk-please-were-unixish () - "Convert line endings to UNIX, dammit." - (let ((coding-str (symbol-name buffer-file-coding-system))) - (when (string-match "-\\(?:dos\\|mac\\)$" coding-str) - (set-buffer-file-coding-system 'unix)))) + "Convert line endings to UNIX, dammit." + (let ((coding-str (symbol-name buffer-file-coding-system))) + (when (string-match "-\\(?:dos\\|mac\\)$" coding-str) + (set-buffer-file-coding-system 'unix)))) I add it to the `find-file-hook` *and* `before-save-hook` because I don't want to ever work with anything other than UNIX line endings ever again. I just don't care. Even Microsoft Notepad can handle UNIX line endings, so I don't want to hear it. @@ -837,36 +823,20 @@ I add it to the `find-file-hook` *and* `before-save-hook` because I don't want t ### Smart parentheses - (use-package smartparens - :init - (require 'smartparens-config) - :config - (show-smartparens-global-mode +1) - :hook - (prog-mode-hook . smartparens-strict-mode)) - - -## Line numbers - - (defun acdw/enable-line-numbers () - "Enable line numbers, through either - `display-line-numbers-mode' or through `linum-mode'." - (if (and (fboundp 'display-line-numbers-mode) - (display-graphic-p)) - (display-line-numbers-mode +1) - (linum-mode +1))) + (straight-use-package 'smartparens) + (require 'smartparens-config) - (cuss display-line-numbers-width 2 - "Always have at least 2 digits for line numbers.") + (show-smartparens-global-mode +1) + (add-to-list 'sp-ignore-modes-list 'org-mode) - (add-hook 'prog-mode-hook #'acdw/enable-line-numbers) + (add-hook 'prog-mode-hook #'smartparens-strict-mode) ## Indenting - (use-package aggressive-indent - :config - (global-aggressive-indent-mode +1)) + (straight-use-package 'aggressive-indent) + + (global-aggressive-indent-mode +1) ## Completion @@ -875,30 +845,23 @@ I add it to the `find-file-hook` *and* `before-save-hook` because I don't want t :custom (company-idle-delay 0.1) (company-minimum-prefix-length 3) - :init (defun acdw/company-complete-common-or-cycle+1 () (interactive) (company-complete-common-or-cycle +1)) - (defun acdw/company-complete-common-or-cycle-1 () (interactive) (company-complete-common-or-cycle -1)) - :bind (:map company-active-map ("C-n" . acdw/company-complete-common-or-cycle+1) ("C-p" . acdw/company-complete-common-or-cycle-1)) - :hook (prog-mode-hook . company-mode)) - (use-package company-prescient :hook (company-mode-hook . company-prescient-mode)) - ;; this comes with company-quickhelp, so.... - (use-package company-posframe :after (company) :config @@ -934,24 +897,24 @@ I add it to the `find-file-hook` *and* `before-save-hook` because I don't want t ## Visual Fill Column - (use-package visual-fill-column - :custom - (split-window-preferred-function - 'visual-fill-column-split-window-sensibly) - (visual-fill-column-center-text t) - (fill-column 80) - :config - (advice-add 'text-scale-adjust - :after #'visual-fill-column-adjust) - :hook - (text-mode-hook . visual-fill-column-mode)) + (straight-use-package 'visual-fill-column) + + (cuss split-window-preferred-function + 'visual-fill-column-split-window-sensibly) + (cuss visual-fill-column-center-text t) + (cuss fill-column 80) + + (advice-add 'text-scale-adjust + :after #'visual-fill-column-adjust) + + (add-hook 'text-mode-hook #'visual-fill-column-mode) ## Type nice-looking quote-type marks - (use-package typo - :hook - (text-mode-hook . typo-mode)) + (straight-use-package 'typo) + + (add-hook 'text-mode-hook #'typo-mode) ## Insert *kaomoji* @@ -968,44 +931,37 @@ I add it to the `find-file-hook` *and* `before-save-hook` because I don't want t (use-package magit :bind - ("C-x g" . magit-status)) + ("C-z g" . magit-status)) ## Org mode I’ve put org mode under Applications, as opposed to Writing, because it’s more generally-applicable than that. - (use-package org - :mode ("\\.org\\'" . org-mode) - - :bind (:map org-mode-map - ("M-n" . outline-next-visible-heading) - ("M-p" . outline-previous-visible-heading)) - - :custom - (org-hide-emphasis-markers t) - (org-fontify-done-headline t) - (org-fontify-whole-heading-line t) - (org-fontify-quote-and-verse-blocks t) - (org-pretty-entities t) - (org-num-mode +1) - - (cuss org-directory "~/Org") + (straight-use-package 'org) - (org-src-tab-acts-natively t) - (org-src-fontify-natively t) - (org-src-window-setup 'current-window) - (org-confirm-babel-evaluate nil) - - :config + (with-eval-after-load 'org (require 'org-tempo) - (require 'ox-md)) + (require 'ox-md) + (bind-key "M-n" #'outline-next-visible-heading 'org-mode-map) + (bind-key "M-p" #'outline-previous-visible-heading 'org-mode-map)) + + (cuss org-hide-emphasis-markers t) + (cuss org-fontify-done-headline t) + (cuss org-fontify-whole-heading-line t) + (cuss org-fontify-quote-and-verse-blocks t) + (cuss org-pretty-entities t) + (cuss org-num-mode +1) + (cuss org-src-tab-acts-natively t) + (cuss org-src-fontify-natively t) + (cuss org-src-window-setup 'current-window) + (cuss org-confirm-babel-evaluate nil) + (cuss org-directory "~/Org") ### Org Agenda (cuss org-agenda-files (no-littering-expand-etc-file-name "agenda-files")) - (if (and (stringp org-agenda-files) (not (file-exists-p org-agenda-files))) (with-temp-buffer (write-file org-agenda-files))) @@ -1025,7 +981,6 @@ I’ve put org mode under Applications, as opposed to Writing, because it’s m ### [A better return in Org mode](http://kitchingroup.cheme.cmu.edu/blog/2017/04/09/A-better-return-in-org-mode/) (require 'org-inlinetask) - (defun scimax/org-return (&optional ignore) "Add new list item, heading or table row with RET. A double return on an empty element deletes it. @@ -1034,25 +989,20 @@ I’ve put org mode under Applications, as opposed to Writing, because it’s m (if ignore (org-return) (cond - ((eq 'line-break (car (org-element-context))) (org-return t)) - ;; Open links like usual, unless point is at the end of a line. ;; and if at beginning of line, just press enter. ((or (and (eq 'link (car (org-element-context))) (not (eolp))) (bolp)) (org-return)) - ;; It doesn't make sense to add headings in inline tasks. Thanks Anders ;; Johansson! ((org-inlinetask-in-task-p) (org-return)) - ;; checkboxes too ((org-at-item-checkbox-p) (org-insert-todo-heading nil)) - ;; lists end with two blank lines, so we need to make sure we are also not ;; at the beginning of a line to avoid a loop where a new entry gets ;; created with only one blank line. @@ -1062,7 +1012,6 @@ I’ve put org mode under Applications, as opposed to Writing, because it’s m (beginning-of-line) (delete-region (line-beginning-position) (line-end-position)) (org-return))) - ;; org-heading ((org-at-heading-p) (if (not (string= "" (org-element-property :title (org-element-context)))) @@ -1072,7 +1021,6 @@ I’ve put org mode under Applications, as opposed to Writing, because it’s m (beginning-of-line) (setf (buffer-substring (line-beginning-position) (line-end-position)) ""))) - ;; tables ((org-at-table-p) (if (-any? @@ -1086,12 +1034,9 @@ I’ve put org mode under Applications, as opposed to Writing, because it’s m (setf (buffer-substring (line-beginning-position) (line-end-position)) "") (org-return))) - ;; fall-through case (t (org-return))))) - - (define-key org-mode-map (kbd "RET") 'scimax/org-return) @@ -1142,10 +1087,16 @@ from [unpackaged.el](https://github.com/alphapapa/unpackaged.el#ensure-blank-lin (when (eq major-mode 'org-mode) (let ((current-prefix-arg 4)) ; Emulate C-u (call-interactively 'unpackaged/org-fix-blank-lines)))) - (add-hook 'before-save-hook #'cribbed/org-mode-fix-blank-lines) +### Agenda + + (bind-key "C-a" #'org-agenda 'acdw/map) + (cuss org-agenda-files + '("~/todo.org")) + + ## Elpher (use-package elpher @@ -1225,9 +1176,9 @@ from [unpackaged.el](https://github.com/alphapapa/unpackaged.el#ensure-blank-lin ## Pastebin - (use-package 0x0 - :custom - (0x0-default-service 'ttm)) + (straight-use-package '0x0) + + (cuss 0x0-default-service 'ttm) ## RSS @@ -1259,12 +1210,10 @@ from [unpackaged.el](https://github.com/alphapapa/unpackaged.el#ensure-blank-lin from [karthinks](https://karthinks.com/software/more-batteries-included-with-emacs/#regexp-builder--m-x-re-builder). (require 'browse-url) - (when (executable-find "mpv") (defun browse-url-mpv (url &optional single) (start-process "mpv" nil (if single "mpv" "umpv") (shell-quote-wildcard-pattern url))) - (defun browse-url-at-point-mpv (&optional single) "Open a link in mpv." (interactive "P") @@ -1275,7 +1224,6 @@ from [karthinks](https://karthinks.com/software/more-batteries-included-with-ema (browse-url-mpv url t)) #'browse-url-mpv))) (browse-url-at-point))) - (cuss browse-url-browser-function '(("https?:\\/\\/www\\.youtu\\.*be." . browse-url-mpv) ("." . browse-url-generic)))) @@ -1289,7 +1237,8 @@ from [karthinks](https://karthinks.com/software/more-batteries-included-with-ema (defun acdw/setup-nov-mode () (visual-line-mode +1) (visual-fill-column-mode +1) - (variable-pitch-mode +1)) + (variable-pitch-mode +1) + (setq cursor-type nil)) :config (cuss nov-text-width t) :hook @@ -1299,13 +1248,16 @@ from [karthinks](https://karthinks.com/software/more-batteries-included-with-ema ## Eshell (when (executable-find "bash") - (use-package bash-completion)) + (straight-use-package 'bash-completion)) (when (executable-find "fish") - (use-package fish-completion - :config - (cuss fish-completion-fallback-on-bash-p (executable-find "bash")) - (global-fish-completion-mode +1))) + (straight-use-package 'fish-completion) + (require 'fish-completion) + (cuss fish-completion-fallback-on-bash-p (executable-find "bash")) + (global-fish-completion-mode +1) + + (straight-use-package 'fish-mode) + (add-to-list 'auto-mode-alist '("\\.fish\\'" . fish-mode))) # Appendices @@ -1347,9 +1299,9 @@ from [karthinks](https://karthinks.com/software/more-batteries-included-with-ema ### early-init.el ;; early-init.el -*- lexical-binding: t; no-byte-compile: t; -*- - - (setq load-prefer-newer t) - (setq frame-inhibit-implied-resize t) + + (setq load-prefer-newer t) + (setq frame-inhibit-implied-resize t) ## Ease tangling and loading of Emacs' init @@ -1384,7 +1336,6 @@ from [karthinks](https://karthinks.com/software/more-batteries-included-with-ema (defun acdw/refresh-emacs-no-load () (refresh-emacs 'disable-load)) - (add-hook 'kill-emacs-hook #'acdw/refresh-emacs-no-load) @@ -1393,7 +1344,7 @@ from [karthinks](https://karthinks.com/software/more-batteries-included-with-ema ### emacsdc -A wrapper script around emacs-client that starts the daemon if it hasn’t been yet. +Here’s a wrapper script that’ll start `emacs –daemon` if there isn’t one, and then launch `emacsclient` with the arguments. I’d recommend installing with either `ln -s bin/emacsdc $HOME/.local/bin/`, or adding `$HOME/.local/bin` to your `$PATH`. if ! emacsclient -nc "$@" 2>/dev/null; then emacs --daemon @@ -1404,7 +1355,6 @@ A wrapper script around emacs-client that starts the daemon if it hasn’t been ## 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, tangled from the @@ -1420,7 +1370,6 @@ following source block, for details. 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. @@ -1430,6 +1379,5 @@ following source block, for details. It's highly likely that the WTFPL is completely incompatible with the GPL, for what should be fairly obvious reasons. To that, I say: - **SUE ME, RMS!** diff --git a/config.org b/config.org index 71fda4f..622ab45 100644 --- a/config.org +++ b/config.org @@ -4,7 +4,7 @@ #+EXPORT_FILE_NAME: README.md #+OPTIONS: toc:nil #+BANKRUPTCY_COUNT: 3 -#+Time-stamp: <2020-12-22 00:16:24 acdw> +#+Time-stamp: <2020-12-22 20:32:24 acdw> Let’s configure Emacs using Org mode, they said. It’ll be fun, they said. -- cgit 1.4.1-21-gabe81