2015-07-17 13:16:08 +02:00
|
|
|
|
;;; exwm-layout.el --- Layout Module for EXWM -*- lexical-binding: t -*-
|
|
|
|
|
|
2015-09-04 03:09:59 +02:00
|
|
|
|
;; Copyright (C) 2015 Free Software Foundation, Inc.
|
2015-07-17 13:16:08 +02:00
|
|
|
|
|
|
|
|
|
;; Author: Chris Feng <chris.w.feng@gmail.com>
|
|
|
|
|
|
2015-09-04 03:09:59 +02:00
|
|
|
|
;; This file is part of GNU Emacs.
|
2015-07-17 13:16:08 +02:00
|
|
|
|
|
2015-09-04 03:09:59 +02:00
|
|
|
|
;; GNU Emacs is free software: you can redistribute it and/or modify
|
2015-07-17 13:16:08 +02:00
|
|
|
|
;; 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.
|
|
|
|
|
|
2015-09-04 03:09:59 +02:00
|
|
|
|
;; GNU Emacs is distributed in the hope that it will be useful,
|
2015-07-17 13:16:08 +02:00
|
|
|
|
;; 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
|
2015-09-04 03:09:59 +02:00
|
|
|
|
;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>.
|
2015-07-17 13:16:08 +02:00
|
|
|
|
|
|
|
|
|
;;; Commentary:
|
|
|
|
|
|
|
|
|
|
;; This module is responsible for keeping X client window properly displayed.
|
|
|
|
|
|
|
|
|
|
;;; Code:
|
|
|
|
|
|
2015-09-04 03:09:59 +02:00
|
|
|
|
(require 'exwm-core)
|
|
|
|
|
(eval-when-compile (require 'exwm-workspace))
|
|
|
|
|
|
|
|
|
|
;;;###autoload
|
2015-07-17 13:16:08 +02:00
|
|
|
|
(defun exwm-layout--show (id &optional window)
|
|
|
|
|
"Show window ID exactly fit in the Emacs window WINDOW."
|
2015-08-07 14:22:12 +02:00
|
|
|
|
(exwm--log "Show #x%x in %s" id window)
|
2015-07-17 13:16:08 +02:00
|
|
|
|
(xcb:+request exwm--connection (make-instance 'xcb:MapWindow :window id))
|
|
|
|
|
(xcb:+request exwm--connection
|
|
|
|
|
(make-instance 'xcb:icccm:set-WM_STATE
|
|
|
|
|
:window id :state xcb:icccm:WM_STATE:NormalState
|
|
|
|
|
:icon xcb:Window:None))
|
2015-08-10 08:23:37 +02:00
|
|
|
|
(let* ((buffer (exwm--id->buffer id))
|
|
|
|
|
(edges (or (and buffer
|
|
|
|
|
(with-current-buffer buffer exwm--floating-edges))
|
2015-07-17 13:16:08 +02:00
|
|
|
|
(window-inside-pixel-edges window)))
|
|
|
|
|
(x (elt edges 0))
|
|
|
|
|
(y (elt edges 1))
|
|
|
|
|
(width (- (elt edges 2) (elt edges 0)))
|
|
|
|
|
(height (- (elt edges 3) (elt edges 1))))
|
|
|
|
|
(xcb:+request exwm--connection
|
|
|
|
|
(make-instance 'xcb:ConfigureWindow
|
|
|
|
|
:window id
|
|
|
|
|
:value-mask (logior xcb:ConfigWindow:X
|
|
|
|
|
xcb:ConfigWindow:Y
|
|
|
|
|
xcb:ConfigWindow:Width
|
|
|
|
|
xcb:ConfigWindow:Height
|
|
|
|
|
xcb:ConfigWindow:StackMode)
|
|
|
|
|
:x x :y y :width width :height height
|
|
|
|
|
;; In order to put non-floating window at bottom
|
|
|
|
|
:stack-mode xcb:StackMode:Below))
|
|
|
|
|
(xcb:+request exwm--connection
|
|
|
|
|
(make-instance 'xcb:SendEvent
|
|
|
|
|
:propagate 0 :destination id
|
|
|
|
|
:event-mask xcb:EventMask:StructureNotify
|
|
|
|
|
:event (xcb:marshal
|
|
|
|
|
(make-instance 'xcb:ConfigureNotify
|
|
|
|
|
:event id :window id
|
|
|
|
|
:above-sibling xcb:Window:None
|
|
|
|
|
:x x :y y
|
|
|
|
|
:width width :height height
|
|
|
|
|
:border-width 0
|
|
|
|
|
:override-redirect 0)
|
|
|
|
|
exwm--connection))))
|
|
|
|
|
(xcb:flush exwm--connection))
|
|
|
|
|
|
2015-09-04 03:09:59 +02:00
|
|
|
|
;;;###autoload
|
2015-07-17 13:16:08 +02:00
|
|
|
|
(defun exwm-layout--hide (id)
|
|
|
|
|
"Hide window ID."
|
|
|
|
|
(unless (eq xcb:icccm:WM_STATE:IconicState ;already hidden
|
|
|
|
|
(with-current-buffer (exwm--id->buffer id) exwm-state))
|
2015-08-07 14:22:12 +02:00
|
|
|
|
(exwm--log "Hide #x%x" id)
|
2015-07-17 13:16:08 +02:00
|
|
|
|
(xcb:+request exwm--connection
|
|
|
|
|
(make-instance 'xcb:ChangeWindowAttributes
|
|
|
|
|
:window id :value-mask xcb:CW:EventMask
|
|
|
|
|
:event-mask xcb:EventMask:NoEvent))
|
|
|
|
|
(xcb:+request exwm--connection (make-instance 'xcb:UnmapWindow :window id))
|
|
|
|
|
(xcb:+request exwm--connection
|
|
|
|
|
(make-instance 'xcb:ChangeWindowAttributes
|
|
|
|
|
:window id :value-mask xcb:CW:EventMask
|
|
|
|
|
:event-mask exwm--client-event-mask))
|
|
|
|
|
(xcb:+request exwm--connection
|
|
|
|
|
(make-instance 'xcb:icccm:set-WM_STATE
|
|
|
|
|
:window id
|
|
|
|
|
:state xcb:icccm:WM_STATE:IconicState
|
|
|
|
|
:icon xcb:Window:None))
|
|
|
|
|
(xcb:flush exwm--connection)))
|
|
|
|
|
|
2015-09-04 03:09:59 +02:00
|
|
|
|
;;;###autoload
|
2015-07-17 13:16:08 +02:00
|
|
|
|
(defun exwm-layout-set-fullscreen (&optional id)
|
|
|
|
|
"Make window ID fullscreen."
|
|
|
|
|
(interactive)
|
|
|
|
|
(with-current-buffer (if id (exwm--id->buffer id) (window-buffer))
|
2015-08-16 20:53:04 +02:00
|
|
|
|
(when exwm--fullscreen
|
|
|
|
|
(user-error "Already in full-screen mode."))
|
2015-07-17 13:16:08 +02:00
|
|
|
|
;; Set the floating frame fullscreen first when the client is floating
|
|
|
|
|
(when exwm--floating-frame
|
|
|
|
|
(let* ((outer-id (frame-parameter exwm--floating-frame 'exwm-outer-id))
|
|
|
|
|
(geometry (xcb:+request-unchecked+reply exwm--connection
|
|
|
|
|
(make-instance 'xcb:GetGeometry
|
|
|
|
|
:drawable outer-id))))
|
|
|
|
|
(setq exwm--floating-frame-geometry
|
|
|
|
|
(vector (slot-value geometry 'x) (slot-value geometry 'y)
|
|
|
|
|
(slot-value geometry 'width)
|
|
|
|
|
(slot-value geometry 'height)))
|
|
|
|
|
(xcb:+request exwm--connection
|
|
|
|
|
(make-instance 'xcb:ConfigureWindow
|
|
|
|
|
:window outer-id
|
|
|
|
|
:value-mask (logior xcb:ConfigWindow:X
|
|
|
|
|
xcb:ConfigWindow:Y
|
|
|
|
|
xcb:ConfigWindow:Width
|
|
|
|
|
xcb:ConfigWindow:Height)
|
|
|
|
|
:x 0 :y 0
|
2015-08-13 06:02:44 +02:00
|
|
|
|
:width (frame-pixel-width exwm-workspace--current)
|
|
|
|
|
:height (frame-pixel-height
|
|
|
|
|
exwm-workspace--current))))
|
2015-07-17 13:16:08 +02:00
|
|
|
|
(xcb:flush exwm--connection))
|
|
|
|
|
(xcb:+request exwm--connection
|
|
|
|
|
(make-instance 'xcb:ConfigureWindow
|
|
|
|
|
:window exwm--id
|
|
|
|
|
:value-mask (logior xcb:ConfigWindow:X
|
|
|
|
|
xcb:ConfigWindow:Y
|
|
|
|
|
xcb:ConfigWindow:Width
|
|
|
|
|
xcb:ConfigWindow:Height)
|
|
|
|
|
:x 0 :y 0
|
2015-08-13 06:02:44 +02:00
|
|
|
|
:width (frame-pixel-width exwm-workspace--current)
|
|
|
|
|
:height (frame-pixel-height exwm-workspace--current)))
|
2015-07-17 13:16:08 +02:00
|
|
|
|
(xcb:+request exwm--connection
|
|
|
|
|
(make-instance 'xcb:ewmh:set-_NET_WM_STATE
|
|
|
|
|
:window exwm--id
|
|
|
|
|
:data (vector xcb:Atom:_NET_WM_STATE_FULLSCREEN)))
|
|
|
|
|
(xcb:flush exwm--connection)
|
|
|
|
|
(setq exwm--fullscreen t)
|
|
|
|
|
(exwm-input-release-keyboard)))
|
|
|
|
|
|
|
|
|
|
(defun exwm-layout-unset-fullscreen (&optional id)
|
|
|
|
|
"Restore window from fullscreen state."
|
|
|
|
|
(interactive)
|
|
|
|
|
(with-current-buffer (if id (exwm--id->buffer id) (window-buffer))
|
2015-08-16 20:53:04 +02:00
|
|
|
|
(unless exwm--fullscreen
|
|
|
|
|
(user-error "Not in full-screen mode."))
|
2015-07-17 13:16:08 +02:00
|
|
|
|
;; Restore the floating frame if the client is floating
|
|
|
|
|
(when exwm--floating-frame
|
|
|
|
|
(xcb:+request exwm--connection
|
|
|
|
|
(make-instance 'xcb:ConfigureWindow
|
|
|
|
|
:window (frame-parameter exwm--floating-frame
|
|
|
|
|
'exwm-outer-id)
|
|
|
|
|
:value-mask (logior xcb:ConfigWindow:X
|
|
|
|
|
xcb:ConfigWindow:Y
|
|
|
|
|
xcb:ConfigWindow:Width
|
|
|
|
|
xcb:ConfigWindow:Height)
|
|
|
|
|
:x (elt exwm--floating-frame-geometry 0)
|
|
|
|
|
:y (elt exwm--floating-frame-geometry 1)
|
|
|
|
|
:width (elt exwm--floating-frame-geometry 2)
|
|
|
|
|
:height (elt exwm--floating-frame-geometry 3))))
|
|
|
|
|
(exwm-layout--show exwm--id)
|
|
|
|
|
(xcb:+request exwm--connection
|
|
|
|
|
(make-instance 'xcb:ewmh:set-_NET_WM_STATE :window exwm--id :data []))
|
|
|
|
|
(xcb:flush exwm--connection)
|
|
|
|
|
(setq exwm--fullscreen nil)
|
|
|
|
|
(exwm-input-grab-keyboard)))
|
|
|
|
|
|
2015-08-24 21:09:42 +02:00
|
|
|
|
;; This function is superficially similar to `exwm-layout-set-fullscreen', but
|
|
|
|
|
;; they do very different things: `exwm-layout--set-frame-fullscreen' resizes a
|
|
|
|
|
;; frame to the actual monitor size, `exwm-layout-set-fullscreen' resizes an X
|
|
|
|
|
;; window to the frame size.
|
|
|
|
|
(defun exwm-layout--set-frame-fullscreen (frame)
|
2015-08-26 11:25:21 +02:00
|
|
|
|
"Make frame FRAME fullscreen, with regard to its RandR output if applicable."
|
2015-08-24 21:09:42 +02:00
|
|
|
|
(let ((geometry (or (frame-parameter frame 'exwm-geometry)
|
2015-08-26 11:25:21 +02:00
|
|
|
|
(xcb:+request-unchecked+reply exwm--connection
|
2015-08-24 21:09:42 +02:00
|
|
|
|
(make-instance 'xcb:GetGeometry
|
|
|
|
|
:drawable exwm--root))
|
|
|
|
|
(make-instance 'xcb:RECTANGLE :x 0 :y 0
|
2015-08-26 11:25:21 +02:00
|
|
|
|
:width (x-display-pixel-width)
|
|
|
|
|
:height (x-display-pixel-height))))
|
|
|
|
|
(id (frame-parameter frame 'exwm-outer-id)))
|
2015-08-24 21:09:42 +02:00
|
|
|
|
(with-slots (x y width height) geometry
|
2015-08-26 11:25:21 +02:00
|
|
|
|
(xcb:+request exwm--connection
|
|
|
|
|
(make-instance 'xcb:ConfigureWindow
|
|
|
|
|
:window id
|
|
|
|
|
:value-mask (logior xcb:ConfigWindow:X
|
|
|
|
|
xcb:ConfigWindow:Y
|
|
|
|
|
xcb:ConfigWindow:Width
|
|
|
|
|
xcb:ConfigWindow:Height)
|
|
|
|
|
:x x :y y
|
|
|
|
|
:width width
|
|
|
|
|
:height height))
|
|
|
|
|
(xcb:flush exwm--connection))))
|
2015-08-24 21:09:42 +02:00
|
|
|
|
|
2015-07-17 13:16:08 +02:00
|
|
|
|
(defun exwm-layout--refresh ()
|
|
|
|
|
"Refresh layout."
|
2015-08-08 14:12:07 +02:00
|
|
|
|
(let ((frame (selected-frame))
|
2015-08-10 04:55:28 +02:00
|
|
|
|
(placeholder (get-buffer "*scratch*"))
|
|
|
|
|
windows)
|
2015-08-08 14:12:07 +02:00
|
|
|
|
(if (not (memq frame exwm-workspace--list))
|
2015-08-10 04:55:28 +02:00
|
|
|
|
(if (frame-parameter frame 'exwm-window-id)
|
|
|
|
|
;; Refresh a floating frame
|
|
|
|
|
(progn
|
2015-08-13 06:02:44 +02:00
|
|
|
|
(when (eq major-mode 'exwm-mode)
|
|
|
|
|
(let ((window (frame-first-window frame)))
|
|
|
|
|
(with-current-buffer (window-buffer window)
|
|
|
|
|
(exwm--log "Refresh floating window #x%x" exwm--id)
|
|
|
|
|
(exwm-layout--show exwm--id window)))))
|
2015-08-10 04:55:28 +02:00
|
|
|
|
;; Other frames (e.g. terminal/graphical frame of emacsclient)
|
|
|
|
|
;; We shall bury all `exwm-mode' buffers in this case
|
|
|
|
|
(unless placeholder ;create the *scratch* buffer if it's killed
|
|
|
|
|
(setq placeholder (get-buffer-create "*scratch*"))
|
|
|
|
|
(set-buffer-major-mode placeholder))
|
|
|
|
|
(setq windows (window-list frame 0)) ;exclude minibuffer
|
|
|
|
|
(dolist (window windows)
|
2015-08-08 14:12:07 +02:00
|
|
|
|
(with-current-buffer (window-buffer window)
|
2015-08-10 04:55:28 +02:00
|
|
|
|
(when (eq major-mode 'exwm-mode)
|
|
|
|
|
(set-window-buffer window placeholder)))))
|
2015-08-08 14:12:07 +02:00
|
|
|
|
;; Refresh the whole workspace
|
|
|
|
|
;; Workspaces other than the active one can also be refreshed (RandR)
|
|
|
|
|
(exwm--log "Refresh workspace %s" frame)
|
2015-08-10 04:55:28 +02:00
|
|
|
|
(unless placeholder ;create the *scratch* buffer if it's killed
|
|
|
|
|
(setq placeholder (get-buffer-create "*scratch*"))
|
|
|
|
|
(set-buffer-major-mode placeholder))
|
|
|
|
|
(dolist (pair exwm--id-buffer-alist)
|
|
|
|
|
(with-current-buffer (cdr pair)
|
|
|
|
|
;; Exclude windows on other workspaces and floating frames
|
|
|
|
|
(when (and (eq frame exwm--frame) (not exwm--floating-frame))
|
|
|
|
|
(setq windows (get-buffer-window-list (current-buffer) 0))
|
|
|
|
|
(if (not windows)
|
|
|
|
|
(exwm-layout--hide exwm--id)
|
|
|
|
|
(exwm-layout--show exwm--id (car windows))
|
|
|
|
|
(dolist (i (cdr windows))
|
2015-08-11 05:54:38 +02:00
|
|
|
|
(set-window-buffer i placeholder))))))
|
|
|
|
|
;; Make sure windows floating / on other workspaces are excluded
|
|
|
|
|
(dolist (window (window-list frame 0))
|
|
|
|
|
(with-current-buffer (window-buffer window)
|
|
|
|
|
(when (and (eq major-mode 'exwm-mode)
|
|
|
|
|
(or exwm--floating-frame (not (eq frame exwm--frame))))
|
2015-09-09 05:26:17 +02:00
|
|
|
|
(set-window-buffer window placeholder))))
|
|
|
|
|
;; Update _NET_CLIENT_LIST_STACKING
|
|
|
|
|
(xcb:+request exwm--connection
|
|
|
|
|
(make-instance 'xcb:ewmh:set-_NET_CLIENT_LIST_STACKING
|
|
|
|
|
:window exwm--root
|
|
|
|
|
:data (vconcat
|
|
|
|
|
(delq nil
|
|
|
|
|
(mapcar
|
|
|
|
|
(lambda (buffer)
|
|
|
|
|
(with-current-buffer buffer
|
|
|
|
|
(when (eq major-mode 'exwm-mode)
|
|
|
|
|
exwm--id)))
|
|
|
|
|
(buffer-list))))))
|
|
|
|
|
(xcb:flush exwm--connection))))
|
2015-07-17 13:16:08 +02:00
|
|
|
|
|
2015-08-09 05:27:48 +02:00
|
|
|
|
(defun exwm-layout--on-minibuffer-setup ()
|
|
|
|
|
"Refresh layout when minibuffer grows."
|
|
|
|
|
(run-with-idle-timer 0.01 nil ;FIXME
|
|
|
|
|
(lambda ()
|
|
|
|
|
(when (and (< 1 (window-height (minibuffer-window)))
|
|
|
|
|
(not (and (eq major-mode 'exwm-mode)
|
|
|
|
|
exwm--floating-frame)))
|
|
|
|
|
(exwm-layout--refresh)))))
|
|
|
|
|
|
2015-07-17 13:16:08 +02:00
|
|
|
|
(defun exwm-layout--init ()
|
|
|
|
|
"Initialize layout module."
|
|
|
|
|
;; Auto refresh layout
|
2015-09-04 03:09:59 +02:00
|
|
|
|
(add-hook 'window-configuration-change-hook #'exwm-layout--refresh)
|
2015-08-09 05:27:48 +02:00
|
|
|
|
;; Refresh when minibuffer grows
|
2015-09-04 03:09:59 +02:00
|
|
|
|
(add-hook 'minibuffer-setup-hook #'exwm-layout--on-minibuffer-setup t))
|
2015-07-17 13:16:08 +02:00
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
(provide 'exwm-layout)
|
|
|
|
|
|
|
|
|
|
;;; exwm-layout.el ends here
|