ian/dotfiles
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Compositing, transparency

Browse source
This commit is contained in:
Ian Keane 2026-08-09 15:28:47 -04:00
parent a1dd786801
commit f70c35af6d
2 changed files with 96 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

94
config/stumpwm/config.lisp
View file

@ -238,6 +238,21 @@ If PERSISTENT is t, smart-kill will hide the window instead of killing it."
(height (nth 5 rule)))
(stumpwm::float-window-move-resize win :x x :y y :width width :height height))))))
;; StumpWM keeps non-focused windows within the same frame mapped (stacked
;; behind the current one) rather than unmapping them like most tiling WMs.
;; This causes other windows to bleed through when transparency is used.
;; This hook hides all frame siblings when focus changes so only the
;; focused window and the wallpaper are visible through any transparency.
(add-hook *focus-window-hook*
(lambda (new old)
(declare (ignore old))
(when new
(let* ((group (window-group new))
(frame (window-frame new))
(siblings (remove new (frame-windows group frame))))
(mapc #'hide-window siblings)
(unhide-window new)))))
(defun spawn-or-focus (class command)
"Unhide or focus existing window with CLASS, or spawn COMMAND if none exists."
(let ((win (find-if (lambda (w) (string= (window-class w) class))
@ -272,8 +287,85 @@ If PERSISTENT is t, smart-kill will hide the window instead of killing it."
"Open ncmpcpp in a persistent floating wezterm window."
(spawn-or-focus "ncmpcpp-scratch" "wezterm start --class ncmpcpp-scratch -- ncmpcpp"))
;;; Config keymap
(defvar *config-map* (make-sparse-keymap))
;;; Appearance sub-map (s-W t / s-W T)
(defvar *appearance-map* (make-sparse-keymap))
(defvar *appearance-all-map* (make-sparse-keymap))
;; Global opacity — stored so new windows can inherit it via *new-window-hook*
(defvar *global-opacity* nil)
;; Per-window opacity via picom-trans -c (current focused window)
(defmacro make-opacity-command (name opacity)
`(defcommand ,name () ()
,(format nil "Set current window opacity to ~a%." opacity)
(run-shell-command (format nil "picom-trans -c ~a" ,opacity))))
;; Global opacity — sets all existing windows and stores value for new ones
(defmacro make-global-opacity-command (name opacity)
`(defcommand ,name () ()
,(format nil "Set ALL windows opacity to ~a%." opacity)
(setf *global-opacity* ,opacity)
(dolist (w (screen-windows (current-screen)))
(run-shell-command
(format nil "picom-trans -w ~a ~a"
(xlib:window-id (window-xwin w)) ,opacity)))))
;; Apply global opacity to new windows as they appear
(add-hook *new-window-hook*
(lambda (win)
(when *global-opacity*
(run-shell-command
(format nil "picom-trans -w ~a ~a"
(xlib:window-id (window-xwin win)) *global-opacity*)))))
(make-opacity-command opacity-10 10)
(make-opacity-command opacity-20 20)
(make-opacity-command opacity-30 30)
(make-opacity-command opacity-40 40)
(make-opacity-command opacity-50 50)
(make-opacity-command opacity-60 60)
(make-opacity-command opacity-70 70)
(make-opacity-command opacity-80 80)
(make-opacity-command opacity-90 90)
(make-opacity-command opacity-100 100)
(make-global-opacity-command global-opacity-10 10)
(make-global-opacity-command global-opacity-20 20)
(make-global-opacity-command global-opacity-30 30)
(make-global-opacity-command global-opacity-40 40)
(make-global-opacity-command global-opacity-50 50)
(make-global-opacity-command global-opacity-60 60)
(make-global-opacity-command global-opacity-70 70)
(make-global-opacity-command global-opacity-80 80)
(make-global-opacity-command global-opacity-90 90)
(make-global-opacity-command global-opacity-100 100)
(define-key *appearance-map* (kbd "1") "opacity-10")
(define-key *appearance-map* (kbd "2") "opacity-20")
(define-key *appearance-map* (kbd "3") "opacity-30")
(define-key *appearance-map* (kbd "4") "opacity-40")
(define-key *appearance-map* (kbd "5") "opacity-50")
(define-key *appearance-map* (kbd "6") "opacity-60")
(define-key *appearance-map* (kbd "7") "opacity-70")
(define-key *appearance-map* (kbd "8") "opacity-80")
(define-key *appearance-map* (kbd "9") "opacity-90")
(define-key *appearance-map* (kbd "0") "opacity-100")
(define-key *appearance-all-map* (kbd "1") "global-opacity-10")
(define-key *appearance-all-map* (kbd "2") "global-opacity-20")
(define-key *appearance-all-map* (kbd "3") "global-opacity-30")
(define-key *appearance-all-map* (kbd "4") "global-opacity-40")
(define-key *appearance-all-map* (kbd "5") "global-opacity-50")
(define-key *appearance-all-map* (kbd "6") "global-opacity-60")
(define-key *appearance-all-map* (kbd "7") "global-opacity-70")
(define-key *appearance-all-map* (kbd "8") "global-opacity-80")
(define-key *appearance-all-map* (kbd "9") "global-opacity-90")
(define-key *appearance-all-map* (kbd "0") "global-opacity-100")
(define-key *config-map* (kbd "a") "alsamixer-float")
(define-key *window-map* (kbd "t") *appearance-map*)
(define-key *window-map* (kbd "T") *appearance-all-map*)
(defvar *brightness-map* (make-sparse-keymap))
(define-key *brightness-map* (kbd "1") "brightness-10")
(define-key *brightness-map* (kbd "2") "brightness-20")