From pbrochard at common-lisp.net  Thu Feb 19 23:38:10 2015
From: pbrochard at common-lisp.net (Philippe Brochard)
Date: Thu, 19 Feb 2015 23:38:10 +0000
Subject: [Clfswm-cvs] [clfswm-git]CLFSWM - A(nother) Common Lisp FullScreen
	Window Manager branch master updated. R-1212-65-ga83e36e
Message-ID: <E1YOafa-0002I0-Ht@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  a83e36e68f26a8c4ca04939362507fe31e5772db (commit)
      from  8fb65ba011b2d50b8b3c5fd4462116dc6269c7a8 (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 a83e36e68f26a8c4ca04939362507fe31e5772db
Author: Philippe Brochard <pbrochard at common-lisp.net>
Date:   Fri Feb 20 00:39:46 2015 +0100

    Add an expose mode to present child without changing there position

diff --git a/src/bindings.lisp b/src/bindings.lisp
index 80348aa..a9f4530 100644
--- a/src/bindings.lisp
+++ b/src/bindings.lisp
@@ -76,6 +76,7 @@
   (define-main-key ("Home" :mod-1 :shift) 'switch-and-select-root-frame)
   (define-main-key ("Menu") 'fastswitch-mode)
   (define-main-key ("Menu" :control) 'fastswitch-move-mode)
+  (define-main-key ("Menu" :mod-5) 'expose-current-child-mode)
   (define-main-key ("F10" :mod-1) 'fast-layout-switch)
   (define-main-key ("F10" :shift :control) 'toggle-show-root-frame)
   (define-main-key ("F10") 'expose-windows-mode)
@@ -156,5 +157,3 @@
   (define-main-mouse (5 :mod-1 :control :shift) 'inc-transparency-slow))
 
 (add-hook *binding-hook* 'set-default-main-mouse)
-
-
diff --git a/src/clfswm-expose-mode.lisp b/src/clfswm-expose-mode.lisp
index 8ea964d..2515ee9 100644
--- a/src/clfswm-expose-mode.lisp
+++ b/src/clfswm-expose-mode.lisp
@@ -170,16 +170,18 @@
               (frame-data-slot child :old-layout) nil)))))
 
 (defun expose-mode-display-accel-windows ()
-  (with-all-root-child (root)
-    (with-all-children-reversed (root child)
-      (let ((ex-child (find child *expose-child-list* :test #'child-equal-p :key #'expose-child-child)))
-        (when ex-child
-          (if (or (frame-p (expose-child-child ex-child))
-                  (managed-window-p (expose-child-child ex-child)
-                                    (find-parent-frame (expose-child-child ex-child) *root-frame*)))
-              (expose-create-window ex-child)
-              (hide-child (expose-child-child ex-child)))))))
-  (expose-draw-letter))
+  (let ((all-hidden-windows (get-hidden-windows)))
+	(with-all-root-child (root)
+	  (with-all-children-reversed (root child)
+		(let ((ex-child (find child *expose-child-list* :test #'child-equal-p :key #'expose-child-child)))
+		  (when ex-child
+			(if (or (frame-p (expose-child-child ex-child))
+					(managed-window-p (expose-child-child ex-child)
+									  (find-parent-frame (expose-child-child ex-child) *root-frame*)))
+				(unless (child-member (expose-child-child ex-child) all-hidden-windows)
+				  (expose-create-window ex-child))
+				(hide-child (expose-child-child ex-child)))))))
+	(expose-draw-letter)))
 
 
 (defun expose-find-child-from-letters (letters)
@@ -196,7 +198,7 @@
           (expose-child-child ex-child))))))
 
 
-(defun expose-restore-windows ()
+(defun expose-restore-windows (&optional (present-window t))
   (remove-hook *query-key-press-hook* 'expose-query-key-press-hook)
   (remove-hook *query-button-press-hook* 'expose-query-button-press-hook)
   (dolist (ex-child *expose-child-list*)
@@ -208,7 +210,8 @@
           (expose-child-window ex-child) nil))
   (when *expose-font*
     (xlib:close-font *expose-font*))
-  (expose-unpresent-windows))
+  (when present-window
+	(expose-unpresent-windows)))
 
 (defun expose-focus-child (child)
   (let ((parent (typecase child
@@ -219,13 +222,14 @@
       (setf (current-child) child)
       (focus-all-children child parent t))))
 
-(defun expose-do-main ()
+(defun expose-do-main (&optional (present-window t))
   (stop-button-event)
   (expose-init)
-  (expose-present-windows)
+  (when present-window
+	(expose-present-windows))
   (expose-mode-display-accel-windows)
   (let ((child (expose-select-child)))
-    (expose-restore-windows)
+	(expose-restore-windows present-window)
     child))
 
 (defun expose-windows-mode ()
@@ -247,3 +251,10 @@
       (expose-focus-child child)))
   (show-all-children)
   t)
+
+(defun expose-current-child-mode ()
+  "Present all windows in currents roots (An expose like)"
+  (awhen (expose-do-main nil)
+    (expose-focus-child it))
+  (show-all-children)
+  t)
diff --git a/src/clfswm-internal.lisp b/src/clfswm-internal.lisp
index edc3c2b..bf5d596 100644
--- a/src/clfswm-internal.lisp
+++ b/src/clfswm-internal.lisp
@@ -1826,7 +1826,3 @@ managed."
     (print-frame-tree (dump-frame-tree store #'xid->window)
                       #'(lambda (x)
                           (format nil "~A" (if (frame-p x) x (child-fullname x)))))))
-
-
-
-

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

Summary of changes:
 src/bindings.lisp           |  3 +--
 src/clfswm-expose-mode.lisp | 41 ++++++++++++++++++++++++++---------------
 src/clfswm-internal.lisp    |  4 ----
 3 files changed, 27 insertions(+), 21 deletions(-)


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



From pbrochard at common-lisp.net  Wed Feb 25 21:04:51 2015
From: pbrochard at common-lisp.net (Philippe Brochard)
Date: Wed, 25 Feb 2015 21:04:51 +0000
Subject: [Clfswm-cvs] [clfswm-git]CLFSWM - A(nother) Common Lisp FullScreen
	Window Manager branch master updated. R-1212-66-g4c665d5
Message-ID: <E1YQj8V-00048q-JC@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  4c665d59be7af1cdf7c7d31cfb937b23a80de004 (commit)
      from  a83e36e68f26a8c4ca04939362507fe31e5772db (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 4c665d59be7af1cdf7c7d31cfb937b23a80de004
Author: Philippe Brochard <pbrochard at common-lisp.net>
Date:   Wed Feb 25 22:06:31 2015 +0100

    Expose mode - save root list to prevent root change

diff --git a/src/clfswm-expose-mode.lisp b/src/clfswm-expose-mode.lisp
index 2515ee9..fb47fc0 100644
--- a/src/clfswm-expose-mode.lisp
+++ b/src/clfswm-expose-mode.lisp
@@ -218,7 +218,7 @@
                   (xlib:window (find-parent-frame child))
                   (frame child))))
     (when (and child parent)
-      (change-root (find-root parent) parent)
+	  (change-root (find-root parent) parent)
       (setf (current-child) child)
       (focus-all-children child parent t))))
 
@@ -230,7 +230,8 @@
   (expose-mode-display-accel-windows)
   (let ((child (expose-select-child)))
 	(expose-restore-windows present-window)
-    child))
+	child))
+
 
 (defun expose-windows-mode ()
   "Present all windows in currents roots (An expose like)"
@@ -254,7 +255,8 @@
 
 (defun expose-current-child-mode ()
   "Present all windows in currents roots (An expose like)"
-  (awhen (expose-do-main nil)
-    (expose-focus-child it))
+  (with-saved-root-list ()
+	(awhen (expose-do-main nil)
+	  (expose-focus-child it)))
   (show-all-children)
   t)

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

Summary of changes:
 src/clfswm-expose-mode.lisp | 10 ++++++----
 1 file changed, 6 insertions(+), 4 deletions(-)


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



From pbrochard at common-lisp.net  Wed Feb 25 21:17:43 2015
From: pbrochard at common-lisp.net (Philippe Brochard)
Date: Wed, 25 Feb 2015 21:17:43 +0000
Subject: [Clfswm-cvs] [clfswm-git]CLFSWM - A(nother) Common Lisp FullScreen
	Window Manager branch master updated. R-1212-67-gd1966ff
Message-ID: <E1YQjKx-0005Lg-KW@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  d1966ffb9e659402d7efd860856b393240bdad0b (commit)
      from  4c665d59be7af1cdf7c7d31cfb937b23a80de004 (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 d1966ffb9e659402d7efd860856b393240bdad0b
Author: Philippe Brochard <pbrochard at common-lisp.net>
Date:   Wed Feb 25 22:19:23 2015 +0100

    License date update

diff --git a/contrib/amixer.lisp b/contrib/amixer.lisp
index 2af5d6f..cf8a578 100644
--- a/contrib/amixer.lisp
+++ b/contrib/amixer.lisp
@@ -5,7 +5,7 @@
 ;;; Documentation: Volume mode
 ;;; --------------------------------------------------------------------------
 ;;;
-;;; (C) 2014 Desmond O. Chang <dochang at gmail.com>
+;;; (C) 2015 Desmond O. Chang <dochang at gmail.com>
 ;;;
 ;;; This program is free software; you can redistribute it and/or modify
 ;;; it under the terms of the GNU General Public License as published by
diff --git a/contrib/blank-window-mode.lisp b/contrib/blank-window-mode.lisp
index 52cfce5..1a60d17 100644
--- a/contrib/blank-window-mode.lisp
+++ b/contrib/blank-window-mode.lisp
@@ -8,7 +8,7 @@
 ;;;  in school class for interactive presentation).
 ;;; --------------------------------------------------------------------------
 ;;;
-;;; (C) 2014 Philippe Brochard <pbrochard at common-lisp.net>
+;;; (C) 2015 Philippe Brochard <pbrochard at common-lisp.net>
 ;;;
 ;;; This program is free software; you can redistribute it and/or modify
 ;;; it under the terms of the GNU General Public License as published by
diff --git a/contrib/cd-player.lisp b/contrib/cd-player.lisp
index bda1ad0..c8a260b 100644
--- a/contrib/cd-player.lisp
+++ b/contrib/cd-player.lisp
@@ -5,7 +5,7 @@
 ;;; Documentation: Music Player Daemon (MPD) interface
 ;;; --------------------------------------------------------------------------
 ;;;
-;;; (C) 2014 Philippe Brochard <pbrochard at common-lisp.net>
+;;; (C) 2015 Philippe Brochard <pbrochard at common-lisp.net>
 ;;;
 ;;; This program is free software; you can redistribute it and/or modify
 ;;; it under the terms of the GNU General Public License as published by
diff --git a/contrib/clfswm b/contrib/clfswm
index 8355ef4..5abd514 100755
--- a/contrib/clfswm
+++ b/contrib/clfswm
@@ -1,6 +1,6 @@
 #!/bin/bash -e
 #
-# (C) 2014 Xavier Maillard <xma at gnu.org>
+# (C) 2015 Xavier Maillard <xma at gnu.org>
 #
 # This program is free software; you can redistribute it and/or modify
 # it under the terms of the GNU General Public License as published by
@@ -239,4 +239,3 @@ then
 else
     echo "As requested, we have just dumped the image."
 fi
-
diff --git a/contrib/contrib-example.lisp b/contrib/contrib-example.lisp
index d5b3de0..0f8f374 100644
--- a/contrib/contrib-example.lisp
+++ b/contrib/contrib-example.lisp
@@ -5,7 +5,7 @@
 ;;; Documentation: A contrib example.
 ;;; --------------------------------------------------------------------------
 ;;;
-;;; (C) 2014 Philippe Brochard <pbrochard at common-lisp.net>
+;;; (C) 2015 Philippe Brochard <pbrochard at common-lisp.net>
 ;;;
 ;;; This program is free software; you can redistribute it and/or modify
 ;;; it under the terms of the GNU General Public License as published by
diff --git a/contrib/keyb_fr.lisp b/contrib/keyb_fr.lisp
index 46e05f8..e285013 100644
--- a/contrib/keyb_fr.lisp
+++ b/contrib/keyb_fr.lisp
@@ -5,7 +5,7 @@
 ;;; Documentation: Define some keybindings for an azerty french keyboard
 ;;; --------------------------------------------------------------------------
 ;;;
-;;; (C) 2014 Philippe Brochard <pbrochard at common-lisp.net>
+;;; (C) 2015 Philippe Brochard <pbrochard at common-lisp.net>
 ;;;
 ;;; This program is free software; you can redistribute it and/or modify
 ;;; it under the terms of the GNU General Public License as published by
diff --git a/contrib/moc.lisp b/contrib/moc.lisp
index 226b108..71ee721 100644
--- a/contrib/moc.lisp
+++ b/contrib/moc.lisp
@@ -5,7 +5,7 @@
 ;;; Documentation: MOC - Console audio player - interface
 ;;; --------------------------------------------------------------------------
 ;;;
-;;; (C) 2014 Philippe Brochard <pbrochard at common-lisp.net>
+;;; (C) 2015 Philippe Brochard <pbrochard at common-lisp.net>
 ;;;
 ;;; This program is free software; you can redistribute it and/or modify
 ;;; it under the terms of the GNU General Public License as published by
diff --git a/contrib/mpd.lisp b/contrib/mpd.lisp
index 14ffffa..74d59d0 100644
--- a/contrib/mpd.lisp
+++ b/contrib/mpd.lisp
@@ -5,7 +5,7 @@
 ;;; Documentation: Music Player Daemon (MPD) interface
 ;;; --------------------------------------------------------------------------
 ;;;
-;;; (C) 2014 Philippe Brochard <pbrochard at common-lisp.net>
+;;; (C) 2015 Philippe Brochard <pbrochard at common-lisp.net>
 ;;;
 ;;; This program is free software; you can redistribute it and/or modify
 ;;; it under the terms of the GNU General Public License as published by
diff --git a/contrib/osd.lisp b/contrib/osd.lisp
index 0ef6155..d1ffd96 100644
--- a/contrib/osd.lisp
+++ b/contrib/osd.lisp
@@ -5,7 +5,7 @@
 ;;; Documentation: OSD (On Screen Display) for presentations.
 ;;; --------------------------------------------------------------------------
 ;;;
-;;; (C) 2014 Philippe Brochard <pbrochard at common-lisp.net>
+;;; (C) 2015 Philippe Brochard <pbrochard at common-lisp.net>
 ;;;
 ;;; This program is free software; you can redistribute it and/or modify
 ;;; it under the terms of the GNU General Public License as published by
diff --git a/contrib/reboot-halt.lisp b/contrib/reboot-halt.lisp
index 9e08c50..a30fbae 100644
--- a/contrib/reboot-halt.lisp
+++ b/contrib/reboot-halt.lisp
@@ -5,7 +5,7 @@
 ;;; Documentation: Reboot and halt menu
 ;;; --------------------------------------------------------------------------
 ;;;
-;;; (C) 2014 Philippe Brochard <pbrochard at common-lisp.net>
+;;; (C) 2015 Philippe Brochard <pbrochard at common-lisp.net>
 ;;;
 ;;; This program is free software; you can redistribute it and/or modify
 ;;; it under the terms of the GNU General Public License as published by
diff --git a/contrib/server/clfswm-client.lisp b/contrib/server/clfswm-client.lisp
index 075cb31..44ba894 100644
--- a/contrib/server/clfswm-client.lisp
+++ b/contrib/server/clfswm-client.lisp
@@ -7,7 +7,7 @@
 ;;; same clfswm binary.
 ;;; --------------------------------------------------------------------------
 ;;;
-;;; (C) 2014 Philippe Brochard <pbrochard at common-lisp.net>
+;;; (C) 2015 Philippe Brochard <pbrochard at common-lisp.net>
 ;;;
 ;;; This program is free software; you can redistribute it and/or modify
 ;;; it under the terms of the GNU General Public License as published by
@@ -101,4 +101,3 @@
 	   (force-output sock)
 	   (quit-on-command line sock)))
        (sleep 0.01))))
