emacsedit.mayu

   1 #~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\r
   2 # \91\8b\8eg\82¢\82Ì\97J\9fT - emacsedit.mayu\r
   3 # Copyright (C) 1999-2005, TAGA Nayuta <nayuta@users.sourceforge.net>\r
   4 #\r
   5 \r
   6 \r
   7 #~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\r
   8 # Emacs \95\97\88Ú\93®\83R\83}\83\93\83h\r
   9 #\r
  10 \r
  11 keymap  EmacsMove : Global\r
  12  key Home               = C-Home                # \95¶\93ª\r
  13  key End                = C-End                 # \95¶\96\96\r
  14  key C-Space            = &Undefined            # Mark\r
  15  key C-A                = Home                  # \8ds\93ª\r
  16  key C-B                = Left                  # \81©\r
  17  key M-B                = C-Left                # \81©(\92P\8cê)\r
  18  key C-E                = End                   # \8ds\96\96\r
  19  key C-F                = Right                 # \81¨\r
  20  key M-F                = C-Right               # \81¨(\92P\8cê)\r
  21  key C-G                = Escape                # CANCEL\r
  22  key C-L                = &WindowRedraw &Recenter # \8dÄ\95`\89æ\r
  23  key C-N                = Down                  # \81«\r
  24  key C-P                = Up                    # \81ª\r
  25  key C-Q                = &Prefix(KeymapDefault) # mayu \82É\8d¶\89E\82³\82ê\82È\82¢\83L\81[\93ü\97Í\r
  26  key C-S                = C-F                   # \8c\9f\8dõ\r
  27  if ( !ZXCV ) key C-V   = Next                  # \8e\9f\95Å\r
  28  key M-V                = Prior                 # \91O\95Å\r
  29  key S-Home             = S-C-Home              # \95¶\93ª(\91I\91ð)\r
  30  key S-End              = S-C-End               # \95¶\96\96(\91I\91ð)\r
  31  key S-M-Comma          = C-Home                # \95¶\93ª\r
  32  key S-M-Period         = C-End                 # \95¶\96\96\r
  33 \r
  34  if ( EmacsMove/ShiftSelection )\r
  35    key S-C-A            = S-Home                # \8ds\93ª(\91I\91ð)\r
  36    key S-C-B            = S-Left                # \81©(\91I\91ð)\r
  37    key S-C-E            = S-End                 # \8ds\96\96(\91I\91ð)\r
  38    key S-C-F            = S-Right               # \81¨(\91I\91ð)\r
  39    key S-C-N            = S-Down                # \81«(\91I\91ð)\r
  40    key S-C-P            = S-Up                  # \81ª(\91I\91ð)\r
  41    key S-C-V            = S-Next                # \8e\9f\95Å(\91I\91ð)\r
  42    key S-M-V            = S-Prior               # \91O\95Å(\91I\91ð)\r
  43  endif\r
  44 \r
  45 \r
  46 #~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\r
  47 # Emacs \95\97\95Ò\8fW\83R\83}\83\93\83h\r
  48 #\r
  49 \r
  50  keyseq $EmacsEdit/kill-word            = S-C-Right C-X\r
  51  keyseq $EmacsEdit/backward-kill-word   = S-C-Left C-X\r
  52  keyseq $EmacsEdit/transpose-chars      = S-Right C-X Left C-V Right\r
  53  keyseq $EmacsEdit/upcase-word          = S-C-Right C-C *&Sync \\r
  54                                           &ClipboardUpcaseWord C-V\r
  55  keyseq $EmacsEdit/downcase-word        = S-C-Right C-C *&Sync \\r
  56                                           &ClipboardDowncaseWord C-V\r
  57  keyseq $EmacsEdit/kill-line            = &EmacsEditKillLineFunc S-End C-X \\r
  58                         &Sync &EmacsEditKillLinePred((Delete), (Return Left))\r
  59  keyseq $EmacsMark/cancel               = Left Right\r
  60 \r
  61 \r
  62 keymap  EmacsEdit : EmacsMove\r
  63 keymap2 EmacsMark : EmacsEdit = $EmacsMark/cancel &KeymapWindow\r
  64 keymap2 EmacsMarkEscape : EmacsMark = &KeymapParent\r
  65 \r
  66 keymap2 EmacsC-X : EmacsEdit\r
  67  event prefixed         = &HelpMessage("EmacsEdit C-x-", "C-x u\tundo")\r
  68  event before-key-down  = &HelpMessage\r
  69  key *U                 = C-Z                                   # UNDO\r
  70 \r
  71 keymap2 EmacsC-U0_9C-U : Global \\r
  72                 = &Repeat((&KeymapWindow), 100) &HelpMessage &Variable(0, 0)\r
  73  key C-G        = &HelpMessage &Variable(0, 0) &Ignore\r
  74  \r
  75 keymap2 EmacsC-U0_9 : EmacsC-U0_9C-U\r
  76  event prefixed         = &HelpVariable("\8cJ\82è\95Ô\82µ")\r
  77  key _0 Num0            = &Variable(10, 0) &Prefix(EmacsC-U0_9)\r
  78  key _1 Num1            = &Variable(10, 1) &Prefix(EmacsC-U0_9)\r
  79  key _2 Num2            = &Variable(10, 2) &Prefix(EmacsC-U0_9)\r
  80  key _3 Num3            = &Variable(10, 3) &Prefix(EmacsC-U0_9)\r
  81  key _4 Num4            = &Variable(10, 4) &Prefix(EmacsC-U0_9)\r
  82  key _5 Num5            = &Variable(10, 5) &Prefix(EmacsC-U0_9)\r
  83  key _6 Num6            = &Variable(10, 6) &Prefix(EmacsC-U0_9)\r
  84  key _7 Num7            = &Variable(10, 7) &Prefix(EmacsC-U0_9)\r
  85  key _8 Num8            = &Variable(10, 8) &Prefix(EmacsC-U0_9)\r
  86  key _9 Num9            = &Variable(10, 9) &Prefix(EmacsC-U0_9)\r
  87  key C-U                = &Prefix(EmacsC-U0_9C-U)\r
  88 \r
  89 keymap2 EmacsC-U : EmacsC-U0_9C-U\r
  90  event prefixed         = &HelpVariable("\8cJ\82è\95Ô\82µ")\r
  91  key _0 Num0            = &Variable(0, 0) &Prefix(EmacsC-U0_9)\r
  92  key _1 Num1            = &Variable(0, 1) &Prefix(EmacsC-U0_9)\r
  93  key _2 Num2            = &Variable(0, 2) &Prefix(EmacsC-U0_9)\r
  94  key _3 Num3            = &Variable(0, 3) &Prefix(EmacsC-U0_9)\r
  95  key _4 Num4            = &Variable(0, 4) &Prefix(EmacsC-U0_9)\r
  96  key _5 Num5            = &Variable(0, 5) &Prefix(EmacsC-U0_9)\r
  97  key _6 Num6            = &Variable(0, 6) &Prefix(EmacsC-U0_9)\r
  98  key _7 Num7            = &Variable(0, 7) &Prefix(EmacsC-U0_9)\r
  99  key _8 Num8            = &Variable(0, 8) &Prefix(EmacsC-U0_9)\r
 100  key _9 Num9            = &Variable(0, 9) &Prefix(EmacsC-U0_9)\r
 101  key C-U                = &Variable(4, 0) &Prefix(EmacsC-U)\r
 102 \r
 103 keymap  EmacsEdit\r
 104  key C-Space            = &Prefix(EmacsMark)                    # Mark\r
 105  key M-BackSpace        = $EmacsEdit/backward-kill-word         # BS(\92P\8cê)\r
 106  key C-D                = Delete                                # \8dí\8f\9c\r
 107  key M-D                = $EmacsEdit/kill-word                  # \8dí\8f\9c(\92P\8cê)\r
 108  key C-H                = BackSpace                             # BS\r
 109  key C-J                = Return                                # RETURN\r
 110  key C-K                = $EmacsEdit/kill-line                  # \8ds\96\96\82Ü\82Å\8dí\8f\9c\r
 111  key C-M                = Return                                # RETURN\r
 112  key C-O                = Return Left                           # \88ê\8ds\91\9d\82â\82·\r
 113  if ( !GANA ) key C-T   = $EmacsEdit/transpose-chars            # \95¶\8e\9a\93ü\82ê\91Ö\82¦\r
 114  key C-W                = C-X                                   # CUT\r
 115  key M-W                = C-C                                   # COPY\r
 116  key C-U                = &Variable(0, 4) &Prefix(EmacsC-U)\r
 117  if ( !ZXCV ) key C-X   = &Prefix(EmacsC-X)\r
 118  key C-Y                = C-V                                   # PASTE\r
 119  key C-Slash            = C-Z                                   # UNDO\r
 120  key M-U                = $EmacsEdit/upcase-word                # \91å\95¶\8e\9a\r
 121  key M-L                = $EmacsEdit/downcase-word              # \8f¬\95¶\8e\9a\r
 122 \r
 123 keymap2 EmacsMark\r
 124  key Home               = S-C-Home      &Prefix(EmacsMark)      # \95¶\93ª\r
 125  key End                = S-C-End       &Prefix(EmacsMark)      # \95¶\96\96\r
 126  key C-A                = S-Home        &Prefix(EmacsMark)      # \8ds\93ª\r
 127  key C-B                = S-Left        &Prefix(EmacsMark)      # \81©\r
 128  key M-B                = S-C-Left      &Prefix(EmacsMark)      # \81©(\92P\8cê)\r
 129  key C-E                = S-End         &Prefix(EmacsMark)      # \8ds\96\96\r
 130  key C-F                = S-Right       &Prefix(EmacsMark)      # \81¨\r
 131  key M-F                = S-C-Right     &Prefix(EmacsMark)      # \81¨(\92P\8cê)\r
 132  key C-G                = $EmacsMark/cancel &Undefined          # \83L\83\83\83\93\83Z\83\8b\r
 133  key C-N                = S-Down        &Prefix(EmacsMark)      # \81«\r
 134  key C-P                = S-Up          &Prefix(EmacsMark)      # \81ª\r
 135  if ( !ZXCV ) key C-V   = S-Next        &Prefix(EmacsMark)      # \8e\9f\95Å\r
 136  key M-V                = S-Prior       &Prefix(EmacsMark)      # \91O\95Å\r
 137  key C-W                = C-X Left Right                        # CUT\r
 138  key M-W                = C-C Left Right                        # COPY\r
 139  key S-M-Comma          = S-C-Home      &Prefix(EmacsMark)      # \95¶\93ª\r
 140  key S-M-Period         = S-C-End       &Prefix(EmacsMark)      # \95¶\96\96\r
 141  key Left               = S-Left        &Prefix(EmacsMark)      # \81©\r
 142  key Up                 = S-Up          &Prefix(EmacsMark)      # \81ª\r
 143  key Right              = S-Right       &Prefix(EmacsMark)      # \81¨\r
 144  key Down               = S-Down        &Prefix(EmacsMark)      # \81«\r
 145  if ( MAP-ESCAPE-TO-META )\r
 146    key Escape           = &Prefix(EmacsMarkEscape) &EditNextModifier(M-)\r
 147    if ( KBD109 ) and ( ! KBD104on109 )\r
 148      key \94¼\8ap/\91S\8ap      = &Prefix(EmacsMarkEscape) &EditNextModifier(M-)\r
 149      key E0\94¼\8ap/\91S\8ap    = &Prefix(EmacsMarkEscape) &EditNextModifier(M-)\r
 150    endif\r
 151  endif\r
 152 \r
 153 keymap2 EmacsMarkEscape\r
 154  event prefixed         = &HelpMessage("EmacsMark ESC-", " ")\r
 155  event before-key-down  = &HelpMessage\r
 156  key M-C-G              = &Ignore\r