code.delx.au - gnu-emacs/blob - lisp/leim/quail/programmer-dvorak.el

   1 ;;; programmer-dvorak.el --- Quail package for the programmer Dvorak layout
   2
   3 ;; Copyright (C) 2015-2016 Free Software Foundation, Inc.
   4
   5 ;; Author: Joakim Jalap <joakim.jalap@fastmail.com>
   6
   7 ;; Keywords: input method, Dvorak
   8
   9 ;; This file is released under the terms of GNU Emacs.
  10
  11 ;; GNU Emacs is free software: you can redistribute it and/or modify
  12 ;; it under the terms of the GNU General Public License as published by
  13 ;; the Free Software Foundation, either version 3 of the License, or
  14 ;; (at your option) any later version.
  15
  16 ;; GNU Emacs is distributed in the hope that it will be useful,
  17 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
  18 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  19 ;; GNU General Public License for more details.
  20
  21 ;; You should have received a copy of the GNU General Public License
  22 ;; along with GNU Emacs.  If not, see <http://www.gnu.org/licenses/>.
  23
  24 ;;; Commentary:
  25
  26 ;;; This file provides an input method for the programmers Dvorak keyboard
  27 ;;; layout by Roland Kaufman (<http://www.kaufmann.no/roland/dvorak/>).
  28
  29 ;;; Code:
  30
  31 (require 'quail)
  32
  33 (quail-define-package
  34  "programmer-dvorak" "English" "DVP@" t
  35  "An English (ASCII) dvorak layout optimized for programming, with for example
  36  brackets and parens more easily reachable."
  37  nil t t t t nil nil nil nil nil t)
  38
  39 ;; &%  [7  {5  }3  (1  =9  *0  )2  +4  ]6  !8  #`  $~
  40 ;;  ;:  ,<  .>  pP  yY  fF  gG  cC  rR  lL  /?  @^
  41 ;;   aA  oO  eE  uU  iI  dD  hH  tT  nN  sS  -_  \|
  42 ;;    '"  qQ  jJ  kK  xX  bB  mM  wW  vV  zZ
  43 ;;
  44
  45 (quail-define-rules
  46  ("-" ?!)
  47  ("=" ?#)
  48  ("`" ?$)
  49  ("q" ?\;)
  50  ("w" ?,)
  51  ("e" ?.)
  52  ("r" ?p)
  53  ("t" ?y)
  54  ("y" ?f)
  55  ("u" ?g)
  56  ("i" ?c)
  57  ("o" ?r)
  58  ("p" ?l)
  59  ("[" ?/)
  60  ("]" ?@)
  61  ("a" ?a)
  62  ("s" ?o)
  63  ("d" ?e)
  64  ("f" ?u)
  65  ("g" ?i)
  66  ("h" ?d)
  67  ("j" ?h)
  68  ("k" ?t)
  69  ("l" ?n)
  70  (";" ?s)
  71  ("'" ?-)
  72  ("\\" ?\\)
  73  ("z" ?\')
  74  ("x" ?q)
  75  ("c" ?j)
  76  ("v" ?k)
  77  ("b" ?x)
  78  ("n" ?b)
  79  ("m" ?m)
  80  ("," ?w)
  81  ("." ?v)
  82  ("/" ?z)
  83
  84  ("_" ?8)
  85  ("+" ?`)
  86  ("~" ?~)
  87  ("Q" ?:)
  88  ("W" ?<)
  89  ("E" ?>)
  90  ("R" ?P)
  91  ("T" ?Y)
  92  ("Y" ?F)
  93  ("U" ?G)
  94  ("I" ?C)
  95  ("O" ?R)
  96  ("P" ?L)
  97  ("{" ??)
  98  ("}" ?^)
  99  ("A" ?A)
 100  ("S" ?O)
 101  ("D" ?E)
 102  ("F" ?U)
 103  ("G" ?I)
 104  ("H" ?D)
 105  ("J" ?H)
 106  ("K" ?T)
 107  ("L" ?N)
 108  (":" ?S)
 109  ("\"" ?_)
 110  ("|" ?|)
 111  ("Z" ?\")
 112  ("X" ?Q)
 113  ("C" ?J)
 114  ("V" ?K)
 115  ("B" ?X)
 116  ("N" ?B)
 117  ("M" ?M)
 118  ("<" ?W)
 119  (">" ?V)
 120  ("?" ?Z)
 121
 122  ("1" ?&)
 123  ("2" ?\[)
 124  ("3" ?{)
 125  ("4" ?})
 126  ("5" ?\()
 127  ("6" ?=)
 128  ("7" ?\*)
 129  ("8" ?\))
 130  ("9" ?+)
 131  ("0" ?\])
 132
 133  ("!" ?%)
 134  ("@" ?7)
 135  ("#" ?5)
 136  ("$" ?3)
 137  ("%" ?1)
 138  ("^" ?9)
 139  ("&" ?0)
 140  ("*" ?2)
 141  ("(" ?4)
 142  (")" ?6)
 143  )
 144
 145 ;;; programmer-dvorak.el ends here