-
diff --git a/contrib/server/crypt.lisp b/contrib/server/crypt.lisp
index 9d54940..5c76832 100644
--- a/contrib/server/crypt.lisp
+++ b/contrib/server/crypt.lisp
@@ -7,7 +7,7 @@
 ;;; same clfswm binary.
 ;;; --------------------------------------------------------------------------
 ;;;
-;;; (C) 2014 Philippe Brochard <pbrochard at common-lisp.net>
+;;; (C) 2015 Philippe Brochard <pbrochard at common-lisp.net>
 ;;;
 ;;; This program is free software; you can redistribute it and/or modify
 ;;; it under the terms of the GNU General Public License as published by
diff --git a/contrib/server/key.lisp b/contrib/server/key.lisp
index 314d58b..c630a12 100644
--- a/contrib/server/key.lisp
+++ b/contrib/server/key.lisp
@@ -7,7 +7,7 @@
 ;;; same clfswm binary.
 ;;; --------------------------------------------------------------------------
 ;;;
-;;; (C) 2014 Philippe Brochard <pbrochard at common-lisp.net>
+;;; (C) 2015 Philippe Brochard <pbrochard at common-lisp.net>
 ;;;
 ;;; This program is free software; you can redistribute it and/or modify
 ;;; it under the terms of the GNU General Public License as published by
