;;; 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
;;; 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)
;; Loaded Later
(add-hook 'after-init-hook
- (lambda ()
+ (lambda
+ ()
;;(require 'acme-mouse)
(require 're-logic-defuns)
(require 're-repl-defuns)
(require 're-org-defuns)))
(add-hook 'c-mode-hook
- (lambda ()
+ (lambda
+ ()
(require 're-c-style)))
;; Damper bespokeniŋs
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)))
;; 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)
-;;; 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 "<insert>" nil) ; keep accidentally toggling overwrite-mode
+(keymap-global-set "<insert>" 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" "<DEL>") ; Prefer F1 for help
+(keymap-global-set "C-u"
+ (lambda
+ ()
+ (interactive)
+ (kill-line 0))) ; kill-line backwards
+(keymap-set key-translation-map "C-h" "<DEL>") ; 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)
(keymap-global-set "<remap> <upcase-word>" #'upcase-dwim)
(keymap-global-set "M-'" #'universal-argument)
-;; Motion
+;; Wayfindiŋ
(keymap-global-set "<home>" #'beginning-of-buffer)
(keymap-global-set "<end>" #'end-of-buffer)
(keymap-global-set "M-n" #'next-buffer)
(keymap-set visual-line-mode-map "C-e" #'re/smart-end-of-line)
(keymap-global-set "<remap> <goto-line>" #'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)
(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 "<f5>" #'scratch-buffer)
(keymap-global-set "S-<f5>" #'re/scratch-only)
(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)
(keymap-global-set "<f6>" #'re/org-show-agenda)
(provide 're-bindings)
-;;; hic terminatur re-bindings.el
+;;; re-bindings.el ends here
(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
-;;; 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."
(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)
"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)))
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."
(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
-;;; 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:
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
-;;; 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:
`(= ,x 0))
(provide 're-logic-defuns)
-;;; hic terminatur re-logic-defuns.el
+;;; re-logic-defuns.el ends here
-;;; 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:
(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
-;;; 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:
(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
-;;; 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:
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")
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
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)
(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)
(keymap-set org-mode-map "M-S-<left>" #'org-metaleft)
(provide 're-org)
-;;; hic terminatur re-org.el
+;;; re-org.el ends here
-;;; 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
-;;; 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
(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
(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))
: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
: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
(("C-c p" . 'paredit-mode)))
(provide 're-packages)
-;;; Hic terminatur re-packages.el
+;;; re-packages.el ends here
-;;; 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:
(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))
(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
-;;; 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))
(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
-;;; 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 `<RET>' 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'.
this to ']' for the interlisp experience. For `executor', use
whatever function is called by `<RET>' in the applicable REPL.
For a non-repl, use `newline' or similar."
- `(lambda ()
+ `(lambda
+ ()
(interactive)
(re/balance-sexp)
(call-interactively ,executor)))
"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."
(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
-;;; 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"
""
"#+FILETAGS: wo# workorder customer city state topics\n")
(provide 're-skeletons)
-;;; hic terminatur re-skeletons.el
+;;; re-skeletons.el ends here
projects / emacsinit.git / commitdiff