First commit

1 files changed, 706 insertions, 0 deletions

diff --git a/exwm.el b/exwm.el
new file mode 100644
index 0000000000..49c4380405
--- /dev/null
+++ b/exwm.el
@@ -0,0 +1,706 @@
+;;; exwm.el --- Emacs X Window Manager  -*- lexical-binding: t -*-
+
+;; Copyright (C) 2015 Chris Feng
+
+;; Author: Chris Feng <chris.w.feng@gmail.com>
+;; Keywords: unix
+
+;; This file is not part of GNU Emacs.
+
+;; This file is free software: you can redistribute it and/or modify
+;; it under the terms of the GNU General Public License as published by
+;; the Free Software Foundation, either version 3 of the License, or
+;; (at your option) any later version.
+
+;; This file is distributed in the hope that it will be useful,
+;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+;; GNU General Public License for more details.
+
+;; You should have received a copy of the GNU General Public License
+;; along with this file.  If not, see <http://www.gnu.org/licenses/>.
+
+;;; Commentary:
+
+;; Overview
+;; --------
+;; EXWM (Emacs X Window Manager) turns Emacs into a full-featured tiling X
+;; window manager. It's built on top of XELB, thus purely consists of Elisp
+;; codes. Some features include:
+;; + It's fully keyboard-driven.
+;;   - You have full access to all key bindings in Emacs.
+;;   - It allows you to bind additional key sequences with `exwm-input-set-key'
+;;     (just like `global-set-key').
+;;   - It supports simulation keys (i.e., map one key sequence to another).
+;; + Workspace support.
+;;   - EXWM support up to 10 workspaces.
+;; + ICCCM/EWMH compliance.
+;;   - Note that the support for EWMH can never be complete since EXWM is not a
+;;     conventional window manager.
+
+;; How it works
+;; ------------
+;; Emacs itself is an tiling window manager, though unfortunately not for
+;; managing X things. EXWM is therefore created to overcome this limitation by
+;; relating X concepts to Emacs ones as shown in the following table.
+;;
+;; +=============+=========+
+;; | X Window    | Emacs   |
+;; +=============+=========+
+;; | window      | buffer  |
+;; +-------------+---------+
+;; | container*  | window  |
+;; +-------------+---------+
+;; | workspace / | frame** |
+;; | decoration  |         |
+;; +=============+=========+
+;; *  Here a container means the parent of an X client window created by window
+;;    manager for layout management.
+;; ** In EXWM, A frame usually acts as a workspace. But for a floating window,
+;;    it's the decoration around the top-level window.
+;;
+;; Each X client window corresponds to a dedicated buffer in EXWM mode. When
+;; such a buffer is buried or unburied, the attached X client window is hide or
+;; shown accordingly. The position and size of the X client window is then
+;; determined by the Emacs window its corresponding buffer displayed in.
+;;
+;; A buffer in EXWM mode also records which workspace it belongs to, and its
+;; attached X client window is made a child (in the sense of X) of the
+;; workspace frame. The switch between workspaces is simply done by switching
+;; corresponding Emacs frames.
+
+;; Installation & configuration
+;; ----------------------------
+;; Here are the minimal steps to get EXWM working:
+;; 0. Install xelb and xelb-util first.
+;; 1. Put EXWM somewhere on your disk and make sure it's in `load-path'.
+;; 2. In your Emacs init file, add following lines (modify accordingly):
+;;
+;;    (require 'exwm)
+;;    ;; We always need a way to go back from char-mode to line-mode
+;;    (exwm-input-set-key (kbd "s-r") 'exwm-reset)
+;;    ;; Bind a key to switch workspace interactively
+;;    (exwm-input-set-key (kbd "s-w") 'exwm-workspace-switch)
+;;    ;; Use class name to name an EXWM buffer
+;;    (add-hook 'exwm-update-class-hook
+;;              (lambda () (rename-buffer exwm-class-name t)))
+;;    ;; Enable EXWM
+;;    (exwm-enable)
+;;
+;; 3. Make a file '~/.xinitrc' with the content
+;;
+;;    exec emacs
+;;
+;; 4. Launch EXWM in a console with
+;;
+;;    xinit
+;;
+;; You should refer to other resources on how to further configure '~/.xinitrc'
+;; and other init scripts to improve the working experience. Besides, you
+;; should hide the menu-bar, tool-bar, etc to increase the usable space.
+
+;; Interactive modes
+;; -----------------
+;; There are two modes in EXWM to interact with an X client window: line mode
+;; and char mode. They are analogous to those concepts in `ansi-term'. EXWM
+;; buffers are created in line mode by default.
+;;
+;; In line mode, all key events are intercepted and then forwarded to the X
+;; client window except
+;; + it forms a mode-specific key sequence (which begins with 'C-c'), or
+;; + it forms a key sequence bound with `exwm-input-set-key', or
+;; + it forms a key sequence starting with a line mode prefix key, or
+;; + it forms a key sequence in line mode simulation keys.
+;; You can use 'C-c q' (bound to `exwm-input-send-next-key', can be 'C-u'
+;; prefixed) to send these keys to the client.
+;;
+;; In char mode however, no key event is intercepted except those bound with
+;; `exwm-input-set-key'. Therefore you will almost always need to
+;; 'exwm-input-set-key' a key sequence to go from char mode to line mode.
+
+;; Related projects
+;; ----------------
+;; EXWM is not the first attempt to make Emacs an X window manger; there is
+;; another ancient project called XWEM (http://www.nongnu.org/xwem/) for
+;; XEmacs, though it seems nobody have ever got it working on GNU Emacs.
+
+;; Todo:
+;; + Add RandR support.
+;; + Investigate DnD support (e.g. drag a chromium tab to another window).
+;; + Auto hide minibuffer, or allow users to place it elsewhere.
+;; + Add system tray support.
+
+;; References:
+;; + dwm (http://dwm.suckless.org/)
+;; + i3 wm (https://i3wm.org/)
+;; + Also see references within each required library.
+
+;;; Code:
+
+(require 'xcb)
+(require 'xcb-icccm)
+(require 'xcb-ewmh)
+(require 'exwm-workspace)
+(require 'exwm-layout)
+(require 'exwm-floating)
+(require 'exwm-manage)
+(require 'exwm-input)
+
+(defvar exwm-debug-on nil "Non-nil to turn on debug for EXWM.")
+
+(defmacro exwm--log (format-string &rest args)
+  "Print debug message."
+  (when exwm-debug-on
+    `(message (concat "[EXWM] " ,format-string) ,@args)))
+
+(defconst exwm--client-event-mask
+  (logior xcb:EventMask:StructureNotify xcb:EventMask:PropertyChange)
+  "Event mask set on all managed windows.")
+
+(defvar exwm--connection nil "X connection.")
+(defvar exwm--root nil "Root window.")
+(defvar exwm--id-buffer-alist nil "Alist of (<X window ID> . <Emacs buffer>)")
+
+(defsubst exwm--id->buffer (id)
+  "X window ID => Emacs buffer."
+  (cdr (assoc id exwm--id-buffer-alist)))
+
+(defsubst exwm--buffer->id (buffer)
+  "Emacs buffer => X window ID."
+  (car (rassoc buffer exwm--id-buffer-alist)))
+
+(defun exwm--lock (&rest args)          ;args are for abnormal hook
+  "Lock (disable all events)."
+  (xcb:+request exwm--connection
+      (make-instance 'xcb:ChangeWindowAttributes
+                     :window exwm--root
+                     :value-mask xcb:CW:EventMask
+                     :event-mask xcb:EventMask:NoEvent))
+  (xcb:flush exwm--connection))
+
+(defun exwm--unlock (&rest args)        ;args are for abnormal hook
+  "Unlock (enable all events)."
+  (xcb:+request exwm--connection
+      (make-instance 'xcb:ChangeWindowAttributes
+                     :window exwm--root
+                     :value-mask xcb:CW:EventMask
+                     :event-mask (logior xcb:EventMask:StructureNotify
+                                         xcb:EventMask:SubstructureRedirect)))
+  (xcb:flush exwm--connection))
+
+(defun exwm-reset ()
+  "Reset window to standard state: non-fullscreen, line-mode."
+  (interactive)
+  (with-current-buffer (window-buffer (selected-window))
+    (when exwm--fullscreen (exwm-layout-unset-fullscreen))
+    (exwm-input-grab-keyboard)))
+
+(defmacro exwm--with-current-id (id &rest body)
+  "Evaluate BODY in the context of the buffer corresponding to window ID."
+  (declare (indent 1))
+  `(when ,id
+     (let ((buffer (exwm--id->buffer ,id)))
+       (when buffer
+         (with-current-buffer buffer ,@body)))))
+
+(defun exwm--update-window-type (id &optional force)
+  "Update _NET_WM_WINDOW_TYPE."
+  (exwm--with-current-id id
+    (unless (and exwm-window-type (not force))
+      (let ((reply (xcb:+request-unchecked+reply exwm--connection
+                       (make-instance 'xcb:ewmh:get-_NET_WM_WINDOW_TYPE
+                                      :window id))))
+        (when reply                     ;nil when destroyed
+          (setq exwm-window-type (append (slot-value reply 'value) nil)))))))
+
+(defvar exwm-update-class-hook nil
+  "Normal hook run when window class is updated.")
+
+(defun exwm--update-class (id &optional force)
+  "Update WM_CLASS."
+  (exwm--with-current-id id
+    (unless (and exwm-instance-name exwm-class-name (not force))
+      (let ((reply (xcb:+request-unchecked+reply exwm--connection
+                       (make-instance 'xcb:icccm:get-WM_CLASS :window id))))
+        (when reply                     ;nil when destroyed
+          (setq exwm-instance-name (slot-value reply 'instance-name)
+                exwm-class-name (slot-value reply 'class-name))
+          (when (and exwm-instance-name exwm-class-name)
+            (run-hooks 'exwm-update-class-hook)))))))
+
+(defvar exwm-update-title-hook nil
+  "Normal hook run when window title is updated.")
+
+(defun exwm--update-utf8-title (id &optional force)
+  "Update _NET_WM_NAME."
+  (exwm--with-current-id id
+    (when (or force (not exwm-title))
+      (let ((reply (xcb:+request-unchecked+reply exwm--connection
+                       (make-instance 'xcb:ewmh:get-_NET_WM_NAME :window id))))
+        (when reply                     ;nil when destroyed
+          (setq exwm-title (slot-value reply 'value))
+          (when exwm-title
+            (setq exwm--title-is-utf8 t)
+            (run-hooks 'exwm-update-title-hook)))))))
+
+(defun exwm--update-ctext-title (id &optional force)
+  "Update WM_NAME."
+  (exwm--with-current-id id
+    (unless (or exwm--title-is-utf8
+                (and exwm-title (not force)))
+      (let ((reply (xcb:+request-unchecked+reply exwm--connection
+                       (make-instance 'xcb:icccm:get-WM_NAME :window id))))
+        (when reply                     ;nil when destroyed
+          (setq exwm-title (slot-value reply 'value))
+          (when exwm-title
+            (run-hooks 'exwm-update-title-hook)))))))
+
+(defun exwm--update-title (id)
+  "Update _NET_WM_NAME or WM_NAME."
+  (exwm--update-utf8-title id)
+  (exwm--update-ctext-title id))
+
+(defun exwm--update-transient-for (id &optional force)
+  "Update WM_TRANSIENT_FOR."
+  (exwm--with-current-id id
+    (unless (and exwm-transient-for (not force))
+      (let ((reply (xcb:+request-unchecked+reply exwm--connection
+                       (make-instance 'xcb:icccm:get-WM_TRANSIENT_FOR
+                                      :window id))))
+        (when reply                     ;nil when destroyed
+          (setq exwm-transient-for (slot-value reply 'value)))))))
+
+(defun exwm--update-normal-hints (id &optional force)
+  "Update WM_NORMAL_HINTS."
+  (exwm--with-current-id id
+    (unless (and (not force)
+                 (or exwm--normal-hints-x exwm--normal-hints-y
+                     exwm--normal-hints-width exwm--normal-hints-height
+                     exwm--normal-hints-min-width exwm--normal-hints-min-height
+                     exwm--normal-hints-max-width exwm--normal-hints-max-height
+                     ;; FIXME: other fields
+                     ))
+      (let ((reply (xcb:+request-unchecked+reply exwm--connection
+                       (make-instance 'xcb:icccm:get-WM_NORMAL_HINTS
+                                      :window id))))
+        (when (and reply (slot-value reply 'flags)) ;nil when destroyed
+          (with-slots (flags x y width height min-width min-height max-width
+                             max-height base-width base-height ;; win-gravity
+                             )
+              reply
+            (unless (= 0 (logand flags xcb:icccm:WM_SIZE_HINTS:USPosition))
+              (setq exwm--normal-hints-x x exwm--normal-hints-y y))
+            (unless (= 0 (logand flags xcb:icccm:WM_SIZE_HINTS:USSize))
+              (setq exwm--normal-hints-width width
+                    exwm--normal-hints-height height))
+            (unless (= 0 (logand flags xcb:icccm:WM_SIZE_HINTS:PMinSize))
+              (setq exwm--normal-hints-min-width min-width
+                    exwm--normal-hints-min-height min-height))
+            (unless (= 0 (logand flags xcb:icccm:WM_SIZE_HINTS:PMaxSize))
+              (setq exwm--normal-hints-max-width max-width
+                    exwm--normal-hints-max-height max-height))
+            (unless (or exwm--normal-hints-min-width
+                        (= 0 (logand flags xcb:icccm:WM_SIZE_HINTS:PBaseSize)))
+              (setq exwm--normal-hints-min-width base-width
+                    exwm--normal-hints-min-height base-height))
+            ;; (unless (= 0 (logand flags xcb:icccm:WM_SIZE_HINTS:PWinGravity))
+            ;;   (setq exwm--normal-hints-win-gravity win-gravity))
+            (setq exwm--fixed-size
+                  (and exwm--normal-hints-min-width
+                       exwm--normal-hints-min-height
+                       exwm--normal-hints-max-width
+                       exwm--normal-hints-max-height
+                       (/= 0 exwm--normal-hints-min-width)
+                       (/= 0 exwm--normal-hints-min-height)
+                       (= exwm--normal-hints-min-width
+                          exwm--normal-hints-max-width)
+                       (= exwm--normal-hints-min-height
+                          exwm--normal-hints-max-height)))))))))
+
+(defun exwm--update-hints (id &optional force)
+  "Update WM_HINTS."
+  (exwm--with-current-id id
+    (unless (and (not force) exwm--hints-input exwm--hints-urgency)
+      (let ((reply (xcb:+request-unchecked+reply exwm--connection
+                       (make-instance 'xcb:icccm:get-WM_HINTS :window id))))
+        (when (and reply (slot-value reply 'flags)) ;nil when destroyed
+          (with-slots (flags input) reply
+            (when flags
+              (unless (= 0 (logand flags xcb:icccm:WM_HINTS:InputHint))
+                (setq exwm--hints-input (when input (= 1 input))))
+              (unless (= 0 (logand flags xcb:icccm:WM_HINTS:UrgencyHint))
+                (setq exwm--hints-urgency t))))
+          (when (and exwm--hints-urgency
+                     (not (eq exwm--frame exwm-workspace--current)))
+            (unless (frame-parameter exwm--frame 'exwm--urgency)
+              (set-frame-parameter exwm--frame 'exwm--urgency t)
+              (exwm-workspace--update-switch-history))))))))
+
+(defun exwm--update-protocols (id &optional force)
+  "Update WM_PROTOCOLS."
+  (exwm--with-current-id id
+    (unless (and exwm--protocols (not force))
+      (let ((reply (xcb:+request-unchecked+reply exwm--connection
+                       (make-instance 'xcb:icccm:get-WM_PROTOCOLS
+                                      :window id))))
+        (when reply                     ;nil when destroyed
+          (setq exwm--protocols (append (slot-value reply 'value) nil)))))))
+
+(defun exwm--update-state (id &optional force)
+  "Update WM_STATE."
+  (exwm--with-current-id id
+    (unless (and exwm-state (not force))
+      (let ((reply (xcb:+request-unchecked+reply exwm--connection
+                       (make-instance 'xcb:icccm:get-WM_STATE :window id))))
+        (when reply                     ;nil when destroyed
+          (setq exwm-state (or (slot-value reply 'state)
+                               ;; Default to normal state
+                               xcb:icccm:WM_STATE:NormalState)))))))
+
+(defun exwm--on-PropertyNotify (data synthetic)
+  "Handle PropertyNotify event."
+  (let ((obj (make-instance 'xcb:PropertyNotify))
+        atom window state
+        buffer)
+    (xcb:unmarshal obj data)
+    (setq id (slot-value obj 'window)
+          atom (slot-value obj 'atom)
+          exwm-input--timestamp (slot-value obj 'time)
+          state (slot-value obj 'state))
+    (setq buffer (exwm--id->buffer id))
+    (when (buffer-live-p buffer)
+      (with-current-buffer buffer
+        (cond ((= atom xcb:Atom:_NET_WM_WINDOW_TYPE)
+               (exwm--update-window-type id t))
+              ((= atom xcb:Atom:WM_CLASS)
+               (exwm--update-class id t))
+              ((= atom xcb:Atom:_NET_WM_NAME)
+               (exwm--update-utf8-title id t))
+              ((= atom xcb:Atom:WM_NAME)
+               (exwm--update-ctext-title id t))
+              ((= atom xcb:Atom:WM_TRANSIENT_FOR)
+               (exwm--update-transient-for id t))
+              ((= atom xcb:Atom:WM_NORMAL_HINTS)
+               (exwm--update-normal-hints id t))
+              ((= atom xcb:Atom:WM_HINTS)
+               (exwm--update-hints id t))
+              ((= atom xcb:Atom:WM_PROTOCOLS)
+               (exwm--update-protocols id t))
+              ((= atom xcb:Atom:WM_STATE)
+               (exwm--update-state id t))
+              (t (exwm--log "Unhandled PropertyNotify: %s(%d)"
+                            (x-get-atom-name atom) atom)))))))
+
+(defun exwm--on-ClientMessage (raw-data synthetic)
+  "Handle ClientMessage event."
+  (let ((obj (make-instance 'xcb:ClientMessage))
+        type id data)
+    (xcb:unmarshal obj raw-data)
+    (setq type (slot-value obj 'type)
+          id (slot-value obj 'window)
+          data (slot-value (slot-value obj 'data) 'data32))
+    (cond
+     ;; _NET_WM_MOVERESIZE
+     ((= type xcb:Atom:_NET_WM_MOVERESIZE)
+      (let ((direction (elt data 2))
+            (buffer (exwm--id->buffer id)))
+        (unless (and buffer (with-current-buffer buffer
+                              (not exwm--floating-frame)))
+          (cond ((= direction
+                    xcb:ewmh:_NET_WM_MOVERESIZE_SIZE_KEYBOARD)
+                 ;; FIXME
+                 )
+                ((= direction
+                    xcb:ewmh:_NET_WM_MOVERESIZE_MOVE_KEYBOARD)
+                 ;; FIXME
+                 )
+                ((= direction xcb:ewmh:_NET_WM_MOVERESIZE_CANCEL)
+                 (exwm-floating--stop-moveresize))
+                (t (exwm-floating--start-moveresize id direction))))))
+     ;; _NET_REQUEST_FRAME_EXTENTS
+     ((= type xcb:Atom:_NET_REQUEST_FRAME_EXTENTS)
+      (let ((buffer (exwm--id->buffer id))
+            left right top bottom)
+        (if (or (not buffer)
+                (with-current-buffer buffer
+                  (not exwm--floating-frame)))
+            (setq left 0 right 0 top 0 bottom 0)
+          (setq left exwm-floating-border-width
+                right exwm-floating-border-width
+                top (+ exwm-floating-border-width (window-header-line-height))
+                bottom (+ exwm-floating-border-width
+                          (window-mode-line-height))))
+        (xcb:+request exwm--connection
+            (make-instance 'xcb:ewmh:set-_NET_FRAME_EXTENTS
+                           :window id :left left :right right
+                           :top top :bottom bottom)))
+      (xcb:flush exwm--connection))
+     ;; _NET_WM_STATE
+     ((= type xcb:Atom:_NET_WM_STATE)
+      (let ((action (elt data 0))
+            (props (list (elt data 1) (elt data 2)))
+            (buffer (exwm--id->buffer id))
+            props-new)
+        (when buffer                    ;ensure it's managed
+          (with-current-buffer buffer
+            ;; _NET_WM_STATE_MODAL
+            (when (memq xcb:Atom:_NET_WM_STATE_MODAL props)
+              (cond ((= action xcb:ewmh:_NET_WM_STATE_ADD)
+                     (unless exwm--floating-frame
+                       (exwm-floating--set-floating id))
+                     (push xcb:Atom:_NET_WM_STATE_MODAL props-new))
+                    ((= action xcb:ewmh:_NET_WM_STATE_REMOVE)
+                     (when exwm--floating-frame
+                       (exwm-floating--unset-floating id)))
+                    ((= action xcb:ewmh:_NET_WM_STATE_TOGGLE)
+                     (if exwm--floating-frame
+                         (exwm-floating--unset-floating id)
+                       (exwm-floating--set-floating id)
+                       (push xcb:Atom:_NET_WM_STATE_MODAL props-new)))))
+            ;; _NET_WM_STATE_FULLSCREEN
+            (when (memq xcb:Atom:_NET_WM_STATE_FULLSCREEN props)
+              (cond ((= action xcb:ewmh:_NET_WM_STATE_ADD)
+                     (unless exwm--fullscreen (exwm-layout-set-fullscreen id))
+                     (push xcb:Atom:_NET_WM_STATE_FULLSCREEN props-new))
+                    ((= action xcb:ewmh:_NET_WM_STATE_REMOVE)
+                     (when exwm--fullscreen (exwm-layout-unset-fullscreen id)))
+                    ((= action xcb:ewmh:_NET_WM_STATE_TOGGLE)
+                     (if exwm--fullscreen
+                         (exwm-layout-unset-fullscreen id)
+                       (exwm-layout-set-fullscreen id)
+                       (push xcb:Atom:_NET_WM_STATE_FULLSCREEN props-new)))))
+            ;; _NET_WM_STATE_DEMANDS_ATTENTION
+            ;; FIXME: check (may require other properties set)
+            (when (memq xcb:Atom:_NET_WM_STATE_DEMANDS_ATTENTION props)
+              (when (= action xcb:ewmh:_NET_WM_STATE_ADD)
+                (let ((idx (cl-position exwm--frame exwm-workspace--list)))
+                  (unless (= idx exwm-workspace-current-index)
+                    (set-frame-parameter exwm--frame 'exwm--urgency t)
+                    (exwm-workspace--update-switch-history))))
+              ;; xcb:ewmh:_NET_WM_STATE_REMOVE?
+              ;; xcb:ewmh:_NET_WM_STATE_TOGGLE?
+              )
+            (xcb:+request exwm--connection
+                (make-instance 'xcb:ewmh:set-_NET_WM_STATE
+                               :window id :data (vconcat props-new)))
+            (xcb:flush exwm--connection)))))
+     ((= type xcb:Atom:WM_PROTOCOLS)
+      (let ((type (elt data 0)))
+        (cond ((= type xcb:Atom:_NET_WM_PING)
+               (setq exwm--ping-lock nil))
+              (t (exwm--log "Unhandled WM_PROTOCOLS of type: %d" type)))))
+     (t (exwm--log "Unhandled client message: %s" obj)))))
+
+(defun exwm--init-icccm-ewmh ()
+  "Initialize ICCCM/EWMH support."
+  ;; Handle PropertyNotify event
+  (xcb:+event exwm--connection 'xcb:PropertyNotify 'exwm--on-PropertyNotify)
+  ;; Handle relevant client messages
+  ;; FIXME: WM_STATE client messages (normal => iconic)
+  ;;        WM_COLORMAP_NOTIFY
+  (xcb:+event exwm--connection 'xcb:ClientMessage 'exwm--on-ClientMessage)
+  ;; Set _NET_SUPPORTED
+  (xcb:+request exwm--connection
+      (make-instance 'xcb:ewmh:set-_NET_SUPPORTED
+                     :window exwm--root
+                     :data (vector xcb:Atom:_NET_SUPPORTED
+                                   xcb:Atom:_NET_NUMBER_OF_DESKTOPS
+                                   xcb:Atom:_NET_DESKTOP_VIEWPORT
+                                   xcb:Atom:_NET_CURRENT_DESKTOP
+                                   xcb:Atom:_NET_WORKAREA
+                                   xcb:Atom:_NET_SUPPORTING_WM_CHECK
+                                   xcb:Atom:_NET_VIRTUAL_ROOTS
+                                   xcb:Atom:_NET_WM_MOVERESIZE
+                                   xcb:Atom:_NET_REQUEST_FRAME_EXTENTS
+                                   xcb:Atom:_NET_FRAME_EXTENTS
+                                   xcb:Atom:_NET_WM_NAME
+                                   ;;
+                                   xcb:Atom:_NET_WM_WINDOW_TYPE
+                                   xcb:Atom:_NET_WM_WINDOW_TYPE_TOOLBAR
+                                   xcb:Atom:_NET_WM_WINDOW_TYPE_MENU
+                                   xcb:Atom:_NET_WM_WINDOW_TYPE_UTILITY
+                                   xcb:Atom:_NET_WM_WINDOW_TYPE_SPLASH
+                                   xcb:Atom:_NET_WM_WINDOW_TYPE_DIALOG
+                                   xcb:Atom:_NET_WM_WINDOW_TYPE_DROPDOWN_MENU
+                                   xcb:Atom:_NET_WM_WINDOW_TYPE_POPUP_MENU
+                                   xcb:Atom:_NET_WM_WINDOW_TYPE_TOOLTIP
+                                   xcb:Atom:_NET_WM_WINDOW_TYPE_NOTIFICATION
+                                   xcb:Atom:_NET_WM_WINDOW_TYPE_COMBO
+                                   xcb:Atom:_NET_WM_WINDOW_TYPE_DND
+                                   xcb:Atom:_NET_WM_WINDOW_TYPE_NORMAL
+                                   ;;
+                                   xcb:Atom:_NET_WM_STATE
+                                   xcb:Atom:_NET_WM_STATE_MODAL
+                                   xcb:Atom:_NET_WM_STATE_FULLSCREEN
+                                   xcb:Atom:_NET_WM_STATE_DEMANDS_ATTENTION
+                                   ;; FIXME: more?
+                                   )))
+  ;; Create a child window for setting _NET_SUPPORTING_WM_CHECK
+  (let ((new-id (xcb:generate-id exwm--connection)))
+    (xcb:+request exwm--connection
+        (make-instance 'xcb:CreateWindow
+                       :depth 0 :wid new-id :parent exwm--root
+                       :x -1 :y -1 :width 1 :height 1
+                       :border-width 0 :class xcb:WindowClass:CopyFromParent
+                       :visual 0 :value-mask xcb:CW:OverrideRedirect
+                       :override-redirect 1))
+    (dolist (i (list exwm--root new-id))
+      ;; Set _NET_SUPPORTING_WM_CHECK
+      (xcb:+request exwm--connection
+          (make-instance 'xcb:ewmh:set-_NET_SUPPORTING_WM_CHECK
+                         :window i :data new-id))
+      ;; Set _NET_WM_NAME
+      (xcb:+request exwm--connection
+          (make-instance 'xcb:ewmh:set-_NET_WM_NAME
+                         :window i :data "EXWM"))))
+  ;; Set _NET_NUMBER_OF_DESKTOPS
+  (xcb:+request exwm--connection
+      (make-instance 'xcb:ewmh:set-_NET_NUMBER_OF_DESKTOPS
+                     :window exwm--root :data exwm-workspace-number))
+  ;; Set _NET_DESKTOP_VIEWPORT
+  (xcb:+request exwm--connection
+      (make-instance 'xcb:ewmh:set-_NET_DESKTOP_VIEWPORT
+                     :window exwm--root
+                     :data (make-vector (* 2 exwm-workspace-number) 0)))
+  ;; Set _NET_WORKAREA (with minibuffer and bottom mode-line excluded)
+  (let* ((workareas
+          (vconcat (window-absolute-pixel-edges (get-largest-window t))))
+         (workareas (mapconcat (lambda (i) workareas)
+                               (make-list exwm-workspace-number 0) [])))
+    (xcb:+request exwm--connection
+        (make-instance 'xcb:ewmh:set-_NET_WORKAREA
+                       :window exwm--root :data workareas)))
+  ;; Set _NET_VIRTUAL_ROOTS
+  (xcb:+request exwm--connection
+      (make-instance 'xcb:ewmh:set-_NET_VIRTUAL_ROOTS
+                     :window exwm--root
+                     :data (vconcat (mapcar
+                                     (lambda (i)
+                                       (frame-parameter i 'exwm-window-id))
+                                     exwm-workspace--list))))
+  (xcb:flush exwm--connection))
+
+(defvar exwm-init-hook nil
+  "Normal hook run when EXWM has just finished initialization.")
+
+(defun exwm-init (&optional frame)
+  "Initialize EXWM."
+  (if (not (eq 'x (framep (or frame (selected-frame)))))
+      (exwm--log "Not running under X environment")
+    (unless exwm--connection
+      (setq exwm--connection (xcb:connect-to-socket))
+      (set-process-query-on-exit-flag (slot-value exwm--connection 'process)
+                                      nil) ;prevent query message on exit
+      (setq exwm--root
+            (slot-value (car (slot-value
+                              (xcb:get-setup exwm--connection) 'roots))
+                        'root))
+      (if (xcb:+request-checked+request-check exwm--connection
+              (make-instance 'xcb:ChangeWindowAttributes
+                             :window exwm--root :value-mask xcb:CW:EventMask
+                             :event-mask xcb:EventMask:SubstructureRedirect))
+          ;; Other window manager is running
+          (progn (xcb:disconnect exwm--connection)
+                 (setq exwm--connection nil)
+                 (exwm-enable 'undo)
+                 (exwm--log "Other window manager detected"))
+        ;; Initialize ICCCM/EWMH support
+        ;; (xcb:icccm:init exwm--connection)
+        (xcb:ewmh:init exwm--connection)
+        (exwm--lock)
+        (exwm-workspace--init)
+        (exwm--init-icccm-ewmh)
+        (exwm-layout--init)
+        (exwm-floating--init)
+        (exwm-manage--init)
+        (exwm-input--init)
+        (exwm--unlock)
+        ;; Disable events during new frame creation
+        (add-hook 'before-make-frame-hook 'exwm--lock)
+        (add-hook 'after-make-frame-functions 'exwm--unlock)
+        ;; Manage exiting windows
+        (exwm-manage--scan)
+        (run-hooks 'exwm-init-hook)))))
+
+(defvar exwm-mode-map
+  (let ((map (make-sparse-keymap)))
+    (define-key map "\C-ck" 'exwm-input-release-keyboard)
+    (define-key map "\C-cf" 'exwm-layout-set-fullscreen)
+    (define-key map "\C-cm" 'exwm-floating-toggle-floating)
+    (define-key map "\C-cq" 'exwm-input-send-next-key)
+    (define-key map "\C-cv" 'exwm-workspace-move-window)
+    map)
+  "Keymap for `exwm-mode'.")
+
+(define-derived-mode exwm-mode nil "EXWM"
+  "Major mode for managing X windows.
+
+\\{exwm-mode-map}"
+  ;; Internal variables
+  (make-local-variable 'exwm--id)              ;window id
+  (set (make-local-variable 'exwm--frame) nil) ;workspace frame
+  (set (make-local-variable 'exwm--floating-frame) nil) ;floating frame
+  (set (make-local-variable 'exwm--floating-edges) nil) ;four edges
+  (set (make-local-variable 'exwm--fullscreen) nil) ;used in fullscreen
+  (set (make-local-variable 'exwm--floating-frame-geometry) nil) ;in fullscreen
+  (set (make-local-variable 'exwm--fixed-size) nil) ;fixed size
+  ;; Properties
+  (set (make-local-variable 'exwm-window-type) nil)
+  (set (make-local-variable 'exwm--geometry) nil)
+  (set (make-local-variable 'exwm-class-name) nil)
+  (set (make-local-variable 'exwm-instance-name) nil)
+  (set (make-local-variable 'exwm-title) nil)
+  (set (make-local-variable 'exwm--title-is-utf8) nil)
+  (set (make-local-variable 'exwm-transient-for) nil)
+  ;; _NET_WM_NORMAL_HINTS
+  (set (make-local-variable 'exwm--normal-hints-x) nil)
+  (set (make-local-variable 'exwm--normal-hints-y) nil)
+  (set (make-local-variable 'exwm--normal-hints-width) nil)
+  (set (make-local-variable 'exwm--normal-hints-height) nil)
+  (set (make-local-variable 'exwm--normal-hints-min-width) nil)
+  (set (make-local-variable 'exwm--normal-hints-min-height) nil)
+  (set (make-local-variable 'exwm--normal-hints-max-width) nil)
+  (set (make-local-variable 'exwm--normal-hints-max-height) nil)
+  ;; (set (make-local-variable 'exwm--normal-hints-win-gravity) nil)
+  ;; WM_HINTS
+  (set (make-local-variable 'exwm--hints-input) nil) ;FIXME
+  (set (make-local-variable 'exwm--hints-urgency) nil)
+  ;;
+  (set (make-local-variable 'exwm--protocols) nil)
+  (set (make-local-variable 'exwm-state) nil)
+  ;; Change major-mode is not allowed
+  (set (make-local-variable 'change-major-mode-hook) 'kill-buffer)
+  ;;
+  (setq mode-name
+        '(:eval (propertize "EXWM" 'face
+                            (when (cl-some (lambda (i)
+                                             (frame-parameter i
+                                                              'exwm--urgency))
+                                           exwm-workspace--list)
+                              'font-lock-warning-face))))
+  ;; Kill buffer -> close window
+  (set (make-local-variable 'kill-buffer-query-functions)
+       (list (lambda ()
+               (exwm-manage--close-window exwm--id (current-buffer))
+               nil)))
+  (setq buffer-read-only t
+        left-margin-width nil
+        right-margin-width nil
+        left-fringe-width 0
+        right-fringe-width 0
+        vertical-scroll-bar nil))
+
+(defun exwm-enable (&optional undo)
+  "Enable/Disable EXWM"
+  (setq frame-resize-pixelwise t)       ;mandatory; before init
+  (if (eq undo 'undo)
+      (progn (remove-hook 'window-setup-hook 'exwm-init)
+             (remove-hook 'after-make-frame-functions 'exwm-init))
+    (add-hook 'window-setup-hook 'exwm-init t)            ;for Emacs
+    (add-hook 'after-make-frame-functions 'exwm-init t))) ;for Emacs Client
+
+
+
+(provide 'exwm)
+
+;;; exwm.el ends here