;;; exwm-core.el --- Core definitions -*- 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 includes core definitions of variables, macros, functions, etc ;; shared by various other modules. ;;; Code: (require 'xcb) (require 'xcb-icccm) (require 'xcb-ewmh) (eval-and-compile (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))) (defmacro exwm--debug (&rest forms) (when exwm-debug-on `(progn ,@forms))) (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 BUFFER => X window ID." (car (rassoc buffer exwm--id-buffer-alist))) (defun exwm--lock (&rest _args) "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) "Unlock (enable all events)." (xcb:+request exwm--connection (make-instance 'xcb:ChangeWindowAttributes :window exwm--root :value-mask xcb:CW:EventMask :event-mask (eval-when-compile (logior xcb:EventMask:SubstructureRedirect xcb:EventMask:StructureNotify)))) (xcb:flush exwm--connection)) (defconst exwm--client-event-mask (eval-when-compile (logior xcb:EventMask:StructureNotify xcb:EventMask:PropertyChange)) "Event mask set on all managed windows.") (declare-function exwm-input--on-KeyPress-line-mode "exwm-input.el" (key-press)) ;; Internal variables (defvar-local exwm--id nil) ;window ID (defvar-local exwm--container nil) ;container (defvar-local exwm--frame nil) ;workspace frame (defvar-local exwm--floating-frame nil) ;floating frame (defvar-local exwm--mode-line-format nil) ;save mode-line-format (defvar-local exwm--fullscreen nil) ;used in fullscreen (defvar-local exwm--floating-frame-position nil) ;used in fullscreen (defvar-local exwm--fixed-size nil) ;fixed size (defvar-local exwm--on-KeyPress ;KeyPress event handler #'exwm-input--on-KeyPress-line-mode) ;; Properties (defvar-local exwm-window-type nil "_NET_WM_WINDOW_TYPE.") (defvar-local exwm--geometry nil) (defvar-local exwm-class-name nil "Class name in WM_CLASS.") (defvar-local exwm-instance-name nil "Instance name in WM_CLASS.") (defvar-local exwm-title nil "Window title (either _NET_WM_NAME or WM_NAME)") (defvar-local exwm--title-is-utf8 nil) (defvar-local exwm-transient-for nil "WM_TRANSIENT_FOR.") (defvar-local exwm--protocols nil) (defvar-local exwm-state nil "WM_STATE.") ;; _NET_WM_NORMAL_HINTS (defvar-local exwm--normal-hints-x nil) (defvar-local exwm--normal-hints-y nil) (defvar-local exwm--normal-hints-width nil) (defvar-local exwm--normal-hints-height nil) (defvar-local exwm--normal-hints-min-width nil) (defvar-local exwm--normal-hints-min-height nil) (defvar-local exwm--normal-hints-max-width nil) (defvar-local exwm--normal-hints-max-height nil) ;; (defvar-local exwm--normal-hints-win-gravity nil) ;; WM_HINTS (defvar-local exwm--hints-input nil) (defvar-local exwm--hints-urgency nil) ;; _MOTIF_WM_HINTS (defvar-local exwm--mwm-hints nil) (defvar exwm-mode-map (let ((map (make-sparse-keymap))) (define-key map "\C-c\C-f" #'exwm-layout-set-fullscreen) (define-key map "\C-c\C-h" #'exwm-floating-hide) (define-key map "\C-c\C-k" #'exwm-input-release-keyboard) (define-key map "\C-c\C-m" #'exwm-workspace-move-window) (define-key map "\C-c\C-q" #'exwm-input-send-next-key) (define-key map "\C-c\C-t\C-f" #'exwm-floating-toggle-floating) (define-key map "\C-c\C-t\C-m" #'exwm-layout-toggle-mode-line) map) "Keymap for `exwm-mode'.") (declare-function exwm-manage--kill-buffer-query-function "exwm-manage.el") (define-derived-mode exwm-mode nil "EXWM" "Major mode for managing X windows. \\{exwm-mode-map}" ;; (setq mode-name '(:eval (propertize "EXWM" 'face (when (cl-some (lambda (i) (frame-parameter i 'exwm--urgency)) exwm-workspace--list) 'font-lock-warning-face)))) ;; Change major-mode is not allowed (add-hook 'change-major-mode-hook #'kill-buffer nil t) ;; Kill buffer -> close window (add-hook 'kill-buffer-query-functions #'exwm-manage--kill-buffer-query-function nil t) (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)) (provide 'exwm-core) ;;; exwm-core.el ends here