From 6d63c712808bcb12ce7190999d17c4a0d6959cdb Mon Sep 17 00:00:00 2001 From: Chris Feng Date: Fri, 4 Sep 2015 09:09:59 +0800 Subject: Prepare for GNU ELPA release * Transfer copyright to Free Software Foundation * Add packaging components (e.g. headers) * Coding style fixes: + Quote functions with "#'" + Wrap long lines + Fix doc strings / comments * Replace `string-to-int' with `string-to-number' * Fix compiling errors / eliminate compiling warnings + Add exwm-core.el to hold common variables, functions and macros * Remove the redundant COPYING file * Add .gitignore * Rename README to README.md --- exwm-manage.el | 27 ++++++++++++++------------- 1 file changed, 14 insertions(+), 13 deletions(-) (limited to 'exwm-manage.el') diff --git a/exwm-manage.el b/exwm-manage.el index 648b42b8fed5..a8d0e592a82e 100644 --- a/exwm-manage.el +++ b/exwm-manage.el @@ -1,25 +1,24 @@ ;;; exwm-manage.el --- Window Management Module for -*- lexical-binding: t -*- ;;; EXWM -;; Copyright (C) 2015 Chris Feng +;; Copyright (C) 2015 Free Software Foundation, Inc. ;; Author: Chris Feng -;; Keywords: unix -;; This file is not part of GNU Emacs. +;; This file is part of GNU Emacs. -;; This file is free software: you can redistribute it and/or modify +;; 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. -;; This file is distributed in the hope that it will be useful, +;; 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 this file. If not, see . +;; along with GNU Emacs. If not, see . ;;; Commentary: @@ -27,7 +26,8 @@ ;;; Code: -(require 'exwm-input) +(require 'exwm-core) +(eval-when-compile (require 'exwm-workspace)) (defvar exwm-manage-finish-hook nil "Normal hook run after a window is just managed, in the context of the @@ -208,6 +208,7 @@ corresponding buffer.") "Non-nil indicates EXWM is pinging a window.") (defvar exwm-manage-ping-timeout 3 "Seconds to wait before killing a client.") +;;;###autoload (defun exwm-manage--close-window (id &optional buffer) "Close window ID in a proper way." (catch 'return @@ -269,7 +270,7 @@ corresponding buffer.") (make-instance 'xcb:KillClient :resource id)) (xcb:flush exwm--connection)))) -(defun exwm-manage--on-ConfigureRequest (data synthetic) +(defun exwm-manage--on-ConfigureRequest (data _synthetic) "Handle ConfigureRequest event." (let ((obj (make-instance 'xcb:ConfigureRequest)) buffer edges) @@ -316,7 +317,7 @@ corresponding buffer.") :sibling sibling :stack-mode stack-mode))))) (xcb:flush exwm--connection)) -(defun exwm-manage--on-MapRequest (data synthetic) +(defun exwm-manage--on-MapRequest (data _synthetic) "Handle MapRequest event." (let ((obj (make-instance 'xcb:MapRequest))) (xcb:unmarshal obj data) @@ -347,11 +348,11 @@ corresponding buffer.") (defun exwm-manage--init () "Initialize manage module." (xcb:+event exwm--connection 'xcb:ConfigureRequest - 'exwm-manage--on-ConfigureRequest) - (xcb:+event exwm--connection 'xcb:MapRequest 'exwm-manage--on-MapRequest) - (xcb:+event exwm--connection 'xcb:UnmapNotify 'exwm-manage--on-UnmapNotify) + #'exwm-manage--on-ConfigureRequest) + (xcb:+event exwm--connection 'xcb:MapRequest #'exwm-manage--on-MapRequest) + (xcb:+event exwm--connection 'xcb:UnmapNotify #'exwm-manage--on-UnmapNotify) (xcb:+event exwm--connection 'xcb:DestroyNotify - 'exwm-manage--on-DestroyNotify)) + #'exwm-manage--on-DestroyNotify)) -- cgit 1.4.1