From 2c96544d9a5e70a67d517ed25c179c5877b65852 Mon Sep 17 00:00:00 2001 From: Adam Goldsmith Date: Mon, 2 Oct 2017 04:17:43 -0400 Subject: [PATCH] Replace whitespace-longlines-mode with column-enforce-mode --- .emacs.d/init.el | 22 ++++++---------------- 1 file changed, 6 insertions(+), 16 deletions(-) diff --git a/.emacs.d/init.el b/.emacs.d/init.el index 9908bd8..0a2203e 100644 --- a/.emacs.d/init.el +++ b/.emacs.d/init.el @@ -157,21 +157,6 @@ (add-hook 'gud-mode-hook '(lambda () (setq-local comint-prompt-read-only t)))) -(use-package whitespace - :config - (define-minor-mode whitespace-longlines-mode - :lighter " ll" - :init-value nil - :global nil - :group 'whitespace - (let ((whitespace-style '(face lines-tail))) - (whitespace-mode (if whitespace-longlines-mode - 1 -1))) - ;; sync states (running a batch job) - (setq whitespace-longlines-mode whitespace-mode)) - (add-hook 'prog-mode-hook #'whitespace-longlines-mode)) - - (use-package org :defer :bind (:map org-mode-map ("C-z" . org-latex-export-to-pdf)) @@ -231,7 +216,7 @@ ("^:Doc:WPI/" ":WPI:") ("^/sshx:ccc:" ">ccc:") ("^>ccc:/home/asgoldsmith" ":>ccc:~")) - rm-blacklist '(" company" " Undo-Tree" " ivy"))) + rm-blacklist '(" company" " Undo-Tree" " ivy" " 80col"))) (use-package avy :ensure :config @@ -355,6 +340,11 @@ :demand :bind (:map outline-minor-mode-map ("M-" . outline-cycle))) +(use-package column-enforce-mode :ensure + :config + (add-hook 'prog-mode-hook 'column-enforce-mode) + (copy-face 'whitespace-line 'column-enforce-face)) + ;;;; optional external packages (use-package arduino-mode :mode "\\.pde\\'"