>From 9f570f635ed1e745d93ef17e8733c997b3a38fa7 Mon Sep 17 00:00:00 2001 From: Manuel Giraud Date: Wed, 19 Jan 2011 18:22:56 +0100 Subject: [PATCH 4/6] Focus/unfocus colors already exist. Use them in float-group instead of hardcoded colors. --- floating-group.lisp | 7 +++---- 1 files changed, 3 insertions(+), 4 deletions(-) diff --git a/floating-group.lisp b/floating-group.lisp index e28c5db..d7df9ef 100644 --- a/floating-group.lisp +++ b/floating-group.lisp @@ -55,10 +55,9 @@ (defmethod update-decoration ((window float-window)) (let ((group (window-group window))) (setf (xlib:window-background (window-parent window)) - (xlib:alloc-color (xlib:screen-default-colormap (screen-number (window-screen window))) - (if (eq (group-current-window group) window) - "Orange" - "SteelBlue4"))) + (if (eq (group-current-window group) window) + (screen-focus-color (window-screen window)) + (screen-unfocus-color (window-screen window)))) (xlib:clear-area (window-parent window)))) (defmethod window-sync ((window float-window) hint) -- 1.7.6