From 572fc91d4bac3ea0723baac6940406edeb0ffea1 Mon Sep 17 00:00:00 2001 From: Philippe Brochard Date: Sat, 12 Mar 2011 23:58:14 +0100 Subject: [PATCH] Copyright date update --- ChangeLog | 2 ++ contrib/cd-player.lisp | 2 +- contrib/keyb_fr.lisp | 2 +- contrib/mpd.lisp | 2 +- contrib/osd.lisp | 2 +- contrib/reboot-halt.lisp | 2 +- contrib/server/clfswm-client.lisp | 34 +++++++++++++++++++++++ contrib/server/crypt.lisp | 34 +++++++++++++++++++++++ contrib/server/key.lisp | 34 +++++++++++++++++++++++ contrib/server/load.lisp | 2 +- contrib/server/server.lisp | 2 +- contrib/xmms.lisp | 2 +- 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-expose-mode.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 | 2 +- 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 | 58 +++++++++++++++++++-------------------- src/my-html.lisp | 2 +- src/netwm-util.lisp | 2 +- src/package.lisp | 2 +- src/tools.lisp | 2 +- src/version.lisp | 6 ++-- src/xlib-util.lisp | 2 +- 40 files changed, 170 insertions(+), 66 deletions(-) diff --git a/ChangeLog b/ChangeLog index 1b4b3a1..b42abdc 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,5 +1,7 @@ 2011-03-12 Philippe Brochard + * src/menu-def.lisp: Menu update to prevent cursor keys clash. + * clfswm.asd: Change compilation order to prevent undefined variables. diff --git a/contrib/cd-player.lisp b/contrib/cd-player.lisp index c786b74..3e64deb 100644 --- a/contrib/cd-player.lisp +++ b/contrib/cd-player.lisp @@ -5,7 +5,7 @@ ;;; Documentation: Music Player Daemon (MPD) interface ;;; -------------------------------------------------------------------------- ;;; -;;; (C) 2009 Philippe Brochard +;;; (C) 2011 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/contrib/keyb_fr.lisp b/contrib/keyb_fr.lisp index fb35258..8ccddac 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) 2009 Philippe Brochard +;;; (C) 2011 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/contrib/mpd.lisp b/contrib/mpd.lisp index 5bf9ba2..a76e3a4 100644 --- a/contrib/mpd.lisp +++ b/contrib/mpd.lisp @@ -5,7 +5,7 @@ ;;; Documentation: Music Player Daemon (MPD) interface ;;; -------------------------------------------------------------------------- ;;; -;;; (C) 2009 Philippe Brochard +;;; (C) 2011 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/contrib/osd.lisp b/contrib/osd.lisp index 82f1511..be49dc2 100644 --- a/contrib/osd.lisp +++ b/contrib/osd.lisp @@ -5,7 +5,7 @@ ;;; Documentation: OSD (On Screen Display) for presentations. ;;; -------------------------------------------------------------------------- ;;; -;;; (C) 2010 Philippe Brochard +;;; (C) 2011 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/contrib/reboot-halt.lisp b/contrib/reboot-halt.lisp index 086c3e6..cddbde0 100644 --- a/contrib/reboot-halt.lisp +++ b/contrib/reboot-halt.lisp @@ -5,7 +5,7 @@ ;;; Documentation: Reboot and halt menu ;;; -------------------------------------------------------------------------- ;;; -;;; (C) 2009 Philippe Brochard +;;; (C) 2011 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/contrib/server/clfswm-client.lisp b/contrib/server/clfswm-client.lisp index 0b7708e..6540437 100644 --- a/contrib/server/clfswm-client.lisp +++ b/contrib/server/clfswm-client.lisp @@ -1,3 +1,37 @@ +;;; -------------------------------------------------------------------------- +;;; CLFSWM - FullScreen Window Manager +;;; +;;; -------------------------------------------------------------------------- +;;; Documentation: Client/server connection. +;;; The connection is crypted and you can only connect to the server with the +;;; same clfswm binary. +;;; -------------------------------------------------------------------------- +;;; +;;; (C) 2011 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 +;;; the Free Software Foundation; either version 3 of the License, or +;;; (at your option) any later version. +;;; +;;; This program is distributed in the hope that it will be useful, +;;; but WITHOUT ANY WARRANTY; without even the implied warranty of +;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +;;; GNU General Public License for more details. +;;; +;;; You should have received a copy of the GNU General Public License +;;; along with this program; if not, write to the Free Software +;;; Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. +;;; +;;; -------------------------------------------------------------------------- +;;; Server protocole: +;;; Server -> Client: orig_key=a generated key crypted with *key* +;;; Client : build its new_key with orig_key+*key* +;;; Client -> Server: new_key+(md5 new_key) crypted with new_key +;;; Server -> Client: check if the keys match and then authenticate the client. +;;; Server <-> Client: All connections are crypted with new_key +;;; -------------------------------------------------------------------------- + (in-package :common-lisp-user) (defpackage :clfswm-client diff --git a/contrib/server/crypt.lisp b/contrib/server/crypt.lisp index 82a47fb..d9cec3a 100644 --- a/contrib/server/crypt.lisp +++ b/contrib/server/crypt.lisp @@ -1,3 +1,37 @@ +;;; -------------------------------------------------------------------------- +;;; CLFSWM - FullScreen Window Manager +;;; +;;; -------------------------------------------------------------------------- +;;; Documentation: Client/server connection. +;;; The connection is crypted and you can only connect to the server with the +;;; same clfswm binary. +;;; -------------------------------------------------------------------------- +;;; +;;; (C) 2011 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 +;;; the Free Software Foundation; either version 3 of the License, or +;;; (at your option) any later version. +;;; +;;; This program is distributed in the hope that it will be useful, +;;; but WITHOUT ANY WARRANTY; without even the implied warranty of +;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +;;; GNU General Public License for more details. +;;; +;;; You should have received a copy of the GNU General Public License +;;; along with this program; if not, write to the Free Software +;;; Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. +;;; +;;; -------------------------------------------------------------------------- +;;; Server protocole: +;;; Server -> Client: orig_key=a generated key crypted with *key* +;;; Client : build its new_key with orig_key+*key* +;;; Client -> Server: new_key+(md5 new_key) crypted with new_key +;;; Server -> Client: check if the keys match and then authenticate the client. +;;; Server <-> Client: All connections are crypted with new_key +;;; -------------------------------------------------------------------------- + (in-package :common-lisp-user) (defpackage :crypt diff --git a/contrib/server/key.lisp b/contrib/server/key.lisp index 6a71f6d..c5757c7 100644 --- a/contrib/server/key.lisp +++ b/contrib/server/key.lisp @@ -1,3 +1,37 @@ +;;; -------------------------------------------------------------------------- +;;; CLFSWM - FullScreen Window Manager +;;; +;;; -------------------------------------------------------------------------- +;;; Documentation: Client/server connection. +;;; The connection is crypted and you can only connect to the server with the +;;; same clfswm binary. +;;; -------------------------------------------------------------------------- +;;; +;;; (C) 2011 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 +;;; the Free Software Foundation; either version 3 of the License, or +;;; (at your option) any later version. +;;; +;;; This program is distributed in the hope that it will be useful, +;;; but WITHOUT ANY WARRANTY; without even the implied warranty of +;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +;;; GNU General Public License for more details. +;;; +;;; You should have received a copy of the GNU General Public License +;;; along with this program; if not, write to the Free Software +;;; Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. +;;; +;;; -------------------------------------------------------------------------- +;;; Server protocole: +;;; Server -> Client: orig_key=a generated key crypted with *key* +;;; Client : build its new_key with orig_key+*key* +;;; Client -> Server: new_key+(md5 new_key) crypted with new_key +;;; Server -> Client: check if the keys match and then authenticate the client. +;;; Server <-> Client: All connections are crypted with new_key +;;; -------------------------------------------------------------------------- + (in-package :crypt) (export '(load-new-key diff --git a/contrib/server/load.lisp b/contrib/server/load.lisp index 021f38c..dfd81e3 100644 --- a/contrib/server/load.lisp +++ b/contrib/server/load.lisp @@ -5,7 +5,7 @@ ;;; Documentation: CLFSWM Client ;;; -------------------------------------------------------------------------- ;;; -;;; (C) 2005 Philippe Brochard +;;; (C) 2011 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/contrib/server/server.lisp b/contrib/server/server.lisp index 15cb509..c89ca0a 100644 --- a/contrib/server/server.lisp +++ b/contrib/server/server.lisp @@ -7,7 +7,7 @@ ;;; same clfswm binary. ;;; -------------------------------------------------------------------------- ;;; -;;; (C) 2005 Philippe Brochard +;;; (C) 2011 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/contrib/xmms.lisp b/contrib/xmms.lisp index 3921b89..a8ba49b 100644 --- a/contrib/xmms.lisp +++ b/contrib/xmms.lisp @@ -5,7 +5,7 @@ ;;; Documentation: Music Player Daemon (MPD) interface ;;; -------------------------------------------------------------------------- ;;; -;;; (C) 2009 Philippe Brochard +;;; (C) 2011 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-second-mode.lisp b/src/bindings-second-mode.lisp index de63635..3b42f4f 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) 2010 Philippe Brochard +;;; (C) 2011 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 c686658..bb05009 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) 2010 Philippe Brochard +;;; (C) 2011 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 40bb66f..7695970 100644 --- a/src/clfswm-autodoc.lisp +++ b/src/clfswm-autodoc.lisp @@ -5,7 +5,7 @@ ;;; Documentation: Auto documentation tools ;;; -------------------------------------------------------------------------- ;;; -;;; (C) 2010 Philippe Brochard +;;; (C) 2011 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 91beaa0..0f128d7 100644 --- a/src/clfswm-circulate-mode.lisp +++ b/src/clfswm-circulate-mode.lisp @@ -5,7 +5,7 @@ ;;; Documentation: Main functions ;;; -------------------------------------------------------------------------- ;;; -;;; (C) 2010 Philippe Brochard +;;; (C) 2011 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 3a78e94..0185445 100644 --- a/src/clfswm-configuration.lisp +++ b/src/clfswm-configuration.lisp @@ -6,7 +6,7 @@ ;;; ;;; -------------------------------------------------------------------------- ;;; -;;; (C) 2010 Philippe Brochard +;;; (C) 2011 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 0fd42da..1a2a252 100644 --- a/src/clfswm-corner.lisp +++ b/src/clfswm-corner.lisp @@ -5,7 +5,7 @@ ;;; Documentation: Corner functions ;;; -------------------------------------------------------------------------- ;;; -;;; (C) 2010 Philippe Brochard +;;; (C) 2011 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-expose-mode.lisp b/src/clfswm-expose-mode.lisp index 824032a..8149ed6 100644 --- a/src/clfswm-expose-mode.lisp +++ b/src/clfswm-expose-mode.lisp @@ -5,7 +5,7 @@ ;;; Documentation: Expose functions - An expose like. ;;; -------------------------------------------------------------------------- ;;; -;;; (C) 2010 Philippe Brochard +;;; (C) 2011 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 e8a2da1..eba835e 100644 --- a/src/clfswm-generic-mode.lisp +++ b/src/clfswm-generic-mode.lisp @@ -5,7 +5,7 @@ ;;; Documentation: Main functions ;;; -------------------------------------------------------------------------- ;;; -;;; (C) 2010 Philippe Brochard +;;; (C) 2011 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 516bae9..a3d3df7 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) 2010 Philippe Brochard +;;; (C) 2011 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 54d6a39..64e8361 100644 --- a/src/clfswm-internal.lisp +++ b/src/clfswm-internal.lisp @@ -5,7 +5,7 @@ ;;; Documentation: Main functions ;;; -------------------------------------------------------------------------- ;;; -;;; (C) 2010 Philippe Brochard +;;; (C) 2011 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 d3bbfcf..6a40d64 100644 --- a/src/clfswm-keys.lisp +++ b/src/clfswm-keys.lisp @@ -5,7 +5,7 @@ ;;; Documentation: Keys functions definition ;;; -------------------------------------------------------------------------- ;;; -;;; (C) 2010 Philippe Brochard +;;; (C) 2011 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 32c81f2..feb895e 100644 --- a/src/clfswm-layout.lisp +++ b/src/clfswm-layout.lisp @@ -5,7 +5,7 @@ ;;; Documentation: Layout functions ;;; -------------------------------------------------------------------------- ;;; -;;; (C) 2010 Philippe Brochard +;;; (C) 2011 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 ad85a24..5dbe8b5 100644 --- a/src/clfswm-menu.lisp +++ b/src/clfswm-menu.lisp @@ -5,7 +5,7 @@ ;;; Documentation: Menu functions ;;; -------------------------------------------------------------------------- ;;; -;;; (C) 2010 Philippe Brochard +;;; (C) 2011 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 7cb9464..188db76 100644 --- a/src/clfswm-nw-hooks.lisp +++ b/src/clfswm-nw-hooks.lisp @@ -8,7 +8,7 @@ ;;; mapped. ;;; -------------------------------------------------------------------------- ;;; -;;; (C) 2010 Philippe Brochard +;;; (C) 2011 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 5947cd9..a16c804 100644 --- a/src/clfswm-pack.lisp +++ b/src/clfswm-pack.lisp @@ -5,7 +5,7 @@ ;;; Documentation: Tile, pack and fill functions ;;; -------------------------------------------------------------------------- ;;; -;;; (C) 2010 Philippe Brochard +;;; (C) 2011 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-placement.lisp b/src/clfswm-placement.lisp index a02a555..c4167a5 100644 --- a/src/clfswm-placement.lisp +++ b/src/clfswm-placement.lisp @@ -5,7 +5,7 @@ ;;; Documentation: Placement functions ;;; -------------------------------------------------------------------------- ;;; -;;; (C) 2010 Philippe Brochard +;;; (C) 2011 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 045be4a..4be8394 100644 --- a/src/clfswm-query.lisp +++ b/src/clfswm-query.lisp @@ -5,7 +5,7 @@ ;;; Documentation: Query utility ;;; -------------------------------------------------------------------------- ;;; -;;; (C) 2010 Philippe Brochard +;;; (C) 2011 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 5b42a58..a80a4ef 100644 --- a/src/clfswm-second-mode.lisp +++ b/src/clfswm-second-mode.lisp @@ -5,7 +5,7 @@ ;;; Documentation: Second mode functions ;;; -------------------------------------------------------------------------- ;;; -;;; (C) 2010 Philippe Brochard +;;; (C) 2011 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 941cfb4..b928e5a 100644 --- a/src/clfswm-util.lisp +++ b/src/clfswm-util.lisp @@ -5,7 +5,7 @@ ;;; Documentation: Utility ;;; -------------------------------------------------------------------------- ;;; -;;; (C) 2010 Philippe Brochard +;;; (C) 2011 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 6657321..b63815e 100644 --- a/src/clfswm.lisp +++ b/src/clfswm.lisp @@ -5,7 +5,7 @@ ;;; Documentation: Main functions ;;; -------------------------------------------------------------------------- ;;; -;;; (C) 2010 Philippe Brochard +;;; (C) 2011 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 b83938a..2da2b5f 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) 2010 Philippe Brochard +;;; (C) 2011 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 fa205d6..80ea480 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) 2010 Philippe Brochard +;;; (C) 2011 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 @@ -107,35 +107,35 @@ (add-sub-menu 'frame-movement-menu "p" 'frame-pack-menu "Frame pack menu") (add-sub-menu 'frame-movement-menu "f" 'frame-fill-menu "Frame fill menu") -(add-sub-menu 'frame-movement-menu "r" 'frame-resize-menu "Frame resize menu") +(add-sub-menu 'frame-movement-menu "z" 'frame-resize-menu "Frame resize menu") (add-menu-key 'frame-movement-menu "c" 'center-current-frame) -(add-menu-key 'frame-movement-menu "Right" 'with-movement-select-next-brother) -(add-menu-key 'frame-movement-menu "Left" 'with-movement-select-previous-brother) -(add-menu-key 'frame-movement-menu "Up" 'with-movement-select-next-level) -(add-menu-key 'frame-movement-menu "Down" 'with-movement-select-previous-level) -(add-menu-key 'frame-movement-menu "Tab" 'with-movement-select-next-child) - - -(add-menu-key 'frame-pack-menu "Up" 'current-frame-pack-up) -(add-menu-key 'frame-pack-menu "Down" 'current-frame-pack-down) -(add-menu-key 'frame-pack-menu "Left" 'current-frame-pack-left) -(add-menu-key 'frame-pack-menu "Right" 'current-frame-pack-right) - - -(add-menu-key 'frame-fill-menu "Up" 'current-frame-fill-up) -(add-menu-key 'frame-fill-menu "Down" 'current-frame-fill-down) -(add-menu-key 'frame-fill-menu "Left" 'current-frame-fill-left) -(add-menu-key 'frame-fill-menu "Right" 'current-frame-fill-right) -(add-menu-key 'frame-fill-menu #\a 'current-frame-fill-all-dir) -(add-menu-key 'frame-fill-menu #\v 'current-frame-fill-vertical) -(add-menu-key 'frame-fill-menu #\h 'current-frame-fill-horizontal) - -(add-menu-key 'frame-resize-menu "Up" 'current-frame-resize-up) -(add-menu-key 'frame-resize-menu "Down" 'current-frame-resize-down) -(add-menu-key 'frame-resize-menu "Left" 'current-frame-resize-left) -(add-menu-key 'frame-resize-menu "Right" 'current-frame-resize-right) -(add-menu-key 'frame-resize-menu #\d 'current-frame-resize-all-dir) -(add-menu-key 'frame-resize-menu #\a 'current-frame-resize-all-dir-minimal) +(add-menu-key 'frame-movement-menu "r" 'with-movement-select-next-brother) +(add-menu-key 'frame-movement-menu "l" 'with-movement-select-previous-brother) +(add-menu-key 'frame-movement-menu "u" 'with-movement-select-next-level) +(add-menu-key 'frame-movement-menu "d" 'with-movement-select-previous-level) +(add-menu-key 'frame-movement-menu "t" 'with-movement-select-next-child) + + +(add-menu-key 'frame-pack-menu "u" 'current-frame-pack-up) +(add-menu-key 'frame-pack-menu "d" 'current-frame-pack-down) +(add-menu-key 'frame-pack-menu "l" 'current-frame-pack-left) +(add-menu-key 'frame-pack-menu "r" 'current-frame-pack-right) + + +(add-menu-key 'frame-fill-menu "u" 'current-frame-fill-up) +(add-menu-key 'frame-fill-menu "d" 'current-frame-fill-down) +(add-menu-key 'frame-fill-menu "l" 'current-frame-fill-left) +(add-menu-key 'frame-fill-menu "r" 'current-frame-fill-right) +(add-menu-key 'frame-fill-menu "a" 'current-frame-fill-all-dir) +(add-menu-key 'frame-fill-menu "v" 'current-frame-fill-vertical) +(add-menu-key 'frame-fill-menu "h" 'current-frame-fill-horizontal) + +(add-menu-key 'frame-resize-menu "u" 'current-frame-resize-up) +(add-menu-key 'frame-resize-menu "d" 'current-frame-resize-down) +(add-menu-key 'frame-resize-menu "l" 'current-frame-resize-left) +(add-menu-key 'frame-resize-menu "r" 'current-frame-resize-right) +(add-menu-key 'frame-resize-menu "a" 'current-frame-resize-all-dir) +(add-menu-key 'frame-resize-menu "m" 'current-frame-resize-all-dir-minimal) (add-menu-comment 'frame-focus-policy "-=- For the current frame -=-") diff --git a/src/my-html.lisp b/src/my-html.lisp index 08dfc3b..0981bfc 100644 --- a/src/my-html.lisp +++ b/src/my-html.lisp @@ -5,7 +5,7 @@ ;;; Documentation: Html generator helper ;;; -------------------------------------------------------------------------- ;;; -;;; (C) 2010 Philippe Brochard +;;; (C) 2011 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/netwm-util.lisp b/src/netwm-util.lisp index d15d069..4daf833 100644 --- a/src/netwm-util.lisp +++ b/src/netwm-util.lisp @@ -6,7 +6,7 @@ ;;; http://freedesktop.org/wiki/Specifications_2fwm_2dspec ;;; -------------------------------------------------------------------------- ;;; -;;; (C) 2010 Philippe Brochard +;;; (C) 2011 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/package.lisp b/src/package.lisp index 787eea8..bad37e5 100644 --- a/src/package.lisp +++ b/src/package.lisp @@ -5,7 +5,7 @@ ;;; Documentation: Package definition ;;; -------------------------------------------------------------------------- ;;; -;;; (C) 2010 Philippe Brochard +;;; (C) 2011 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 725aa5c..71806d7 100644 --- a/src/tools.lisp +++ b/src/tools.lisp @@ -5,7 +5,7 @@ ;;; Documentation: General tools ;;; -------------------------------------------------------------------------- ;;; -;;; (C) 2010 Philippe Brochard +;;; (C) 2011 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 cd6bab7..76f163f 100644 --- a/src/version.lisp +++ b/src/version.lisp @@ -1,5 +1,5 @@ -;; Copyright (C) 2010 Xavier Maillard -;; Copyright (C) 2010 Martin Bishop +;; Copyright (C) 2011 Xavier Maillard +;; Copyright (C) 2011 Martin Bishop ;; ;; Borrowed from Stumpwm ;; This file is part of clfswm. @@ -33,4 +33,4 @@ (in-package :version) -(defparameter *version* #.(concatenate 'string "Version: 11.10 built " (date-string))) +(defparameter *version* #.(concatenate 'string "Version: 11.03 built " (date-string))) diff --git a/src/xlib-util.lisp b/src/xlib-util.lisp index 16ce59d..71b077c 100644 --- a/src/xlib-util.lisp +++ b/src/xlib-util.lisp @@ -5,7 +5,7 @@ ;;; Documentation: Utility functions ;;; -------------------------------------------------------------------------- ;;; -;;; (C) 2010 Philippe Brochard +;;; (C) 2011 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