@@ -104,5 +104,3 @@ Useful for re-using the &REST arg after removing some options."
       (with-open-file (stream *key-filename* :direction :input)
 	(setf *key* (read-line stream nil nil)))
       (error "Key file ~S not found" *key-filename*)))
-
-
diff --git a/contrib/server/load.lisp b/contrib/server/load.lisp
index 0bd1f21..adbd3ef 100644
--- a/contrib/server/load.lisp
+++ b/contrib/server/load.lisp
@@ -5,7 +5,7 @@
 ;;; Documentation: CLFSWM Client
 ;;; --------------------------------------------------------------------------
 ;;;
-;;; (C) 2014 Philippe Brochard <pbrochard at common-lisp.net>
+;;; (C) 2015 Philippe Brochard <pbrochard at common-lisp.net>
 ;;;
 ;;; This program is free software; you can redistribute it and/or modify
 ;;; it under the terms of the GNU General Public License as published by
@@ -55,4 +55,3 @@
 
 
 (start-client nil)
-
diff --git a/contrib/server/server.lisp b/contrib/server/server.lisp
index 6bf5496..dc1e782 100644
--- a/contrib/server/server.lisp
+++ b/contrib/server/server.lisp
@@ -7,7 +7,7 @@
 ;;; same clfswm binary.
 ;;; --------------------------------------------------------------------------
 ;;;
