[clfswm-cvs] [clfswm-git]CLFSWM - A(nother) Common Lisp FullScreen Window Manager branch master updated. R-1212-2-gd296482

[Philippe Brochard]

This is an automated email from the git hooks/post-receive script. It was
generated because a ref change was pushed to the repository containing
the project "CLFSWM - A(nother) Common Lisp FullScreen Window Manager".

The branch, master has been updated
       via  d29648229fbd5a0c1ea2c977bb8fe2c9a1d62b5a (commit)
      from  206ae17424bc8a5939c7850b78de0bd99548975e (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 d29648229fbd5a0c1ea2c977bb8fe2c9a1d62b5a
Author: Philippe Brochard <pbrochard at common-lisp.net>
Date:   Wed Dec 12 20:54:26 2012 +0100

    Remove L* keysym to use only F* (L1 become F11)

diff --git a/src/bindings-second-mode.lisp b/src/bindings-second-mode.lisp
index e1ca00a..c2e76b3 100644
--- a/src/bindings-second-mode.lisp
+++ b/src/bindings-second-mode.lisp
@@ -176,8 +176,8 @@
   (define-second-key ("F10" :shift :control) 'toggle-show-root-frame)
   (define-second-key ("F10") 'expose-windows-mode)
   (define-second-key ("F10" :control) 'expose-all-windows-mode)
-  (define-second-key ("L2" :shift) 'show-all-frames-info-key)
-  (define-second-key ("L2" :shift :mod-1) 'show-all-frames-info)
+  (define-second-key ("F12" :shift) 'show-all-frames-info-key)
+  (define-second-key ("F12" :shift :mod-1) 'show-all-frames-info)
   ;; Bind or jump functions
   (define-second-key ("1" :mod-1) 'bind-or-jump 1)
   (define-second-key ("2" :mod-1) 'bind-or-jump 2)
diff --git a/src/bindings.lisp b/src/bindings.lisp
index 4925bc6..106ae9a 100644
--- a/src/bindings.lisp
+++ b/src/bindings.lisp
@@ -68,9 +68,9 @@
   (define-main-key ("F10" :shift :control) 'toggle-show-root-frame)
   (define-main-key ("F10") 'expose-windows-mode)
   (define-main-key ("F10" :control) 'expose-all-windows-mode)
-  (define-main-key ("L2" :control) 'present-clfswm-terminal)
-  (define-main-key ("L2" :shift) 'show-all-frames-info-key)
-  (define-main-key ("L2" :shift :mod-1) 'show-all-frames-info)
+  (define-main-key ("F12" :control) 'present-clfswm-terminal)
+  (define-main-key ("F12" :shift) 'show-all-frames-info-key)
+  (define-main-key ("F12" :shift :mod-1) 'show-all-frames-info)
   (define-main-key ("b" :mod-1) 'banish-pointer)
   ;; Escape
   (define-main-key ("Escape" :control) 'ask-close/kill-current-window)
diff --git a/src/keysyms.lisp b/src/keysyms.lisp
index 7bef747..d5f7683 100644
--- a/src/keysyms.lisp
+++ b/src/keysyms.lisp
@@ -158,55 +158,30 @@
 (cl-define-keysym #xffc6 "F9")
 (cl-define-keysym #xffc7 "F10")
 (cl-define-keysym #xffc8 "F11")
-(cl-define-keysym #xffc8 "L1")
 (cl-define-keysym #xffc9 "F12")
-(cl-define-keysym #xffc9 "L2")
 (cl-define-keysym #xffca "F13")
-(cl-define-keysym #xffca "L3")
 (cl-define-keysym #xffcb "F14")
-(cl-define-keysym #xffcb "L4")
 (cl-define-keysym #xffcc "F15")
-(cl-define-keysym #xffcc "L5")
 (cl-define-keysym #xffcd "F16")
-(cl-define-keysym #xffcd "L6")
 (cl-define-keysym #xffce "F17")
-(cl-define-keysym #xffce "L7")
 (cl-define-keysym #xffcf "F18")
-(cl-define-keysym #xffcf "L8")
 (cl-define-keysym #xffd0 "F19")
-(cl-define-keysym #xffd0 "L9")
 (cl-define-keysym #xffd1 "F20")
-(cl-define-keysym #xffd1 "L10")
 (cl-define-keysym #xffd2 "F21")
-(cl-define-keysym #xffd2 "R1")
 (cl-define-keysym #xffd3 "F22")
-(cl-define-keysym #xffd3 "R2")
 (cl-define-keysym #xffd4 "F23")
-(cl-define-keysym #xffd4 "R3")
 (cl-define-keysym #xffd5 "F24")
-(cl-define-keysym #xffd5 "R4")
 (cl-define-keysym #xffd6 "F25")
-(cl-define-keysym #xffd6 "R5")
 (cl-define-keysym #xffd7 "F26")
-(cl-define-keysym #xffd7 "R6")
 (cl-define-keysym #xffd8 "F27")
-(cl-define-keysym #xffd8 "R7")
 (cl-define-keysym #xffd9 "F28")
-(cl-define-keysym #xffd9 "R8")
 (cl-define-keysym #xffda "F29")
-(cl-define-keysym #xffda "R9")
 (cl-define-keysym #xffdb "F30")
-(cl-define-keysym #xffdb "R10")
 (cl-define-keysym #xffdc "F31")
-(cl-define-keysym #xffdc "R11")
 (cl-define-keysym #xffdd "F32")
-(cl-define-keysym #xffdd "R12")
 (cl-define-keysym #xffde "F33")
-(cl-define-keysym #xffde "R13")
 (cl-define-keysym #xffdf "F34")
-(cl-define-keysym #xffdf "R14")
 (cl-define-keysym #xffe0 "F35")
-(cl-define-keysym #xffe0 "R15")
 (cl-define-keysym #xffe1 "Shift_L")	;Left shift
 (cl-define-keysym #xffe2 "Shift_R")	;Right shift
 (cl-define-keysym #xffe3 "Control_L")	;Left control

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

Summary of changes:
 src/bindings-second-mode.lisp |    4 ++--
 src/bindings.lisp             |    6 +++---
 src/keysyms.lisp              |   25 -------------------------
 3 files changed, 5 insertions(+), 30 deletions(-)


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