;;; exwm-layout.el --- Layout Module for EXWM -*- lexical-binding: t -*- ;; Copyright (C) 2015-2016 Free Software Foundation, Inc. ;; Author: Chris Feng <chris.w.feng@gmail.com> ;; This file is part of GNU Emacs. ;; GNU Emacs 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. ;; GNU Emacs 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 GNU Emacs. If not, see <http://www.gnu.org/licenses/>. ;;; Commentary: ;; This module is responsible for keeping X client window properly displayed. ;;; Code: (require 'exwm-core) (eval-when-compile (require 'exwm-workspace)) (defvar exwm-floating-border-width) (defun exwm-layout--resize-container (id container x y width height &optional container-only) "Resize a container (and its content unless CONTAINER-ONLY is non-nil)." (xcb:+request exwm--connection (make-instance 'xcb:ConfigureWindow :window container :value-mask (eval-when-compile (logior xcb:ConfigWindow:X xcb:ConfigWindow:Y xcb:ConfigWindow:Width xcb:ConfigWindow:Height)) :x x :y y :width width :height height)) (unless container-only (xcb:+request exwm--connection (make-instance 'xcb:ConfigureWindow :window id :value-mask (eval-when-compile (logior xcb:ConfigWindow:Width xcb:ConfigWindow:Height)) :width width :height height)))) ;;;###autoload (defun exwm-layout--show (id &optional window) "Show window ID exactly fit in the Emacs window WINDOW." (exwm--log "Show #x%x in %s" id window) (xcb:+request exwm--connection (make-instance 'xcb:MapWindow :window id)) (with-current-buffer (exwm--id->buffer id) (xcb:+request exwm--connection (make-instance 'xcb:MapWindow :window exwm--container))) (xcb:+request exwm--connection (make-instance 'xcb:icccm:set-WM_STATE :window id :state xcb:icccm:WM_STATE:NormalState :icon xcb:Window:None)) (let* ((edges (window-inside-absolute-pixel-edges window)) (width (- (elt edges 2) (elt edges 0))) (height (- (elt edges 3) (elt edges 1)))) (with-current-buffer (exwm--id->buffer id) (if exwm--floating-frame ;; A floating X window is of the same size as the Emacs window, ;; whereas its container is of the same size as the Emacs frame. (progn (xcb:+request exwm--connection (make-instance 'xcb:ConfigureWindow :window exwm--container :value-mask (logior xcb:ConfigWindow:Width xcb:ConfigWindow:Height) :width (frame-pixel-width exwm--floating-frame) :height (frame-pixel-height exwm--floating-frame))) (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 exwm-floating-border-width :y exwm-floating-border-width :width width :height height))) (let ((relative-edges (window-inside-pixel-edges window))) (exwm-layout--resize-container id exwm--container (elt relative-edges 0) (elt relative-edges 1) width height (active-minibuffer-window))))) (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 (elt edges 0) :y (elt edges 1) :width width :height height :border-width 0 :override-redirect 0) exwm--connection)))) (xcb:flush exwm--connection)) ;;;###autoload (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)) (exwm--log "Hide #x%x" id) (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)) (with-current-buffer (exwm--id->buffer id) (xcb:+request exwm--connection (make-instance 'xcb:UnmapWindow :window exwm--container))) (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))) ;;;###autoload (defun exwm-layout-set-fullscreen (&optional id) "Make window ID fullscreen." (interactive) (with-current-buffer (if id (exwm--id->buffer id) (window-buffer)) (when exwm--fullscreen (user-error "Already in full-screen mode.")) ;; Set the floating frame fullscreen first when the client is floating (when exwm--floating-frame (let* ((geometry (xcb:+request-unchecked+reply exwm--connection (make-instance 'xcb:GetGeometry :drawable exwm--container)))) (setq exwm--floating-frame-position (vector (slot-value geometry 'x) (slot-value geometry 'y)))) (xcb:flush exwm--connection)) (exwm-layout--resize-container exwm--id exwm--container 0 0 (frame-pixel-width exwm-workspace--current) (frame-pixel-height exwm-workspace--current)) (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)) (unless exwm--fullscreen (user-error "Not in full-screen mode.")) ;; Restore the floating frame if the client is floating (when exwm--floating-frame (xcb:+request exwm--connection (make-instance 'xcb:ConfigureWindow :window exwm--container :value-mask (eval-when-compile (logior xcb:ConfigWindow:X xcb:ConfigWindow:Y)) :x (elt exwm--floating-frame-position 0) :y (elt exwm--floating-frame-position 1)))) (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))) ;; 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) "Make frame FRAME fullscreen, with regard to its RandR output if applicable." (let ((geometry (or (frame-parameter frame 'exwm-geometry) (xcb:+request-unchecked+reply exwm--connection (make-instance 'xcb:GetGeometry :drawable exwm--root)) (make-instance 'xcb:RECTANGLE :x 0 :y 0 :width (x-display-pixel-width) :height (x-display-pixel-height)))) (id (frame-parameter frame 'exwm-outer-id)) (workspace (frame-parameter frame 'exwm-workspace))) (with-slots (x y width height) geometry (when (and (eq frame exwm-workspace--current) (exwm-workspace--minibuffer-own-frame-p)) (exwm-workspace--resize-minibuffer-frame width height)) (exwm-layout--resize-container id workspace x y width height) (xcb:flush exwm--connection)))) (defvar exwm-layout-show-all-buffers nil "Non-nil to allow switching to buffers on other workspaces.") (defun exwm-layout--refresh () "Refresh layout." (let ((frame (selected-frame)) (placeholder (or (get-buffer "*scratch*") (progn (set-buffer-major-mode (get-buffer-create "*scratch*")) (get-buffer "*scratch*")))) windows) (if (not (memq frame exwm-workspace--list)) (if (frame-parameter frame 'exwm-outer-id) ;; Refresh a floating frame (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)))) ;; Other frames (e.g. terminal/graphical frame of emacsclient) ;; We shall bury all `exwm-mode' buffers in this case (setq windows (window-list frame 0)) ;exclude minibuffer (dolist (window windows) (with-current-buffer (window-buffer window) (when (eq major-mode 'exwm-mode) (set-window-buffer window placeholder))))) ;; Refresh the whole workspace ;; Workspaces other than the active one can also be refreshed (RandR) (exwm--log "Refresh workspace %s" frame) (dolist (pair exwm--id-buffer-alist) (with-current-buffer (cdr pair) (when (and (not exwm--floating-frame) ;exclude floating X windows (or exwm-layout-show-all-buffers ;; Exclude X windows on other workspaces (eq frame exwm--frame))) (setq windows (get-buffer-window-list (current-buffer) 0)) (if (not windows) (when (eq frame exwm--frame) ;for exwm-layout-show-all-buffers (exwm-layout--hide exwm--id)) (if (eq frame exwm--frame) (exwm-layout--show exwm--id (car windows)) (exwm-workspace-move-window (cl-position frame exwm-workspace--list) exwm--id)) (let ((window (car windows))) ;; Make sure this buffer is not displayed elsewhere (dolist (i (get-buffer-window-list (current-buffer) 0 t)) (unless (eq i window) (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)))) (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)))) (defun exwm-layout--on-minibuffer-setup () "Refresh layout when minibuffer grows." (run-with-idle-timer 0.01 nil ;FIXME (lambda () (when (< 1 (window-height (minibuffer-window))) (exwm-layout--refresh)))) ;; Set input focus on the Emacs frame (x-focus-frame (window-frame (minibuffer-selected-window)))) (defun exwm-layout--on-echo-area-change (&optional dirty) "Run when message arrives or in `echo-area-clear-hook' to refresh layout." (when (and (current-message) (or (cl-position ?\n (current-message)) (> (length (current-message)) (frame-width exwm-workspace--current)))) (if dirty (exwm-layout--refresh) (run-with-idle-timer 0.01 nil #'exwm-layout--refresh)))) ;FIXME (defun exwm-layout-enlarge-window (delta &optional horizontal) "Make the selected window DELTA pixels taller. If no argument is given, make the selected window one pixel taller. If the optional argument HORIZONTAL is non-nil, make selected window DELTA pixels wider. If DELTA is negative, shrink selected window by -DELTA pixels. Normal hints are checked and regarded if the selected window is displaying an `exwm-mode' buffer. However, this may violate the normal hints set on other X windows." (interactive "p") (cond ((zerop delta)) ;no operation ((window-minibuffer-p)) ;avoid resize minibuffer-window ((not (and (eq major-mode 'exwm-mode) exwm--floating-frame)) ;; Resize on tiling layout (unless (= 0 (window-resizable nil delta horizontal nil t)) ;not resizable (let ((window-resize-pixelwise t)) (window-resize nil delta horizontal nil t)))) ;; Resize on floating layout (exwm--fixed-size) ;fixed size (horizontal (let* ((width (frame-pixel-width)) (edges (window-inside-pixel-edges)) (inner-width (- (elt edges 2) (elt edges 0))) (margin (- width inner-width))) (if (> delta 0) (if (not exwm--normal-hints-max-width) (cl-incf width delta) (if (>= inner-width exwm--normal-hints-max-width) (setq width nil) (setq width (min (+ exwm--normal-hints-max-width margin) (+ width delta))))) (if (not exwm--normal-hints-min-width) (cl-incf width delta) (if (<= inner-width exwm--normal-hints-min-width) (setq width nil) (setq width (max (+ exwm--normal-hints-min-width margin) (+ width delta)))))) (when width (xcb:+request exwm--connection (make-instance 'xcb:ConfigureWindow :window (frame-parameter exwm--floating-frame 'exwm-outer-id) :value-mask xcb:ConfigWindow:Width :width width)) (xcb:flush exwm--connection)))) (t (let* ((height (frame-pixel-height)) (edges (window-inside-pixel-edges)) (inner-height (- (elt edges 3) (elt edges 1))) (margin (- height inner-height))) (if (> delta 0) (if (not exwm--normal-hints-max-height) (cl-incf height delta) (if (>= inner-height exwm--normal-hints-max-height) (setq height nil) (setq height (min (+ exwm--normal-hints-max-height margin) (+ height delta))))) (if (not exwm--normal-hints-min-height) (cl-incf height delta) (if (<= inner-height exwm--normal-hints-min-height) (setq height nil) (setq height (max (+ exwm--normal-hints-min-height margin) (+ height delta)))))) (when height (xcb:+request exwm--connection (make-instance 'xcb:ConfigureWindow :window (frame-parameter exwm--floating-frame 'exwm-outer-id) :value-mask xcb:ConfigWindow:Height :height height)) (xcb:flush exwm--connection)))))) (defun exwm-layout-enlarge-window-horizontally (delta) "Make the selected window DELTA pixels wider. See also `exwm-layout-enlarge-window'." (interactive "p") (exwm-layout-enlarge-window delta t)) (defun exwm-layout-shrink-window (delta) "Make the selected window DELTA pixels lower. See also `exwm-layout-enlarge-window'." (interactive "p") (exwm-layout-enlarge-window (- delta))) (defun exwm-layout-shrink-window-horizontally (delta) "Make the selected window DELTA pixels narrower. See also `exwm-layout-enlarge-window'." (interactive "p") (exwm-layout-enlarge-window (- delta) t)) (defun exwm-layout-hide-mode-line () "Hide mode-line." (interactive) (when (and (eq major-mode 'exwm-mode) mode-line-format) (setq exwm--mode-line-format mode-line-format mode-line-format nil) (if (not exwm--floating-frame) (exwm-layout--show exwm--id) (exwm-floating--fit-frame-to-window) (xcb:flush exwm--connection) (setq window-size-fixed exwm--fixed-size)))) (defun exwm-layout-show-mode-line () "Show mode-line." (interactive) (when (and (eq major-mode 'exwm-mode) (not mode-line-format)) (setq mode-line-format exwm--mode-line-format exwm--mode-line-format nil) (if (not exwm--floating-frame) (exwm-layout--show exwm--id) (exwm-floating--fit-frame-to-window) (exwm-input-grab-keyboard) (xcb:flush exwm--connection) (setq window-size-fixed exwm--fixed-size)))) (defun exwm-layout-toggle-mode-line () "Toggle the display of mode-line." (interactive) (when (eq major-mode 'exwm-mode) (if mode-line-format (exwm-layout-hide-mode-line) (exwm-layout-show-mode-line)))) (defun exwm-layout--init () "Initialize layout module." ;; Auto refresh layout (add-hook 'window-configuration-change-hook #'exwm-layout--refresh) (unless (exwm-workspace--minibuffer-own-frame-p) ;; Refresh when minibuffer grows (add-hook 'minibuffer-setup-hook #'exwm-layout--on-minibuffer-setup t) (run-with-idle-timer 0 t #'exwm-layout--on-echo-area-change t) (add-hook 'echo-area-clear-hook #'exwm-layout--on-echo-area-change))) (provide 'exwm-layout) ;;; exwm-layout.el ends here