-;;; (C) 2014 Philippe Brochard <pbrochard at common-lisp.net>
+;;; (C) 2015 Philippe Brochard <pbrochard at common-lisp.net>
 ;;;
 ;;; This program is free software; you can redistribute it and/or modify
 ;;; it under the terms of the GNU General Public License as published by
@@ -274,4 +274,3 @@ You can start the client with the '--client' command line option.~%"
   (member "--client" (get-command-line-words) :test #'string-equal))
 
 (add-hook *main-entrance-hook* 'server-parse-cmdline)
-
diff --git a/contrib/toolbar.lisp b/contrib/toolbar.lisp
index 819b1a6..564febe 100644
--- a/contrib/toolbar.lisp
+++ b/contrib/toolbar.lisp
@@ -5,7 +5,7 @@
 ;;; Documentation: Toolbar
 ;;; --------------------------------------------------------------------------
 ;;;
-;;; (C) 2014 Philippe Brochard <pbrochard at common-lisp.net>
+;;; (C) 2015 Philippe Brochard <pbrochard at common-lisp.net>
 ;;;
 ;;; This program is free software; you can redistribute it and/or modify
 ;;; it under the terms of the GNU General Public License as published by
@@ -728,4 +728,3 @@
 ;;; End of code
 ;;;
 (format t "done~%")
-
diff --git a/contrib/volume-mode.lisp b/contrib/volume-mode.lisp
index eff4eae..61720c5 100644
--- a/contrib/volume-mode.lisp
+++ b/contrib/volume-mode.lisp
@@ -5,7 +5,7 @@
 ;;; Documentation: Volume mode
 ;;; --------------------------------------------------------------------------
 ;;;
-;;; (C) 2014 Desmond O. Chang <dochang at gmail.com>
+;;; (C) 2015 Desmond O. Chang <dochang at gmail.com>
 ;;;
 ;;; This program is free software; you can redistribute it and/or modify
 ;;; it under the terms of the GNU General Public License as published by
diff --git a/contrib/wallpaper.lisp b/contrib/wallpaper.lisp
index fcefdae..881344f 100644
--- a/contrib/wallpaper.lisp
+++ b/contrib/wallpaper.lisp
@@ -5,7 +5,7 @@
 ;;; Documentation: Wallpaper utilities
 ;;; --------------------------------------------------------------------------
 ;;;
-;;; (C) 2014 Philippe Brochard <pbrochard at common-lisp.net>
+;;; (C) 2015 Philippe Brochard <pbrochard at common-lisp.net>
 ;;;
 ;;; This program is free software; you can redistribute it and/or modify
 ;;; it under the terms of the GNU General Public License as published by
@@ -108,5 +108,3 @@
 ;;; End of code
 ;;;
 (format t "done~%")
-
-
diff --git a/contrib/xmms.lisp b/contrib/xmms.lisp
index 8e5262a..3e4633a 100644
--- a/contrib/xmms.lisp
+++ b/contrib/xmms.lisp
@@ -5,7 +5,7 @@
 ;;; Documentation: Music Player Daemon (MPD) interface
 ;;; --------------------------------------------------------------------------
 ;;;
-;;; (C) 2014 Philippe Brochard <pbrochard at common-lisp.net>
+;;; (C) 2015 Philippe Brochard <pbrochard at common-lisp.net>
 ;;;
 ;;; This program is free software; you can redistribute it and/or modify
 ;;; it under the terms of the GNU General Public License as published by
diff --git a/load.lisp b/load.lisp
index 16dd581..c8c4cf0 100644
--- a/load.lisp
+++ b/load.lisp
@@ -5,7 +5,7 @@
 ;;; Documentation: System loading functions
 ;;; --------------------------------------------------------------------------
 ;;;
-;;; (C) 2005 Philippe Brochard <hocwp at free.fr>
+;;; (C) 2005-2015 Philippe Brochard <hocwp at free.fr>
 ;;;
 ;;; This program is free software; you can redistribute it and/or modify
 ;;; it under the terms of the GNU General Public License as published by
diff --git a/src/bindings-second-mode.lisp b/src/bindings-second-mode.lisp
index 32e9e3e..892b211 100644
--- a/src/bindings-second-mode.lisp
+++ b/src/bindings-second-mode.lisp
@@ -7,7 +7,7 @@
 ;;; Note: Mod-1 is the Alt or Meta key, Mod-2 is the Numlock key.
 ;;; --------------------------------------------------------------------------
 ;;;
-;;; (C) 2005-2014 Philippe Brochard <pbrochard at common-lisp.net>
+;;; (C) 2005-2015 Philippe Brochard <pbrochard at common-lisp.net>
 ;;;
 ;;; This program is free software; you can redistribute it and/or modify
 ;;; it under the terms of the GNU General Public License as published by
diff --git a/src/bindings.lisp b/src/bindings.lisp
index a9f4530..325219c 100644
--- a/src/bindings.lisp
+++ b/src/bindings.lisp
@@ -7,7 +7,7 @@
 ;;; Note: Mod-1 is the Alt or Meta key, Mod-2 is the Numlock key.
 ;;; --------------------------------------------------------------------------
 ;;;
-;;; (C) 2005-2014 Philippe Brochard <pbrochard at common-lisp.net>
+;;; (C) 2005-2015 Philippe Brochard <pbrochard at common-lisp.net>
 ;;;
 ;;; This program is free software; you can redistribute it and/or modify
 ;;; it under the terms of the GNU General Public License as published by
diff --git a/src/clfswm-autodoc.lisp b/src/clfswm-autodoc.lisp
index 94e5e25..8c3418e 100644
--- a/src/clfswm-autodoc.lisp
+++ b/src/clfswm-autodoc.lisp
@@ -5,7 +5,7 @@
 ;;; Documentation: Auto documentation tools
 ;;; --------------------------------------------------------------------------
 ;;;
-;;; (C) 2005-2014 Philippe Brochard <pbrochard at common-lisp.net>
+;;; (C) 2005-2015 Philippe Brochard <pbrochard at common-lisp.net>
 ;;;
 ;;; This program is free software; you can redistribute it and/or modify
 ;;; it under the terms of the GNU General Public License as published by
@@ -416,8 +416,3 @@ or<br> CLFSWM> (produce-all-docs)"))))
   (produce-corner-doc-html-in-file "doc/corner.html")
   (produce-conf-var-doc-in-file "doc/variables.txt")
   (produce-conf-var-doc-html-in-file "doc/variables.html"))
-
-
-
-
-
diff --git a/src/clfswm-circulate-mode.lisp b/src/clfswm-circulate-mode.lisp
index 886bd44..1f42060 100644
--- a/src/clfswm-circulate-mode.lisp
+++ b/src/clfswm-circulate-mode.lisp
@@ -5,7 +5,7 @@
 ;;; Documentation: Main functions
 ;;; --------------------------------------------------------------------------
 ;;;
-;;; (C) 2005-2014 Philippe Brochard <pbrochard at common-lisp.net>
+;;; (C) 2005-2015 Philippe Brochard <pbrochard at common-lisp.net>
 ;;;
 ;;; This program is free software; you can redistribute it and/or modify
 ;;; it under the terms of the GNU General Public License as published by
@@ -425,6 +425,3 @@
   "Select spatially the nearest brother of the current child in the up direction - move current focused child"
   (with-move-current-focused-window ()
     (select-brother-spatial-move-up)))
