Use new built-in stumpwm colors

1 files changed, 13 insertions, 32 deletions

diff --git a/.stumpwmrc b/.stumpwmrc
index 5c6ede6..ec3eb9b 100644
--- a/.stumpwmrc
+++ b/.stumpwmrc
@@ -9,25 +9,6 @@
    '("-e" ,(string-downcase (format nil "~S" (cons 'progn body))))
    :wait nil))
 
-;; Naquadah
-(defun colour (key)
-  (let ((colours (list :gray1      #x111111
-                       :gray5      #xc2c2c2
-                       :gray6      #xededed
-                       :blue3      #x152e54
-                       :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)))
-
 (setf *app-menu* '(("Editor" . "emacs")
                    ("Browser" . "conkeror")
                    ("Terminal" . "urxvt")
@@ -170,23 +151,23 @@ Run `*lock-screen-hook*' before locking it and run
    "/usr/bin/i3lock" '("-n" "-c" "000000") :wait nil
    :status-hook #'run-stumpwm-hook-on-exit))
 
-(set-bg-color (colour :dwhite))
-(set-border-color (colour :lwhite))
-(set-fg-color (colour :gray5))
-(set-float-focus-color (colour :lblue))
-(set-float-unfocus-color (colour :dwhite))
-(set-focus-color (colour :lblue))
+(set-bg-color "#111111")
+(set-border-color "#bfbfbf")
+(set-fg-color "#c2c2c2")
+(set-float-focus-color "#6d97bf")
+(set-float-unfocus-color "#222224")
+(set-focus-color "#6d97bf")
 (set-font "-*-tamsyn-medium-r-normal-*-17-*-*-*-*-0-iso8859-1")
-(set-unfocus-color (colour :dwhite))
-(set-win-bg-color (colour :gray1))
+(set-unfocus-color "#222224")
+(set-win-bg-color "#111111")
 
-(setf *colors* (mapcar #'colour '(:lwhite :lred :lgreen :lyellow :lblue
-                                  :lmagenta :lcyan :gray5)))
+(setf *colors* '("#a5a5a4" "#bf6d6d" "#8abf6d" "#b2bf6d"
+                 "#6d97bf" "#b27dbf" "#7dbfbf" "#c2c2c2"))
 (setf *input-window-gravity* :center)
 (setf *message-window-gravity* :top-right)
-(setf *mode-line-background-color* (colour :blue3))
-(setf *mode-line-border-color* (colour :blue3))
-(setf *mode-line-foreground-color* (colour :gray5))
+(setf *mode-line-background-color* "#152e54")
+(setf *mode-line-border-color* "#152e54")
+(setf *mode-line-foreground-color* "#c2c2c2")
 (setf *shell-program* (getenv "SHELL"))
 (setf *transient-border-width* 1)
 (setf *window-border-style* :thin)