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:
Tom Willemsen 2013-01-18 23:32:42 +01:00
parent 2979194f54
commit 4dd14f6b18

View file

@ -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