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

[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  9ce22f406fd16ed0d4773c8c65e0367e9c84ecb2 (commit)
      from  edc2c5fc5132d75d9e287e17c804bb6861a0bd82 (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 9ce22f406fd16ed0d4773c8c65e0367e9c84ecb2
Author: Philipp Kroos <philipp.kroos at t-online.de>
Date:   Mon Aug 20 22:41:34 2012 +0200

    src/clfswm-placement.lisp (here-placement): Evaluates to current position of pointer.

diff --git a/ChangeLog b/ChangeLog
index cc3d549..24f96c1 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,10 @@
 2012-08-20  Philipp Kroos  <philipp.kroos at t-online.de>
 
+	* src/clfswm-placement.lisp (here-placement): Evaluates to current
+	position of pointer.
+
+2012-08-20  Philipp Kroos  <philipp.kroos at t-online.de>
+
 	* contrib/toolbar.lisp: Add an expose-mode-button-module.
 
 2012-08-19  Philippe Brochard  <pbrochard at common-lisp.net>
diff --git a/src/clfswm-placement.lisp b/src/clfswm-placement.lisp
index c40901c..8e9b953 100644
--- a/src/clfswm-placement.lisp
+++ b/src/clfswm-placement.lisp
@@ -112,6 +112,15 @@
     (values (- w width) (- h height) width height)))
 
 
+
+;;;
+;;; Here placement: Evaluates to current position of pointer.
+;;;
+(defun here-placement (&optional (width 0) (height 0) (border-size *border-size*))
+  (with-x-pointer
+      (values x y width height)))
+
+
 ;;;
 ;;; Current child placement
 ;;;

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

Summary of changes:
 ChangeLog                 |    5 +++++
 src/clfswm-placement.lisp |    9 +++++++++
 2 files changed, 14 insertions(+), 0 deletions(-)


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