Add support for the built-in WINDOW-DIVIDER-MODE

The mode is defined in the `frame.el' library (M-x find-library frame).

The default width of the divider is 6 pixels.  The first and last pixels
are meant as narrow outlines that are drawn in a slightly more intense
colour than the remaining 4 inner pixels.

Due to the possibility of adjusting the thickness of the divider, plus
the generous default width, the colours I have chosen are less intense
that those used in the default window border (those are black on white
and vice versa, as per the value of the `default' face).

As such if you wish to have a more subtle window divider that retains
the looks of the generic window border, you can evaluate this (check the
other variables as well):

    (setq window-divider-default-right-width 1)

And then enable the mode:

    (window-divider-mode 1)
parent 43755f2f
......@@ -302,6 +302,7 @@ the "full support" may not be 100% true…
+ which-function-mode
+ which-key
+ whitespace-mode
+ window-divider-mode
+ writegood-mode
+ xah-elisp-mode
+ xterm-color (and ansi-colors)
......
......@@ -192,6 +192,7 @@
;; which-function-mode
;; which-key
;; whitespace-mode
;; window-divider-mode
;; writegood-mode
;; xah-elisp-mode
;; xterm-color (and ansi-colors)
......@@ -383,9 +384,13 @@ between foreground and background is >= 7:1)."
;;
;; `bg-region' must be combined with `fg-main'
;;
;; the window divider colours apply to faces with just an fg value
;;
;; all other pairs are combinable with themselves
(bg-hl-line "#f1f2f6")
(bg-region "#bcbcbc")
(fg-window-divider-inner "#888888")
(fg-window-divider-outer "#585858")
(fg-header "#2a2a2a") (bg-header "#e5e5e5")
(fg-whitespace "#645060") (bg-whitespace "#fff8fc")
(fg-paren-match "#222222") (bg-paren-match "#deb8af")
......@@ -2097,6 +2102,10 @@ between foreground and background is >= 7:1)."
`(whitespace-space-before-tab ((,class (:inherit modus-theme-subtle-cyan))))
`(whitespace-tab ((,class (:background ,bg-whitespace :foreground ,fg-whitespace))))
`(whitespace-trailing ((,class (:inherit modus-theme-intense-red))))
;;;; window-divider-mode
`(window-divider ((,class (:foreground ,fg-window-divider-inner))))
`(window-divider-first-pixel ((,class (:foreground ,fg-window-divider-outer))))
`(window-divider-last-pixel ((,class (:foreground ,fg-window-divider-outer))))
;;;; writegood-mode
`(writegood-duplicates-face ((,class (:background ,bg-alt :foreground ,red-alt-other :underline t))))
`(writegood-passive-voice-face ((,class (:background ,bg-alt :foreground ,cyan-alt-other :underline t))))
......
......@@ -192,6 +192,7 @@
;; which-function-mode
;; which-key
;; whitespace-mode
;; window-divider-mode
;; writegood-mode
;; xah-elisp-mode
;; xterm-color (and ansi-colors)
......@@ -383,9 +384,13 @@ between foreground and background is >= 7:1)."
;;
;; `bg-region' must be combined with `fg-main'
;;
;; the window divider colours apply to faces with just an fg value
;;
;; all other pairs are combinable with themselves
(bg-hl-line "#151823")
(bg-region "#3c3c3c")
(fg-window-divider-inner "#646464")
(fg-window-divider-outer "#969696")
(fg-header "#dddddd") (bg-header "#2a2a2a")
(fg-whitespace "#a4959f") (bg-whitespace "#170016")
(fg-paren-match "#fcfcfc") (bg-paren-match "#754a5d")
......@@ -2097,6 +2102,10 @@ between foreground and background is >= 7:1)."
`(whitespace-space-before-tab ((,class (:inherit modus-theme-subtle-cyan))))
`(whitespace-tab ((,class (:background ,bg-whitespace :foreground ,fg-whitespace))))
`(whitespace-trailing ((,class (:inherit modus-theme-intense-red))))
;;;; window-divider-mode
`(window-divider ((,class (:foreground ,fg-window-divider-inner))))
`(window-divider-first-pixel ((,class (:foreground ,fg-window-divider-outer))))
`(window-divider-last-pixel ((,class (:foreground ,fg-window-divider-outer))))
;;;; writegood-mode
`(writegood-duplicates-face ((,class (:background ,bg-alt :foreground ,red-alt-other :underline t))))
`(writegood-passive-voice-face ((,class (:background ,bg-alt :foreground ,cyan-alt-other :underline t))))
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment