2015-07-17 13:16:08 +02:00
|
|
|
|
;;; exwm-workspace.el --- Workspace 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 adds workspace support for EXWM.
|
|
|
|
|
|
2015-09-04 03:09:59 +02:00
|
|
|
|
;; Todo:
|
|
|
|
|
;; + Auto hide minibuffer, or allow users to place it elsewhere.
|
|
|
|
|
;; + Add system tray support.
|
|
|
|
|
|
2015-07-17 13:16:08 +02:00
|
|
|
|
;;; Code:
|
|
|
|
|
|
2015-09-04 03:09:59 +02:00
|
|
|
|
(require 'exwm-core)
|
|
|
|
|
|
2015-07-17 13:16:08 +02:00
|
|
|
|
(defvar exwm-workspace-number 4 "Number of workspaces (1 ~ 10).")
|
|
|
|
|
(defvar exwm-workspace--list nil "List of all workspaces (Emacs frames).")
|
|
|
|
|
(defvar exwm-workspace--switch-map
|
|
|
|
|
(let ((map (make-sparse-keymap)))
|
|
|
|
|
(define-key map [t] (lambda () (interactive)))
|
|
|
|
|
(dotimes (i 10)
|
|
|
|
|
(define-key map (int-to-string i)
|
|
|
|
|
`(lambda ()
|
|
|
|
|
(interactive)
|
|
|
|
|
(when (< ,i exwm-workspace-number)
|
|
|
|
|
(goto-history-element ,(1+ i))
|
|
|
|
|
(exit-minibuffer)))))
|
|
|
|
|
(define-key map "\C-a" (lambda () (interactive) (goto-history-element 1)))
|
|
|
|
|
(define-key map "\C-e" (lambda ()
|
|
|
|
|
(interactive)
|
|
|
|
|
(goto-history-element exwm-workspace-number)))
|
2015-09-04 03:09:59 +02:00
|
|
|
|
(define-key map "\C-g" #'abort-recursive-edit)
|
|
|
|
|
(define-key map "\C-]" #'abort-recursive-edit)
|
|
|
|
|
(define-key map "\C-j" #'exit-minibuffer)
|
|
|
|
|
;; (define-key map "\C-m" #'exit-minibuffer) ;not working
|
|
|
|
|
(define-key map [return] #'exit-minibuffer)
|
|
|
|
|
(define-key map " " #'exit-minibuffer)
|
|
|
|
|
(define-key map "\C-f" #'previous-history-element)
|
|
|
|
|
(define-key map "\C-b" #'next-history-element)
|
2015-07-17 13:16:08 +02:00
|
|
|
|
;; Alternative keys
|
2015-09-04 03:09:59 +02:00
|
|
|
|
(define-key map [right] #'previous-history-element)
|
|
|
|
|
(define-key map [left] #'next-history-element)
|
2015-07-17 13:16:08 +02:00
|
|
|
|
map)
|
|
|
|
|
"Keymap used for interactively switch workspace.")
|
|
|
|
|
|
|
|
|
|
(defvar exwm-workspace--switch-history nil
|
|
|
|
|
"History for `read-from-minibuffer' to interactively switch workspace.")
|
|
|
|
|
|
2015-09-04 03:09:59 +02:00
|
|
|
|
;;;###autoload
|
2015-07-17 13:16:08 +02:00
|
|
|
|
(defun exwm-workspace--update-switch-history ()
|
|
|
|
|
"Update the history for switching workspace to reflect the latest status."
|
|
|
|
|
(let ((sequence (number-sequence 0 (1- exwm-workspace-number)))
|
|
|
|
|
(not-empty (make-vector exwm-workspace-number nil)))
|
|
|
|
|
(dolist (i exwm--id-buffer-alist)
|
|
|
|
|
(with-current-buffer (cdr i)
|
2015-07-18 15:16:14 +02:00
|
|
|
|
(when exwm--frame
|
2015-09-06 11:18:48 +02:00
|
|
|
|
(setf (aref not-empty (cl-position exwm--frame exwm-workspace--list))
|
2015-07-18 15:16:14 +02:00
|
|
|
|
t))))
|
2015-07-17 13:16:08 +02:00
|
|
|
|
(setq exwm-workspace--switch-history
|
|
|
|
|
(mapcar
|
|
|
|
|
(lambda (i)
|
|
|
|
|
(mapconcat
|
|
|
|
|
(lambda (j)
|
|
|
|
|
(format (if (= i j) "[%s]" " %s ")
|
|
|
|
|
(propertize
|
|
|
|
|
(int-to-string j)
|
|
|
|
|
'face
|
|
|
|
|
(cond ((frame-parameter (elt exwm-workspace--list j)
|
|
|
|
|
'exwm--urgency)
|
|
|
|
|
'(:foreground "orange"))
|
2015-09-06 11:18:48 +02:00
|
|
|
|
((aref not-empty j) '(:foreground "green"))
|
2015-07-17 13:16:08 +02:00
|
|
|
|
(t nil)))))
|
|
|
|
|
sequence ""))
|
|
|
|
|
sequence))))
|
|
|
|
|
|
|
|
|
|
(defvar exwm-workspace--current nil "Current active workspace.")
|
|
|
|
|
(defvar exwm-workspace-current-index 0 "Index of current active workspace.")
|
2015-09-16 15:32:38 +02:00
|
|
|
|
(defvar exwm-workspace-show-all-buffers nil
|
|
|
|
|
"Non-nil to show buffers on other workspaces.")
|
2015-07-17 13:16:08 +02:00
|
|
|
|
|
|
|
|
|
(defun exwm-workspace-switch (index &optional force)
|
|
|
|
|
"Switch to workspace INDEX. Query for INDEX if it's not specified.
|
|
|
|
|
|
2015-08-03 14:26:53 +02:00
|
|
|
|
The optional FORCE option is for internal use only."
|
2015-07-17 13:16:08 +02:00
|
|
|
|
(interactive
|
|
|
|
|
(list
|
2015-08-07 06:41:15 +02:00
|
|
|
|
(unless (and (eq major-mode 'exwm-mode) exwm--fullscreen) ;it's invisible
|
2015-09-04 03:09:59 +02:00
|
|
|
|
(let* ((history-add-new-input nil) ;prevent modifying history
|
2015-08-07 06:41:15 +02:00
|
|
|
|
(idx (read-from-minibuffer
|
|
|
|
|
"Workspace: " (elt exwm-workspace--switch-history
|
|
|
|
|
exwm-workspace-current-index)
|
|
|
|
|
exwm-workspace--switch-map nil
|
|
|
|
|
`(exwm-workspace--switch-history
|
|
|
|
|
. ,(1+ exwm-workspace-current-index)))))
|
2015-09-04 03:09:59 +02:00
|
|
|
|
(cl-position idx exwm-workspace--switch-history :test #'equal)))))
|
2015-08-11 03:18:21 +02:00
|
|
|
|
(when index
|
2015-08-03 14:26:53 +02:00
|
|
|
|
(unless (and (<= 0 index) (< index exwm-workspace-number))
|
|
|
|
|
(user-error "[EXWM] Workspace index out of range: %d" index))
|
|
|
|
|
(when (or force (/= exwm-workspace-current-index index))
|
|
|
|
|
(let ((frame (elt exwm-workspace--list index)))
|
|
|
|
|
(setq exwm-workspace--current frame
|
|
|
|
|
exwm-workspace-current-index index)
|
|
|
|
|
(select-frame-set-input-focus frame)
|
|
|
|
|
;; Move mouse when necessary
|
|
|
|
|
(let ((position (mouse-pixel-position))
|
|
|
|
|
x y w h)
|
|
|
|
|
(unless (eq frame (car position))
|
|
|
|
|
(setq x (cadr position)
|
|
|
|
|
y (cddr position)
|
|
|
|
|
w (frame-pixel-width frame)
|
|
|
|
|
h (frame-pixel-height frame))
|
|
|
|
|
(when (or (> x w) (> y h))
|
|
|
|
|
(setq x (/ w 2)
|
|
|
|
|
y (/ h 2)))
|
|
|
|
|
(set-mouse-pixel-position frame x y)))
|
|
|
|
|
(setq default-minibuffer-frame frame)
|
|
|
|
|
;; Hide windows in other workspaces by preprending a space
|
2015-09-16 15:32:38 +02:00
|
|
|
|
(unless exwm-workspace-show-all-buffers
|
|
|
|
|
(dolist (i exwm--id-buffer-alist)
|
|
|
|
|
(with-current-buffer (cdr i)
|
|
|
|
|
(let ((name (replace-regexp-in-string "^\\s-*" ""
|
|
|
|
|
(buffer-name))))
|
|
|
|
|
(exwm-workspace-rename-buffer (if (eq frame exwm--frame)
|
|
|
|
|
name
|
|
|
|
|
(concat " " name)))))))
|
2015-08-03 14:26:53 +02:00
|
|
|
|
;; Update demands attention flag
|
|
|
|
|
(set-frame-parameter frame 'exwm--urgency nil)
|
|
|
|
|
;; Update switch workspace history
|
|
|
|
|
(exwm-workspace--update-switch-history)
|
2015-08-05 08:10:44 +02:00
|
|
|
|
(exwm--make-emacs-idle-for 0.1) ;FIXME
|
2015-08-03 14:26:53 +02:00
|
|
|
|
;; Update _NET_CURRENT_DESKTOP
|
|
|
|
|
(xcb:+request exwm--connection
|
|
|
|
|
(make-instance 'xcb:ewmh:set-_NET_CURRENT_DESKTOP
|
|
|
|
|
:window exwm--root :data index))
|
2015-08-11 03:18:21 +02:00
|
|
|
|
(xcb:flush exwm--connection)))))
|
2015-08-03 14:26:53 +02:00
|
|
|
|
|
|
|
|
|
(defun exwm-workspace--on-focus-in ()
|
|
|
|
|
"Fix unexpected frame switch."
|
2015-08-11 03:18:21 +02:00
|
|
|
|
(let ((index (cl-position (selected-frame) exwm-workspace--list)))
|
|
|
|
|
(exwm--log "Focus on workspace %s" index)
|
|
|
|
|
(when (and index (/= index exwm-workspace-current-index))
|
|
|
|
|
(exwm--log "Workspace was switched unexpectedly")
|
|
|
|
|
(exwm-workspace-switch index))))
|
2015-07-17 13:16:08 +02:00
|
|
|
|
|
2015-09-04 03:09:59 +02:00
|
|
|
|
;;;###autoload
|
2015-07-17 13:16:08 +02:00
|
|
|
|
(defun exwm-workspace-move-window (index &optional id)
|
|
|
|
|
"Move window ID to workspace INDEX."
|
|
|
|
|
(interactive
|
|
|
|
|
(list
|
|
|
|
|
(let* ((history-add-new-input nil) ;prevent modifying history
|
|
|
|
|
(idx (read-from-minibuffer
|
|
|
|
|
"Workspace: " (elt exwm-workspace--switch-history
|
|
|
|
|
exwm-workspace-current-index)
|
|
|
|
|
exwm-workspace--switch-map nil
|
|
|
|
|
`(exwm-workspace--switch-history
|
|
|
|
|
. ,(1+ exwm-workspace-current-index)))))
|
2015-09-04 03:09:59 +02:00
|
|
|
|
(cl-position idx exwm-workspace--switch-history :test #'equal))))
|
2015-07-17 13:16:08 +02:00
|
|
|
|
(unless id (setq id (exwm--buffer->id (window-buffer))))
|
|
|
|
|
(unless (and (<= 0 index) (< index exwm-workspace-number))
|
|
|
|
|
(user-error "[EXWM] Workspace index out of range: %d" index))
|
2015-08-16 20:05:47 +02:00
|
|
|
|
(with-current-buffer (exwm--id->buffer id)
|
2015-07-17 13:16:08 +02:00
|
|
|
|
(let ((frame (elt exwm-workspace--list index)))
|
2015-09-09 13:08:51 +02:00
|
|
|
|
(unless (eq exwm--frame frame)
|
2015-09-16 15:32:38 +02:00
|
|
|
|
(unless exwm-workspace-show-all-buffers
|
|
|
|
|
(let ((name (replace-regexp-in-string "^\\s-*" "" (buffer-name))))
|
|
|
|
|
(exwm-workspace-rename-buffer
|
|
|
|
|
(if (= index exwm-workspace-current-index)
|
|
|
|
|
name
|
|
|
|
|
(concat " " name)))))
|
2015-07-17 13:16:08 +02:00
|
|
|
|
(setq exwm--frame frame)
|
|
|
|
|
(if exwm--floating-frame
|
|
|
|
|
;; Move the floating frame is enough
|
2015-08-08 14:39:05 +02:00
|
|
|
|
(progn
|
|
|
|
|
(xcb:+request exwm--connection
|
|
|
|
|
(make-instance 'xcb:ReparentWindow
|
|
|
|
|
:window (frame-parameter exwm--floating-frame
|
|
|
|
|
'exwm-outer-id)
|
|
|
|
|
:parent (frame-parameter frame
|
|
|
|
|
'exwm-window-id)
|
|
|
|
|
:x 0 :y 0))
|
|
|
|
|
(xcb:flush exwm--connection))
|
2015-07-17 13:16:08 +02:00
|
|
|
|
;; Move the window itself
|
2015-09-09 13:08:51 +02:00
|
|
|
|
(if (/= index exwm-workspace-current-index)
|
|
|
|
|
(bury-buffer)
|
|
|
|
|
(set-window-buffer (get-buffer-window (current-buffer) t)
|
|
|
|
|
(or (get-buffer "*scratch*")
|
|
|
|
|
(prog1 (get-buffer-create "*scratch*")
|
|
|
|
|
(set-buffer-major-mode "*scratch*")))))
|
2015-07-19 03:15:53 +02:00
|
|
|
|
(exwm-layout--hide id)
|
2015-07-17 13:16:08 +02:00
|
|
|
|
(xcb:+request exwm--connection
|
|
|
|
|
(make-instance 'xcb:ReparentWindow
|
|
|
|
|
:window id
|
|
|
|
|
:parent (frame-parameter frame 'exwm-window-id)
|
2015-08-08 14:39:05 +02:00
|
|
|
|
:x 0 :y 0))
|
|
|
|
|
(xcb:flush exwm--connection)
|
2015-09-11 11:34:06 +02:00
|
|
|
|
(set-window-buffer (frame-selected-window frame)
|
2015-08-08 14:39:05 +02:00
|
|
|
|
(exwm--id->buffer id)))))
|
2015-07-17 13:16:08 +02:00
|
|
|
|
(exwm-workspace--update-switch-history)))
|
|
|
|
|
|
2015-09-16 15:32:38 +02:00
|
|
|
|
(defun exwm-workspace-switch-to-buffer ()
|
|
|
|
|
"Make the current Emacs window display another buffer."
|
2015-09-09 13:08:51 +02:00
|
|
|
|
(interactive)
|
|
|
|
|
;; Show all buffers
|
2015-09-16 15:32:38 +02:00
|
|
|
|
(unless exwm-workspace-show-all-buffers
|
|
|
|
|
(dolist (pair exwm--id-buffer-alist)
|
|
|
|
|
(with-current-buffer (cdr pair)
|
|
|
|
|
(when (= ?\s (aref (buffer-name) 0))
|
|
|
|
|
(rename-buffer (substring (buffer-name) 1))))))
|
|
|
|
|
(let ((buffer (read-buffer "Switch to buffer: " nil t)))
|
2015-09-09 13:08:51 +02:00
|
|
|
|
(when buffer
|
|
|
|
|
(with-current-buffer buffer
|
2015-09-11 02:07:53 +02:00
|
|
|
|
(if (and (eq major-mode 'exwm-mode)
|
|
|
|
|
(not (eq exwm--frame exwm-workspace--current)))
|
|
|
|
|
(exwm-workspace-move-window exwm-workspace-current-index
|
|
|
|
|
exwm--id)
|
|
|
|
|
(switch-to-buffer buffer)))))
|
2015-09-09 13:08:51 +02:00
|
|
|
|
;; Hide buffers on other workspaces
|
2015-09-16 15:32:38 +02:00
|
|
|
|
(unless exwm-workspace-show-all-buffers
|
|
|
|
|
(dolist (pair exwm--id-buffer-alist)
|
|
|
|
|
(with-current-buffer (cdr pair)
|
|
|
|
|
(unless (or (eq exwm--frame exwm-workspace--current)
|
|
|
|
|
(= ?\s (aref (buffer-name) 0)))
|
|
|
|
|
(rename-buffer (concat " " (buffer-name))))))))
|
2015-09-09 13:08:51 +02:00
|
|
|
|
|
2015-07-26 10:04:21 +02:00
|
|
|
|
(defun exwm-workspace-rename-buffer (newname)
|
|
|
|
|
"Rename a buffer."
|
2015-08-26 13:35:19 +02:00
|
|
|
|
(let ((hidden (= ?\s (aref newname 0)))
|
|
|
|
|
(basename (replace-regexp-in-string "<[0-9]+>$" "" newname))
|
|
|
|
|
(counter 1)
|
|
|
|
|
tmp)
|
|
|
|
|
(when hidden (setq basename (substring basename 1)))
|
|
|
|
|
(setq newname basename)
|
|
|
|
|
(while (and (setq tmp (or (get-buffer newname)
|
|
|
|
|
(get-buffer (concat " " newname))))
|
|
|
|
|
(not (eq tmp (current-buffer))))
|
|
|
|
|
(setq newname (format "%s<%d>" basename (cl-incf counter))))
|
|
|
|
|
(rename-buffer (concat (and hidden " ") newname))))
|
2015-07-26 10:04:21 +02:00
|
|
|
|
|
2015-07-17 13:16:08 +02:00
|
|
|
|
(defun exwm-workspace--init ()
|
|
|
|
|
"Initialize workspace module."
|
|
|
|
|
(cl-assert (and (< 0 exwm-workspace-number) (>= 10 exwm-workspace-number)))
|
|
|
|
|
;; Prevent unexpected exit
|
|
|
|
|
(setq confirm-kill-emacs
|
|
|
|
|
(lambda (prompt)
|
|
|
|
|
(pcase (length exwm--id-buffer-alist)
|
|
|
|
|
(0 (y-or-n-p prompt))
|
|
|
|
|
(x (yes-or-no-p (format "[EXWM] %d window%s currently alive. %s"
|
|
|
|
|
x (if (= x 1) "" "s") prompt))))))
|
|
|
|
|
;; Initialize workspaces
|
|
|
|
|
(setq exwm-workspace--list (frame-list))
|
|
|
|
|
(when (< 1 (length exwm-workspace--list))
|
|
|
|
|
;; Emacs client creates an extra (but unusable) frame
|
|
|
|
|
(dolist (i exwm-workspace--list)
|
|
|
|
|
(unless (frame-parameter i 'window-id)
|
2015-08-27 07:05:05 +02:00
|
|
|
|
(setq exwm-workspace--list (delq i exwm-workspace--list))))
|
|
|
|
|
(cl-assert (= 1 (length exwm-workspace--list)))
|
|
|
|
|
;; Prevent user from deleting this frame by accident
|
|
|
|
|
(set-frame-parameter (car exwm-workspace--list) 'client nil))
|
2015-07-17 13:16:08 +02:00
|
|
|
|
;; Create remaining frames
|
2015-09-04 03:09:59 +02:00
|
|
|
|
(dotimes (_ (1- exwm-workspace-number))
|
2015-07-17 13:16:08 +02:00
|
|
|
|
(nconc exwm-workspace--list
|
2015-08-24 21:09:42 +02:00
|
|
|
|
(list (make-frame '((window-system . x)
|
|
|
|
|
(visibility . nil))))))
|
2015-07-17 13:16:08 +02:00
|
|
|
|
;; Configure workspaces
|
|
|
|
|
(dolist (i exwm-workspace--list)
|
2015-09-04 03:09:59 +02:00
|
|
|
|
(let ((window-id (string-to-number (frame-parameter i 'window-id)))
|
|
|
|
|
(outer-id (string-to-number (frame-parameter i 'outer-window-id))))
|
2015-07-17 13:16:08 +02:00
|
|
|
|
;; Save window IDs
|
|
|
|
|
(set-frame-parameter i 'exwm-window-id window-id)
|
|
|
|
|
(set-frame-parameter i 'exwm-outer-id outer-id)
|
|
|
|
|
;; Set OverrideRedirect on all frames
|
|
|
|
|
(xcb:+request exwm--connection
|
|
|
|
|
(make-instance 'xcb:ChangeWindowAttributes
|
|
|
|
|
:window outer-id :value-mask xcb:CW:OverrideRedirect
|
|
|
|
|
:override-redirect 1))
|
|
|
|
|
;; Select events on all virtual roots
|
|
|
|
|
(xcb:+request exwm--connection
|
|
|
|
|
(make-instance 'xcb:ChangeWindowAttributes
|
|
|
|
|
:window window-id :value-mask xcb:CW:EventMask
|
|
|
|
|
:event-mask xcb:EventMask:SubstructureRedirect))))
|
2015-07-18 15:16:14 +02:00
|
|
|
|
(xcb:flush exwm--connection)
|
2015-08-24 21:09:42 +02:00
|
|
|
|
;; We have to delay making the frame visible until the
|
|
|
|
|
;; override-redirect flag has been set.
|
|
|
|
|
(select-frame-set-input-focus (car exwm-workspace--list))
|
|
|
|
|
(dolist (i exwm-workspace--list)
|
|
|
|
|
(set-frame-parameter i 'visibility t)
|
|
|
|
|
(lower-frame i)
|
|
|
|
|
(set-frame-parameter i 'fullscreen 'fullboth))
|
|
|
|
|
(raise-frame (car exwm-workspace--list))
|
2015-08-03 14:26:53 +02:00
|
|
|
|
;; Handle unexpected frame switch
|
2015-09-04 03:09:59 +02:00
|
|
|
|
(add-hook 'focus-in-hook #'exwm-workspace--on-focus-in)
|
2015-08-26 11:25:21 +02:00
|
|
|
|
;; 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))))
|
2015-07-17 13:16:08 +02:00
|
|
|
|
;; Switch to the first workspace
|
|
|
|
|
(exwm-workspace-switch 0 t))
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
(provide 'exwm-workspace)
|
|
|
|
|
|
|
|
|
|
;;; exwm-workspace.el ends here
|