diff options
Diffstat (limited to 'oni/home/services/stumpwm/config')
-rw-r--r-- | oni/home/services/stumpwm/config | 20 |
1 files changed, 20 insertions, 0 deletions
diff --git a/oni/home/services/stumpwm/config b/oni/home/services/stumpwm/config index 1939a50..c566cf2 100644 --- a/oni/home/services/stumpwm/config +++ b/oni/home/services/stumpwm/config @@ -93,6 +93,26 @@ after it has been unlocked." "^*5^B[VPN]^b^n " "")) "%d ")) + +;;; Redefinition of the make mode-line window to add the Dock window type. +(defun stumpwm::make-mode-line-window (screen) + "Create a window suitable for a modeline." + (let ((window (xlib:create-window + :parent (screen-root screen) + :x 0 :y 0 :width 1 :height 1 + :background (stumpwm::alloc-color screen *mode-line-background-color*) + :border (stumpwm::alloc-color screen *mode-line-border-color*) + :border-width *mode-line-border-width* + ;; You can click the modeline + :event-mask (xlib:make-event-mask :button-press :exposure) + ;; these windows are not controlled by the window manager + :override-redirect :on))) + (xlib:change-property + window :_NET_WM_WINDOW_TYPE + (list (xlib:find-atom *display* :_NET_WM_WINDOW_TYPE_DOCK)) + :atom 32) + window)) + (mode-line) ;;; Screenshots |