Skip to content

Commit

Permalink
dvorak writer and dvorak programmer keymaps appended
Browse files Browse the repository at this point in the history
  • Loading branch information
@sts-q
sts-q committed Sep 13, 2020
1 parent 26758c4 commit 60ac241
Showing 1 changed file with 396 additions and 0 deletions.
396 changes: 396 additions & 0 deletions gui/keymaps.lisp
View file
Original file line number Diff line number Diff line change
Expand Up @@ -1268,3 +1268,399 @@
(#\` . #\\)
(#\' . #\¨)
(#\# . #\Ç))))


(defparameter *dvorac-writer-keymap*
(make-instance 'simple-keymap
:name "dvorac-writer"
:unshifted '((#\0 . #\0)
(#\1 . #\1)
(#\2 . #\2)
(#\3 . #\3)
(#\4 . #\4)
(#\5 . #\5)
(#\6 . #\6)
(#\7 . #\7)
(#\8 . #\8)
(#\9 . #\9)
(#\A . #\a)
(#\B . #\x)
(#\C . #\j)
(#\D . #\e)
(#\E . #\.)
(#\F . #\u)
(#\G . #\i)
(#\H . #\d)
(#\I . #\c)
(#\J . #\h)
(#\K . #\t)
(#\L . #\n)
(#\M . #\m)
(#\N . #\b)
(#\O . #\r)
(#\P . #\l)
(#\Q . #\')
(#\R . #\p)
(#\S . #\o)
(#\T . #\y)
(#\U . #\g)
(#\V . #\k)
(#\W . #\,)
(#\X . #\q)
(#\Y . #\f)
(#\Z . #\;)
(#\- . #\[)
(#\= . #\])
(#\[ . #\?)
(#\] . #\=)
(#\; . #\s)
(#\' . #\-)
(#\` . #\`)
(#\# . #\#) ; # ???
(#\, . #\w)
(#\. . #\v)
(#\/ . #\z)
(#\\ . #\\)
(#\Esc . #\Esc)
(#\Backspace . #\Backspace)
(#\Tab . #\Tab)
(#\Newline . #\Newline)
(#\Space . #\Space)
(#\F1 . #\F1)
(#\F2 . #\F2)
(#\F3 . #\F3)
(#\F4 . #\F4)
(#\F5 . #\F5)
(#\F6 . #\F6)
(#\F7 . #\F7)
(#\F8 . #\F8)
(#\F9 . #\F9)
(#\F10 . #\F10)
(#\F11 . #\F11)
(#\F12 . #\F12)
(#\KP-0 . #\0)
(#\KP-1 . #\1)
(#\KP-2 . #\2)
(#\KP-3 . #\3)
(#\KP-4 . #\4)
(#\KP-5 . #\5)
(#\KP-6 . #\6)
(#\KP-7 . #\7)
(#\KP-8 . #\8)
(#\KP-9 . #\9)
(#\KP-Minus . #\-)
(#\KP-Plus . #\+)
(#\KP-Period . #\.)
(#\KP-Multiply . #\*)
(#\KP-Divide . #\/)
(#\KP-Enter . #\Newline)
(#\Menu . #\Menu)
(#\Insert . #\Insert)
(#\Home . #\Home)
(#\Page-Up . #\Page-Up)
(#\Delete . #\Delete)
(#\End . #\End)
(#\Page-Down . #\Page-Down)
(#\Up-Arrow . #\Up-Arrow)
(#\Left-Arrow . #\Left-Arrow)
(#\Down-Arrow . #\Down-Arrow)
(#\Right-Arrow . #\Right-Arrow)
(#\Pause . #\Pause)
(#\Print-Screen . #\Print-Screen)
(#\Scroll-Lock . #\Scroll-Lock))
:shifted '((#\0 . #\))
(#\1 . #\!)
(#\2 . #\@)
(#\3 . #\#) ; #
(#\4 . #\$)
(#\5 . #\%)
(#\6 . #\^)
(#\7 . #\&)
(#\8 . #\*)
(#\9 . #\()
(#\A . #\A)
(#\B . #\X)
(#\C . #\J)
(#\D . #\E)
(#\E . #\>)
(#\F . #\U)
(#\G . #\I)
(#\H . #\D)
(#\I . #\C)
(#\J . #\H)
(#\K . #\T)
(#\L . #\N)
(#\M . #\M)
(#\N . #\B)
(#\O . #\R)
(#\P . #\L)
(#\Q . #\")
(#\R . #\P)
(#\S . #\O)
(#\T . #\Y)
(#\U . #\G)
(#\V . #\K)
(#\W . #\<)
(#\X . #\Q)
(#\Y . #\F)
(#\Z . #\:)
(#\- . #\{)
(#\= . #\})
(#\[ . #\?)
(#\] . #\+)
(#\; . #\S)
(#\' . #\_) ; _
(#\` . #\~)
(#\# . #\_) ; _ ???
(#\, . #\W)
(#\. . #\V)
(#\/ . #\Z)
(#\\ . #\|)
(#\Esc . #\Esc)
(#\Backspace . #\Backspace)
(#\Tab . #\Tab)
(#\Newline . #\Newline)
(#\Space . #\Space)
(#\F1 . #\F1)
(#\F2 . #\F2)
(#\F3 . #\F3)
(#\F4 . #\F4)
(#\F5 . #\F5)
(#\F6 . #\F6)
(#\F7 . #\F7)
(#\F8 . #\F8)
(#\F9 . #\F9)
(#\F10 . #\F10)
(#\F11 . #\F11)
(#\F12 . #\F12)
(#\KP-0 . #\0)
(#\KP-1 . #\1)
(#\KP-2 . #\2)
(#\KP-3 . #\3)
(#\KP-4 . #\4)
(#\KP-5 . #\5)
(#\KP-6 . #\6)
(#\KP-7 . #\7)
(#\KP-8 . #\8)
(#\KP-9 . #\9)
(#\KP-Minus . #\-)
(#\KP-Plus . #\+)
(#\KP-Period . #\.)
(#\KP-Multiply . #\*)
(#\KP-Divide . #\/)
(#\KP-Enter . #\Newline)
(#\Menu . #\Menu)
(#\Insert . #\Insert)
(#\Home . #\Home)
(#\Page-Up . #\Page-Up)
(#\Delete . #\Delete)
(#\End . #\End)
(#\Page-Down . #\Page-Down)
(#\Up-Arrow . #\Up-Arrow)
(#\Left-Arrow . #\Left-Arrow)
(#\Down-Arrow . #\Down-Arrow)
(#\Right-Arrow . #\Right-Arrow)
(#\Pause . #\Pause)
(#\Print-Screen . #\Print-Screen)
(#\Scroll-Lock . #\Scroll-Lock))
:shifted2 '(
(#\D . #\€)
)))

(defparameter *dvorac-programmer-keymap*
(make-instance 'simple-keymap
:name "dvorac-programmer"
:unshifted '((#\0 . #\])
(#\1 . #\&)
(#\2 . #\[)
(#\3 . #\{)
(#\4 . #\})
(#\5 . #\()
(#\6 . #\=)
(#\7 . #\*)
(#\8 . #\))
(#\9 . #\+)
(#\A . #\a)
(#\B . #\x)
(#\C . #\j)
(#\D . #\e)
(#\E . #\.)
(#\F . #\u)
(#\G . #\i)
(#\H . #\d)
(#\I . #\c)
(#\J . #\h)
(#\K . #\t)
(#\L . #\n)
(#\M . #\m)
(#\N . #\b)
(#\O . #\r)
(#\P . #\l)
(#\Q . #\;)
(#\R . #\p)
(#\S . #\o)
(#\T . #\y)
(#\U . #\g)
(#\V . #\k)
(#\W . #\,)
(#\X . #\q)
(#\Y . #\f)
(#\Z . #\')
(#\- . #\!)
(#\= . #\#)
(#\[ . #\/)
(#\] . #\@)
(#\; . #\s)
(#\' . #\-) ; -
(#\` . #\$)
(#\# . #\-) ; - ???
(#\, . #\w)
(#\. . #\v)
(#\/ . #\z)
(#\\ . #\\)
(#\Esc . #\Esc)
(#\Backspace . #\Backspace)
(#\Tab . #\Tab)
(#\Newline . #\Newline)
(#\Space . #\Space)
(#\F1 . #\F1)
(#\F2 . #\F2)
(#\F3 . #\F3)
(#\F4 . #\F4)
(#\F5 . #\F5)
(#\F6 . #\F6)
(#\F7 . #\F7)
(#\F8 . #\F8)
(#\F9 . #\F9)
(#\F10 . #\F10)
(#\F11 . #\F11)
(#\F12 . #\F12)
(#\KP-0 . #\0)
(#\KP-1 . #\1)
(#\KP-2 . #\2)
(#\KP-3 . #\3)
(#\KP-4 . #\4)
(#\KP-5 . #\5)
(#\KP-6 . #\6)
(#\KP-7 . #\7)
(#\KP-8 . #\8)
(#\KP-9 . #\9)
(#\KP-Minus . #\-)
(#\KP-Plus . #\+)
(#\KP-Period . #\.)
(#\KP-Multiply . #\*)
(#\KP-Divide . #\/)
(#\KP-Enter . #\Newline)
(#\Menu . #\Menu)
(#\Insert . #\Insert)
(#\Home . #\Home)
(#\Page-Up . #\Page-Up)
(#\Delete . #\Delete)
(#\End . #\End)
(#\Page-Down . #\Page-Down)
(#\Up-Arrow . #\Up-Arrow)
(#\Left-Arrow . #\Left-Arrow)
(#\Down-Arrow . #\Down-Arrow)
(#\Right-Arrow . #\Right-Arrow)
(#\Pause . #\Pause)
(#\Print-Screen . #\Print-Screen)
(#\Scroll-Lock . #\Scroll-Lock))
:shifted '((#\0 . #\6)
(#\1 . #\%)
(#\2 . #\7)
(#\3 . #\5)
(#\4 . #\3)
(#\5 . #\1)
(#\6 . #\9)
(#\7 . #\0)
(#\8 . #\2)
(#\9 . #\4)
(#\A . #\A)
(#\B . #\X)
(#\C . #\J)
(#\D . #\E)
(#\E . #\>)
(#\F . #\U)
(#\G . #\I)
(#\H . #\D)
(#\I . #\C)
(#\J . #\H)
(#\K . #\T)
(#\L . #\N)
(#\M . #\M)
(#\N . #\B)
(#\O . #\R)
(#\P . #\L)
(#\Q . #\:)
(#\R . #\P)
(#\S . #\O)
(#\T . #\Y)
(#\U . #\G)
(#\V . #\K)
(#\W . #\<)
(#\X . #\Q)
(#\Y . #\F)
(#\Z . #\")
(#\- . #\8)
(#\= . #\`)
(#\[ . #\?)
(#\] . #\^)
(#\; . #\S)
(#\' . #\_) ; _
(#\` . #\~)
(#\# . #\_) ; _ ???
(#\, . #\W)
(#\. . #\V)
(#\/ . #\Z)
(#\\ . #\|)
(#\Esc . #\Esc)
(#\Backspace . #\Backspace)
(#\Tab . #\Tab)
(#\Newline . #\Newline)
(#\Space . #\Space)
(#\F1 . #\F1)
(#\F2 . #\F2)
(#\F3 . #\F3)
(#\F4 . #\F4)
(#\F5 . #\F5)
(#\F6 . #\F6)
(#\F7 . #\F7)
(#\F8 . #\F8)
(#\F9 . #\F9)
(#\F10 . #\F10)
(#\F11 . #\F11)
(#\F12 . #\F12)
(#\KP-0 . #\0)
(#\KP-1 . #\1)
(#\KP-2 . #\2)
(#\KP-3 . #\3)
(#\KP-4 . #\4)
(#\KP-5 . #\5)
(#\KP-6 . #\6)
(#\KP-7 . #\7)
(#\KP-8 . #\8)
(#\KP-9 . #\9)
(#\KP-Minus . #\-)
(#\KP-Plus . #\+)
(#\KP-Period . #\.)
(#\KP-Multiply . #\*)
(#\KP-Divide . #\/)
(#\KP-Enter . #\Newline)
(#\Menu . #\Menu)
(#\Insert . #\Insert)
(#\Home . #\Home)
(#\Page-Up . #\Page-Up)
(#\Delete . #\Delete)
(#\End . #\End)
(#\Page-Down . #\Page-Down)
(#\Up-Arrow . #\Up-Arrow)
(#\Left-Arrow . #\Left-Arrow)
(#\Down-Arrow . #\Down-Arrow)
(#\Right-Arrow . #\Right-Arrow)
(#\Pause . #\Pause)
(#\Print-Screen . #\Print-Screen)
(#\Scroll-Lock . #\Scroll-Lock))
:shifted2 '(
(#\D . #\€)
)))

0 comments on commit 60ac241

Please sign in to comment.