2019-03-11 12:39:38 -04:00
|
|
|
;;; ui/indent-guides/config.el -*- lexical-binding: t; -*-
|
|
|
|
|
|
|
|
(def-package! highlight-indent-guides
|
|
|
|
:hook ((prog-mode text-mode conf-mode) . highlight-indent-guides-mode)
|
2019-03-11 16:46:55 -04:00
|
|
|
:init
|
2019-05-10 02:02:43 -04:00
|
|
|
(setq highlight-indent-guides-method 'character)
|
2019-03-11 16:46:55 -04:00
|
|
|
:config
|
2019-03-11 12:39:38 -04:00
|
|
|
;; Don't display first level of indentation
|
|
|
|
(defun +indent-guides-for-all-but-first-column (level responsive display)
|
|
|
|
(unless (< level 1)
|
|
|
|
(highlight-indent-guides--highlighter-default level responsive display)))
|
2019-03-13 01:28:49 -04:00
|
|
|
(setq highlight-indent-guides-highlighter-function #'+indent-guides-for-all-but-first-column)
|
|
|
|
|
|
|
|
(defun +indent-guides|disable-maybe ()
|
2019-03-25 10:01:54 +08:00
|
|
|
(when highlight-indent-guides-mode
|
|
|
|
(highlight-indent-guides-mode -1)))
|
2019-05-13 14:37:00 -04:00
|
|
|
;; `highlight-indent-guides' breaks in these modes
|
2019-03-13 01:28:49 -04:00
|
|
|
(add-hook 'visual-line-mode-hook #'+indent-guides|disable-maybe)
|
|
|
|
(add-hook 'org-indent-mode-hook #'+indent-guides|disable-maybe))
|