From d29648229fbd5a0c1ea2c977bb8fe2c9a1d62b5a Mon Sep 17 00:00:00 2001
From: Philippe Brochard <pbrochard@common-lisp.net>
Date: Wed, 12 Dec 2012 20:54:26 +0100
Subject: [PATCH] Remove L* keysym to use only F* (L1 become F11)

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

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
-- 
2.11.4.GIT