From pbrochard at common-lisp.net Tue Mar 4 15:30:58 2014 From: pbrochard at common-lisp.net (Philippe Brochard) Date: Tue, 4 Mar 2014 07:30:58 -0800 (PST) Subject: [clfswm-git]CLFSWM - A(nother) Common Lisp FullScreen Window Manager branch master updated. R-1212-56-g64e0032 Message-ID: <20140304153058.E97AD356461@mail.common-lisp.net> This is an automated email from the git hooks/post-receive script. It was generated because a ref change was pushed to the repository containing the project "CLFSWM - A(nother) Common Lisp FullScreen Window Manager". The branch, master has been updated via 64e0032f8bda7fedbe186f770e91eeebbdf11547 (commit) from 2ee0a21f395a006b88f476c4ff5202b329bfd8fb (commit) Those revisions listed above that are new to this repository have not appeared on any other notification email; so we list those revisions in full, below. - Log ----------------------------------------------------------------- commit 64e0032f8bda7fedbe186f770e91eeebbdf11547 Author: Andrea De Michele Date: Tue Mar 4 15:09:10 2014 +0000 Fix a problem with macro with-timer diff --git a/src/clfswm.lisp b/src/clfswm.lisp index 0853644..52d2459 100644 --- a/src/clfswm.lisp +++ b/src/clfswm.lisp @@ -135,9 +135,6 @@ (set-focus-to-current-child))) - - - (define-handler main-mode :exposure (window) (awhen (find-frame-window window) (display-frame-info it))) diff --git a/src/tools.lisp b/src/tools.lisp index 03a9d67..a41249c 100644 --- a/src/tools.lisp +++ b/src/tools.lisp @@ -317,7 +317,7 @@ Return the result of the last hook" "Start the function fun at delay seconds." (funcall #'add-timer delay fun id)) -(defmacro with-timer ((delay &optional (id (gensym))) &body body) +(defmacro with-timer ((delay &optional (id '(gensym))) &body body) "Same thing as add-timer but with syntaxic sugar" `(add-timer ,delay (lambda () ----------------------------------------------------------------------- Summary of changes: src/clfswm.lisp | 3 --- src/tools.lisp | 2 +- 2 files changed, 1 insertion(+), 4 deletions(-) hooks/post-receive -- CLFSWM - A(nother) Common Lisp FullScreen Window Manager