awesome-emacs/doomemacs
1
0
Fork 0
mirror of https://github.com/doomemacs/doomemacs synced 2025-08-03 12:27:26 -05:00
Code Issues Packages Projects Releases Wiki Activity

turn off fci when window is narrow than fill column

Browse Source
This commit is contained in:
Chen Hou-wu
2018-10-22 00:04:46 +08:00
parent 56d7f70b2f
commit 1c5080315a
1 changed files with 17 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

17
modules/ui/fci/config.el
View File

@ -21,6 +21,23 @@ Changes to this variable do not take effect until `fci-mode' is restarted.")
;; more important to me, so... ;; more important to me, so...
(add-hook 'org-mode-hook #'turn-off-fci-mode) (add-hook 'org-mode-hook #'turn-off-fci-mode)
;; turn off fci if the window is narrow than fill column
(defun fci-conditional (window)
(let ((fci-enabled (symbol-value 'fci-mode))
(fci-column (if fci-rule-column fci-rule-column fill-column)))
(with-selected-window window
(if (and (eq fci-enabled nil)
(< fci-column
(+ (window-width) (window-hscroll))))
(turn-on-fci-mode)
(turn-off-fci-mode)))))
(defun fci-width-workaround (&rest _)
(walk-windows #'fci-conditional 'no-minibuf))
(add-hook 'window-size-change-functions 'fci-width-workaround)
(add-hook 'window-configuration-change-hook 'fci-width-workaround)
(defun +fci|set-color () (defun +fci|set-color ()
"Automatically change `fci-rule-color' based on `+fci-rule-color-function's "Automatically change `fci-rule-color' based on `+fci-rule-color-function's
return value. To disable this, either set `+fci-rule-color-function' to nil or return value. To disable this, either set `+fci-rule-color-function' to nil or