[clfswm-cvs] [clfswm-git]CLFSWM - A(nother) Common Lisp FullScreen Window Manager branch master updated. R-1106-19-ge80edf8

[Philippe Brochard]

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  e80edf80fac89a72295f52b7ef6f1f144fed0c8c (commit)
      from  c32a530824352e04fb3374de13ba8dbc408015a5 (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 e80edf80fac89a72295f52b7ef6f1f144fed0c8c
Author: Philippe Brochard <pbrochard at common-lisp.net>
Date:   Wed Jan 18 00:06:14 2012 +0100

    src/clfswm-keys.lisp (define-keys): New macro to ease multiple keys definitions. (Thanks Valentin Plechinger for the request).

diff --git a/ChangeLog b/ChangeLog
index 1a89174..cc340f8 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,10 @@
+2012-01-18  Philippe Brochard  <pbrochard at common-lisp.net>
+
+	* src/clfswm-keys.lisp (define-keys): New macro to ease multiple
+	keys definitions. (Thanks Valentin Plechinger for the request).
+
+	* src/*.lisp: Add full transparency support with xcompmgr.
+
 2012-01-14  Philippe Brochard  <pbrochard at common-lisp.net>
 
 	* src/*.lisp: Add transparency support.
diff --git a/src/clfswm-keys.lisp b/src/clfswm-keys.lisp
index 6a40d64..0aedb55 100644
--- a/src/clfswm-keys.lisp
+++ b/src/clfswm-keys.lisp
@@ -248,3 +248,9 @@
 		      hashtable)))
     (dolist (h hashtables)
       (change h to from))))
+
+
+(defmacro define-keys ((mode) &body keys)
+  (let ((symb (symb "DEFINE-" mode "-KEY")))
+    `(progn
+       ,@(loop for k in keys collect `(,symb , at k)))))

-----------------------------------------------------------------------

Summary of changes:
 ChangeLog            |    7 +++++++
 src/clfswm-keys.lisp |    6 ++++++
 2 files changed, 13 insertions(+), 0 deletions(-)


hooks/post-receive
-- 
CLFSWM - A(nother) Common Lisp FullScreen Window Manager