From 2886ada63970e28defe73a689592b6f499bf5947 Mon Sep 17 00:00:00 2001 From: Philippe Brochard Date: Mon, 16 Aug 2010 23:48:29 +0200 Subject: [PATCH] Date copyright and version update --- src/bindings-second-mode.lisp | 2 +- src/bindings.lisp | 2 +- src/clfswm-autodoc.lisp | 2 +- src/clfswm-circulate-mode.lisp | 2 +- src/clfswm-configuration.lisp | 2 +- src/clfswm-corner.lisp | 2 +- src/clfswm-generic-mode.lisp | 2 +- src/clfswm-info.lisp | 2 +- src/clfswm-internal.lisp | 2 +- src/clfswm-keys.lisp | 2 +- src/clfswm-layout.lisp | 2 +- src/clfswm-menu.lisp | 2 +- src/clfswm-nw-hooks.lisp | 2 +- src/clfswm-pack.lisp | 12 ++++++------ src/clfswm-placement.lisp | 2 +- src/clfswm-query.lisp | 2 +- src/clfswm-second-mode.lisp | 2 +- src/clfswm-util.lisp | 2 +- src/clfswm.lisp | 2 +- src/config.lisp | 2 +- src/menu-def.lisp | 2 +- src/my-html.lisp | 6 +++--- src/netwm-util.lisp | 6 +++--- src/package.lisp | 2 +- src/tools.lisp | 2 +- src/version.lisp | 6 +++--- src/xlib-util.lisp | 2 +- 27 files changed, 38 insertions(+), 38 deletions(-) diff --git a/src/bindings-second-mode.lisp b/src/bindings-second-mode.lisp index bf87028..678e5f9 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 Philippe Brochard +;;; (C) 2010 Philippe Brochard ;;; ;;; 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 fc9ed63..7646484 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 Philippe Brochard +;;; (C) 2010 Philippe Brochard ;;; ;;; 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 0670f9f..af654dc 100644 --- a/src/clfswm-autodoc.lisp +++ b/src/clfswm-autodoc.lisp @@ -5,7 +5,7 @@ ;;; Documentation: Auto documentation tools ;;; -------------------------------------------------------------------------- ;;; -;;; (C) 2005 Philippe Brochard +;;; (C) 2010 Philippe Brochard ;;; ;;; 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-circulate-mode.lisp b/src/clfswm-circulate-mode.lisp index 10883c1..2859245 100644 --- a/src/clfswm-circulate-mode.lisp +++ b/src/clfswm-circulate-mode.lisp @@ -5,7 +5,7 @@ ;;; Documentation: Main functions ;;; -------------------------------------------------------------------------- ;;; -;;; (C) 2005 Philippe Brochard +;;; (C) 2010 Philippe Brochard ;;; ;;; 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-configuration.lisp b/src/clfswm-configuration.lisp index 53c217b..9566e7a 100644 --- a/src/clfswm-configuration.lisp +++ b/src/clfswm-configuration.lisp @@ -6,7 +6,7 @@ ;;; ;;; -------------------------------------------------------------------------- ;;; -;;; (C) 2005 Philippe Brochard +;;; (C) 2010 Philippe Brochard ;;; ;;; 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-corner.lisp b/src/clfswm-corner.lisp index 9be5ebd..706b89e 100644 --- a/src/clfswm-corner.lisp +++ b/src/clfswm-corner.lisp @@ -5,7 +5,7 @@ ;;; Documentation: Corner functions ;;; -------------------------------------------------------------------------- ;;; -;;; (C) 2005 Philippe Brochard +;;; (C) 2010 Philippe Brochard ;;; ;;; 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 d2cff71..db8a958 100644 --- a/src/clfswm-generic-mode.lisp +++ b/src/clfswm-generic-mode.lisp @@ -5,7 +5,7 @@ ;;; Documentation: Main functions ;;; -------------------------------------------------------------------------- ;;; -;;; (C) 2005 Philippe Brochard +;;; (C) 2010 Philippe Brochard ;;; ;;; 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-info.lisp b/src/clfswm-info.lisp index 139a2c1..c4eafd1 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 Philippe Brochard +;;; (C) 2010 Philippe Brochard ;;; ;;; 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 8db3196..5db5457 100644 --- a/src/clfswm-internal.lisp +++ b/src/clfswm-internal.lisp @@ -5,7 +5,7 @@ ;;; Documentation: Main functions ;;; -------------------------------------------------------------------------- ;;; -;;; (C) 2005 Philippe Brochard +;;; (C) 2010 Philippe Brochard ;;; ;;; 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 499be48..4e16ece 100644 --- a/src/clfswm-keys.lisp +++ b/src/clfswm-keys.lisp @@ -5,7 +5,7 @@ ;;; Documentation: Keys functions definition ;;; -------------------------------------------------------------------------- ;;; -;;; (C) 2005 Philippe Brochard +;;; (C) 2010 Philippe Brochard ;;; ;;; 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-layout.lisp b/src/clfswm-layout.lisp index e372186..e4d72a5 100644 --- a/src/clfswm-layout.lisp +++ b/src/clfswm-layout.lisp @@ -5,7 +5,7 @@ ;;; Documentation: Layout functions ;;; -------------------------------------------------------------------------- ;;; -;;; (C) 2005 Philippe Brochard +;;; (C) 2010 Philippe Brochard ;;; ;;; 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-menu.lisp b/src/clfswm-menu.lisp index 9af837d..f25a6e4 100644 --- a/src/clfswm-menu.lisp +++ b/src/clfswm-menu.lisp @@ -5,7 +5,7 @@ ;;; Documentation: Menu functions ;;; -------------------------------------------------------------------------- ;;; -;;; (C) 2005 Philippe Brochard +;;; (C) 2010 Philippe Brochard ;;; ;;; 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-nw-hooks.lisp b/src/clfswm-nw-hooks.lisp index fa0be6c..5f30500 100644 --- a/src/clfswm-nw-hooks.lisp +++ b/src/clfswm-nw-hooks.lisp @@ -8,7 +8,7 @@ ;;; mapped. ;;; -------------------------------------------------------------------------- ;;; -;;; (C) 2005 Philippe Brochard +;;; (C) 2010 Philippe Brochard ;;; ;;; 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-pack.lisp b/src/clfswm-pack.lisp index d6823f9..5947cd9 100644 --- a/src/clfswm-pack.lisp +++ b/src/clfswm-pack.lisp @@ -5,7 +5,7 @@ ;;; Documentation: Tile, pack and fill functions ;;; -------------------------------------------------------------------------- ;;; -;;; (C) 2005 Philippe Brochard +;;; (C) 2010 Philippe Brochard ;;; ;;; 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 @@ -45,7 +45,7 @@ (<= (frame-x frame) (frame-x2 current-frame))) (setf y-found (max y-found (frame-y2 frame))))) y-found)) - + (defun find-edge-down (current-frame parent) (let ((y-found 1)) (dolist (frame (frame-child parent)) @@ -56,7 +56,7 @@ (<= (frame-x frame) (frame-x2 current-frame))) (setf y-found (min y-found (frame-y frame))))) y-found)) - + (defun find-edge-right (current-frame parent) (let ((x-found 1)) (dolist (frame (frame-child parent)) @@ -67,7 +67,7 @@ (<= (frame-y frame) (frame-y2 current-frame))) (setf x-found (min x-found (frame-x frame))))) x-found)) - + (defun find-edge-left (current-frame parent) (let ((x-found 0)) @@ -176,7 +176,7 @@ (dx (- (frame-w frame) new-size))) (setf (frame-w frame) new-size) (incf (frame-x frame) (max dx 0)))) - + (defun resize-half-height-up (frame) (setf (frame-h frame) (/ (frame-h frame) 2))) @@ -186,7 +186,7 @@ (dy (- (frame-h frame) new-size))) (setf (frame-h frame) new-size) (incf (frame-y frame) (max dy 0)))) - + diff --git a/src/clfswm-placement.lisp b/src/clfswm-placement.lisp index fa9d44b..d615f4f 100644 --- a/src/clfswm-placement.lisp +++ b/src/clfswm-placement.lisp @@ -5,7 +5,7 @@ ;;; Documentation: Placement functions ;;; -------------------------------------------------------------------------- ;;; -;;; (C) 2005 Philippe Brochard +;;; (C) 2010 Philippe Brochard ;;; ;;; 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-query.lisp b/src/clfswm-query.lisp index 02e6189..1a8c77f 100644 --- a/src/clfswm-query.lisp +++ b/src/clfswm-query.lisp @@ -5,7 +5,7 @@ ;;; Documentation: Query utility ;;; -------------------------------------------------------------------------- ;;; -;;; (C) 2005 Philippe Brochard +;;; (C) 2010 Philippe Brochard ;;; ;;; 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 f9b63db..6826f57 100644 --- a/src/clfswm-second-mode.lisp +++ b/src/clfswm-second-mode.lisp @@ -5,7 +5,7 @@ ;;; Documentation: Second mode functions ;;; -------------------------------------------------------------------------- ;;; -;;; (C) 2005 Philippe Brochard +;;; (C) 2010 Philippe Brochard ;;; ;;; 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 4e359a1..b88eb5c 100644 --- a/src/clfswm-util.lisp +++ b/src/clfswm-util.lisp @@ -5,7 +5,7 @@ ;;; Documentation: Utility ;;; -------------------------------------------------------------------------- ;;; -;;; (C) 2005 Philippe Brochard +;;; (C) 2010 Philippe Brochard ;;; ;;; 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.lisp b/src/clfswm.lisp index 13dfe1c..0b893cf 100644 --- a/src/clfswm.lisp +++ b/src/clfswm.lisp @@ -5,7 +5,7 @@ ;;; Documentation: Main functions ;;; -------------------------------------------------------------------------- ;;; -;;; (C) 2005 Philippe Brochard +;;; (C) 2010 Philippe Brochard ;;; ;;; 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 2f948f2..ff378e3 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 Philippe Brochard +;;; (C) 2010 Philippe Brochard ;;; ;;; 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/menu-def.lisp b/src/menu-def.lisp index c16c573..cbd9a28 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 Philippe Brochard +;;; (C) 2010 Philippe Brochard ;;; ;;; 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 f337a7f..08dfc3b 100644 --- a/src/my-html.lisp +++ b/src/my-html.lisp @@ -5,7 +5,7 @@ ;;; Documentation: Html generator helper ;;; -------------------------------------------------------------------------- ;;; -;;; (C) 2005 Philippe Brochard +;;; (C) 2010 Philippe Brochard ;;; ;;; 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 @@ -83,7 +83,7 @@ (ul (li "toto") (li "klm")))))) - + (defun test2 () (with-html () @@ -114,7 +114,7 @@ (li "toto") (li "klm")))) 10)) - + diff --git a/src/netwm-util.lisp b/src/netwm-util.lisp index 41441bf..d15d069 100644 --- a/src/netwm-util.lisp +++ b/src/netwm-util.lisp @@ -6,7 +6,7 @@ ;;; http://freedesktop.org/wiki/Specifications_2fwm_2dspec ;;; -------------------------------------------------------------------------- ;;; -;;; (C) 2005 Philippe Brochard +;;; (C) 2010 Philippe Brochard ;;; ;;; 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 @@ -27,7 +27,7 @@ (in-package :clfswm) -;;; Client List functions +;;; Client List functions (defun netwm-set-client-list (id-list) (xlib:change-property *root* :_NET_CLIENT_LIST id-list :window 32)) @@ -43,7 +43,7 @@ (netwm-set-client-list (remove (xlib:window-id window) (netwm-get-client-list)))) - + ;;; Desktop functions ;; +PHIL (defun netwm-update-desktop-property () ;; (xlib:change-property *root* :_NET_NUMBER_OF_DESKTOPS diff --git a/src/package.lisp b/src/package.lisp index 3dcfeca..5f3eb8b 100644 --- a/src/package.lisp +++ b/src/package.lisp @@ -5,7 +5,7 @@ ;;; Documentation: Package definition ;;; -------------------------------------------------------------------------- ;;; -;;; (C) 2005 Philippe Brochard +;;; (C) 2010 Philippe Brochard ;;; ;;; 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 10631c1..daff0e0 100644 --- a/src/tools.lisp +++ b/src/tools.lisp @@ -5,7 +5,7 @@ ;;; Documentation: General tools ;;; -------------------------------------------------------------------------- ;;; -;;; (C) 2005 Philippe Brochard +;;; (C) 2010 Philippe Brochard ;;; ;;; 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/version.lisp b/src/version.lisp index ffff7ac..de9df4b 100644 --- a/src/version.lisp +++ b/src/version.lisp @@ -1,5 +1,5 @@ -;; Copyright (C) 2008 Xavier Maillard -;; Copyright (C) 2006 Martin Bishop +;; Copyright (C) 2010 Xavier Maillard +;; Copyright (C) 2010 Martin Bishop ;; ;; Borrowed from Stumpwm ;; This file is part of clfswm. @@ -33,4 +33,4 @@ (in-package :version) -(defparameter *version* #.(concatenate 'string "Version: 0906 built " (date-string))) +(defparameter *version* #.(concatenate 'string "Version: 1.0 built " (date-string))) diff --git a/src/xlib-util.lisp b/src/xlib-util.lisp index 750be3d..ed1f8a0 100644 --- a/src/xlib-util.lisp +++ b/src/xlib-util.lisp @@ -5,7 +5,7 @@ ;;; Documentation: Utility functions ;;; -------------------------------------------------------------------------- ;;; -;;; (C) 2005 Philippe Brochard +;;; (C) 2010 Philippe Brochard ;;; ;;; 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 -- 2.11.4.GIT