[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/exwm 576a676 62/64: Fix with-slots
From: |
Chris Feng |
Subject: |
[elpa] externals/exwm 576a676 62/64: Fix with-slots |
Date: |
Thu, 17 Sep 2015 23:18:13 +0000 |
branch: externals/exwm
commit 576a676f1f0895bd473d54c2713ee9e2423023e6
Author: Chris Feng <address@hidden>
Commit: Chris Feng <address@hidden>
Fix with-slots
* exwm-randr.el (exwm-randr--refresh): Could not set the name slot in
xcb:randr:GetOutputInfo~reply, turn to another variable.
---
exwm-randr.el | 8 ++++----
1 files changed, 4 insertions(+), 4 deletions(-)
diff --git a/exwm-randr.el b/exwm-randr.el
index d14e097..fc8477d 100644
--- a/exwm-randr.el
+++ b/exwm-randr.el
@@ -48,7 +48,7 @@
(defun exwm-randr--refresh ()
"Refresh workspaces according to the updated RandR info."
- (let (geometry output-plist default-geometry workareas viewports)
+ (let (output-name geometry output-plist default-geometry workareas viewports)
;; Query all outputs
(with-slots (config-timestamp outputs)
(xcb:+request-unchecked+reply exwm--connection
@@ -60,11 +60,11 @@
(make-instance 'xcb:randr:GetOutputInfo
:output output
:config-timestamp config-timestamp))
- (setq name ;UTF-8 encoded
+ (setf output-name ;UTF-8 encoded
(decode-coding-string (apply #'unibyte-string name) 'utf-8))
(if (or (/= connection xcb:randr:Connection:Connected)
(= 0 crtc)) ;FIXME
- (plist-put output-plist name nil)
+ (plist-put output-plist output-name nil)
(with-slots (x y width height)
(xcb:+request-unchecked+reply exwm--connection
(make-instance 'xcb:randr:GetCrtcInfo
@@ -73,7 +73,7 @@
(setq geometry (make-instance 'xcb:RECTANGLE
:x x :y y
:width width :height height)
- output-plist (plist-put output-plist name geometry))
+ output-plist (plist-put output-plist output-name geometry))
(unless default-geometry ;assume the first output as primary
(setq default-geometry geometry)))))))
(cl-assert (<= 2 (length output-plist)))
- [elpa] externals/exwm f1d37b9 53/64: Ungrab pointer timely when resizing is aborted, (continued)
- [elpa] externals/exwm f1d37b9 53/64: Ungrab pointer timely when resizing is aborted, Chris Feng, 2015/09/17
- [elpa] externals/exwm 76f4849 50/64: Drop intro to xelb-util, Chris Feng, 2015/09/17
- [elpa] externals/exwm 9eee94e 52/64: Merge pull request #52 from pipcet/minor-fix, Chris Feng, 2015/09/17
- [elpa] externals/exwm 637ac15 55/64: Code cleanups, Chris Feng, 2015/09/17
- [elpa] externals/exwm b50a6e6 45/64: Correct several EWMH properties, Chris Feng, 2015/09/17
- [elpa] externals/exwm 5373c1d 57/64: Add support for xcb:Atom:_NET_CLIENT_LIST_STACKING etc, Chris Feng, 2015/09/17
- [elpa] externals/exwm eafd031 56/64: Allow hide/show mode-line on floating frames, Chris Feng, 2015/09/17
- [elpa] externals/exwm 1d43515 59/64: Allow switch to normal buffers in exwm-workspace-switch-to-window, Chris Feng, 2015/09/17
- [elpa] externals/exwm 3f2f844 58/64: Add a command to interactively move X window to the current workspace, Chris Feng, 2015/09/17
- [elpa] externals/exwm cfbd9a5 61/64: Minor fix for window move, Chris Feng, 2015/09/17
- [elpa] externals/exwm 576a676 62/64: Fix with-slots,
Chris Feng <=
- [elpa] externals/exwm dbcabe7 60/64: Implement move/resize with keyboard, Chris Feng, 2015/09/17
- [elpa] externals/exwm 10a7fe8 01/64: First commit, Chris Feng, 2015/09/17
- [elpa] externals/exwm 4255f07 64/64: On-demand update exwm-workspace--switch-history, Chris Feng, 2015/09/17
- [elpa] externals/exwm 6d63c71 54/64: Prepare for GNU ELPA release, Chris Feng, 2015/09/17
- [elpa] externals/exwm b458d5a 63/64: Allow showing buffers on other workspaces and moving an X window by switching, Chris Feng, 2015/09/17