Need this, or need to re-byte compile xcb-ewmh.el

2026-02-16 08:14:15 +00:00 · 2019-06-28 11:12:36 -05:00 · 2019-06-28 11:12:36 -05:00 · 6164a8276c
commit 6164a8276c
parent 1df157c4bb
1 changed files with 101 additions and 0 deletions
--- a/test.org
+++ b/test.org
@ -116,4 +116,105 @@
      ("k" my/increase-window-transparency)
      ("r" my/reset-window-transparency)
      ("q" nil))
+
+    (eval-and-compile
+      (defconst xcb:ewmh:-atoms
+        '( ;; Root Window Properties (and Related Messages)
+          _NET_SUPPORTED
+          _NET_CLIENT_LIST
+          _NET_CLIENT_LIST_STACKING
+          _NET_NUMBER_OF_DESKTOPS
+          _NET_DESKTOP_GEOMETRY
+          _NET_DESKTOP_VIEWPORT
+          _NET_CURRENT_DESKTOP
+          _NET_DESKTOP_NAMES
+          _NET_ACTIVE_WINDOW
+          _NET_WORKAREA
+          _NET_SUPPORTING_WM_CHECK
+          _NET_VIRTUAL_ROOTS
+          _NET_DESKTOP_LAYOUT
+          _NET_SHOWING_DESKTOP
+          ;; Other Root Window Messages
+          _NET_CLOSE_WINDOW
+          _NET_MOVERESIZE_WINDOW
+          _NET_WM_MOVERESIZE
+          _NET_RESTACK_WINDOW
+          _NET_REQUEST_FRAME_EXTENTS
+          ;; Application Window Properties
+          _NET_WM_NAME
+          _NET_WM_VISIBLE_NAME
+          _NET_WM_ICON_NAME
+          _NET_WM_VISIBLE_ICON_NAME
+          _NET_WM_DESKTOP
+          _NET_WM_WINDOW_TYPE
+          _NET_WM_STATE
+          _NET_WM_ALLOWED_ACTIONS
+          _NET_WM_STRUT
+          _NET_WM_STRUT_PARTIAL
+          _NET_WM_ICON_GEOMETRY
+          _NET_WM_ICON
+          _NET_WM_PID
+          _NET_WM_HANDLED_ICONS
+          _NET_WM_USER_TIME
+          _NET_WM_USER_TIME_WINDOW
+          _NET_FRAME_EXTENTS
+          _NET_WM_OPAQUE_REGION
+          _NET_WM_BYPASS_COMPOSITOR
+          ;; Window Manager Protocols
+          _NET_WM_PING
+          _NET_WM_SYNC_REQUEST
+          _NET_WM_SYNC_REQUEST_COUNTER
+          _NET_WM_FULLSCREEN_MONITORS
+          ;; Other Properties
+          _NET_WM_FULL_PLACEMENT
+          _NET_WM_CM_S0  ;_NET_WM_CM_Sn (n = 1, 2, ...) are left out here.
+          ;; _NET_WM_WINDOW_TYPE hint
+          _NET_WM_WINDOW_TYPE_DESKTOP
+          _NET_WM_WINDOW_TYPE_DOCK
+          _NET_WM_WINDOW_TYPE_TOOLBAR
+          _NET_WM_WINDOW_TYPE_MENU
+          _NET_WM_WINDOW_TYPE_UTILITY
+          _NET_WM_WINDOW_TYPE_SPLASH
+          _NET_WM_WINDOW_TYPE_DIALOG
+          _NET_WM_WINDOW_TYPE_DROPDOWN_MENU
+          _NET_WM_WINDOW_TYPE_POPUP_MENU
+          _NET_WM_WINDOW_TYPE_TOOLTIP
+          _NET_WM_WINDOW_TYPE_NOTIFICATION
+          _NET_WM_WINDOW_TYPE_COMBO
+          _NET_WM_WINDOW_TYPE_DND
+          _NET_WM_WINDOW_TYPE_NORMAL
+          ;; _NET_WM_STATE hint
+          _NET_WM_STATE_MODAL
+          _NET_WM_STATE_STICKY
+          _NET_WM_STATE_MAXIMIZED_VERT
+          _NET_WM_STATE_MAXIMIZED_HORZ
+          _NET_WM_STATE_SHADED
+          _NET_WM_STATE_SKIP_TASKBAR
+          _NET_WM_STATE_SKIP_PAGER
+          _NET_WM_STATE_HIDDEN
+          _NET_WM_STATE_FULLSCREEN
+          _NET_WM_STATE_ABOVE
+          _NET_WM_STATE_BELOW
+          _NET_WM_STATE_DEMANDS_ATTENTION
+          _NET_WM_STATE_FOCUSED
+          ;; _NET_WM_ACTION hint
+          _NET_WM_ACTION_MOVE
+          _NET_WM_ACTION_RESIZE
+          _NET_WM_ACTION_MINIMIZE
+          _NET_WM_ACTION_SHADE
+          _NET_WM_ACTION_STICK
+          _NET_WM_ACTION_MAXIMIZE_HORZ
+          _NET_WM_ACTION_MAXIMIZE_VERT
+          _NET_WM_ACTION_FULLSCREEN
+          _NET_WM_ACTION_CHANGE_DESKTOP
+          _NET_WM_ACTION_CLOSE
+          _NET_WM_ACTION_ABOVE
+          _NET_WM_ACTION_BELOW
+          _NET_WM_WINDOW_OPACITY)
+        "EWMH atoms.")
+
+      (dolist (atom xcb:ewmh:-atoms)
+        (eval `(defvar ,(intern (concat "xcb:Atom:" (symbol-name atom))) nil))))
+
+    (xcb:ewmh:init exwm--connection t)
  #+end_src