-
-
-
diff --git a/src/clfswm-configuration.lisp b/src/clfswm-configuration.lisp
index 8174c60..9da0305 100644
--- a/src/clfswm-configuration.lisp
+++ b/src/clfswm-configuration.lisp
@@ -6,7 +6,7 @@
 ;;;
 ;;; --------------------------------------------------------------------------
 ;;;
-;;; (C) 2005-2014 Philippe Brochard <pbrochard at common-lisp.net>
+;;; (C) 2005-2015 Philippe Brochard <pbrochard at common-lisp.net>
 ;;;
 ;;; This program is free software; you can redistribute it and/or modify
 ;;; it under the terms of the GNU General Public License as published by
@@ -197,4 +197,3 @@
                (reset-config-to-default-value key))
              *config-var-table*))
   (open-menu (find-menu 'configuration-menu)))
-
diff --git a/src/clfswm-corner.lisp b/src/clfswm-corner.lisp
index 90224b2..40b24e6 100644
--- a/src/clfswm-corner.lisp
+++ b/src/clfswm-corner.lisp
@@ -5,7 +5,7 @@
 ;;; Documentation: Corner functions
 ;;; --------------------------------------------------------------------------
 ;;;
-;;; (C) 2005-2014 Philippe Brochard <pbrochard at common-lisp.net>
+;;; (C) 2005-2015 Philippe Brochard <pbrochard at common-lisp.net>
 ;;;
 ;;; This program is free software; you can redistribute it and/or modify
 ;;; it under the terms of the GNU General Public License as published by
@@ -145,5 +145,3 @@ stop the button event"
 				    win
 				    t))
     t))
-
-
diff --git a/src/clfswm-expose-mode.lisp b/src/clfswm-expose-mode.lisp
index fb47fc0..b0713ad 100644
--- a/src/clfswm-expose-mode.lisp
+++ b/src/clfswm-expose-mode.lisp
@@ -5,7 +5,7 @@
 ;;; Documentation: Expose functions - An expose like.
 ;;; --------------------------------------------------------------------------
 ;;;
-;;; (C) 2005-2014 Philippe Brochard <pbrochard at common-lisp.net>
+;;; (C) 2005-2015 Philippe Brochard <pbrochard at common-lisp.net>
 ;;;
 ;;; This program is free software; you can redistribute it and/or modify
 ;;; it under the terms of the GNU General Public License as published by
diff --git a/src/clfswm-fastswitch-mode.lisp b/src/clfswm-fastswitch-mode.lisp
index 3afecba..576270a 100644
--- a/src/clfswm-fastswitch-mode.lisp
+++ b/src/clfswm-fastswitch-mode.lisp
@@ -8,7 +8,7 @@
 ;;; A window or a frame will always have the same shortcut.
 ;;; --------------------------------------------------------------------------
 ;;;
-;;; (C) 2005-2014 Philippe Brochard <pbrochard at common-lisp.net>
+;;; (C) 2005-2015 Philippe Brochard <pbrochard at common-lisp.net>
 ;;;
 ;;; This program is free software; you can redistribute it and/or modify
 ;;; it under the terms of the GNU General Public License as published by
diff --git a/src/clfswm-generic-mode.lisp b/src/clfswm-generic-mode.lisp
index feaad29..1c5ecaf 100644
--- a/src/clfswm-generic-mode.lisp
+++ b/src/clfswm-generic-mode.lisp
@@ -5,7 +5,7 @@
 ;;; Documentation: Main functions
 ;;; --------------------------------------------------------------------------
 ;;;
-;;; (C) 2005-2014 Philippe Brochard <pbrochard at common-lisp.net>
+;;; (C) 2005-2015 Philippe Brochard <pbrochard at common-lisp.net>
 ;;;
 ;;; This program is free software; you can redistribute it and/or modify
 ;;; it under the terms of the GNU General Public License as published by
@@ -51,5 +51,3 @@
         (nfuncall leave-function))
       (unassoc-keyword-handle-event)
       (assoc-keyword-handle-event last-mode))))
