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 ;; Naquadah
(defun colour (key) (defun colour (key)
(let ((colours (list :aluminium-1 #xeeeeec (let ((colours (list :lblack #xeeeeec :dblack #x111113
:aluminium-2 #xd3d7cf :lwhite #xa5a5a4 :dwhite #x222224
:aluminium-3 #xbabdb6 :lred #xbf6d6d :dred #x744a4a
:aluminium-4 #x888a85 :lorange #xbfa47d :dorange #x73634a
:aluminium-5 #x555753 :lyellow #xb2bf6d :dyellow #x6b734a
:aluminium-6 #x2e3436 :lgreen #x8abf6d :dgreen #x52734a
:butter-1 #xfce94f :lturquoise #x7dbf97 :dturquoise #x4a735b
:butter-2 #xedd400 :lcyan #x7dbfbf :dcyan #x4a7373
:butter-3 #xc4a000 :lblue #x6d97bf :dblue #x4a5b73
:orange-1 #xfcaf3e :lpurple #x8a7dbf :dpurple #x524a73
:orange-2 #xf57900 :lmagenta #xb27dbf :dmagenta #x6b4a73
:orange-3 #xce5c00 :lpink #xbf6da4 :dpink #x734a63)))
: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")))
(getf colours key))) (getf colours key)))
(defvar *conkeror-program* "conkeror" (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) (when (eq (sb-ext:process-status p) :exited)
(run-hook *screen-unlocked-hook*))))) (run-hook *screen-unlocked-hook*)))))
(set-bg-color (colour :background)) (set-bg-color (colour :dwhite))
(set-border-color (colour :aluminium-6)) (set-border-color (colour :lwhite))
(set-fg-color (colour :aluminium-1)) (set-fg-color (colour :lblack))
(set-float-focus-color (colour :black)) (set-float-focus-color (colour :dblack))
(set-float-unfocus-color (colour :aluminium-6)) (set-float-unfocus-color (colour :dwhite))
(set-focus-color (colour :black)) (set-focus-color (colour :dblack))
(set-font "-*-tamsyn-medium-r-normal-*-17-*-*-*-*-0-iso8859-1") (set-font "-*-tamsyn-medium-r-normal-*-17-*-*-*-*-0-iso8859-1")
(set-unfocus-color (colour :aluminium-6)) (set-unfocus-color (colour :dwhite))
(set-win-bg-color (colour :background)) (set-win-bg-color (colour :dwhite))
(setf *colors* (mapcar #'colour '(:black :scarlet-red-1 :chameleon-1 (setf *colors* (mapcar #'colour '(:lwhite :lred :lgreen :lyellow :lblue
:butter-1 :sky-blue-1 :plum-1 :cyan :lmagenta :lcyan :lblack)))
:aluminium-1)))
(setf *input-window-gravity* :bottom-left) (setf *input-window-gravity* :bottom-left)
(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 :dwhite))
(setf *mode-line-border-color* (colour :aluminium-6)) (setf *mode-line-border-color* (colour :dwhite))
(setf *mode-line-foreground-color* (colour :aluminium-1)) (setf *mode-line-foreground-color* (colour :lblack))
(setf *shell-program* (getenv "SHELL")) (setf *shell-program* (getenv "SHELL"))
(setf *transient-border-width* 1) (setf *transient-border-width* 1)
(setf *window-format* "%m%50t") (setf *window-format* "%m%50t")