Replace whitespace-longlines-mode with column-enforce-mode

This commit is contained in:
Adam Goldsmith 2017-10-02 04:17:43 -04:00
parent b10f23a67e
commit 2c96544d9a

View File

@ -157,21 +157,6 @@
(add-hook 'gud-mode-hook (add-hook 'gud-mode-hook
'(lambda () (setq-local comint-prompt-read-only t)))) '(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 (use-package org
:defer :defer
:bind (:map org-mode-map ("C-z" . org-latex-export-to-pdf)) :bind (:map org-mode-map ("C-z" . org-latex-export-to-pdf))
@ -231,7 +216,7 @@
("^:Doc:WPI/" ":WPI:") ("^:Doc:WPI/" ":WPI:")
("^/sshx:ccc:" ">ccc:") ("^/sshx:ccc:" ">ccc:")
("^>ccc:/home/asgoldsmith" ":>ccc:~")) ("^>ccc:/home/asgoldsmith" ":>ccc:~"))
rm-blacklist '(" company" " Undo-Tree" " ivy"))) rm-blacklist '(" company" " Undo-Tree" " ivy" " 80col")))
(use-package avy :ensure (use-package avy :ensure
:config :config
@ -355,6 +340,11 @@
:demand :demand
:bind (:map outline-minor-mode-map ("M-<tab>" . outline-cycle))) :bind (:map outline-minor-mode-map ("M-<tab>" . 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 ;;;; optional external packages
(use-package arduino-mode (use-package arduino-mode
:mode "\\.pde\\'" :mode "\\.pde\\'"