From 33c7ddb09e0eae0796686c64ffa022a181145cc1 Mon Sep 17 00:00:00 2001 From: Case Duckworth Date: Wed, 4 Jan 2023 23:21:15 -0600 Subject: Restart ... again ... again --- lisp/acdw-defaults.el | 295 -------------------------------------------------- 1 file changed, 295 deletions(-) delete mode 100644 lisp/acdw-defaults.el (limited to 'lisp/acdw-defaults.el') diff --git a/lisp/acdw-defaults.el b/lisp/acdw-defaults.el deleted file mode 100644 index e4c9e14..0000000 --- a/lisp/acdw-defaults.el +++ /dev/null @@ -1,295 +0,0 @@ -;;; acdw-defaults.el --- measured defaults for Emacs -*- lexical-binding: t -*- -;; by C. Duckworth - -;;; Commentary: - -;; I find myself copy-pasting a lot of "boilerplate" type code when -;; bankrupting my Emacs config and starting afresh. Instead of doing -;; that, I'm putting it here, where it'll be easier to include in my -;; config. - -;; Of course, some might say I could just ... stop bankrupting my -;; Emacs. But like, why would I want to? - -;;; Code: - -(require 'seq) - -(defvar default-ring-max 256 - "Default maximum for ring variables.") - -(unless (boundp 'use-short-answers) - (fset 'yes-or-no-p 'y-or-n-p)) - -(setc async-shell-command-buffer 'new-buffer - async-shell-command-display-buffer nil - auto-hscroll-mode t - auto-window-vscroll nil - cursor-in-non-selected-windows 'hollow - cursor-type 'bar - echo-keystrokes 0.01 - fast-but-imprecise-scrolling t - fill-column 80 - global-mark-ring-max default-ring-max - hscroll-margin 1 - hscroll-step 1 - inhibit-startup-screen t - initial-buffer-choice t - kill-do-not-save-duplicates t - kill-read-only-ok t - kill-ring-max default-ring-max - kmacro-ring-max default-ring-max - mark-ring-max default-ring-max - read-answer-short t - read-process-output-max (* 10 1024 1024) - ring-bell-function #'ignore - save-interprogram-paste-before-kill t - scroll-conservatively 25 - scroll-margin 0 - scroll-preserve-screen-position 1 - scroll-step 1 - sentence-end-double-space t - set-mark-command-repeat-pop t - tab-width 8 - undo-limit (* 10 1024 1024) - use-dialog-box nil - use-file-dialog nil - use-short-answers t - window-resize-pixelwise t - yank-pop-change-selection t) - -;;; Encodings - -;; Allegedly, this is the only one you need... -(set-language-environment "UTF-8") -;; But I still set all of these, for fun. -(setq-default buffer-file-coding-system 'utf-8-unix - coding-system-for-read 'utf-8-unix - coding-system-for-write 'utf-8-unix - default-process-coding-system '(utf-8-unix . utf-8-unix) - locale-coding-system 'utf-8-unix - x-select-request-type '(UTF8_STRING - COMPOUND_TEXT - TEXT - STRING)) - -(set-charset-priority 'unicode) -(prefer-coding-system 'utf-8-unix) -(set-default-coding-systems 'utf-8-unix) -(set-terminal-coding-system 'utf-8-unix) -(set-keyboard-coding-system 'utf-8-unix) - -(pcase system-type - ((or 'ms-dos 'windows-nt) - (set-clipboard-coding-system 'utf-16-le) - (set-selection-coding-system 'utf-16-le)) - (_ - (set-selection-coding-system 'utf-8) - (set-clipboard-coding-system 'utf-8))) - -;;; Modes - -(dolist (enable-mode '(;; Enable these modes on startup - delete-selection-mode - global-so-long-mode - )) - (funcall enable-mode +1)) - -(dolist (disable-mode '(;; Disable these modes on startup - horizontal-scroll-bar-mode - menu-bar-mode - scroll-bar-mode - tool-bar-mode - tooltip-mode - )) - (funcall disable-mode -1)) - -(deftheme use-package) -(enable-theme 'use-package) - -;;; Internal packages - -(when (require 'abbrev nil t) - (custom-theme-set-variables 'use-package - '(abbrev-file-name (sync/ "abbrev.el")) - '(save-abbrevs 'silently))) - -(when (require 'autorevert nil t) - (custom-theme-set-variables 'use-package - '(auto-revert-verbose nil) - '(global-auto-revert-non-file-buffers t)) - (global-auto-revert-mode +1)) - -(when (require 'comp nil t) - (custom-theme-set-variables 'use-package - '(native-comp-async-report-warnings-errors 'silent) - '(native-comp-deferred-compilation t))) - -(when (require 'custom nil t) - (custom-theme-set-variables 'use-package - '(custom-file (etc/ "custom.el")))) - -(when (require 'ediff nil t) - (custom-theme-set-variables 'use-package - '(ediff-window-setup-function #'ediff-setup-windows-plain))) - -(when (require 'eldoc nil t) - (custom-theme-set-variables 'use-package - '(eldoc-echo-area-use-multiline-p nil) - '(eldoc-idle-delay 0.1))) - -(when (require 'executable nil t) - (custom-theme-set-variables 'use-package - '(executable-prefix-env t))) - -(when (require 'files nil t) - (custom-theme-set-variables 'use-package - '(auto-save-default nil) - '(auto-save-interval 1) - '(auto-save-no-message t) - '(auto-save-timeout 1) - '(auto-save-visited-interval 1) - '(backup-by-copying t) - '(create-lockfiles nil) - '(delete-old-versions t) - '(find-file-visit-truename t) - '(kept-new-versions 8) - '(kept-old-versions 8) - '(mode-require-final-newline t) - '(version-control t) - '(view-read-only t)) - (dolist (h/f - '((after-save-hook . executable-make-buffer-file-executable-if-script-p) - (find-file-not-found-functions . create-missing-directories) - (find-file-hook . +vc-off@remote))) - (add-hook (car h/f) (cdr h/f))) - (auto-save-visited-mode)) - -(when (require 'frame nil t) - (custom-theme-set-variables 'use-package - '(blink-cursor-blinks 1) - '(blink-cursor-interval 0.25) - '(blink-cursor-delay 0.25)) - (blink-cursor-mode)) - -(when (require 'goto-addr nil t) - (if (fboundp 'global-goto-address-mode) - (global-goto-address-mode +1) - (add-hook 'after-change-major-mode-hook 'goto-address-mode))) - -(when (require 'ibuffer nil t) - (global-set-key (kbd "C-x C-b") #'ibuffer) - (add-hook 'ibuffer-mode-hook #'hl-line-mode)) - -(when (require 'image nil t) - (custom-theme-set-variables 'use-package - '(image-use-external-converter - (seq-some #'executable-find '("convert" "gm" "ffmpeg"))))) - -(when (require 'imenu nil t) - (custom-theme-set-variables 'use-package - '(imenu-auto-rescan t))) - -(when (require 'isearch nil t) - (custom-theme-set-variables 'use-package - '(regexp-search-ring-max default-ring-max) - '(search-ring-max default-ring-max))) - -(when (require 'minibuffer nil t) - (custom-theme-set-variables 'use-package - '(completion-category-defaults nil) - '(completion-category-overrides '((file (styles partial-completion)))) - '(completion-ignore-case t) - '(completion-styles '(substring partial-completion)) - '(enable-recursive-minibuffers t) - '(file-name-shadow-properties '(invisible t intangible t)) - '(minibuffer-eldef-shorten-default t) - '(minibuffer-prompt-properties '( read-only t - cursor-intangible t - face minibuffer-prompt)) - '(read-buffer-completion-ignore-case t)) - (file-name-shadow-mode) - (minibuffer-electric-default-mode)) - -(when (require 'mouse nil t) - (custom-theme-set-variables 'use-package - '(mouse-drag-copy-region t) - '(mouse-wheel-progressive-speed nil) - '(mouse-yank-at-point t))) - -(when (require 'paren nil t) - (custom-theme-set-variables 'use-package - '(show-paren-delay 0.01) - '(show-paren-style 'parenthesis) - '(show-paren-when-point-in-periphery t) - '(show-paren-when-point-inside-paren t)) - (show-paren-mode) - (electric-pair-mode)) - -(when (require 'recentf nil t) - (custom-theme-set-variables 'use-package - '(recentf-save-file (var/ "recentf.el")) - '(recentf-max-menu-items default-ring-max) - '(recentf-max-saved-items nil) - '(recentf-auto-cleanup 'mode)) - (add-to-list 'recentf-exclude etc/) - (add-to-list 'recentf-exclude var/) - (add-to-list 'recentf-exclude cache/) - (add-to-list 'recentf-exclude "-autoloads.el\\'") - (recentf-mode +1)) - -(when (require 'savehist nil t) - (custom-theme-set-variables 'use-package - '(history-length 1024) - '(history-delete-duplicates t) - '(savehist-file (var/ "savehist.el")) - '(savehist-save-minibuffer-history t) - '(savehist-autosave-interval 30) - ;; Other variables --- don't truncate any of these. - ;; `add-to-history' uses the values of these variables unless - ;; they're nil, in which case it falls back to `history-length'. - '(kill-ring-max default-ring-max) - '(mark-ring-max default-ring-max) - '(global-mark-ring-max default-ring-max) - '(regexp-search-ring-max default-ring-max) - '(search-ring-max default-ring-max) - '(kmacro-ring-max default-ring-max) - '(eww-history-limit default-ring-max)) - (dolist (var '(global-mark-ring - mark-ring - kill-ring - kmacro-ring - regexp-search-ring - search-ring)) - (add-to-list 'savehist-additional-variables var)) - (savehist-mode +1)) - -(when (require 'saveplace nil t) - (custom-theme-set-variables 'use-package - '(save-place-file (var/ "places.el")) - '(save-place-forget-unreadable-files (eq system-type 'gnu/linux))) - (save-place-mode 1)) - -(when (require 'uniquify nil t) - (custom-theme-set-variables 'use-package - '(uniquify-after-kill-buffer-p t) - '(uniquify-buffer-name-style 'forward) - '(uniquify-ignore-buffers-re "^\\*") - '(uniquify-separator path-separator))) - -(when (require 'vc nil t) - (custom-theme-set-variables 'use-package - '(vc-follow-symlinks t) - '(vc-make-backup-files t))) - -(when (require 'window nil t) - (custom-theme-set-variables 'use-package - '(recenter-positions '(top 2 middle bottom)))) - -;;; New features - -(when (fboundp 'pixel-scroll-precision-mode) - (pixel-scroll-precision-mode)) - -(provide 'acdw-defaults) -;;; acdw-defaults.el ends here -- cgit 1.4.1-21-gabe81