[clfswm-cvs] r290 - clfswm/src
Philippe Brochard
pbrochard at common-lisp.net
Mon Aug 16 21:47:24 UTC 2010
Author: pbrochard
Date: Mon Aug 16 17:47:24 2010
New Revision: 290
Log:
Date copyright and version update
Modified:
clfswm/src/bindings-second-mode.lisp
clfswm/src/bindings.lisp
clfswm/src/clfswm-autodoc.lisp
clfswm/src/clfswm-circulate-mode.lisp
clfswm/src/clfswm-configuration.lisp
clfswm/src/clfswm-corner.lisp
clfswm/src/clfswm-generic-mode.lisp
clfswm/src/clfswm-info.lisp
clfswm/src/clfswm-internal.lisp
clfswm/src/clfswm-keys.lisp
clfswm/src/clfswm-layout.lisp
clfswm/src/clfswm-menu.lisp
clfswm/src/clfswm-nw-hooks.lisp
clfswm/src/clfswm-pack.lisp
clfswm/src/clfswm-placement.lisp
clfswm/src/clfswm-query.lisp
clfswm/src/clfswm-second-mode.lisp
clfswm/src/clfswm-util.lisp
clfswm/src/clfswm.lisp
clfswm/src/config.lisp
clfswm/src/menu-def.lisp
clfswm/src/my-html.lisp
clfswm/src/netwm-util.lisp
clfswm/src/package.lisp
clfswm/src/tools.lisp
clfswm/src/version.lisp
clfswm/src/xlib-util.lisp
Modified: clfswm/src/bindings-second-mode.lisp
==============================================================================
--- clfswm/src/bindings-second-mode.lisp (original)
+++ clfswm/src/bindings-second-mode.lisp Mon Aug 16 17:47:24 2010
@@ -7,7 +7,7 @@
;;; Note: Mod-1 is the Alt or Meta key, Mod-2 is the Numlock key.
;;; --------------------------------------------------------------------------
;;;
-;;; (C) 2005 Philippe Brochard <hocwp at free.fr>
+;;; (C) 2010 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
Modified: clfswm/src/bindings.lisp
==============================================================================
--- clfswm/src/bindings.lisp (original)
+++ clfswm/src/bindings.lisp Mon Aug 16 17:47:24 2010
@@ -7,7 +7,7 @@
;;; Note: Mod-1 is the Alt or Meta key, Mod-2 is the Numlock key.
;;; --------------------------------------------------------------------------
;;;
-;;; (C) 2005 Philippe Brochard <hocwp at free.fr>
+;;; (C) 2010 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
Modified: clfswm/src/clfswm-autodoc.lisp
==============================================================================
--- clfswm/src/clfswm-autodoc.lisp (original)
+++ clfswm/src/clfswm-autodoc.lisp Mon Aug 16 17:47:24 2010
@@ -5,7 +5,7 @@
;;; Documentation: Auto documentation tools
;;; --------------------------------------------------------------------------
;;;
-;;; (C) 2005 Philippe Brochard <hocwp at free.fr>
+;;; (C) 2010 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
Modified: clfswm/src/clfswm-circulate-mode.lisp
==============================================================================
--- clfswm/src/clfswm-circulate-mode.lisp (original)
+++ clfswm/src/clfswm-circulate-mode.lisp Mon Aug 16 17:47:24 2010
@@ -5,7 +5,7 @@
;;; Documentation: Main functions
;;; --------------------------------------------------------------------------
;;;
-;;; (C) 2005 Philippe Brochard <hocwp at free.fr>
+;;; (C) 2010 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
Modified: clfswm/src/clfswm-configuration.lisp
==============================================================================
--- clfswm/src/clfswm-configuration.lisp (original)
+++ clfswm/src/clfswm-configuration.lisp Mon Aug 16 17:47:24 2010
@@ -6,7 +6,7 @@
;;;
;;; --------------------------------------------------------------------------
;;;
-;;; (C) 2005 Philippe Brochard <hocwp at free.fr>
+;;; (C) 2010 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
Modified: clfswm/src/clfswm-corner.lisp
==============================================================================
--- clfswm/src/clfswm-corner.lisp (original)
+++ clfswm/src/clfswm-corner.lisp Mon Aug 16 17:47:24 2010
@@ -5,7 +5,7 @@
;;; Documentation: Corner functions
;;; --------------------------------------------------------------------------
;;;
-;;; (C) 2005 Philippe Brochard <hocwp at free.fr>
+;;; (C) 2010 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
Modified: clfswm/src/clfswm-generic-mode.lisp
==============================================================================
--- clfswm/src/clfswm-generic-mode.lisp (original)
+++ clfswm/src/clfswm-generic-mode.lisp Mon Aug 16 17:47:24 2010
@@ -5,7 +5,7 @@
;;; Documentation: Main functions
;;; --------------------------------------------------------------------------
;;;
-;;; (C) 2005 Philippe Brochard <hocwp at free.fr>
+;;; (C) 2010 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
Modified: clfswm/src/clfswm-info.lisp
==============================================================================
--- clfswm/src/clfswm-info.lisp (original)
+++ clfswm/src/clfswm-info.lisp Mon Aug 16 17:47:24 2010
@@ -5,7 +5,7 @@
;;; Documentation: Info function (see the end of this file for user definition
;;; --------------------------------------------------------------------------
;;;
-;;; (C) 2005 Philippe Brochard <hocwp at free.fr>
+;;; (C) 2010 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
Modified: clfswm/src/clfswm-internal.lisp
==============================================================================
--- clfswm/src/clfswm-internal.lisp (original)
+++ clfswm/src/clfswm-internal.lisp Mon Aug 16 17:47:24 2010
@@ -5,7 +5,7 @@
;;; Documentation: Main functions
;;; --------------------------------------------------------------------------
;;;
-;;; (C) 2005 Philippe Brochard <hocwp at free.fr>
+;;; (C) 2010 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
Modified: clfswm/src/clfswm-keys.lisp
==============================================================================
--- clfswm/src/clfswm-keys.lisp (original)
+++ clfswm/src/clfswm-keys.lisp Mon Aug 16 17:47:24 2010
@@ -5,7 +5,7 @@
;;; Documentation: Keys functions definition
;;; --------------------------------------------------------------------------
;;;
-;;; (C) 2005 Philippe Brochard <hocwp at free.fr>
+;;; (C) 2010 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
Modified: clfswm/src/clfswm-layout.lisp
==============================================================================
--- clfswm/src/clfswm-layout.lisp (original)
+++ clfswm/src/clfswm-layout.lisp Mon Aug 16 17:47:24 2010
@@ -5,7 +5,7 @@
;;; Documentation: Layout functions
;;; --------------------------------------------------------------------------
;;;
-;;; (C) 2005 Philippe Brochard <hocwp at free.fr>
+;;; (C) 2010 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
Modified: clfswm/src/clfswm-menu.lisp
==============================================================================
--- clfswm/src/clfswm-menu.lisp (original)
+++ clfswm/src/clfswm-menu.lisp Mon Aug 16 17:47:24 2010
@@ -5,7 +5,7 @@
;;; Documentation: Menu functions
;;; --------------------------------------------------------------------------
;;;
-;;; (C) 2005 Philippe Brochard <hocwp at free.fr>
+;;; (C) 2010 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
Modified: clfswm/src/clfswm-nw-hooks.lisp
==============================================================================
--- clfswm/src/clfswm-nw-hooks.lisp (original)
+++ clfswm/src/clfswm-nw-hooks.lisp Mon Aug 16 17:47:24 2010
@@ -8,7 +8,7 @@
;;; mapped.
;;; --------------------------------------------------------------------------
;;;
-;;; (C) 2005 Philippe Brochard <hocwp at free.fr>
+;;; (C) 2010 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
Modified: clfswm/src/clfswm-pack.lisp
==============================================================================
--- clfswm/src/clfswm-pack.lisp (original)
+++ clfswm/src/clfswm-pack.lisp Mon Aug 16 17:47:24 2010
@@ -5,7 +5,7 @@
;;; Documentation: Tile, pack and fill functions
;;; --------------------------------------------------------------------------
;;;
-;;; (C) 2005 Philippe Brochard <hocwp at free.fr>
+;;; (C) 2010 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
@@ -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))))
-
+
Modified: clfswm/src/clfswm-placement.lisp
==============================================================================
--- clfswm/src/clfswm-placement.lisp (original)
+++ clfswm/src/clfswm-placement.lisp Mon Aug 16 17:47:24 2010
@@ -5,7 +5,7 @@
;;; Documentation: Placement functions
;;; --------------------------------------------------------------------------
;;;
-;;; (C) 2005 Philippe Brochard <hocwp at free.fr>
+;;; (C) 2010 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
Modified: clfswm/src/clfswm-query.lisp
==============================================================================
--- clfswm/src/clfswm-query.lisp (original)
+++ clfswm/src/clfswm-query.lisp Mon Aug 16 17:47:24 2010
@@ -5,7 +5,7 @@
;;; Documentation: Query utility
;;; --------------------------------------------------------------------------
;;;
-;;; (C) 2005 Philippe Brochard <hocwp at free.fr>
+;;; (C) 2010 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
Modified: clfswm/src/clfswm-second-mode.lisp
==============================================================================
--- clfswm/src/clfswm-second-mode.lisp (original)
+++ clfswm/src/clfswm-second-mode.lisp Mon Aug 16 17:47:24 2010
@@ -5,7 +5,7 @@
;;; Documentation: Second mode functions
;;; --------------------------------------------------------------------------
;;;
-;;; (C) 2005 Philippe Brochard <hocwp at free.fr>
+;;; (C) 2010 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
Modified: clfswm/src/clfswm-util.lisp
==============================================================================
--- clfswm/src/clfswm-util.lisp (original)
+++ clfswm/src/clfswm-util.lisp Mon Aug 16 17:47:24 2010
@@ -5,7 +5,7 @@
;;; Documentation: Utility
;;; --------------------------------------------------------------------------
;;;
-;;; (C) 2005 Philippe Brochard <hocwp at free.fr>
+;;; (C) 2010 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
Modified: clfswm/src/clfswm.lisp
==============================================================================
--- clfswm/src/clfswm.lisp (original)
+++ clfswm/src/clfswm.lisp Mon Aug 16 17:47:24 2010
@@ -5,7 +5,7 @@
;;; Documentation: Main functions
;;; --------------------------------------------------------------------------
;;;
-;;; (C) 2005 Philippe Brochard <hocwp at free.fr>
+;;; (C) 2010 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
Modified: clfswm/src/config.lisp
==============================================================================
--- clfswm/src/config.lisp (original)
+++ clfswm/src/config.lisp Mon Aug 16 17:47:24 2010
@@ -10,7 +10,7 @@
;;; (you can do a 'grep CONFIG *.lisp' to see what you can configure)
;;; --------------------------------------------------------------------------
;;;
-;;; (C) 2005 Philippe Brochard <hocwp at free.fr>
+;;; (C) 2010 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
Modified: clfswm/src/menu-def.lisp
==============================================================================
--- clfswm/src/menu-def.lisp (original)
+++ clfswm/src/menu-def.lisp Mon Aug 16 17:47:24 2010
@@ -7,7 +7,7 @@
;;; Note: Mod-1 is the Alt or Meta key, Mod-2 is the Numlock key.
;;; --------------------------------------------------------------------------
;;;
-;;; (C) 2005 Philippe Brochard <hocwp at free.fr>
+;;; (C) 2010 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
Modified: clfswm/src/my-html.lisp
==============================================================================
--- clfswm/src/my-html.lisp (original)
+++ clfswm/src/my-html.lisp Mon Aug 16 17:47:24 2010
@@ -5,7 +5,7 @@
;;; Documentation: Html generator helper
;;; --------------------------------------------------------------------------
;;;
-;;; (C) 2005 Philippe Brochard <hocwp at free.fr>
+;;; (C) 2010 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
@@ -83,7 +83,7 @@
(ul
(li "toto")
(li "klm"))))))
-
+
(defun test2 ()
(with-html ()
@@ -114,7 +114,7 @@
(li "toto")
(li "klm"))))
10))
-
+
Modified: clfswm/src/netwm-util.lisp
==============================================================================
--- clfswm/src/netwm-util.lisp (original)
+++ clfswm/src/netwm-util.lisp Mon Aug 16 17:47:24 2010
@@ -6,7 +6,7 @@
;;; http://freedesktop.org/wiki/Specifications_2fwm_2dspec
;;; --------------------------------------------------------------------------
;;;
-;;; (C) 2005 Philippe Brochard <hocwp at free.fr>
+;;; (C) 2010 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
@@ -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
Modified: clfswm/src/package.lisp
==============================================================================
--- clfswm/src/package.lisp (original)
+++ clfswm/src/package.lisp Mon Aug 16 17:47:24 2010
@@ -5,7 +5,7 @@
;;; Documentation: Package definition
;;; --------------------------------------------------------------------------
;;;
-;;; (C) 2005 Philippe Brochard <hocwp at free.fr>
+;;; (C) 2010 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
Modified: clfswm/src/tools.lisp
==============================================================================
--- clfswm/src/tools.lisp (original)
+++ clfswm/src/tools.lisp Mon Aug 16 17:47:24 2010
@@ -5,7 +5,7 @@
;;; Documentation: General tools
;;; --------------------------------------------------------------------------
;;;
-;;; (C) 2005 Philippe Brochard <hocwp at free.fr>
+;;; (C) 2010 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
Modified: clfswm/src/version.lisp
==============================================================================
--- clfswm/src/version.lisp (original)
+++ clfswm/src/version.lisp Mon Aug 16 17:47:24 2010
@@ -1,5 +1,5 @@
-;; Copyright (C) 2008 Xavier Maillard <xma at gnu.org>
-;; Copyright (C) 2006 Martin Bishop
+;; Copyright (C) 2010 Xavier Maillard <xma at gnu.org>
+;; 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)))
Modified: clfswm/src/xlib-util.lisp
==============================================================================
--- clfswm/src/xlib-util.lisp (original)
+++ clfswm/src/xlib-util.lisp Mon Aug 16 17:47:24 2010
@@ -5,7 +5,7 @@
;;; Documentation: Utility functions
;;; --------------------------------------------------------------------------
;;;
-;;; (C) 2005 Philippe Brochard <hocwp at free.fr>
+;;; (C) 2010 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
More information about the clfswm-cvs
mailing list