-
-
diff --git a/src/clfswm-info.lisp b/src/clfswm-info.lisp
index 618ff4f..acc7aff 100644
--- a/src/clfswm-info.lisp
+++ b/src/clfswm-info.lisp
@@ -5,7 +5,7 @@
 ;;; Documentation: Info function (see the end of this file for user definition
 ;;; --------------------------------------------------------------------------
 ;;;
-;;; (C) 2005-2014 Philippe Brochard <pbrochard at common-lisp.net>
+;;; (C) 2005-2015 Philippe Brochard <pbrochard at common-lisp.net>
 ;;;
 ;;; This program is free software; you can redistribute it and/or modify
 ;;; it under the terms of the GNU General Public License as published by
diff --git a/src/clfswm-internal.lisp b/src/clfswm-internal.lisp
index bf5d596..2f90e7e 100644
--- a/src/clfswm-internal.lisp
+++ b/src/clfswm-internal.lisp
@@ -5,7 +5,7 @@
 ;;; Documentation: Main functions
 ;;; --------------------------------------------------------------------------
 ;;;
-;;; (C) 2005-2014 Philippe Brochard <pbrochard at common-lisp.net>
+;;; (C) 2005-2015 Philippe Brochard <pbrochard at common-lisp.net>
 ;;;
 ;;; This program is free software; you can redistribute it and/or modify
 ;;; it under the terms of the GNU General Public License as published by
diff --git a/src/clfswm-keys.lisp b/src/clfswm-keys.lisp
index 416dd1b..16dce24 100644
--- a/src/clfswm-keys.lisp
+++ b/src/clfswm-keys.lisp
@@ -5,7 +5,7 @@
 ;;; Documentation: Keys functions definition
 ;;; --------------------------------------------------------------------------
 ;;;
-;;; (C) 2005-2014 Philippe Brochard <pbrochard at common-lisp.net>
+;;; (C) 2005-2015 Philippe Brochard <pbrochard at common-lisp.net>
 ;;;
 ;;; This program is free software; you can redistribute it and/or modify
 ;;; it under the terms of the GNU General Public License as published by
@@ -281,6 +281,3 @@
               (format nil "[~A]" main-string)
               (format nil "[~A|~A]" (or main-string "-") (or second-string "-")))
           ""))))
-
-
-
diff --git a/src/clfswm-layout.lisp b/src/clfswm-layout.lisp
index ad898bb..e52a496 100644
--- a/src/clfswm-layout.lisp
+++ b/src/clfswm-layout.lisp
@@ -5,7 +5,7 @@
 ;;; Documentation: Layout functions
 ;;; --------------------------------------------------------------------------
 ;;;
-;;; (C) 2005-2014 Philippe Brochard <pbrochard at common-lisp.net>
+;;; (C) 2005-2015 Philippe Brochard <pbrochard at common-lisp.net>
 ;;;
 ;;; This program is free software; you can redistribute it and/or modify
 ;;; it under the terms of the GNU General Public License as published by
@@ -920,5 +920,3 @@ Or do actions on corners - Skip windows in main window list"
 			    ("a" add-in-main-window-list)
 			    ("v" remove-in-main-window-list)
 			    ("c" clear-main-window-list)))
-
-
diff --git a/src/clfswm-menu.lisp b/src/clfswm-menu.lisp
index e909dfd..a4f2ba7 100644
--- a/src/clfswm-menu.lisp
+++ b/src/clfswm-menu.lisp
@@ -5,7 +5,7 @@
 ;;; Documentation: Menu functions
 ;;; --------------------------------------------------------------------------
 ;;;
-;;; (C) 2005-2014 Philippe Brochard <pbrochard at common-lisp.net>
+;;; (C) 2005-2015 Philippe Brochard <pbrochard at common-lisp.net>
 ;;;
 ;;; This program is free software; you can redistribute it and/or modify
 ;;; it under the terms of the GNU General Public License as published by
@@ -184,5 +184,3 @@
                   (setf action (menu-item-value it)))))
             (setf menu-oppened nil)
             (open-menu-do-action action menu parent)))))))
-
-
diff --git a/src/clfswm-nw-hooks.lisp b/src/clfswm-nw-hooks.lisp
index bdf6750..b58d5c8 100644
--- a/src/clfswm-nw-hooks.lisp
+++ b/src/clfswm-nw-hooks.lisp
@@ -8,7 +8,7 @@
 ;;;  mapped.
 ;;; --------------------------------------------------------------------------
 ;;;
-;;; (C) 2005-2014 Philippe Brochard <pbrochard at common-lisp.net>
+;;; (C) 2005-2015 Philippe Brochard <pbrochard at common-lisp.net>
 ;;;
 ;;; This program is free software; you can redistribute it and/or modify
 ;;; it under the terms of the GNU General Public License as published by
@@ -279,4 +279,3 @@
   (lambda (c)
     (and (xlib:window-p c)
 	 (string-equal (xlib:get-wm-class c) class-string))))
-
diff --git a/src/clfswm-pack.lisp b/src/clfswm-pack.lisp
index 011aac5..c35b8e0 100644
--- a/src/clfswm-pack.lisp
+++ b/src/clfswm-pack.lisp
@@ -5,7 +5,7 @@
 ;;; Documentation: Tile, pack and fill functions
 ;;; --------------------------------------------------------------------------
 ;;;
-;;; (C) 2005-2014 Philippe Brochard <pbrochard at common-lisp.net>
+;;; (C) 2005-2015 Philippe Brochard <pbrochard at common-lisp.net>
 ;;;
 ;;; This program is free software; you can redistribute it and/or modify
 ;;; it under the terms of the GNU General Public License as published by
diff --git a/src/clfswm-placement.lisp b/src/clfswm-placement.lisp
index 83c1f83..538cace 100644
--- a/src/clfswm-placement.lisp
+++ b/src/clfswm-placement.lisp
@@ -5,7 +5,7 @@
 ;;; Documentation: Placement functions
 ;;; --------------------------------------------------------------------------
 ;;;
-;;; (C) 2005-2014 Philippe Brochard <pbrochard at common-lisp.net>
+;;; (C) 2005-2015 Philippe Brochard <pbrochard at common-lisp.net>
 ;;;
 ;;; This program is free software; you can redistribute it and/or modify
 ;;; it under the terms of the GNU General Public License as published by
