ryuslash/legacy-dotfiles
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Stumpwm: Change the colors

Browse source
This commit is contained in:
Tom Willemsen 2013-04-03 01:55:55 +02:00
parent 541dcb98c9
commit 784f238fc1
1 changed files with 25 additions and 44 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

69
.stumpwmrc
View file

@ -15,36 +15,18 @@
;; Naquadah
(defun colour (key)
(let ((colours (list :aluminium-1 #xeeeeec
:aluminium-2 #xd3d7cf
:aluminium-3 #xbabdb6
:aluminium-4 #x888a85
:aluminium-5 #x555753
:aluminium-6 #x2e3436
:butter-1 #xfce94f
:butter-2 #xedd400
:butter-3 #xc4a000
:orange-1 #xfcaf3e
:orange-2 #xf57900
:orange-3 #xce5c00
:chocolate-1 #xe9b96e
:chocolate-2 #xc17d11
:chocolate-3 #x9f5902
:chameleon-1 #x8ae234
:chameleon-2 #x73d216
:chameleon-3 #x4e9a06
:sky-blue-1 #x729fcf
:sky-blue-2 #x3465a4
:sky-blue-3 #x204a87
:plum-1 #xad7fa8
:plum-2 #x75507b
:plum-3 #x5c3566
:scarlet-red-1 #xef2929
:scarlet-red-2 #xcc0000
:scarlet-red-3 #xa40000
:background #x252a2b
:black #x0c191c
:cyan "cyan3")))
(let ((colours (list :lblack #xeeeeec :dblack #x111113
:lwhite #xa5a5a4 :dwhite #x222224
:lred #xbf6d6d :dred #x744a4a
:lorange #xbfa47d :dorange #x73634a
:lyellow #xb2bf6d :dyellow #x6b734a
:lgreen #x8abf6d :dgreen #x52734a
:lturquoise #x7dbf97 :dturquoise #x4a735b
:lcyan #x7dbfbf :dcyan #x4a7373
:lblue #x6d97bf :dblue #x4a5b73
:lpurple #x8a7dbf :dpurple #x524a73
:lmagenta #xb27dbf :dmagenta #x6b4a73
:lpink #xbf6da4 :dpink #x734a63)))
(getf colours key)))
(defvar *conkeror-program* "conkeror"
@ -145,24 +127,23 @@ it and run *screen-unlocked-hook* after it has been unlocked."
(when (eq (sb-ext:process-status p) :exited)
(run-hook *screen-unlocked-hook*)))))
(set-bg-color (colour :background))
(set-border-color (colour :aluminium-6))
(set-fg-color (colour :aluminium-1))
(set-float-focus-color (colour :black))
(set-float-unfocus-color (colour :aluminium-6))
(set-focus-color (colour :black))
(set-bg-color (colour :dwhite))
(set-border-color (colour :lwhite))
(set-fg-color (colour :lblack))
(set-float-focus-color (colour :dblack))
(set-float-unfocus-color (colour :dwhite))
(set-focus-color (colour :dblack))
(set-font "-*-tamsyn-medium-r-normal-*-17-*-*-*-*-0-iso8859-1")
(set-unfocus-color (colour :aluminium-6))
(set-win-bg-color (colour :background))
(set-unfocus-color (colour :dwhite))
(set-win-bg-color (colour :dwhite))
(setf *colors* (mapcar #'colour '(:black :scarlet-red-1 :chameleon-1
:butter-1 :sky-blue-1 :plum-1 :cyan
:aluminium-1)))
(setf *colors* (mapcar #'colour '(:lwhite :lred :lgreen :lyellow :lblue
:lmagenta :lcyan :lblack)))
(setf *input-window-gravity* :bottom-left)
(setf *message-window-gravity* :top-right)
(setf *mode-line-background-color* (colour :background))
(setf *mode-line-border-color* (colour :aluminium-6))
(setf *mode-line-foreground-color* (colour :aluminium-1))
(setf *mode-line-background-color* (colour :dwhite))
(setf *mode-line-border-color* (colour :dwhite))
(setf *mode-line-foreground-color* (colour :lblack))
(setf *shell-program* (getenv "SHELL"))
(setf *transient-border-width* 1)
(setf *window-format* "%m%50t")