From 7ae946280d9cfbaf1341f4670897af49c5e1f106 Mon Sep 17 00:00:00 2001 From: rearman Date: Wed, 18 Mar 2026 12:06:04 -0400 Subject: [PATCH] More aggressive tabbing --- init.el | 31 +++++++++++++++++++++++++++++-- 1 file changed, 29 insertions(+), 2 deletions(-) diff --git a/init.el b/init.el index bae9855..375745e 100644 --- a/init.el +++ b/init.el @@ -30,11 +30,33 @@ (add-hook 'c-mode-hook (lambda () (require 're-c-style))) ;; Tabs -(setq-default indent-tabs-mode t +(setq-default indent-tabs-mode 'only tab-width 8) +(advice-add 'indent-to :around + (lambda (orig-fun column &rest args) + (when (eq indent-tabs-mode 'only) + (setq column (* tab-width (round column tab-width)))) + (apply orig-fun column args))) + +(setq whitespace-style '(face + tabs + spaces + trailing + lines + space-before-tab + newline + indentation::tab + empty + space-after-tab + space-mark + tab-mark + newline-mark + missing-newline-at-eof)) + (defvaralias 'c-basic-offset 'tab-width) (defvaralias 'cperl-indent-level 'tab-width) +(defvaralias 'LaTeX-indent-level 'tab-width) (add-hook 'prog-mode-hook (lambda () (keymap-local-set "" #'self-insert-command))) @@ -42,6 +64,9 @@ (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))) ;; Buffer dealiŋ (setq-default indicate-empty-lines t @@ -53,7 +78,9 @@ LaTeX-mode-hook)) (dolist (hook *re/vlm-hooks*) - (add-hook hook #'visual-line-mode)) + (lambda () + (add-hook hook #'visual-line-mode) + (setq indent-line-function 'tab-to-tab-stop))) (add-to-list 'display-buffer-alist '("^\\*eldoc" display-buffer-in-direction -- 2.39.5