From d696051f25ef09ce7b81ea433d9fa4d36c0edfa3 Mon Sep 17 00:00:00 2001 From: rearman Date: Wed, 3 Jul 2024 17:08:41 -0400 Subject: [PATCH] Anglisc updrafts --- README.org | 33 +++++++++++++-------------- init.el | 43 ++++++++++++++++++----------------- re/re-refrigeration-defuns.el | 4 ++-- 3 files changed, 40 insertions(+), 40 deletions(-) diff --git a/README.org b/README.org index b9e9db4..e06ed2f 100644 --- a/README.org +++ b/README.org @@ -1,23 +1,22 @@ -#+TITLE: Emacs Configuratione +#+TITLE: Emacs Bespokement -* Introduction -This is my emacs configuration. It is meant to be used across linux, windows, and BSD. I use windows only at work (Industrial Controls). I use emacs often as an advanced programmable calculator. +* Inbriŋiŋ +Þis is my emacs bespokement. It is meant to be used across linux, windows, and BSD. I use windows only at work (Wieldingdom). I use emacs often as a higher teachable reckoner. -Lots of inspiration taken from: +Many þoughtlines taken from: - [[https://depp.brause.cc/dotemacs/][depp.brause.cc/dotemacs/]] - [[https://github.com/larstvei/dot-emacs][github.com/larstvei/dot-emacs]] - [[https://github.com/sachac/.emacs.d][github.com/sachac/.emacs.d]] -** A note on version checking -I keep my emacs installs at the latest release, so I don't worry about checking for versions in my init unless I happen to update on linux/BSD before the windows binaries are released. That being said, I am currently on version 29.3. -** Latinization -I believe that all scientific knowledge, and by extension computational knowledge, should be shared in Latin. That is to say I intend to facilitate Latin's return as the default language for global knowledge sharing. To be consistent, I will soon be translating as much of this file as possible into Latin. Monitus es. -* Meta Configuration -I have changed the meta. I no longer tangle my init from an org file. -** Quae? -*** Init times -Firstly, init times were getting too long, because of having to load org and /then/ tangle the init. -*** No two-way tangling -Secondly, finding a defun with ~M-.~ would bring me to the tangled file, meaning I'd have to either change it there, and then copy it back into the org file, or manually find it in the org file, and re-tangle to see the change in the el file. -** Quomodo? -The main init is [[file:~/.emacs.d/init.el][init.el]], which ~requires~, at various points, the libraries in [[file:~/.emacs.d/re/][re/]]. +** A note on draft checkiŋ +I keep my emacs installs on þe latest draft, so I don't worry about looking at drafts in my bespokement unless I happen to updraft on linux/BSD before þe windows forebindings are shared. Þat beiŋ said, I am now on draft 29.3. + +* Overbespokement +I have chaŋed þe overbespokement. I no loŋer taŋle from an ~.org~ writ, instead choosiŋ to split my bespokement into a set of writs. +** Why? +*** Startup times +Startup times were becomiŋ too loŋ, because of haviŋ to load ~.org~ and /þen/ taŋle þe bespokement. +*** No two-way taŋliŋ +Findiŋ a defun wiþ ~M-.~ would briŋ me to þe taŋled writ, þus I'd have to eiþer wend it þere, and þen write it back into þe ~.org~ writ, or /handly/ find it in þe ~.org~ writ, and taŋle again to see þe wend in þe ~.el~ writ. +** How? +Þe main bespokeniŋ is done in [[file:~/.emacs.d/init.el][init.el]], which ~requires~, at sundry points, þe hoards in [[file:~/.emacs.d/re/][re/]]. diff --git a/init.el b/init.el index 54a0b84..c1d8357 100644 --- a/init.el +++ b/init.el @@ -1,10 +1,10 @@ -;;; init.el --- Quae configurare -*- lexical-binding: t; -*- +;;; init.el --- Emacs bespokenings -*- lexical-binding: t; -*- -;; Haec pars Emacs non est. +;; This file is not part of GNU emacs ;;; Code: -;; Load External Libraries +;; 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/")) @@ -32,7 +32,7 @@ (lambda () (require 're-c-style))) -;; Buffer customizations +;; Damper bespokenings (setq-default indicate-empty-lines t fill-column 80 cursor-type 'bar @@ -42,7 +42,7 @@ (column-number-mode t) (size-indication-mode t) -;; Buffer interaction +;; Damper dealing (delete-selection-mode t) (global-sedit-mouse-mode t) (setq disabled-command-function nil @@ -51,12 +51,12 @@ mouse-1-click-follows-link nil) -;; Buffer navigation +;; Damper wayfinding (windmove-default-keybindings 'control) (setq windmove-wrap-around t windmove-create-window t) -;; Recent files/buffers +;; Late writs/dampers (midnight-mode t) (recentf-mode 1) (setq recentf-max-menu-items 20) @@ -76,7 +76,7 @@ ;; Bookmarks (setq bookmark-save-flag 1) -;; Minibuffer Customizations +;; Damperling Bespokenings (setq ring-bell-function 'ignore use-short-answers t use-file-dialog nil @@ -86,24 +86,25 @@ read-buffer-completion-ignore-case t history-delete-duplicates t) -;; GUI customizations +;; GUI Bespokenings (menu-bar-mode -1) (tool-bar-mode -1) (set-scroll-bar-mode 'left) (setq frame-title-format "Poor Man's LispM") ;; Pretty-Printing -(setq prettify-symbols-alist '(("lambda" . 955) - ("delta" . 120517) - ("epsilon" . 120518) - ("->" . 8594) - ("<=" . 8804) - (">=" . 8805))) +(setq prettify-symbols-alist + '(("lambda" . 955) + ("delta" . 120517) + ("epsilon" . 120518) + ("->" . 8594) + ("<=" . 8804) + (">=" . 8805))) (global-prettify-symbols-mode t) (setq-default indent-tabs-mode nil) -;; Paren-matching +;; Clamp-matching (setq show-paren-delay 0 show-paren-style 'expression) @@ -120,12 +121,12 @@ (set-keyboard-coding-system 'utf-8-unix) (set-terminal-coding-system 'utf-8-unix) -;; Cleanup on save +;; Cleanup on write (setq require-final-newline t) (add-hook 'before-save-hook #'whitespace-cleanup) (add-hook 'after-save-hook #'executable-make-buffer-file-executable-if-script-p) -;; Version Control +;; Draftwielding (setq vc-make-backup-files t backup-by-copying t backup-directory-alist `((".*" . "~/emacs-backups/"))) @@ -135,7 +136,7 @@ kept-new-versions 5 kept-old-versions 5) -;; Auto-revert +;; Self-undoing (global-auto-revert-mode t) (setq global-auto-revert-non-file-buffers t global-auto-revert-ignore-modes '(Buffer-menu-mode)) @@ -150,7 +151,7 @@ (add-hook 'org-mode-hook #'abbrev-mode) -;; Customize System +;; Bespoken framework (setq custom-file (expand-file-name "custom.el" user-emacs-directory)) (when (not (file-exists-p custom-file)) @@ -158,4 +159,4 @@ (load custom-file) -;;; hic terminatur init.el +;;; init.el ends here diff --git a/re/re-refrigeration-defuns.el b/re/re-refrigeration-defuns.el index 5443782..b4df1d1 100644 --- a/re/re-refrigeration-defuns.el +++ b/re/re-refrigeration-defuns.el @@ -44,12 +44,12 @@ Applies `c->k' to `f->c'." (defun cfm-circ (fpm radius) "Calculate the CFM of a circular duct. Inputs are feet/minute and radius (in)." - (list (* 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)." - (list (* 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)." -- 2.39.5