Stumpwm: Change some UI settings
- Change the font used. - Use the `:thin' border style to hide windows behind certain other windows. For example: When using Emacs and conkeror, if conkeror is placed behind emacs and the border is `:tight' I will see a tiny portion of the conkeror window on my screen (due to emacs' size hints). On the other hand if I use `:thick', it will use the border color to fill it up, with `:thin' it uses the unfocus-color.
This commit is contained in:
parent
2979194f54
commit
4dd14f6b18
1 changed files with 2 additions and 4 deletions
|
@ -97,7 +97,7 @@
|
||||||
(set-float-focus-color (colour :black))
|
(set-float-focus-color (colour :black))
|
||||||
(set-float-unfocus-color (colour :aluminium-6))
|
(set-float-unfocus-color (colour :aluminium-6))
|
||||||
(set-focus-color (colour :black))
|
(set-focus-color (colour :black))
|
||||||
(set-font "-*-dejavu sans mono-medium-r-*-*-15-*-*-*-*-*-iso10646-*")
|
(set-font "-*-tamsyn-medium-r-normal-*-17-*-*-*-*-0-iso8859-1")
|
||||||
(set-unfocus-color (colour :aluminium-6))
|
(set-unfocus-color (colour :aluminium-6))
|
||||||
(set-win-bg-color (colour :background))
|
(set-win-bg-color (colour :background))
|
||||||
|
|
||||||
|
@ -105,16 +105,14 @@
|
||||||
:butter-1 :sky-blue-1 :plum-1 :cyan
|
:butter-1 :sky-blue-1 :plum-1 :cyan
|
||||||
:aluminium-1)))
|
:aluminium-1)))
|
||||||
(setf *input-window-gravity* :bottom-left)
|
(setf *input-window-gravity* :bottom-left)
|
||||||
(setf *maxsize-border-width* 1)
|
|
||||||
(setf *message-window-gravity* :top-right)
|
(setf *message-window-gravity* :top-right)
|
||||||
(setf *mode-line-background-color* (colour :background))
|
(setf *mode-line-background-color* (colour :background))
|
||||||
(setf *mode-line-border-color* (colour :aluminium-6))
|
(setf *mode-line-border-color* (colour :aluminium-6))
|
||||||
(setf *mode-line-foreground-color* (colour :aluminium-1))
|
(setf *mode-line-foreground-color* (colour :aluminium-1))
|
||||||
(setf *normal-border-width* 1)
|
|
||||||
(setf *shell-program* (getenv "SHELL"))
|
(setf *shell-program* (getenv "SHELL"))
|
||||||
(setf *transient-border-width* 1)
|
(setf *transient-border-width* 1)
|
||||||
(setf *window-border-style* :tight)
|
|
||||||
(setf *window-format* "%m%50t")
|
(setf *window-format* "%m%50t")
|
||||||
|
(setf *window-boder-style* :thin)
|
||||||
(setf *screen-mode-line-format*
|
(setf *screen-mode-line-format*
|
||||||
(list "[%n]"
|
(list "[%n]"
|
||||||
'(:eval
|
'(:eval
|
||||||
|
|
Loading…
Reference in a new issue