From edb930005b0ba83051ca8a59b493e9a3c8ef580a Mon Sep 17 00:00:00 2001
From: Chris Feng <chris.w.feng@gmail.com>
Date: Sun, 14 Jun 2020 00:00:00 +0000
Subject: [PATCH] Fix fullscreen states

* exwm-layout.el (exwm-layout-set-fullscreen,
exwm-layout-unset-fullscreen): Use `exwm--id' for interactive use.
(exwm-layout-unset-fullscreen): Mandatorily clear fullscreen states.
---
 exwm-layout.el | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/exwm-layout.el b/exwm-layout.el
index 170c2be..79d0c95 100644
--- a/exwm-layout.el
+++ b/exwm-layout.el
@@ -205,7 +205,7 @@
                        :border-width 0
                        :stack-mode xcb:StackMode:Above))
     (cl-pushnew xcb:Atom:_NET_WM_STATE_FULLSCREEN exwm--ewmh-state)
-    (exwm-layout--set-ewmh-state id)
+    (exwm-layout--set-ewmh-state exwm--id)
     (xcb:flush exwm--connection)
     (set-window-dedicated-p (get-buffer-window) t)
     (exwm-input--release-keyboard exwm--id)))
@@ -233,7 +233,9 @@
       (let ((window (get-buffer-window nil t)))
         (when window
           (exwm-layout--show exwm--id window))))
-    (exwm-layout--set-ewmh-state id)
+    (setq exwm--ewmh-state
+          (delq xcb:Atom:_NET_WM_STATE_FULLSCREEN exwm--ewmh-state))
+    (exwm-layout--set-ewmh-state exwm--id)
     (xcb:flush exwm--connection)
     (set-window-dedicated-p (get-buffer-window) nil)
     (when (eq 'line-mode exwm--selected-input-mode)
-- 
2.26.2

u/home/services/media.scm?id=998df6e047478c00773a452989bb8a5cec12306d'>diff</a></td><td class='form'><form class='right' method='get' action='/guix/log/gnu/home/services/media.scm'>
<input type='hidden' name='id' value='998df6e047478c00773a452989bb8a5cec12306d'/><select name='qt'>
<option value='grep'>log msg</option>
<option value='author'>author</option>
<option value='committer'>committer</option>
<option value='range'>range</option>
</select>
<input class='txt' type='search' size='10' name='q' value=''/>
<input type='submit' value='search'/>
</form>
</td></tr></table>
<div class='path'>path: <a href='/guix/log/?id=998df6e047478c00773a452989bb8a5cec12306d'>root</a>/<a href='/guix/log/gnu?id=998df6e047478c00773a452989bb8a5cec12306d'>gnu</a>/<a href='/guix/log/gnu/home?id=998df6e047478c00773a452989bb8a5cec12306d'>home</a>/<a href='/guix/log/gnu/home/services?id=998df6e047478c00773a452989bb8a5cec12306d'>services</a>/<a href='/guix/log/gnu/home/services/media.scm?id=998df6e047478c00773a452989bb8a5cec12306d'>media.scm</a></div><div class='content'><table class='list nowrap'><tr class='nohover'><th class='left'>Age</th><th class='left'>Commit message (<a href='/guix/log/gnu/home/services/media.scm?id=998df6e047478c00773a452989bb8a5cec12306d&amp;showmsg=1'>Expand</a>)</th><th class='left'>Author</th></tr>
<tr><td><span title='2023-03-16 23:03:17 +0100'>2023-03-16</span></td><td><a href='/guix/commit/gnu/home/services/media.scm?id=8f219e658d8d2d89a2d6ec10729099130791a3a2'>home: services: kodi, znc, ssh-agent: Use 'match-record'.</a><span class='msg-avail'>...<span class='msg-tooltip'>* gnu/home/services/media.scm (home-kodi-services): Use 'match-record'
instead of 'match'.
* gnu/home/services/messaging.scm (home-znc-services): Likewise.
* gnu/home/services/ssh.scm (home-ssh-agent-services): Likewise.
</span></span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2023-03-16 17:23:51 +0100'>2023-03-16</span></td><td><a href='/guix/commit/gnu/home/services/media.scm?id=6afd1fd6bccf3093c6e7b29ed816ee0d5a10c537'>home: services: kodi: Remove host-side use of (shepherd support).</a><span class='msg-avail'>...<span class='msg-tooltip'>This is a followup to 70056b1b2beebbc9f8ea2c34eacc57f379368ab3, which
inadvertently pulled in (shepherd support) on the host side.

* gnu/home/services/media.scm (home-kodi-services): Change 'command' and
'logfile' to gexps.  Add 'modules' field to 'shepherd-service'.
</span></span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2023-03-16 14:33:16 +0100'>2023-03-16</span></td><td><a href='/guix/commit/gnu/home/services/media.scm?id=70056b1b2beebbc9f8ea2c34eacc57f379368ab3'>gnu: home: services: Add home-kodi-service-type.</a><span class='msg-avail'>...<span class='msg-tooltip'>* gnu/home/services/media.scm: New file.
* gnu/local.mk (GNU_SYSTEM_MODULES): Add it.
* po/guix/POTFILES.in: Likewise.
* doc/guix.texi (Media Home Services): Document it in new subsection.
</span></span></td><td>Jan (janneke) Nieuwenhuizen</td></tr>