89 lines
845 B
Common Lisp
89 lines
845 B
Common Lisp
;; Azerty Windows/Linux aliases
|
||
;; Works with AZERTY-fr. Needs a couple tweaks for the Belgian and Mac variants.
|
||
|
||
;; Navigation layer
|
||
(defalias
|
||
|
||
all C-q
|
||
sav C-s
|
||
cls C-z
|
||
ndo C-w
|
||
cut C-x
|
||
cpy C-c
|
||
pst C-v
|
||
|
||
0 S-0
|
||
1 S-1
|
||
2 S-2
|
||
3 S-3
|
||
4 S-4
|
||
5 S-5
|
||
6 S-6
|
||
7 S-7
|
||
8 S-8
|
||
9 S-9
|
||
, m
|
||
. S-,
|
||
)
|
||
|
||
;; Symbols layer
|
||
(defalias
|
||
|
||
^ (macro [ spc)
|
||
< <
|
||
> S-<
|
||
$ ]
|
||
% S-'
|
||
@ AG-0
|
||
& 1
|
||
* \
|
||
' 4
|
||
` (macro AG-7 spc)
|
||
|
||
{ AG-4
|
||
pl 5
|
||
pr -
|
||
} AG-=
|
||
= =
|
||
\ AG-8
|
||
+ S-=
|
||
- 6
|
||
/ S-.
|
||
'' 3
|
||
|
||
~ (macro AG-2 spc)
|
||
[ AG-5
|
||
] AG--
|
||
_ 8
|
||
# AG-3
|
||
| AG-6
|
||
! /
|
||
; ,
|
||
: .
|
||
? S-m
|
||
)
|
||
|
||
;; NumRow layer
|
||
(defalias
|
||
|
||
s0 0
|
||
s1 1
|
||
s2 2
|
||
s3 3
|
||
s4 4
|
||
s5 5
|
||
s6 6
|
||
s7 7
|
||
s8 8
|
||
s9 9
|
||
nbs (unicode ) ;; narrow non-break space
|
||
|
||
dk1 XX
|
||
dk2 XX
|
||
dk3 XX
|
||
dk4 XX
|
||
dk5 XX
|
||
)
|
||
|
||
;; vim: set ft=lisp:
|