aboutsummaryrefslogtreecommitdiffstats
path: root/config/xkb/symbols/oscar
blob: b0c0f87d73975ff31c56a896bf539ca17588482b (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
pre { line-height: 125%; }
td.linenos .normal { color: #37474F; background-color: #263238; padding-left: 5px; padding-right: 5px; }
span.linenos { color: #37474F; background-color: #263238; padding-left: 5px; padding-right: 5px; }
td.linenos .special { color: #607A86; background-color: #263238; padding-left: 5px; padding-right: 5px; }
span.linenos.special { color: #607A86; background-color: #26323
default partial alphanumeric_keys modifier_keys
xkb_symbols "oscar" {

    name[Group1]= "Spanish (Dvorak Programer us_es oscar)";

    //             Unmodified       Shift           AltGr            Shift+AltGr
    // symbols row, left side
    key <TLDE> { [ dollar,          percent     ] };
    key <AE01> { [ ampersand,       9	        ] };
    key <AE02> { [ bracketleft,     7		] };
    key <AE03> { [ braceleft,       5		] };
    key <AE04> { [ parenleft,       3		] };
    key <AE05> { [ asterisk,        1		] };

    // symbols row, right side
    key <AE06> { [ equal,           0		] };
    key <AE07> { [ parenright,      2		] };
    key <AE08> { [ braceright,      4		] };
    key <AE09> { [ bracketright,    6		] };
    key <AE10> { [ plus,            8,          underscore] };
    key <AE11> { [ minus,           exclam,	exclamdown] };

    key <AE12> { [ numbersign,      at		] };
    key <BKSP> { [ BackSpace,       BackSpace	] };


    key <AD01> { [ apostrophe,  quotedbl,  grave,       asciicircum    ] };
    key <AD02> { [ period,      colon,     less,        guillemotleft  ] };
    key <AD03> { [ p,           P,         greater,     guillemotright ] };
    key <AD04> { [ y,           Y,         comma,       semicolon      ] };
    key <AD05> { [ b,           B,         asciitilde,  dead_tilde     ] };

    key <AD06> { [ k, K ] };
    key <AD07> { [ f, F, tslash, Tslash				] };
    key <AD08> { [ c,               C,          ccedilla, Ccedilla ] };
    key <AD09> { [ h, H, hstroke, Hstroke			] };
    key <AD10> { [ j, J ] };
    key <AD11> { [ slash,           question,  questiondown ] };
    key <AD12> { [ ampersand,       dollar ] };

    key <AC01> { [ a,	      	 A,          aacute,     Aacute ] };
    key <AC02> { [ o,	      	 O,          oacute,     Oacute ] };
    key <AC03> { [ e,	      	 E,          eacute,     Eacute ] };
    key <AC04> { [ i,	      	 I,          iacute,     Iacute ] };
    key <AC05> { [ m,            M,          backslash,  mu	] };

    key <AC06> { [ u,               U,          uacute,   Uacute ] };
    key <AC07> { [ r, R, registered, trademark			] };
    key <AC08> { [ t, T, thorn, THORN				] };
    key <AC09> { [ n,               N,          ntilde,      Ntilde ] };
    key <AC10> { [ s, S, ssharp, section			] };
    key <AC11> { [ ISO_Level3_Shift, underscore  ] };
    key <BKSL> { [ backslash,       bar ] };

    key <LSGT> { [ Shift_L ] };
    key <AB01> { [ w,      W, bar] };
    key <AB02> { [ q,      Q  ] };
    key <AB03> { [ Return, Return, k, K ] };
    key <AB04> { [ d,      D, minus, underscore        ] };
    key <AB05> { [ x, X,   multiply, division			] };

    key <AB06> { [ g, G, b, B ] };
    key <AB07> { [ l, L, euro ] };
    key <AB08> { [ BackSpace,    dead_diaeresis, dead_grave, dead_circumflex ] };
    key <AB09> { [ v, V						] };
    key <AB10> { [ z, Z ] };

    modifier_map Shift {<RTSH>};
    // The modifiers are reordered
    include "altwin(ctrl_alt_win)"
    key <MENU> { [ Alt_R, Meta_R ] };
    modifier_map Mod1 { <MENU> };
};
="w"> (if (eq? kind 'xpass) "XPASS" "FAIL") 'RED)) (map (lambda (y) (and-let* ((x (assq y results))) (format #t ":~a" (cdr x)))) '(source-file source-line test-name)) (newline)) (when (output-port? log) (display "Test end:\n" log) (map (lambda (pair) ;; Write out properties not written out by on-test-begin. (unless (memq (car pair) '(test-name source-file source-line source-form)) (%test-write-result1 pair log))) results)))) (test-runner-factory (lambda () (let ((runner (test-runner-simple))) (test-runner-on-test-end! runner test-on-test-end-color) runner))) (test-begin "Mail tools") (test-equal "mail/spam/cur/postU=5" (new-path "mail/inbox/cur/postU=5" "mail/spam")) (test-equal 60 (call-with-input-string "1595684247\n60\n" get-uidvalidity)) (test-equal "Ha;S" (rename-higher "Ha,U=55;S" 5)) (test-equal "Ha,U=20;S" (rename-higher "Ha,U=20;S" 55)) (test-equal '("+one -new" "(from:first) and tag:new") (with-new '("+one" "from:first") #t)) (test-equal '("+one" "from:first") (with-new '("+one" "from:first") #f)) (test-equal '(" -new" "tag:new") (with-new '("" "*") #t)) (test-equal '("" "*") (with-new '("" "*") #f)) (test-end "Mail tools") (test-begin "Thread macros") (test-equal '(+ 5 9) (tree-il->scheme (macroexpand '(-> 5 (+ 9))))) (test-equal '(+ 8) (tree-il->scheme (macroexpand '(-> 8 +)))) (test-equal '(string-append (number->string (inc 8)) " EUR") (tree-il->scheme (macroexpand '(-> 8 inc number->string (string-append " EUR"))))) (test-equal "29 EUR" (-> 28 1+ number->string (string-append " EUR"))) (test-equal '(2) (-> (->> '(5 9 2) (cons 1) (filter even?)) macroexpand tree-il->scheme)) (test-end "Thread macros")