From 8707a7941a6cae43e85563af49e40d2138f0c21c Mon Sep 17 00:00:00 2001 From: Tom Alexander Date: Sat, 9 Sep 2023 00:33:17 -0400 Subject: [PATCH] Disable most of base.el settings. I will be re-enabling bits as I find I need them. --- .../emacs/files/elisp/base-extensions.el | 2 + ansible/roles/emacs/files/elisp/base.el | 132 +++++++++--------- 2 files changed, 71 insertions(+), 63 deletions(-) diff --git a/ansible/roles/emacs/files/elisp/base-extensions.el b/ansible/roles/emacs/files/elisp/base-extensions.el index 320b43d..360ab56 100644 --- a/ansible/roles/emacs/files/elisp/base-extensions.el +++ b/ansible/roles/emacs/files/elisp/base-extensions.el @@ -1,3 +1,5 @@ +(use-package diminish) + ;; Eglot recommends pulling the latest of the standard libraries it ;; uses from ELPA if you're not tracking the current emacs development ;; branch. diff --git a/ansible/roles/emacs/files/elisp/base.el b/ansible/roles/emacs/files/elisp/base.el index 3b3f556..9ecf297 100644 --- a/ansible/roles/emacs/files/elisp/base.el +++ b/ansible/roles/emacs/files/elisp/base.el @@ -12,81 +12,87 @@ auto-package-update-interval 14) (auto-package-update-maybe)) -(defconst private-dir (expand-file-name "private" user-emacs-directory)) -(defconst temp-dir (format "%s/cache" private-dir) - "Hostname-based elisp temp directories") - -;; Emacs customizations -(setq-default - inhibit-startup-screen t - initial-scratch-message nil - ;; Send prompts to mini-buffer not the GUI - use-dialog-box nil - confirm-nonexistent-file-or-buffer t - save-interprogram-paste-before-kill t - mouse-yank-at-point t - require-final-newline t - visible-bell nil - ring-bell-function 'ignore - ;; Write custom variables to an unused file so in-editor changes do not persist. - custom-file "~/.emacs.d/.custom.el" - ;; http://ergoemacs.org/emacs/emacs_stop_cursor_enter_prompt.html - minibuffer-prompt-properties - '(read-only t point-entered minibuffer-avoid-prompt face minibuffer-prompt) - - ;; Disable non selected window highlight - cursor-in-non-selected-windows nil - highlight-nonselected-windows nil - ;; PATH - exec-path (append exec-path '("/usr/local/bin/")) - indent-tabs-mode nil - tab-width 4 - inhibit-startup-message t - fringes-outside-margins t - x-select-enable-clipboard t - use-package-always-ensure t - ispell-program-name "aspell" - browse-url-browser-function 'browse-url-generic - browse-url-generic-program "firefox-developer-edition" - frame-title-format '("" invocation-name ": "(:eval (if (buffer-file-name) - (abbreviate-file-name (buffer-file-name)) - "%b"))) - ;; mouse-wheel-progressive-speed nil ;; Don't accelerate mouse wheel - ;; mouse-wheel-scroll-amount '(5 ((shift) . 3)) - use-short-answers t - package-native-compile t - delete-selection-mode t - ) - (defun assert-directory (p) (unless (file-exists-p p) (make-directory p t)) p ) + +(defconst private-dir (expand-file-name "private" user-emacs-directory)) +(defconst temp-dir (format "%s/cache" private-dir) + "Hostname-based elisp temp directories") (assert-directory (concat temp-dir "/auto-save-list/")) (setq autoload-directory (concat user-emacs-directory (file-name-as-directory "elisp") (file-name-as-directory "autoload"))) (add-to-list 'load-path (assert-directory autoload-directory)) -;; Bookmarks -(setq - ;; persistent bookmarks - bookmark-save-flag t - bookmark-default-file (concat temp-dir "/bookmarks")) +;; Disable backup files and lockfiles +(setq-default + make-backup-files nil + auto-save-default nil + create-lockfiles nil) -;; Backups enabled, use nil to disable -(setq - history-length 1000 - backup-inhibited nil - make-backup-files nil - auto-save-default nil - auto-save-list-file-name (concat temp-dir "/autosave") - create-lockfiles nil - backup-directory-alist `((".*" . ,(concat temp-dir "/backup/"))) - auto-save-file-name-transforms `((".*" ,(concat temp-dir "/auto-save-list/") t))) + +;; ;; Emacs customizations +;; (setq-default +;; inhibit-startup-screen t +;; initial-scratch-message nil +;; ;; Send prompts to mini-buffer not the GUI +;; use-dialog-box nil +;; confirm-nonexistent-file-or-buffer t +;; save-interprogram-paste-before-kill t +;; mouse-yank-at-point t +;; require-final-newline t +;; visible-bell nil +;; ring-bell-function 'ignore +;; ;; Write custom variables to an unused file so in-editor changes do not persist. +;; custom-file "~/.emacs.d/.custom.el" +;; ;; http://ergoemacs.org/emacs/emacs_stop_cursor_enter_prompt.html +;; minibuffer-prompt-properties +;; '(read-only t point-entered minibuffer-avoid-prompt face minibuffer-prompt) + +;; ;; Disable non selected window highlight +;; cursor-in-non-selected-windows nil +;; highlight-nonselected-windows nil +;; ;; PATH +;; exec-path (append exec-path '("/usr/local/bin/")) +;; indent-tabs-mode nil +;; tab-width 4 +;; inhibit-startup-message t +;; fringes-outside-margins t +;; x-select-enable-clipboard t +;; use-package-always-ensure t +;; ispell-program-name "aspell" +;; browse-url-browser-function 'browse-url-generic +;; browse-url-generic-program "firefox-developer-edition" +;; frame-title-format '("" invocation-name ": "(:eval (if (buffer-file-name) +;; (abbreviate-file-name (buffer-file-name)) +;; "%b"))) +;; ;; mouse-wheel-progressive-speed nil ;; Don't accelerate mouse wheel +;; ;; mouse-wheel-scroll-amount '(5 ((shift) . 3)) +;; use-short-answers t +;; package-native-compile t +;; delete-selection-mode t +;; ) + + +;; ;; Bookmarks +;; (setq +;; ;; persistent bookmarks +;; bookmark-save-flag t +;; bookmark-default-file (concat temp-dir "/bookmarks")) + +;; ;; Backups enabled, use nil to disable +;; (setq +;; history-length 1000 +;; backup-inhibited nil +;; make-backup-files nil +;; auto-save-default nil +;; auto-save-list-file-name (concat temp-dir "/autosave") +;; create-lockfiles nil +;; backup-directory-alist `((".*" . ,(concat temp-dir "/backup/"))) +;; auto-save-file-name-transforms `((".*" ,(concat temp-dir "/auto-save-list/") t))) ;; Delete trailing whitespace before save (add-hook 'before-save-hook 'delete-trailing-whitespace) -(use-package diminish) - (provide 'base) ;;; base ends here