talexander/machine_setup
1
0
Fork 0
Code Issues Pull Requests Releases Activity

Disable most of base.el settings.

Browse Source 
I will be re-enabling bits as I find I need them.
This commit is contained in:
Tom Alexander 2023-09-09 00:33:17 -04:00
parent 01c5571da0
commit 8707a7941a
Signed by: talexander
GPG Key ID: D3A179C9A53C0EDE
2 changed files with 71 additions and 63 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
ansible/roles/emacs/files/elisp/base-extensions.el
View File

@ -1,3 +1,5 @@
(use-package diminish)
;; Eglot recommends pulling the latest of the standard libraries it ;; Eglot recommends pulling the latest of the standard libraries it
;; uses from ELPA if you're not tracking the current emacs development ;; uses from ELPA if you're not tracking the current emacs development
;; branch. ;; branch.

130
ansible/roles/emacs/files/elisp/base.el
View File

@ -12,81 +12,87 @@
auto-package-update-interval 14) auto-package-update-interval 14)
(auto-package-update-maybe)) (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) (defun assert-directory (p)
(unless (file-exists-p p) (make-directory p t)) (unless (file-exists-p p) (make-directory p t))
p 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/")) (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"))) (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)) (add-to-list 'load-path (assert-directory autoload-directory))
;; Bookmarks ;; Disable backup files and lockfiles
(setq (setq-default
;; 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 make-backup-files nil
auto-save-default nil auto-save-default nil
auto-save-list-file-name (concat temp-dir "/autosave") create-lockfiles nil)
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 ;; Delete trailing whitespace before save
(add-hook 'before-save-hook 'delete-trailing-whitespace) (add-hook 'before-save-hook 'delete-trailing-whitespace)
(use-package diminish)
(provide 'base) (provide 'base)
;;; base ends here ;;; base ends here