mutt.inc.pl

   1 use utf8;
   2
   3 my %common = (
   4         "\e"=> 'g9 mode',
   5
   6         'H' => 'g2', # top-page
   7         'j' => 'g2', # next-entry, next-undeleted
   8         'k' => 'g2', # previous-entry, previous-undeleted
   9         'L' => 'g2', # bottom-page
  10         '^l'=> 'g1', # refresh
  11         'M' => 'g2', # middle-page
  12         '^m'=> 'g6 mode^m', # select-entry, display-message
  13         'n' => 'g3', # search-next
  14         'q' => 'g8 mode', # exit
  15         't' => 'g4', # tag-entry
  16         'z' => 'g2', # next-page
  17         'Z' => 'g2', # previous-page
  18
  19         '*' => 'g2', # last-entry
  20         '=' => 'g2', # first-entry
  21         ':' => 'g6', # enter-command
  22         ';' => 'g6 arg', # tag-prefix
  23         '>' => 'g2', # next-line
  24         '<' => 'g2', # previous-line
  25         ']' => 'g2', # half-down
  26         '[' => 'g2', # half-up
  27         '?' => 'g1', # help
  28         '!' => 'g1 arg', # shell
  29         '/' => 'g3 arg mode/~', # search
  30         '+/'=> 'g3 arg mode/~', # search
  31 );
  32
  33 {
  34
  35         '' => {
  36                 %common,
  37
  38                 '@' => 'g1', # display-address
  39                 '.' => 'g8', # buffy-list #TODO
  40                 '|' => 'g6', # pipe-message
  41                 '$' => 'g4', # sync-mailbox
  42                 '#' => 'g4', # break-thread
  43                 '&' => 'g4', # link-threads
  44                 '%' => 'g4', # toggle-write
  45                 ' ' => '=^m',
  46
  47                 'a' => 'g6', # create-alias
  48                 'b' => 'g7', # bounce-message
  49                 '^b'=> 'g1',
  50                 '+b'=> undef, # M <search>~b
  51                 'c' => 'g8', # change-folder
  52                 'C' => 'g6', # copy-message
  53                 '+c'=> 'g8', # change-folder-readonly
  54                 '+C'=> undef, # decode-copy
  55                 'd' => 'g4', # delete-message
  56                 'D' => 'g4 arg', # delete-pattern
  57                 '^d'=> 'g4', # delete-thread
  58                 '+d'=> 'g4', # delete-subthread
  59                 'e' => 'g4 linkvi', # edit
  60                 '^e'=> 'g4', # edit-type
  61                 '+e'=> undef, # resend-message
  62                 'f' => 'g7 modem', # forward-message
  63                 'F' => 'g4', # flag-message
  64                 '^f'=> 'g6', # forget-passphrase
  65                 'g' => 'g7 modem', # group-reply
  66                 'G' => 'g6', # fetch-mail
  67                 'h' => 'g9', # display-toggle-weed
  68                 '^i'=> 'g3', # next-new-then-unread
  69                 '+^i'=> undef, # previous-new-then-unread
  70                 'j' => 'g2', # next-undeleted
  71                 'k' => 'g2', # previous-undeleted
  72                 'J' => 'g3', # next-entry
  73                 'K' => 'g3', # previous-entry
  74                 '^k'=> 'g1', # extract-keys
  75                 '+k'=> 'g7 modem', # mail-key
  76                 'l' => 'g9', # limit
  77                 'L' => 'g7 modem', # list-reply
  78                 '+l'=> 'g1', # show-limit
  79                 'm' => 'g7 modem', # mail
  80                 'N' => 'g4', # toggle-new
  81                 '^n'=> 'g3', # next-thread
  82                 '+n'=> 'g3', # next-subthread
  83                 'o' => 'g9 modeo', # sort-mailbox
  84                 'O' => 'g9 modeo', # sort-reverse
  85                 'p' => 'g1', # print-message
  86                 'P' => 'g3', # parent-message
  87                 '^p'=> 'g3', # previous-thread
  88                 '+p'=> 'g3', # previous-subthread
  89                 '+P'=> undef, # check-traditional-pgp
  90                 'q' => 'g8', # quit
  91                 'Q' => 'g1 arg', # query
  92                 'r' => 'g7 modem', # reply
  93                 'R' => 'g7 modem', # recall-message
  94                 '^r'=> 'g4', # read-thread
  95                 '+r'=> 'g4', # read-subthread
  96                 's' => 'g4', # save-message
  97                 '+s'=> 'g4', # decode-save
  98                 'T' => 'g4 arg', # tag-pattern
  99                 '^t'=> 'g4', # untag-pattern
 100                 '+t'=> 'g4', # tag-thread
 101                 'u' => 'g4', # undelete-message
 102                 'U' => 'g4 arg', # undelete-pattern
 103                 '^u'=> 'g4', # undelete-thread
 104                 '+u'=> 'g4', # undelete-subthread
 105                 'v' => 'g1', # view-attachments
 106                 'V' => 'g1', # show-version
 107                 '+v'=> 'g9', # collapse-thread
 108                 '+V'=> 'g9', # collapse-all
 109                 'w' => 'g4 arg modew', # set-flag
 110                 'W' => 'g4 arg modew', # clear-flag
 111                 'x' => 'g8', # exit
 112                 'y' => 'g8', # M <change-folder>?<toggle-mailboxes>
 113         }, # index
 114
 115         'm' => {
 116                 %common,
 117
 118                 '|' => 'g4',
 119                 'a' => 'g6',
 120                 'A' => 'g6',
 121                 'b' => 'g4',
 122                 'c' => 'g4',
 123                 'C' => 'g6',
 124                 'd' => 'g4',
 125                 'D' => 'g4',
 126                 '^d'=> 'g4',
 127                 'e' => 'g4 linkvi',
 128                 'E' => 'g4 linkvi',
 129                 '^e'=> 'g4',
 130                 'f' => 'g4',
 131                 '^f'=> 'g6',
 132                 '+f'=> 'g4',
 133                 'F' => 'g4',
 134                 'G' => 'g1',
 135                 'h' => 'g1',
 136                 'i' => 'g6',
 137                 'l' => 'g1',
 138                 'm' => 'g4',
 139                 'M' => 'g4',
 140                 '^m'=> 'g1',
 141                 'n' => 'g6',
 142                 'P' => 'g8 mode',
 143                 'r' => 'g4',
 144                 'R' => 'g4',
 145                 's' => 'g4',
 146                 'S' => 'g4 menumS',
 147                 't' => 'g4',
 148                 '^t'=> 'g4',
 149                 'w' => 'g6',
 150                 'u' => 'g6',
 151                 'U' => 'g4',
 152                 'y' => 'g7',
 153         }, # compose
 154
 155         w => {
 156                 "\e"=> 'g9 mode',
 157                 'D' => 'g4',
 158                 'd' => '=wD',
 159                 'N' => 'g4',
 160                 'n' => '=wN',
 161                 'O' => 'g4',
 162                 'o' => '=wO',
 163                 'r' => 'g4',
 164                 'R' => '=wr',
 165                 '*' => 'g4',
 166                 '!' => 'g4',
 167         }, # flag
 168
 169         '/~' => {
 170                 "\e"=> 'g9 mode',
 171                 A => 'g3',
 172                 b => 'g3 arg',
 173                 B => 'g3 arg',
 174                 c => 'g3 arg',
 175                 C => 'g3 arg',
 176                 d => 'g3 arg',
 177                 D => 'g3',
 178                 e => 'g3 arg',
 179                 E => 'g3',
 180                 f => 'g3 arg',
 181                 F => 'g3',
 182                 g => 'g3',
 183                 G => 'g3',
 184                 h => 'g3 arg',
 185                 H => 'g3 arg',
 186                 i => 'g3 arg',
 187                 k => 'g3',
 188                 L => 'g3 arg',
 189                 l => 'g3',
 190                 m => 'g3 arg',
 191                 n => 'g3 arg',
 192                 N => 'g3',
 193                 O => 'g3',
 194                 p => 'g3',
 195                 P => 'g3',
 196                 Q => 'g3',
 197                 r => 'g3 arg',
 198                 R => 'g3',
 199                 s => 'g3',
 200                 S => 'g3',
 201                 t => 'g3 arg',
 202                 T => 'g3',
 203                 u => 'g3',
 204                 U => 'g3',
 205                 v => 'g3',
 206                 V => 'g3',
 207                 x => 'g3 arg',
 208                 X => 'g3 arg',
 209                 y => 'g3 arg',
 210                 z => 'g3 arg',
 211                 '=' => 'g3',
 212                 '$' => 'g3',
 213                 '(' => 'g3 arg',
 214         }, # search option
 215
 216 }