@@ -255,4 +255,3 @@
 (defun test-some-placement (placement)
   (setf *second-mode-placement* placement
         *query-mode-placement* placement))
-
diff --git a/src/clfswm-query.lisp b/src/clfswm-query.lisp
index f2a9ca4..4a39526 100644
--- a/src/clfswm-query.lisp
+++ b/src/clfswm-query.lisp
@@ -5,7 +5,7 @@
 ;;; Documentation: Query utility
 ;;; --------------------------------------------------------------------------
 ;;;
-;;; (C) 2005-2014 Philippe Brochard <pbrochard at common-lisp.net>
+;;; (C) 2005-2015 Philippe Brochard <pbrochard at common-lisp.net>
 ;;;
 ;;; This program is free software; you can redistribute it and/or modify
 ;;; it under the terms of the GNU General Public License as published by
diff --git a/src/clfswm-second-mode.lisp b/src/clfswm-second-mode.lisp
index 979220b..a5802ce 100644
--- a/src/clfswm-second-mode.lisp
+++ b/src/clfswm-second-mode.lisp
@@ -5,7 +5,7 @@
 ;;; Documentation: Second mode functions
 ;;; --------------------------------------------------------------------------
 ;;;
-;;; (C) 2005-2014 Philippe Brochard <pbrochard at common-lisp.net>
+;;; (C) 2005-2015 Philippe Brochard <pbrochard at common-lisp.net>
 ;;;
 ;;; This program is free software; you can redistribute it and/or modify
 ;;; it under the terms of the GNU General Public License as published by
diff --git a/src/clfswm-util.lisp b/src/clfswm-util.lisp
index 8977b02..adcabf0 100644
--- a/src/clfswm-util.lisp
+++ b/src/clfswm-util.lisp
@@ -5,7 +5,7 @@
 ;;; Documentation: Utility
 ;;; --------------------------------------------------------------------------
 ;;;
-;;; (C) 2005-2014 Philippe Brochard <pbrochard at common-lisp.net>
+;;; (C) 2005-2015 Philippe Brochard <pbrochard at common-lisp.net>
 ;;;
 ;;; This program is free software; you can redistribute it and/or modify
 ;;; it under the terms of the GNU General Public License as published by
@@ -1912,4 +1912,3 @@ For window: set current child to window or its parent according to window-parent
 (defun anti-rotate-frame-geometry ()
   "Anti rotate brother frame geometry"
   (rotate-frame-geometry-generic #'reverse))
-
diff --git a/src/clfswm.lisp b/src/clfswm.lisp
index 3a6da96..d748950 100644
--- a/src/clfswm.lisp
+++ b/src/clfswm.lisp
@@ -5,7 +5,7 @@
 ;;; Documentation: Main functions
 ;;; --------------------------------------------------------------------------
 ;;;
-;;; (C) 2005-2014 Philippe Brochard <pbrochard at common-lisp.net>
+;;; (C) 2005-2015 Philippe Brochard <pbrochard at common-lisp.net>
 ;;;
 ;;; This program is free software; you can redistribute it and/or modify
 ;;; it under the terms of the GNU General Public License as published by
diff --git a/src/config.lisp b/src/config.lisp
index 76589de..ab2145b 100644
--- a/src/config.lisp
+++ b/src/config.lisp
@@ -10,7 +10,7 @@
 ;;; (you can do a 'grep CONFIG *.lisp' to see what you can configure)
 ;;; --------------------------------------------------------------------------
 ;;;
-;;; (C) 2005-2014 Philippe Brochard <pbrochard at common-lisp.net>
+;;; (C) 2005-2015 Philippe Brochard <pbrochard at common-lisp.net>
 ;;;
 ;;; This program is free software; you can redistribute it and/or modify
 ;;; it under the terms of the GNU General Public License as published by
@@ -404,4 +404,3 @@ on the root window in the main mode with the mouse")
   'Notify-Window "Notify Window display delay")
 (defconfig *notify-window-transparency* *default-transparency*
   'Notify-window "Notify window background transparency")
-
diff --git a/src/menu-def.lisp b/src/menu-def.lisp
index aab2760..01ef6fc 100644
--- a/src/menu-def.lisp
+++ b/src/menu-def.lisp
@@ -7,7 +7,7 @@
 ;;; Note: Mod-1 is the Alt or Meta key, Mod-2 is the Numlock key.
 ;;; --------------------------------------------------------------------------
 ;;;
-;;; (C) 2005-2014 Philippe Brochard <pbrochard at common-lisp.net>
+;;; (C) 2005-2015 Philippe Brochard <pbrochard at common-lisp.net>
 ;;;
 ;;; This program is free software; you can redistribute it and/or modify
 ;;; it under the terms of the GNU General Public License as published by
diff --git a/src/my-html.lisp b/src/my-html.lisp
index be9e3f9..dc58432 100644
--- a/src/my-html.lisp
+++ b/src/my-html.lisp
@@ -5,7 +5,7 @@
 ;;; Documentation: Html generator helper
 ;;; --------------------------------------------------------------------------
 ;;;
-;;; (C) 2005-2014 Philippe Brochard <pbrochard at common-lisp.net>
+;;; (C) 2005-2015 Philippe Brochard <pbrochard at common-lisp.net>
 ;;;
 ;;; This program is free software; you can redistribute it and/or modify
 ;;; it under the terms of the GNU General Public License as published by
@@ -127,8 +127,3 @@
 			   (li "toto")
 			   (li "klm"))))
 		       10))
-
-
-
-
-
diff --git a/src/netwm-util.lisp b/src/netwm-util.lisp
index 2dabe66..ada9a70 100644
--- a/src/netwm-util.lisp
+++ b/src/netwm-util.lisp
@@ -6,7 +6,7 @@
 ;;;   http://freedesktop.org/wiki/Specifications_2fwm_2dspec
 ;;; --------------------------------------------------------------------------
 ;;;
-;;; (C) 2005-2014 Philippe Brochard <pbrochard at common-lisp.net>
+;;; (C) 2005-2015 Philippe Brochard <pbrochard at common-lisp.net>
 ;;;
 ;;; This program is free software; you can redistribute it and/or modify
 ;;; it under the terms of the GNU General Public License as published by
