[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[STUMP] [PATCH] fix xinerama
From: |
matthias.hinkfoth2 |
Subject: |
[STUMP] [PATCH] fix xinerama |
Date: |
Mon, 29 May 2017 12:30:24 +0200 |
User-agent: |
Mutt/1.5.23 (2014-03-12) |
Hi list,
the latest changes in git broke stumpwm for me.
I use a dual-head setup.
The last known good version is cc5ba9e.
The following patch, applied to b740b04 fixed the issue.
Regards,
Matthias
---
head.lisp | 14 +++++++-------
1 file changed, 7 insertions(+), 7 deletions(-)
diff --git a/head.lisp b/head.lisp
index 0dab8dd..12b7316 100644
--- a/head.lisp
+++ b/head.lisp
@@ -31,19 +31,19 @@
(defun screen-info-head (screen-info)
"Transform SCREEN-INFO structure from CLX to a HEAD structure from StumpWM."
- (make-head :number (xlib/xinerama:screen-info-number screen-info)
- :x (xlib/xinerama:screen-info-x screen-info)
- :y (xlib/xinerama:screen-info-y screen-info)
- :width (xlib/xinerama:screen-info-width screen-info)
- :height (xlib/xinerama:screen-info-height screen-info)
+ (make-head :number (xlib.xinerama:screen-info-number screen-info)
+ :x (xlib.xinerama:screen-info-x screen-info)
+ :y (xlib.xinerama:screen-info-y screen-info)
+ :width (xlib.xinerama:screen-info-width screen-info)
+ :height (xlib.xinerama:screen-info-height screen-info)
:window nil))
(defun make-screen-heads (screen root)
(declare (ignore screen))
(cond ((and (xlib:query-extension *display* "XINERAMA")
- (xlib/xinerama:xinerama-is-active *display*))
+ (xlib.xinerama:xinerama-is-active *display*))
(mapcar 'screen-info-head
- (xlib/xinerama:xinerama-query-screens *display*)))
+ (xlib.xinerama:xinerama-query-screens *display*)))
(t (list (make-head :number 0 :x 0 :y 0
:width (xlib:drawable-width root)
:height (xlib:drawable-height root)
--
2.1.4
- [STUMP] [PATCH] fix xinerama,
matthias.hinkfoth2 <=