From db9cfcde661b7e00a66712b1c4296dc367c21bb1 Mon Sep 17 00:00:00 2001 From: rearman Date: Thu, 23 Apr 2026 15:54:30 -0400 Subject: [PATCH] Convert to dolist where possible --- init.el | 37 +++++++++++++------------------------ 1 file changed, 13 insertions(+), 24 deletions(-) diff --git a/init.el b/init.el index ac52c31..941ee2b 100644 --- a/init.el +++ b/init.el @@ -24,8 +24,8 @@ (require 're-skeletons) (when (not (equal system-type 'windows-nt)) (require 're-mu4e)))) -(add-to-list 'auto-mode-alist '("\\.keymap\\'" . c-mode)) -(add-to-list 'auto-mode-alist '("\\.dtsi\\'" . c-mode)) +(dolist (mode-maps '(("\\.keymap\\'" . c-mode) ("\\.dtsi\\'" . c-mode))) + (add-to-list 'auto-mode-alist mode-maps t)) (add-hook 'c-mode-hook (lambda () (require 're-c-style))) @@ -55,33 +55,22 @@ newline-mark missing-newline-at-eof)) -(defvaralias 'c-basic-offset 'tab-width) -(defvaralias 'cperl-indent-level 'tab-width) -(defvaralias 'LaTeX-indent-level 'tab-width) +(dolist (indent-level '(c-basic-offset cperl-indent-level LaTeX-indent-level)) + (defvaralias indent-level 'tab-width)) -(add-hook 'prog-mode-hook - (lambda () (keymap-local-set "" #'self-insert-command))) - -(add-hook 'text-mode-hook - (lambda () - (keymap-set text-mode-map "" #'self-insert-command))) -(add-hook 'LaTeX-mode - (lambda () - (keymap-set LaTeX-mode-map "" #'self-insert-command))) +(dolist (hook '(prog-mode-hook text-mode-hook LaTeX-mode-hook)) + (add-hook hook + (lambda () + (keymap-local-set "" #'self-insert-command) + (setq indent-line-function 'tab-to-tab-stop)))) ;; Buffer dealiŋ (setq-default indicate-empty-lines t truncate-lines t fill-column 78) -(defvar *re/vlm-hooks* - '(text-mode-hook ;catches most - LaTeX-mode-hook)) - -(dolist (hook *re/vlm-hooks*) - (lambda () - (add-hook hook #'visual-line-mode) - (setq indent-line-function 'tab-to-tab-stop))) +(dolist (hook '(text-mode-hook LaTeX-mode-hook)) + (lambda () (add-hook hook #'visual-line-mode))) (add-to-list 'display-buffer-alist '("^\\*eldoc" display-buffer-in-direction @@ -290,8 +279,8 @@ (setq abbrev-file-name (expand-file-name "abbrev_defs" user-emacs-directory) save-abbrevs 'silently) -(add-hook 'org-mode-hook #'abbrev-mode) -(add-hook 'howm-mode-hook #'abbrev-mode) +(dolist (hook '(org-mode-hook 'howm-mode-hook)) + (add-hook hook #'abbrev-mode)) ;; Customization framework ;; Disable by making a temp file (stolen from prot) -- 2.39.5