From: rearman Date: Mon, 8 Jul 2024 18:46:42 +0000 (-0400) Subject: Auto-PrettyPrint everything X-Git-Url: https://git.earman.xyz/?a=commitdiff_plain;h=4c03581b47864bf6ae68dff77a3529f2846ba963;p=emacsinit.git Auto-PrettyPrint everything --- diff --git a/early-init.el b/early-init.el index bc7b041..d39496c 100644 --- a/early-init.el +++ b/early-init.el @@ -1,24 +1,27 @@ ;;; early-init.el -*- lexical-binding: t; -*- -;; Haec pars Emacs non est. +;; This file is not part of GNU Emacs. ;; Code: (setq gc-cons-threshold most-positive-fixnum gc-cons-percentage 0.6) -(add-hook 'after-init-hook #'(lambda () (setq gc-cons-threshold (* 1800 1000) - gc-cons-percentage 0.1 - garbage-collection-messages t))) +(add-hook 'after-init-hook + (lambda + () + (setq gc-cons-threshold + (* 1800 1000) + gc-cons-percentage 0.1 + garbage-collection-messages t))) -;; Startup options +;; Startup choices (setq inhibit-startup-screen t inhibit-startup-buffer-menu t server-client-instructions nil frame-resize-pixelwise t default-directory "~/" - initial-scratch-message (message ";;; Emacs loaded in %s.\n\n" - (emacs-init-time))) + initial-scratch-message (message ";;; Emacs loaded in %s.\n\n" (emacs-init-time))) (provide 'early-init) -;;; hic terminatur early-init.el +;;; early-init.el ends here diff --git a/init.el b/init.el index 1f06c3c..e99074b 100644 --- a/init.el +++ b/init.el @@ -5,9 +5,12 @@ ;;; Code: ;; Load Outside Hoards -(add-to-list 'load-path (concat user-emacs-directory "re/")) -(add-to-list 'load-path (concat user-emacs-directory "acme-mouse/")) -(add-to-list 'load-path (concat user-emacs-directory "sedit-mouse/")) +(add-to-list 'load-path + (concat user-emacs-directory "re/")) +(add-to-list 'load-path + (concat user-emacs-directory "acme-mouse/")) +(add-to-list 'load-path + (concat user-emacs-directory "sedit-mouse/")) (require 're-editing-defuns) (require 're-packages) (require 'sedit-mouse) @@ -16,7 +19,8 @@ ;; Loaded Later (add-hook 'after-init-hook - (lambda () + (lambda + () ;;(require 'acme-mouse) (require 're-logic-defuns) (require 're-repl-defuns) @@ -29,7 +33,8 @@ (require 're-org-defuns))) (add-hook 'c-mode-hook - (lambda () + (lambda + () (require 're-c-style))) ;; Damper bespokeniŋs @@ -68,7 +73,8 @@ dired-hide-details-hide-symlink-targets nil) (add-hook 'dired-mode-hook - (lambda () + (lambda + () (dired-hide-details-mode t) (keymap-set dired-mode-map "RET" #'dired-find-alternate-file))) @@ -154,7 +160,8 @@ ;; Bespoken framework (setq custom-file (expand-file-name "custom.el" user-emacs-directory)) -(when (not (file-exists-p custom-file)) +(unless + (file-exists-p custom-file) (make-empty-file custom-file)) (load custom-file) diff --git a/re/re-bindings.el b/re/re-bindings.el index b75056a..d988cb6 100644 --- a/re/re-bindings.el +++ b/re/re-bindings.el @@ -1,22 +1,26 @@ -;;; re-bindings.el --- Quae configurare -*- lexical-binding: t; -*- -;; Haec pars Emacs non est. +;;; re-bindings.el --- Set Bindings -*- lexical-binding: t; -*- +;; This file is not part of GNU Emacs ;;; Code: ;; Editing Bindings -(keymap-global-set "" nil) ; keep accidentally toggling overwrite-mode +(keymap-global-set "" nil) ; I keep toggling overwrite-mode haply (keymap-global-set "C-\\" #'undo-redo) (keymap-global-set "C-S-K" #'kill-whole-line) (keymap-global-set "C-w" #'re/kill-bword-or-region) -(keymap-global-set "C-u" (lambda () - (interactive) - (kill-line 0))) ; kill-line backwards -(keymap-set key-translation-map "C-h" "") ; Prefer F1 for help +(keymap-global-set "C-u" + (lambda + () + (interactive) + (kill-line 0))) ; kill-line backwards +(keymap-set key-translation-map "C-h" "") ; Rather F1 for help (keymap-global-set "C-o" #'re/open-line-below) (keymap-global-set "M-o" #'re/open-line-above) -(keymap-global-set "M-j" (lambda () - (interactive) - (join-line 0))) ; join-line other way +(keymap-global-set "M-j" + (lambda + () + (interactive) + (join-line 0))) ; join-line other way (keymap-global-set "C-z" #'zap-up-to-char) (keymap-global-set "C-c s" #'sort-lines) (keymap-global-set "M-;" #'re/comment-dwim) @@ -25,7 +29,7 @@ (keymap-global-set " " #'upcase-dwim) (keymap-global-set "M-'" #'universal-argument) -;; Motion +;; Wayfindiŋ (keymap-global-set "" #'beginning-of-buffer) (keymap-global-set "" #'end-of-buffer) (keymap-global-set "M-n" #'next-buffer) @@ -38,7 +42,7 @@ (keymap-set visual-line-mode-map "C-e" #'re/smart-end-of-line) (keymap-global-set " " #'re/goto-line) -;; Search +;; Seeking (keymap-global-set "M-s ." #'isearch-forward-thing-at-point) (keymap-global-set "M-s M-." #'isearch-forward-symbol-at-point) (keymap-global-set "M-%" #'replace-regexp) @@ -48,7 +52,7 @@ (keymap-global-set "C-S-S" #'isearch-forward-regexp) (keymap-global-set "C-S-R" #'isearch-backward-regexp) -;; Buffer/Window Management +;; Damper/Window Dealing (keymap-global-set "C-x C-r" #'re/rename-current-buffer-file) (keymap-global-set "" #'scratch-buffer) (keymap-global-set "S-" #'re/scratch-only) @@ -56,51 +60,67 @@ (keymap-global-set "C-x C-b" #'buffer-menu) (keymap-global-set "C-x M-b" #'buffer-menu-other-window) -;; Recents and Bookmarks +;; Late files and Bookmarks (keymap-global-set "C-c r" #'recentf-open-files) (keymap-global-set "C-x r B" #'bookmark-jump-other-window) ;; (E)Lisp (keymap-global-set "C-M-z" #'eval-region) -(keymap-global-set "C-M-S-q" (lambda () - (interactive) - (sedit-auto-prettify-sexp))) +(keymap-global-set "C-M-S-q" + (lambda + () + (interactive) + (sedit-auto-prettify-sexp))) (defvar *re/lisp-mode-hooks* '(emacs-lisp-mode-hook lisp-mode-hook slime-mode-hook scheme-mode-hook)) -(dolist (hook *re/lisp-mode-hooks*) +(dolist + (hook *re/lisp-mode-hooks*) (add-hook hook - (lambda () - (keymap-set lisp-mode-shared-map "]" (re/balance-and-eval-sexp #'newline))))) + (lambda + () + (keymap-set lisp-mode-shared-map "]" + (re/balance-and-eval-sexp #'newline))))) (add-hook 'lisp-interaction-mode-hook - (lambda () - (keymap-set lisp-interaction-mode-map "]" (re/balance-and-eval-sexp #'eval-print-last-sexp)))) + (lambda + () + (keymap-set lisp-interaction-mode-map "]" + (re/balance-and-eval-sexp #'eval-print-last-sexp)))) ;; IELM (keymap-global-set "C-c i" #'ielm) (add-hook 'ielm-mode-hook - (lambda () + (lambda + () (keymap-set inferior-emacs-lisp-mode-map "C-l" #'comint-clear-buffer) - (keymap-set inferior-emacs-lisp-mode-map ")" (re/send-on-close-paren #'ielm-send-input)) - (keymap-set inferior-emacs-lisp-mode-map "]" (re/balance-and-eval-sexp #'ielm-send-input)))) + (keymap-set inferior-emacs-lisp-mode-map ")" + (re/send-on-close-paren #'ielm-send-input)) + (keymap-set inferior-emacs-lisp-mode-map "]" + (re/balance-and-eval-sexp #'ielm-send-input)))) ;; Eshell (keymap-global-set "C-c e" #'eshell) (add-hook 'eshell-mode-hook - (lambda () + (lambda + () (keymap-set eshell-mode-map "C-d" #'eshell-quit-or-delete-char) - (keymap-set eshell-mode-map ")" (re/send-on-close-paren #'eshell-send-input)) - (keymap-set eshell-mode-map "]" (re/balance-and-eval-sexp #'eshell-send-input)))) + (keymap-set eshell-mode-map ")" + (re/send-on-close-paren #'eshell-send-input)) + (keymap-set eshell-mode-map "]" + (re/balance-and-eval-sexp #'eshell-send-input)))) ;; SLIME REPL (add-hook 'slime-repl-mode-hook - (lambda () - (keymap-set slime-repl-mode-map ")" (re/send-on-close-paren #'slime-repl-return)) - (keymap-set slime-repl-mode-map "]" (re/balance-and-eval-sexp #'slime-repl-return)))) + (lambda + () + (keymap-set slime-repl-mode-map ")" + (re/send-on-close-paren #'slime-repl-return)) + (keymap-set slime-repl-mode-map "]" + (re/balance-and-eval-sexp #'slime-repl-return)))) ;; Org Starters (keymap-global-set "C-c l" #'org-store-link) @@ -111,4 +131,4 @@ (keymap-global-set "" #'re/org-show-agenda) (provide 're-bindings) -;;; hic terminatur re-bindings.el +;;; re-bindings.el ends here diff --git a/re/re-c-style.el b/re/re-c-style.el index 224675a..75581b0 100644 --- a/re/re-c-style.el +++ b/re/re-c-style.el @@ -6,30 +6,41 @@ (defun re/c-lineup-arglist-tabs-only (ignored) "Line up argument lists by tabs, not spaces. Stolen from https://kernel.org/doc/html/v4.10/process/coding-style.html" - (let* ((anchor (c-langelem-pos c-syntactic-element)) - (column (c-langelem-2nd-pos c-syntactic-element)) - (offset (- (1+ column) anchor)) - (steps (floor offset c-basic-offset))) - (* (max steps 1) - c-basic-offset))) + (let* + ((anchor + (c-langelem-pos c-syntactic-element)) + (column + (c-langelem-2nd-pos c-syntactic-element)) + (offset + (- + (1+ column) + anchor)) + (steps + (floor offset c-basic-offset))) + (* + (max steps 1) + c-basic-offset))) (add-hook 'c-mode-common-hook - (lambda () - ;; Add kernel style - (c-add-style - "linux-tabs-only" - '("linux" - (c-offsets-alist - (arglist-cont-nonempty - c-lineup-gcc-asm-reg - re/c-lineup-arglist-tabs-only)))))) + (lambda + () + ;; Add kernel style + (c-add-style + "linux-tabs-only" + '("linux" + (c-offsets-alist + (arglist-cont-nonempty + c-lineup-gcc-asm-reg + re/c-lineup-arglist-tabs-only)))))) (add-hook 'c-mode-hook - (lambda () - (setq indent-tabs-mode t) - (setq show-trailing-whitespace t) - (setq c-backspace-function 'backward-delete-char) ;; don't expand my tabs, just delete them. - (c-set-style "linux-tabs-only"))) + (lambda + () + (setq indent-tabs-mode t) + (setq show-trailing-whitespace t) + (setq c-backspace-function 'backward-delete-char) + ;; don't expand my tabs, just delete them. + (c-set-style "linux-tabs-only"))) (provide 're-c-style) ;;; hic terminatur re-c-style.el diff --git a/re/re-editing-defuns.el b/re/re-editing-defuns.el index 403f981..a69ec48 100644 --- a/re/re-editing-defuns.el +++ b/re/re-editing-defuns.el @@ -1,24 +1,34 @@ -;;; re-editing-defuns.el --- Quae configurare -*- lexical-binding: t; -*- -;; Haec pars Emacs non est. +;;; re-editing-defuns.el -*- lexical-binding: t; -*- +;; This file is not part of GNU Emacs. ;;; Code: (defun re/rename-current-buffer-file () "Renames the current buffer and the file it is visiting." (interactive) - (let ((name (buffer-name)) - (filename (buffer-file-name))) - (if (not (and filename (file-exists-p filename))) - (error "Buffer '%s' is not visiting a file!" name) - (let ((new-name (read-file-name "New name: " filename))) - (if (get-buffer new-name) - (error "A buffer named '%s' already exists!" new-name) - (rename-file filename new-name 1) - (rename-buffer new-name) - (set-visited-file-name new-name) - (set-buffer-modified-p nil) - (message "File '%s' successfully renamed to '%s'" - name (file-name-nondirectory new-name))))))) + (let + ((name + (buffer-name)) + (filename + (buffer-file-name))) + (if + (not + (and filename + (file-exists-p filename))) + (error "Buffer '%s' is not visiting a file!" name) + (let + ((new-name + (read-file-name "New name: " filename))) + (if + (get-buffer new-name) + (error "A buffer named '%s' already exists!" new-name) + (rename-file filename new-name 1) + (rename-buffer new-name) + (set-visited-file-name new-name) + (set-buffer-modified-p nil) + (message "File '%s' successfully renamed to '%s'" + name + (file-name-nondirectory new-name))))))) (defun re/scratch-only () "Bring up the scratch buffer as the only visible buffer." @@ -31,7 +41,8 @@ (interactive "*p") (end-of-line) (open-line n) - (call-interactively (next-line)) + (call-interactively + (next-line)) (indent-for-tab-command)) (defun re/open-line-above (n) @@ -45,14 +56,19 @@ "Comment region if active, otherwise comment line. Stolen from https://depp.brause.cc/dotemacs" (interactive) - (if (use-region-p) - (comment-or-uncomment-region (region-beginning) (region-end)) - (comment-or-uncomment-region (line-beginning-position) - (line-end-position)))) + (if + (use-region-p) + (comment-or-uncomment-region + (region-beginning) + (region-end)) + (comment-or-uncomment-region + (line-beginning-position) + (line-end-position)))) (defun re/kill-bword-or-region () "Kill region if active, otherwise kill back one word." (interactive) - (if (use-region-p) + (if + (use-region-p) (call-interactively 'kill-region) (call-interactively 'backward-kill-word))) @@ -62,29 +78,44 @@ If point was already at that position, call `back-to-indentation'. Called a third time, move point to `beginning-of-line'. If in org-mode, call `org-beginning-of-line' first." (interactive "^") - (let ((oldpos (point))) - (if (equal major-mode 'org-mode) - (org-beginning-of-line) + (let + ((oldpos + (point))) + (if + (equal major-mode 'org-mode) + (org-beginning-of-line) (progn - (beginning-of-visual-line 1) - (skip-syntax-forward " " (line-end-position)) - (backward-prefix-chars))) - (and (= oldpos (point)) - (let ((newpos (point))) - (back-to-indentation) - (and (= newpos (point)) - (beginning-of-line)))))) + (beginning-of-visual-line 1) + (skip-syntax-forward " " + (line-end-position)) + (backward-prefix-chars))) + (and + (= oldpos + (point)) + (let + ((newpos + (point))) + (back-to-indentation) + (and + (= newpos + (point)) + (beginning-of-line)))))) (defun re/smart-end-of-line () "Move point to the end of the visual line. If point was already at that position, call `move-end-of-line'. If in org-mode, call `org-end-of-line' first." (interactive "^") - (let ((oldpos (point))) - (if (equal major-mode 'org-mode) - (org-end-of-line) + (let + ((oldpos + (point))) + (if + (equal major-mode 'org-mode) + (org-end-of-line) (end-of-visual-line 1)) - (and (= oldpos (point)) - (move-end-of-line nil)))) + (and + (= oldpos + (point)) + (move-end-of-line nil)))) (defun re/goto-line () "Show line numbers before going to line, then hide them again." @@ -92,27 +123,37 @@ If in org-mode, call `org-end-of-line' first." (display-line-numbers-mode 1) (call-interactively 'goto-line) (display-line-numbers-mode -1)) + (defun re/other-window-or-split-window (&optional window) (interactive) - (if (= (count-windows) 1) + (if + (= + (count-windows) + 1) (funcall split-window-preferred-function window) (other-window 1))) (defun re/isearch-forward-use-region () (interactive) - (when (use-region-p) - (add-to-history 'search-ring (buffer-substring (region-beginning) - (region-end))) + (when + (use-region-p) + (add-to-history 'search-ring + (buffer-substring + (region-beginning) + (region-end))) (deactivate-mark)) (call-interactively 'isearch-forward)) (defun re/isearch-backward-use-region () (interactive) - (when (use-region-p) - (add-to-history 'search-ring (buffer-substring (region-beginning) - (region-end))) + (when + (use-region-p) + (add-to-history 'search-ring + (buffer-substring + (region-beginning) + (region-end))) (deactivate-mark)) (call-interactively 'isearch-backward)) (provide 're-editing-defuns) -;;; hic terminatur re-editing-defuns.el +;;; re-editing-defuns.el ends here diff --git a/re/re-electronics-defuns.el b/re/re-electronics-defuns.el index ae0866b..a93d182 100644 --- a/re/re-electronics-defuns.el +++ b/re/re-electronics-defuns.el @@ -1,5 +1,5 @@ -;;; re-electronics-defuns.el --- Quae configurare -*- lexical-binding: t; -*- -;; Haec pars Emacs non est. +;;; re-electronics-defuns.el -*- lexical-binding: t; -*- +;; This file is not part of GNU Emacs ;;; Code: @@ -10,21 +10,27 @@ For use in `amps->volts' and related. The handling of only one resistance given is done here, instead of doing it in every function that uses this." - (if (eq nil r2) + (if + (eq nil r2) r1 - (inv (+ (inv r1) (inv r2))))) + (inv + (+ + (inv r1) + (inv r2))))) (defun amps->volts (amps r1 &optional r2) "Calculate the voltage, given amperage and impedance. Multiplies the amperage by the effective impedance calculated with `eff-imp'." - (* amps (eff-imp r1 r2))) + (* amps + (eff-imp r1 r2))) (defun volts->amps (volts r1 &optional r2) "Calculate the amperage, given voltage and impedance. Divides the voltage by the effective impedance calculated with `eff-imp'." - (/ volts (eff-imp r1 r2))) + (/ volts + (eff-imp r1 r2))) (provide 're-electronics-defuns) -;;; hic terminatur re-electronics-defuns.el +;;; re-electronics-defuns.el ends here diff --git a/re/re-logic-defuns.el b/re/re-logic-defuns.el index 8189282..26314de 100644 --- a/re/re-logic-defuns.el +++ b/re/re-logic-defuns.el @@ -1,5 +1,5 @@ -;;; re-logic-defuns.el --- Quae configurare -*- lexical-binding: t; -*- -;; Haec pars Emacs non est. +;;; re-logic-defuns.el -*- lexical-binding: t; -*- +;; This file is not part of GNU Emacs ;;; Code: @@ -16,4 +16,4 @@ `(= ,x 0)) (provide 're-logic-defuns) -;;; hic terminatur re-logic-defuns.el +;;; re-logic-defuns.el ends here diff --git a/re/re-math-defuns.el b/re/re-math-defuns.el index 577ce5f..b3b63c1 100644 --- a/re/re-math-defuns.el +++ b/re/re-math-defuns.el @@ -1,5 +1,5 @@ -;;; re-math-defuns.el --- Quae configurare -*- lexical-binding: t; -*- -;; Haec pars Emacs non est. +;;; re-math-defuns.el -*- lexical-binding: t; -*- +;; This file is not part of GNU Emacs ;;; Code: @@ -15,12 +15,14 @@ (defmacro inv (x) "Calculate the inverse of a value." - `(/ 1 (float ,x))) + `(/ 1 + (float ,x))) (defmacro E (number exponent) "Prefix Engineering notation. i.e. (E 5 3) == 5E3 == 5000" - `(* ,number (^ 10 ,exponent))) + `(* ,number + (^ 10 ,exponent))) (provide 're-math-defuns) -;;; hic terminatur re-math-defuns.el +;;; re-math-defuns.el ends here diff --git a/re/re-org-defuns.el b/re/re-org-defuns.el index 52c1d5e..4adb874 100644 --- a/re/re-org-defuns.el +++ b/re/re-org-defuns.el @@ -1,5 +1,5 @@ -;;; re-org-defuns.el --- Quae configurare -*- lexical-binding: t; -*- -;; Haec pars Emacs non est. +;;; re-org-defuns.el -*- lexical-binding: t; -*- +;; This file is not part of GNU Emacs ;;; Code: @@ -22,10 +22,14 @@ (defun re/tangle-init () "Tangle and compile config.org. Stolen from https://github.com/larstvei/dot-emacs." - (when (equal (buffer-file-name) - (expand-file-name (concat user-emacs-directory "config.org"))) - (let ((prog-mode-hook nil)) + (when + (equal + (buffer-file-name) + (expand-file-name + (concat user-emacs-directory "config.org"))) + (let + ((prog-mode-hook nil)) (org-babel-tangle)))) (provide 're-org-defuns) -;;; hic terminatur re-org-defuns.el +;;; re-org-defuns.el ends here diff --git a/re/re-org.el b/re/re-org.el index eba695c..b6ca01e 100644 --- a/re/re-org.el +++ b/re/re-org.el @@ -1,5 +1,5 @@ -;;; re-org.el --- Quae configurare -*- lexical-binding: t; -*- -;; Haec pars Emacs non est. +;;; re-org.el --- org-mode bespokeniŋ -*- lexical-binding: t; -*- +;; This file is not part of GNU Emacs ;;; Code: @@ -27,7 +27,8 @@ org-special-ctrl-k t org-yank-adjusted-subtrees t) -(setq org-link-frame-setup '((file . find-file))) +(setq org-link-frame-setup + '((file . find-file))) (setq org-directory "~/org" org-agenda-files '("~/org") @@ -35,24 +36,26 @@ org-journal-file "~/org/journal.org") (setq org-refile-targets '((nil :maxlevel . 9) - (org-agenda-files :maxlevel . 9)) + (org-agenda-files :maxlevel . 9)) org-refile-use-outline-path 'file org-refile-allow-creating-parent-nodes 'confirm) -(setq org-todo-keywords '((sequence "TODO(t)" - "WAITING(w@/!)" - "IN-PROGRESS(i!)" - "APPT(a!)" - "|" - "DELEGATED(l@)" - "DONE(d!/@)" - "CANCELLED(c@)"))) - -(setq org-tag-alist '((:startgroup . nil) - ("need" . ?n) - ("standard" . ?s) - ("wisdom" . ?w) - (:endgroup . nil))) +(setq org-todo-keywords + '((sequence "TODO(t)" + "WAITING(w@/!)" + "IN-PROGRESS(i!)" + "APPT(a!)" + "|" + "DELEGATED(l@)" + "DONE(d!/@)" + "CANCELLED(c@)"))) + +(setq org-tag-alist + '((:startgroup . nil) + ("need" . ?n) + ("standard" . ?s) + ("wisdom" . ?w) + (:endgroup . nil))) (setq org-agenda-restore-windows-after-quit t org-agenda-start-on-weekday 0 @@ -61,25 +64,25 @@ org-agenda-window-setup 'current-window org-agenda-remove-tags t org-agenda-prefix-format '((agenda . " %:c %b %?-12t% s") - (todo . " %:c % b") - (tags . " %:c % b") - (search . " %:c % b"))) + (todo . " %:c % b") + (tags . " %:c % b") + (search . " %:c % b"))) (setq org-agenda-custom-commands '((" " "Agenda" - ( ;(agenda "" nil) - (tags "need" - ((org-agenda-overriding-header "Needed Items"))) - (tags-todo "-REFILE+TODO=\"IN-PROGRESS\"" - ((org-agenda-overriding-header "In Progress"))) - (tags "REFILE" - ((org-agenda-overriding-header "Tasks to Refile"))) - (tags-todo "-TODO=\"WAITING\"-TODO=\"IN-PROGRESS\"-standard-REFILE" - ((org-agenda-overriding-header "Filed Tasks"))) - (tags-todo "TODO=\"WAITING\"-REFILE" - ((org-agenda-overriding-header "Holding"))) - (tags-todo "standard" - ((org-agenda-overriding-header "Changes to Standard"))))))) + ( ;(agenda "" nil) + (tags "need" + ((org-agenda-overriding-header "Needed Items"))) + (tags-todo "-REFILE+TODO=\"IN-PROGRESS\"" + ((org-agenda-overriding-header "In Progress"))) + (tags "REFILE" + ((org-agenda-overriding-header "Tasks to Refile"))) + (tags-todo "-TODO=\"WAITING\"-TODO=\"IN-PROGRESS\"-standard-REFILE" + ((org-agenda-overriding-header "Filed Tasks"))) + (tags-todo "TODO=\"WAITING\"-REFILE" + ((org-agenda-overriding-header "Holding"))) + (tags-todo "standard" + ((org-agenda-overriding-header "Changes to Standard"))))))) (setq org-columns-default-format "%50ITEM(Task) %10CLOCKSUM %16TIMESTAMP_IA" org-agenda-start-with-log-mode t) @@ -94,31 +97,31 @@ (setq org-capture-templates '(("n" "Note" entry - (file org-default-notes-file) - "* %?" - :clock-in t - :clock-resume t) - ("t" "TODO" entry - (file org-default-notes-file) - "* TODO %?\n%U\n" - :clock-in t - :clock-resume t) - ("m" "Meeting" entry - (file+olp+datetree org-journal-file) - "* %? :meeting:\n%t\n** Notes\n** Action Items" - :time-prompt t) - ("s" "Semi-Weekly PLC Meeting" entry - (file+olp+datetree org-journal-file) - "* Semi-Weekly PLC Meeting :plc:semiweekly:meeting:%^g \n%t\n** Notes\n** Action Items" - :clock-in t - :clock-resume t) - ("a" "Appointment" entry - (file+olp+datetree org-journal-file) - "* %? :appt:\n%t" - :time-prompt t) - ("j" "Journal" entry - (file+olp+datetree org-journal-file) - "* %?\n%U\n"))) + (file org-default-notes-file) + "* %?" + :clock-in t + :clock-resume t) + ("t" "TODO" entry + (file org-default-notes-file) + "* TODO %?\n%U\n" + :clock-in t + :clock-resume t) + ("m" "Meeting" entry + (file+olp+datetree org-journal-file) + "* %? :meeting:\n%t\n** Notes\n** Action Items" + :time-prompt t) + ("s" "Semi-Weekly PLC Meeting" entry + (file+olp+datetree org-journal-file) + "* Semi-Weekly PLC Meeting :plc:semiweekly:meeting:%^g \n%t\n** Notes\n** Action Items" + :clock-in t + :clock-resume t) + ("a" "Appointment" entry + (file+olp+datetree org-journal-file) + "* %? :appt:\n%t" + :time-prompt t) + ("j" "Journal" entry + (file+olp+datetree org-journal-file) + "* %?\n%U\n"))) (setq org-id-link-to-org-use-id 'create-if-interactive-and-no-custom-id) @@ -132,4 +135,4 @@ (keymap-set org-mode-map "M-S-" #'org-metaleft) (provide 're-org) -;;; hic terminatur re-org.el +;;; re-org.el ends here diff --git a/re/re-os-specific.el b/re/re-os-specific.el index e815bdd..e2c5a96 100644 --- a/re/re-os-specific.el +++ b/re/re-os-specific.el @@ -1,41 +1,48 @@ -;;; re-os-specific.el --- Quae configurare -*- lexical-binding: t; -*- -;; Haec pars Emacs non est. +;;; re-os-specific.el -*- lexical-binding: t; -*- +;; This file is not part of GNU Emacs ;;; Code: -;; Windows Specific -(when (equal system-type 'windows-nt) +;; Windows only +(when + (equal system-type 'windows-nt) (setq delete-by-moving-to-trash t - ediff-diff-program "\"c:/Program Files/Git/usr/bin/diff.exe\"" - ediff-diff3-program "\"c:/Program Files/Git/usr/bin/diff3.exe\"" - diff-command "\"c:/Program Files/Git/usr/bin/diff.exe\"" - w32-recognize-altgr 'nil) + ediff-diff-program "\"c:/Program Files/Git/usr/bin/diff.exe\"" + ediff-diff3-program "\"c:/Program Files/Git/usr/bin/diff3.exe\"" + diff-command "\"c:/Program Files/Git/usr/bin/diff.exe\"" + w32-recognize-altgr 'nil) (defun re/unfuck-aveva-license () "Remove the offending xml files. Use this when aveva can't find ass with both hands." (interactive) - (let ((xml1 "c:/ProgramData/AVEVA/Licensing/License API2/Data/LocalAcquireInfo.xml") - (xml2 "c:/ProgramData/AVEVA/Licensing/License API2/Data/LocalBackEndAcquireInfo.xml")) - (when (file-exists-p xml1) (delete-file xml1)) - (when (file-exists-p xml2) (delete-file xml2))))) + (let + ((xml1 "c:/ProgramData/AVEVA/Licensing/License API2/Data/LocalAcquireInfo.xml") + (xml2 "c:/ProgramData/AVEVA/Licensing/License API2/Data/LocalBackEndAcquireInfo.xml")) + (when + (file-exists-p xml1) + (delete-file xml1)) + (when + (file-exists-p xml2) + (delete-file xml2))))) -;; Linux/BSD Specific -(unless (equal system-type 'windows-nt) +;; Linux/BSD only +(unless + (equal system-type 'windows-nt) (if(equal system-type 'berkeley-unix) (defun doas () - "Use TRAMP to reopen the current buffer as root using doas." - (interactive) - (when buffer-file-name - (find-alternate-file - (concat "/doas:root@localhost:" - buffer-file-name)))) + "Use TRAMP to reopen the current buffer as root using doas." + (interactive) + (when buffer-file-name + (find-alternate-file + (concat "/doas:root@localhost:" + buffer-file-name)))) (defun sudo () "Use TRAMP to reopen the current buffer as root using sudo." (interactive) (when buffer-file-name - (find-alternate-file - (concat "/doas:root@localhost:" - buffer-file-name)))))) + (find-alternate-file + (concat "/doas:root@localhost:" + buffer-file-name)))))) (provide 're-os-specific) -;;; hic terminatur re-os-specific.el +;;; re-os-specific.el ends here diff --git a/re/re-packages.el b/re/re-packages.el index 4b8ef5f..4baad34 100644 --- a/re/re-packages.el +++ b/re/re-packages.el @@ -1,15 +1,17 @@ -;;; re-packages.el --- Load Packages -*- lexical-binding: t; -*- +;;; re-packages.el --- Load Packs -*- lexical-binding: t; -*- ;; This file is not part of Emacs. ;;; Code: (require 'package) -(add-to-list 'package-archives '("melpa" . "https://melpa.org/packages/")) +(add-to-list 'package-archives + '("melpa" . "https://melpa.org/packages/")) (use-package ledger-mode :ensure t :bind - ((:map ledger-mode-map ("C-c s" . ledger-sort-buffer)))) + ((:map ledger-mode-map + ("C-c s" . ledger-sort-buffer)))) (use-package visual-fill-column :ensure t @@ -17,12 +19,15 @@ (global-visual-line-mode 1) :custom (word-wrap t) - (visual-line-fringe-indicators '(left-curly-arrow right-curly-arrow)) + (visual-line-fringe-indicators + '(left-curly-arrow right-curly-arrow)) (visual-fill-column-enable-sensible-window-split t)) -(keymap-global-set "C-c v" (lambda () - (interactive) - (visual-fill-column-mode 'toggle))) +(keymap-global-set "C-c v" + (lambda + () + (interactive) + (visual-fill-column-mode 'toggle))) (use-package corfu :ensure t @@ -34,11 +39,13 @@ (global-corfu-mode)) (use-package corfu-popupinfo - :ensure nil ; Part of corfu + :ensure nil ; Part of corfu :after corfu - :hook (corfu-mode . corfu-popupinfo-mode) + :hook + (corfu-mode . corfu-popupinfo-mode) :custom - (corfu-popupinfo-delay '(nil . 0.01)) + (corfu-popupinfo-delay + '(nil . 0.01)) (corfu-popupinfo-hide nil) :config (corfu-popupinfo-mode)) @@ -52,29 +59,30 @@ :config (message "Magit Loaded") :bind - ((:map ctl-x-map ("g" . magit-status)))) + ((:map ctl-x-map + ("g" . magit-status)))) (use-package openwith :ensure t :config (openwith-mode t) (setq openwith-associations - (list - (list - (openwith-make-extension-regexp - '("xls" "xlsx" "doc" "docx" "ppt" "pptx" "odt" "ods" "odg" "odp")) - "libreoffice" ; Windows falls back to system default - '(file)) - (list - (openwith-make-extension-regexp - '("adpro")) - "ProductivitySuite" - '(file)) - (list - (openwith-make-extension-regexp - '("pdf")) - "zathura" ; Windows falls back to ms-office - '(file))))) + (list + (list + (openwith-make-extension-regexp + '("xls" "xlsx" "doc" "docx" "ppt" "pptx" "odt" "ods" "odg" "odp")) + "libreoffice" ; Windows falls back to system default + '(file)) + (list + (openwith-make-extension-regexp + '("adpro")) + "ProductivitySuite" + '(file)) + (list + (openwith-make-extension-regexp + '("pdf")) + "zathura" ; Windows falls back to ms-office + '(file))))) (use-package auctex :ensure t @@ -84,20 +92,26 @@ :ensure t :defer t :init - (load (expand-file-name "~/quicklisp/slime-helper.el")) + (load + (expand-file-name "~/quicklisp/slime-helper.el")) :config (setq inferior-lisp-program "sbcl") - (when (file-exists-p "~/lisp/sbcl.core-for-slime") + (when + (file-exists-p "~/lisp/sbcl.core-for-slime") (setq slime-lisp-implementations - '((sbcl ("sbcl" "--core" "sbcl.core-for-slime") - :directory "~/lisp")))) + '((sbcl + ("sbcl" "--core" "sbcl.core-for-slime") + :directory "~/lisp")))) :custom (slime-net-coding-system 'utf-8-unix)) (add-hook 'slime-mode-hook - (lambda () - (unless (slime-connected-p) - (save-excursion (slime))))) + (lambda + () + (unless + (slime-connected-p) + (save-excursion + (slime))))) (use-package paredit :ensure t @@ -105,4 +119,4 @@ (("C-c p" . 'paredit-mode))) (provide 're-packages) -;;; Hic terminatur re-packages.el +;;; re-packages.el ends here diff --git a/re/re-plc-defuns.el b/re/re-plc-defuns.el index 3f4299e..40924af 100644 --- a/re/re-plc-defuns.el +++ b/re/re-plc-defuns.el @@ -1,5 +1,5 @@ -;;; re-plc-defuns.el --- Quae configurare -*- lexical-binding: t; -*- -;; Haec pars Emacs non est. +;;; re-plc-defuns.el -*- lexical-binding: t; -*- +;; This file is not part of GNU Emacs ;;; Code: @@ -7,31 +7,43 @@ (defun max-counts (resolution) "Calculate the max count for a PLC analog, given card's bit-resolution." - (1- (^ 2 resolution))) + (1- + (^ 2 resolution))) (defun volts->counts (vmax vin resolution) "Convert a voltage signal to a PLC count. Calculates a ratio of vin/vmax, then scales by `max-counts'." - (* (/ (float vin) vmax) (max-counts resolution))) + (* + (/ + (float vin) + vmax) + (max-counts resolution))) (defun counts->volts (vmax cin resolution) "Convert a PLC count to a voltage. Calculates a ratio of cin/`max-counts', then multiplies by vmax." - (* (/ (float cin) (max-counts resolution)) vmax)) + (* + (/ + (float cin) + (max-counts resolution)) + vmax)) (defun amps->counts (vmax amps resolution r1 &optional r2) "Convert a current signal to PLC Counts. Converts the amperage to a voltage using `amps->volts' (with r1 and optional r2), then applies `volts->counts' to the resulting voltage, vmax, and resolution." - (volts->counts vmax (amps->volts amps r1 r2) resolution)) + (volts->counts vmax + (amps->volts amps r1 r2) + resolution)) (defun count-range (upper lower vmax resolution &optional r1 r2) "Given an upper and lower signal, return the list of upper and lower PLC counts. With a current signal, use r1 and maybe r2 to calculate `amps->counts'. Otherwise ignore r1/r2 and calculate `volts->counts'." - (if (eq nil r1) + (if + (eq nil r1) (list (volts->counts vmax upper resolution) (volts->counts vmax lower resolution)) @@ -41,23 +53,35 @@ calculate `amps->counts'. Otherwise ignore r1/r2 and calculate (defun divisor (raw-max raw-min scaled-max scaled-min) "Calculate 1/slope given PLC Max/Min and Eng. Max/Min." - (/ (float (- raw-max raw-min)) (- scaled-max scaled-min))) + (/ + (float + (- raw-max raw-min)) + (- scaled-max scaled-min))) (defun offset (raw-max raw-min scaled-max scaled-min) - "Calculate offset given PLC Max/Min and Eng. Max/Min." - (- scaled-min (/ raw-min (divisor raw-max raw-min scaled-max scaled-min)))) + "Calculate offset given PLC Max/Min and Eng. Max/Min." + (- scaled-min + (/ raw-min + (divisor raw-max raw-min scaled-max scaled-min)))) (defun final (analog-input divisor offset) "Calculate the scaled value of an input." - (+ (/ analog-input divisor) offset)) + (+ + (/ analog-input divisor) + offset)) (defun scale (raw-max raw-min scaled-max scaled-min &optional analog-input) "Calculate the divisor, offset, and maybe final value, given the parameters." - (let* ((div (divisor raw-max raw-min scaled-max scaled-min)) - (os (offset raw-max raw-min scaled-max scaled-min))) - (if (eq nil analog-input) - (list div os) - (list div os (final analog-input div os))))) + (let* + ((div + (divisor raw-max raw-min scaled-max scaled-min)) + (os + (offset raw-max raw-min scaled-max scaled-min))) + (if + (eq nil analog-input) + (list div os) + (list div os + (final analog-input div os))))) (provide 're-plc-defuns) -;;; hic terminatur re-plc-defuns.el +;;; re-plc-defuns.el ends here diff --git a/re/re-refrigeration-defuns.el b/re/re-refrigeration-defuns.el index b4df1d1..845c9b9 100644 --- a/re/re-refrigeration-defuns.el +++ b/re/re-refrigeration-defuns.el @@ -1,11 +1,11 @@ -;;; re-refrigeration-defuns.el --- Quae configurare -*- lexical-binding: t; -*- -;; Haec pars Emacs non est. +;;; re-refrigeration-defuns.el -*- lexical-binding: t; -*- +;; This file is not part of GNU Emacs ;;; Code: (require 're-math-defuns) -;; Unit Conversions +;; Unit wendings (defun mm->in (mm) "Convert milimeters to inches." (/ mm 25.4)) @@ -24,54 +24,84 @@ (defun c->f (tempc) "Convert degrees Celsius to degrees Fahrenheit." - (+ (* tempc 1.8) 32.0)) + (+ + (* tempc 1.8) + 32.0)) (defun f->c (tempf) "Convert degrees Fahrenheit to degrees Celsius." - (/ (- tempf 32.0) 1.8)) + (/ + (- tempf 32.0) + 1.8)) (defun k->f (tempk) "Convert degrees Kelvin to degrees Fahrenheit. Applies `c->f' to `k->c'." - (c->f (k->c tempk))) + (c->f + (k->c tempk))) (defun f->k (tempf) "Convert degrees Fahrenheit to degrees Kelvin. Applies `c->k' to `f->c'." - (c->k (f->c tempf))) + (c->k + (f->c tempf))) -;; Refrigeration +;; Cooling (defun cfm-circ (fpm radius) "Calculate the CFM of a circular duct. Inputs are feet/minute and radius (in)." - (* float-pi fpm (square (/ radius 12.0)))) + (* float-pi fpm + (square + (/ radius 12.0)))) (defun cfm-rect (fpm width height) "Calculate the CFM of a rectangular duct. Inputs are feet/minute, width (in) and height (in)." - (* fpm (/ width 12.0) (/ height 12.0))) + (* fpm + (/ width 12.0) + (/ height 12.0))) (defun sat-water-press (temp) "Calculate the saturated water pressure at a temp (F)." (+ .0182795 (* temp 0.001029904) - (* (square temp) 0.00002579408) - (* (cube temp) (E 2.400493 -7)) - (* (^ temp 4) (E 8.100939 -10)) - (* (^ temp 5) (E 3.256805 -11)) - (* (^ temp 6) (E -1.001922 -13)) - (* (^ temp 7) (E 2.44161 -16)))) + (* + (square temp) + 0.00002579408) + (* + (cube temp) + (E 2.400493 -7)) + (* + (^ temp 4) + (E 8.100939 -10)) + (* + (^ temp 5) + (E 3.256805 -11)) + (* + (^ temp 6) + (E -1.001922 -13)) + (* + (^ temp 7) + (E 2.44161 -16)))) (defun hum-ratio (humidity swp) "Calulate the humidity ratio. Takes humidity in %RH, and a Saturated Water Pressure." - (let ((hum-press (* (/ humidity 100.0) swp))) - (/ (* hum-press 0.62198) (- 14.7 hum-press)))) + (let + ((hum-press + (* + (/ humidity 100.0) + swp))) + (/ + (* hum-press 0.62198) + (- 14.7 hum-press)))) (defun gn-water-per-lb (humidity temp) "Calculate the grains of water per lb of air. Takes humidity in %RH, and temp in F." - (* 7000 (hum-ratio humidity (sat-water-press temp)))) + (* 7000 + (hum-ratio humidity + (sat-water-press temp)))) (provide 're-refrigeration-defuns) -;;; hic terminatur re-refrigeration-defuns.el +;;; re-refrigeration-defuns.el ends here diff --git a/re/re-repl-defuns.el b/re/re-repl-defuns.el index 5d3aae3..2ac46a4 100644 --- a/re/re-repl-defuns.el +++ b/re/re-repl-defuns.el @@ -1,38 +1,50 @@ -;;; re-repl-defuns.el --- Quae configurare -*- lexical-binding: t; -*- -;; Haec pars Emacs non est. +;;; re-repl-defuns.el -*- lexical-binding: t; -*- +;; This file is not part of GNU Emacs ;;; Code: ;; Any Lisp Repl -(defmacro re/send-on-close-paren (executor) +(defmacro re/send-on-close-paren + (executor) "Generalizes sending an execute on close paren. Interactively call `executor'. For `executor', use whatever function is called by `' in the applicable REPL. For a non-repl, use `newline' or similar." - `(lambda (&optional arg) + `(lambda + (&optional arg) (interactive "p") (insert-char 41 arg) (call-interactively ,executor))) (defun re/sexp-drop-paren-p () "Returns t if sexp needs fewer parens to balance." - (<0 (car (syntax-ppss)))) + (<0 + (car + (syntax-ppss)))) (defun re/sexp-need-paren-p () "Returns t if sexp needs more parens to balance." - (>0 (car (syntax-ppss)))) + (>0 + (car + (syntax-ppss)))) (defun re/sexp-unbalanced-count () "Returns distance from balanced sexp." - (abs (car (syntax-ppss)))) + (abs + (car + (syntax-ppss)))) (defun re/balance-sexp () "Balance the sexp before point. Either delete or add as many ')' as needed." - (let ((distance (re/sexp-unbalanced-count))) + (let + ((distance + (re/sexp-unbalanced-count))) (cond - ((re/sexp-need-paren-p) (insert-char 41 distance)) - ((re/sexp-drop-paren-p) (backward-delete-char distance))))) + ((re/sexp-need-paren-p) + (insert-char 41 distance)) + ((re/sexp-drop-paren-p) + (backward-delete-char distance))))) (defmacro re/balance-and-eval-sexp (executor) "Balance the sexp before point, then call `executor'. @@ -40,7 +52,8 @@ Call `re/balance-sexp', then interactively call `executor'. Bind this to ']' for the interlisp experience. For `executor', use whatever function is called by `' in the applicable REPL. For a non-repl, use `newline' or similar." - `(lambda () + `(lambda + () (interactive) (re/balance-sexp) (call-interactively ,executor))) @@ -50,19 +63,27 @@ For a non-repl, use `newline' or similar." "Delete char if at one, quit eshell if on empty prompt. Stolen from https://depp.brause.cc/dotemacs" (interactive "p") - (if (and (eolp) (looking-back eshell-prompt-regexp 0 t)) - (eshell-life-is-too-much) ; https://emacshorrors.com/post/life-is-too-much + (if + (and + (eolp) + (looking-back eshell-prompt-regexp 0 t)) + (eshell-life-is-too-much) + ; https://emacshorrors.com/post/life-is-too-much (delete-char arg))) ;; IELM (defun re/ielm-init-history () "Stolen from https://n16f.net/blog/making-ielm-more-comfortable." - (let ((path (expand-file-name "ielm/history" user-emacs-directory))) - (make-directory (file-name-directory path) t) + (let + ((path + (expand-file-name "ielm/history" user-emacs-directory))) + (make-directory + (file-name-directory path) + t) (setq-local comint-input-ring-file-name path)) - (setq-local comint-input-ring-size 10000 - comint-input-ignoredups t) - (comint-read-input-ring)) + (setq-local comint-input-ring-size 10000 + comint-input-ignoredups t) + (comint-read-input-ring)) (defun re/ielm-write-history (&rest _args) "Stolen from https://n16f.net/blog/making-ielm-more-comfortable." @@ -73,4 +94,4 @@ Stolen from https://depp.brause.cc/dotemacs" (advice-add 'ielm-send-input :after #'re/ielm-write-history) (provide 're-repl-defuns) -;;; hic terminatur re-repl-defuns.el +;;; re-repl-defuns.el ends here diff --git a/re/re-skeletons.el b/re/re-skeletons.el index c088a5d..54b642a 100644 --- a/re/re-skeletons.el +++ b/re/re-skeletons.el @@ -1,8 +1,7 @@ -;;; re-skeletons.el --- Quae configurare -*- lexical-binding: t; -*- -;; Haec pars Emacs non est. +;;; re-skeletons.el -*- lexical-binding: t; -*- +;; This file is not part of GNU Emacs ;;; Code: - (define-skeleton skel-org-block "Insert an org source code block" "" @@ -46,4 +45,4 @@ "#+FILETAGS: wo# workorder customer city state topics\n") (provide 're-skeletons) -;;; hic terminatur re-skeletons.el +;;; re-skeletons.el ends here