x11-wm/stumpwm.stumpwm-contrib
1
0
Fork 0
mirror of https://github.com/stumpwm/stumpwm-contrib.git synced 2026-09-10 07:26:25 -04:00
Code Issues Actions Packages Projects Releases Wiki Activity

Merge pull request #293 from goose121/goose121-patch-1

Browse source 
Make stumptray work with explicit background/foreground colors
This commit is contained in:
David 2024-11-29 10:59:04 -05:00 committed by GitHub
parent 07a9b0b627 638aae7aec
commit 21def0c2af
No known key found for this signature in database
GPG key ID: B5690EEEBB952194
1 changed files with 8 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
modeline/stumptray/stumptray.lisp
View file

@ -103,13 +103,19 @@ The tray is aligned right."
window coordinates.")
;; Colors
(defparameter *tray-win-background* (nth 7 stumpwm:*colors*)
(defun nth-color (n)
(let ((c (nth n stumpwm:*colors*)))
(typecase c
(cons (cadr c))
(t c))))
(defparameter *tray-win-background* (nth-color 7)
"Tray main container window background color.")
(defparameter *tray-viwin-background* stumpwm:*mode-line-background-color*
"Tray visible icons container window color.")
(defparameter *tray-hiwin-background* stumpwm:*mode-line-border-color*
"Tray hidden icons container window color.")
(defparameter *tray-cursor-color* (nth 2 stumpwm:*colors*)
(defparameter *tray-cursor-color* (nth-color 2)
"Tray icon selection cursor color.")
;;; Sorting and hiding