#
# DVORAKon109.nodoka - dvorak layout on 109 layout for ̂ǂ
#
# modify by applet. 2008/07/29
#
# dvorakL[z109L[ɎB
# L[źAȉ̂悤ɂȂB󔒂͕̕ύXȂB
# S-0  ~ ɂȂ邱ƂƁAS-^  _ ɂȂ邱Ƃ΁AL[ʒuA
# ]} łʒu Contol uB(\_ ͕svɂȂ邽߁B)
#
# ----------------------------------------------------------------------------
# |    |  ! |  " |  # |  $ |  % |  & |  ' |  ( |  ) |  ~ |  { |  } |  ` |    |
# |    | 1  | 2  | 3  | 4  | 5  | 6  | 7  | 8  | 9  | 0  | [  | ]  | @  |    |
# ----------------------------------------------------------------------------
# |       |  * |  < |  > |  P |  Y |  F |  G |  C |  R |  L |  ? |  _ |      |
# |       | :  | ,  | .  |    |    |    |    |    |    |    | /  | ^  |      |
# ----------------------------------------------------------------------     |
# |        |  A |  O |  E |  U |  I |  D |  H |  T |  N |  S |  = |    |     |
# |        |    |    |    |    |    |    |    |    |    |    | -  |Ctrl|     |
# ----------------------------------------------------------------------------
# |          |  + |  Q |  J |  K |  X |  B |  M |  W |  V |  Z |  | |        |
# |          | ;  |    |    |    |    |    |    |    |    |    | \  |        |
# ----------------------------------------------------------------------------
#

define KBDDVORAKon109


# i
def subst S-*_0				= $TILDE
def subst *Minus			= *LeftSquareBracket
def subst *CircumflexAccent		= *RightSquareBracket
def subst *YenSign			= *Atmark

# i
def subst *Q				= *Colon
def subst *W				= *Comma
def subst *E				= *Period
def subst *R				= *P
def subst *T				= *Y
def subst *Y				= *F
def subst *U				= *G
def subst *I				= *C
def subst *O				= *R
def subst *P				= *L
def subst *Atmark			= *Slash
def subst ~S-*LeftSquareBracket		= $CIRCUMFLEX_ACCENT
def subst  S-*LeftSquareBracket 	= $LOW_LINE

# Oi
def subst *A				= *A
def subst *S				= *O
def subst *D				= *E
def subst *F				= *U
def subst *G				= *I
def subst *H				= *D
def subst *J				= *H
def subst *K				= *T
def subst *L				= *N
def subst *Semicolon			= *S
def subst *Colon			= *Minus
def subst *RightSquareBracket		= ~S-*ReverseSolidus	# temporary

# li
def subst *Z				= *Semicolon
def subst *X				= *Q
def subst *C				= *J
def subst *V				= *K
def subst *B				= *X
def subst *N				= *B
def subst *M				= *M
def subst *Comma			= *W
def subst *Period			= *V
def subst *Slash			= *Z
def subst *BackSlash			= *YenSign


keymap Global
 mod control += RightSquareBracket
 key ~S-*ReverseSolidus			= *RControl
