88 lines
747 B
Common Lisp
88 lines
747 B
Common Lisp
;; Optimot Windows/Linux aliases
|
|
|
|
;; Navigation layer
|
|
(defalias
|
|
|
|
all C-a
|
|
sav C-k
|
|
cls C-v
|
|
ndo C-]
|
|
cut C-[
|
|
cpy C-m
|
|
pst C-/
|
|
|
|
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
|
|
, g
|
|
. c
|
|
)
|
|
|
|
;; Symbols layer
|
|
(defalias
|
|
|
|
^ (macro ' spc)
|
|
< AG-q
|
|
> AG-w
|
|
$ `
|
|
% S-=
|
|
@ -
|
|
& AG-j
|
|
* 6
|
|
' o
|
|
` AG-h
|
|
|
|
{ AG-u
|
|
pl 9
|
|
pr 0
|
|
} AG-i
|
|
= 8
|
|
\ AG-7
|
|
+ 5
|
|
- 4
|
|
/ 7
|
|
'' 3
|
|
|
|
~ (macro AG-; spc)
|
|
[ AG-9
|
|
] AG-0
|
|
_ S--
|
|
# =
|
|
| AG-[
|
|
! S-'
|
|
; S-g
|
|
: S-c
|
|
? S-o
|
|
)
|
|
|
|
;; NumRow layer
|
|
(defalias
|
|
|
|
s0 0
|
|
s1 1
|
|
s2 2
|
|
s3 3
|
|
s4 4
|
|
s5 5
|
|
s6 6
|
|
s7 7
|
|
s8 8
|
|
s9 9
|
|
nbs S-spc ;; narrow no-break space
|
|
|
|
dk1 XX
|
|
dk2 XX
|
|
dk3 XX
|
|
dk4 XX
|
|
dk5 XX
|
|
)
|
|
|
|
;; vim: set ft=lisp:
|