@@ -86,8 +86,3 @@ FOCUS-WINDOW is an extra window used for _NET_SUPPORTING_WM_CHECK."
 			"clfswm"
 			:string 8 :transform #'xlib:char->card8)
   (netwm-update-desktop-property))
-
-
-
-
-
diff --git a/src/package.lisp b/src/package.lisp
index cf34c41..ad48f61 100644
--- a/src/package.lisp
+++ b/src/package.lisp
@@ -5,7 +5,7 @@
 ;;; Documentation: Package definition
 ;;; --------------------------------------------------------------------------
 ;;;
-;;; (C) 2005-2014 Philippe Brochard <pbrochard at common-lisp.net>
+;;; (C) 2005-2015 Philippe Brochard <pbrochard at common-lisp.net>
 ;;;
 ;;; This program is free software; you can redistribute it and/or modify
 ;;; it under the terms of the GNU General Public License as published by
diff --git a/src/tools.lisp b/src/tools.lisp
index 7cef301..af7453a 100644
--- a/src/tools.lisp
+++ b/src/tools.lisp
@@ -5,7 +5,7 @@
 ;;; Documentation: General tools
 ;;; --------------------------------------------------------------------------
 ;;;
-;;; (C) 2005-2014 Philippe Brochard <pbrochard at common-lisp.net>
+;;; (C) 2005-2015 Philippe Brochard <pbrochard at common-lisp.net>
 ;;;
 ;;; This program is free software; you can redistribute it and/or modify
 ;;; it under the terms of the GNU General Public License as published by
@@ -1223,9 +1223,3 @@ done~%" *bat-cmd* *cpu-cmd* *mem-cmd* poll-log poll-log poll-log delay)))
                (awhen (and (= total -1) (extract-mem-total line))
                  (setf total it)))))
       (values cpu used total bat))))
-
-
-
-
-
-
diff --git a/src/version.lisp b/src/version.lisp
index bee6388..ad5b9bc 100644
--- a/src/version.lisp
+++ b/src/version.lisp
@@ -1,5 +1,5 @@
-;; Copyright (C) 2005-2014 Xavier Maillard <xma at gnu.org>
-;; Copyright (C) 2005-2013 Martin Bishop
+;; Copyright (C) 2005-2015 Xavier Maillard <xma at gnu.org>
+;; Copyright (C) 2005-2015 Martin Bishop
 ;;
 ;;  Borrowed from Stumpwm
 ;;  This file is part of clfswm.
diff --git a/src/xlib-util.lisp b/src/xlib-util.lisp
index 415cc90..16bd41a 100644
--- a/src/xlib-util.lisp
+++ b/src/xlib-util.lisp
@@ -5,7 +5,7 @@
 ;;; Documentation: Utility functions
 ;;; --------------------------------------------------------------------------
 ;;;
-;;; (C) 2005-2014 Philippe Brochard <pbrochard at common-lisp.net>
+;;; (C) 2005-2015 Philippe Brochard <pbrochard at common-lisp.net>
 ;;;
 ;;; This program is free software; you can redistribute it and/or modify
 ;;; it under the terms of the GNU General Public License as published by
@@ -1035,4 +1035,3 @@ they should be windows. So use this function to make a window out of them."
   `(defun ,symbol (window)
      (when (xlib:window-p window)
        (string-equal (xlib:wm-name window) ,name))))
-

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

Summary of changes:
 contrib/amixer.lisp               | 2 +-
 contrib/blank-window-mode.lisp    | 2 +-
 contrib/cd-player.lisp            | 2 +-
 contrib/clfswm                    | 3 +--
 contrib/contrib-example.lisp      | 2 +-
 contrib/keyb_fr.lisp              | 2 +-
 contrib/moc.lisp                  | 2 +-
 contrib/mpd.lisp                  | 2 +-
 contrib/osd.lisp                  | 2 +-
 contrib/reboot-halt.lisp          | 2 +-
 contrib/server/clfswm-client.lisp | 3 +--
 contrib/server/crypt.lisp         | 2 +-
 contrib/server/key.lisp           | 4 +---
 contrib/server/load.lisp          | 3 +--
 contrib/server/server.lisp        | 3 +--
 contrib/toolbar.lisp              | 3 +--
 contrib/volume-mode.lisp          | 2 +-
 contrib/wallpaper.lisp            | 4 +---
 contrib/xmms.lisp                 | 2 +-
 load.lisp                         | 2 +-
 src/bindings-second-mode.lisp     | 2 +-
 src/bindings.lisp                 | 2 +-
 src/clfswm-autodoc.lisp           | 7 +------
 src/clfswm-circulate-mode.lisp    | 5 +----
 src/clfswm-configuration.lisp     | 3 +--
 src/clfswm-corner.lisp            | 4 +---
 src/clfswm-expose-mode.lisp       | 2 +-
 src/clfswm-fastswitch-mode.lisp   | 2 +-
 src/clfswm-generic-mode.lisp      | 4 +---
 src/clfswm-info.lisp              | 2 +-
 src/clfswm-internal.lisp          | 2 +-
 src/clfswm-keys.lisp              | 5 +----
 src/clfswm-layout.lisp            | 4 +---
 src/clfswm-menu.lisp              | 4 +---
 src/clfswm-nw-hooks.lisp          | 3 +--
 src/clfswm-pack.lisp              | 2 +-
 src/clfswm-placement.lisp         | 3 +--
 src/clfswm-query.lisp             | 2 +-
 src/clfswm-second-mode.lisp       | 2 +-
 src/clfswm-util.lisp              | 3 +--
 src/clfswm.lisp                   | 2 +-
 src/config.lisp                   | 3 +--
 src/menu-def.lisp                 | 2 +-
 src/my-html.lisp                  | 7 +------
 src/netwm-util.lisp               | 7 +------
 src/package.lisp                  | 2 +-
 src/tools.lisp                    | 8 +-------
 src/version.lisp                  | 4 ++--
 src/xlib-util.lisp                | 3 +--
 49 files changed, 50 insertions(+), 100 deletions(-)


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