From beac523f3e2ca9fd1a5fca23248768b04811c73c Mon Sep 17 00:00:00 2001 From: Guillaume LE VAILLANT Date: Sun, 17 Mar 2019 19:01:41 +0100 Subject: [PATCH] Add layout for french keyboard numpad --- util/numpad-layouts/numpad-layouts.lisp | 33 ++++++++++++++----------- 1 file changed, 18 insertions(+), 15 deletions(-) diff --git a/util/numpad-layouts/numpad-layouts.lisp b/util/numpad-layouts/numpad-layouts.lisp index 4f38e8b..a288497 100644 --- a/util/numpad-layouts/numpad-layouts.lisp +++ b/util/numpad-layouts/numpad-layouts.lisp @@ -4,25 +4,28 @@ (export '(set-numpad-layout)) -(defparameter *layouts* '((us . ((87 10 . 16) (88 11 . 16) (89 12 . 16) (106 61 . 16) - (83 13 . 16) (84 14 . 16) (85 15 . 16) (86 21 . 17) - (79 16 . 16) (80 17 . 16) (81 18 . 16) (63 17 . 17) - (82 20 . 16) (104 36 . 16) (91 60 . 16) (90 19 . 17))) - (se . ((87 10 . 16) (88 11 . 16) (89 12 . 16) (106 61 . 16) - (83 13 . 16) (84 14 . 16) (85 15 . 16) (86 21 . 17) - (79 16 . 16) (80 17 . 16) (81 18 . 16) (63 17 . 17) - (82 20 . 16) (104 36 . 16) (91 60 . 16) (90 19 . 17)))) +(defparameter *layouts* + '((us . ((87 10 . 16) (88 11 . 16) (89 12 . 16) (106 61 . 16) + (83 13 . 16) (84 14 . 16) (85 15 . 16) (86 21 . 17) + (79 16 . 16) (80 17 . 16) (81 18 . 16) (63 17 . 17) + (82 20 . 16) (104 36 . 16) (91 60 . 16) (90 19 . 17))) + (fr . ((87 10 . 17) (88 11 . 17) (89 12 . 17) (106 60 . 17) + (83 13 . 17) (84 14 . 17) (85 15 . 17) (86 21 . 17) + (79 16 . 17) (80 17 . 17) (81 18 . 17) (63 51 . 16) + (82 15 . 16) (104 36 . 16) (91 59 . 17) (90 19 . 17))) + (se . ((87 10 . 16) (88 11 . 16) (89 12 . 16) (106 61 . 16) + (83 13 . 16) (84 14 . 16) (85 15 . 16) (86 21 . 17) + (79 16 . 16) (80 17 . 16) (81 18 . 16) (63 17 . 17) + (82 20 . 16) (104 36 . 16) (91 60 . 16) (90 19 . 17)))) "An alist of numpad layouts for non-standard keyboards that move the - locations of 0-9 and the symbols on a numpad (typically -,*,+ and - =).") + locations of 0-9 and the symbols on a numpad (typically -,*,+ and =).") (defun set-numpad-layout (layout-name) "Sets the `*numpad-map*' that StumpWM uses to map numpad keys to the main keyboard when the NumLock key is active." (if (symbolp layout-name) - (let (layout (rest (assoc layout-name *layouts*))) - (if layout - (setf stumpwm:*numpad-map* layout) - (error "~a is not a supported layout" layout-name))) + (let ((layout (rest (assoc layout-name *layouts* :test #'string=)))) + (if layout + (setf stumpwm:*numpad-map* layout) + (error "~a is not a supported layout" layout-name))) (error "~a is not of type symbol" layout-name))) -