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

[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  4f9b2e14d10e1eb285f93d6bdea3054eebb33ce6 (commit)
      from  9ce22f406fd16ed0d4773c8c65e0367e9c84ecb2 (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 4f9b2e14d10e1eb285f93d6bdea3054eebb33ce6
Author: Philippe Brochard <pbrochard at common-lisp.net>
Date:   Mon Aug 20 23:41:31 2012 +0200

    src/clfswm-internal.lisp (add-in-never-managed-window-list): New function.

diff --git a/AUTHORS b/AUTHORS
index 4fb00f2..48d7119 100644
--- a/AUTHORS
+++ b/AUTHORS
@@ -1,7 +1,7 @@
 CLFSWM -  A(nother) Common Lisp FullScreen Window Manager
 ---------------------------------------------------------
 
-Philippe Brochard   pbrochard at common-lisp dot net test
+Philippe Brochard   pbrochard at common-lisp dot net
 
 
 Contributors
@@ -11,7 +11,8 @@ Xavier Maillard     xma at gnu dot org
 Cyrille THOUVENIN
 Desmond O. Chang <dochang at gmail dot com>
 Sylvain HENRY <hsyl20 at gmail dot com>
-
+Ales Guzik <ales dot guzik at gmail dot com>
+Philipp Kroos <philipp dot kroos at t-online dot de>
 
 -----------------------------------
 
diff --git a/ChangeLog b/ChangeLog
index 24f96c1..6191eb2 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2012-08-20  Philippe Brochard  <pbrochard at common-lisp.net>
+
+	* src/clfswm-internal.lisp (add-in-never-managed-window-list): New
+	function.
+
 2012-08-20  Philipp Kroos  <philipp.kroos at t-online.de>
 
 	* src/clfswm-placement.lisp (here-placement): Evaluates to current
diff --git a/contrib/toolbar.lisp b/contrib/toolbar.lisp
index 3493eb0..f6441fe 100644
--- a/contrib/toolbar.lisp
+++ b/contrib/toolbar.lisp
@@ -378,7 +378,7 @@
                                                                :line-style :solid))
               (push (toolbar-window toolbar) windows-list)
               (setf (window-transparency (toolbar-window toolbar)) *toolbar-window-transparency*)
-              (push (list #'is-toolbar-window-p nil) *never-managed-window-list*)
+              (add-in-never-managed-window-list (list 'is-toolbar-window-p nil))
               (map-window (toolbar-window toolbar))
               (raise-window (toolbar-window toolbar))
               (refresh-toolbar toolbar)
diff --git a/src/clfswm-internal.lisp b/src/clfswm-internal.lisp
index fde6ef1..6277524 100644
--- a/src/clfswm-internal.lisp
+++ b/src/clfswm-internal.lisp
@@ -25,8 +25,6 @@
 
 (in-package :clfswm)
 
-
-
 (defgeneric child-border-size (child))
 
 (defmethod child-border-size ((child frame))
@@ -218,6 +216,9 @@
       t))
 
 
+(defun add-in-never-managed-window-list (value)
+  (pushnew value *never-managed-window-list* :test #'equal))
+
 (defun never-managed-window-p (window)
   (when (xlib:window-p window)
     (dolist (type *never-managed-window-list*)
diff --git a/src/clfswm-placement.lisp b/src/clfswm-placement.lisp
index 8e9b953..4c558a1 100644
--- a/src/clfswm-placement.lisp
+++ b/src/clfswm-placement.lisp
@@ -117,6 +117,7 @@
 ;;; Here placement: Evaluates to current position of pointer.
 ;;;
 (defun here-placement (&optional (width 0) (height 0) (border-size *border-size*))
+  (declare (ignore border-size))
   (with-x-pointer
       (values x y width height)))
 
diff --git a/src/clfswm-util.lisp b/src/clfswm-util.lisp
index 6ac0742..d00877b 100644
--- a/src/clfswm-util.lisp
+++ b/src/clfswm-util.lisp
@@ -1764,7 +1764,7 @@ For window: set current child to window or its parent according to window-parent
           (setf (window-transparency window) *notify-window-transparency*)
 	  (when (frame-p (current-child))
 	    (setf current-child (current-child)))
-          (push (list #'is-notify-window-p 'raise-window) *never-managed-window-list*)
+          (add-in-never-managed-window-list (list 'is-notify-window-p 'raise-window))
 	  (map-window window)
 	  (refresh-notify-window)
 	  (xlib:display-finish-output *display*))))))

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

Summary of changes:
 AUTHORS                   |    5 +++--
 ChangeLog                 |    5 +++++
 contrib/toolbar.lisp      |    2 +-
 src/clfswm-internal.lisp  |    5 +++--
 src/clfswm-placement.lisp |    1 +
 src/clfswm-util.lisp      |    2 +-
 6 files changed, 14 insertions(+), 6 deletions(-)


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