Changeset 7936

Show
Ignore:
Timestamp:
03/14/08 09:39:36 (5 years ago)
Author:
daisuke
Message:

lang/perl/Acme-Shukugawa-Atom; refactor out ugly definitions to share/config.yaml

Location:
lang/perl/Acme-Shukugawa-Atom/trunk
Files:
2 added
2 modified

Legend:

Unmodified
Added
Removed

  • lang/perl/Acme-Shukugawa-Atom/trunk/Makefile.PL

    r7900 r7936  
    55all_from('lib/Acme/Shukugawa/Atom.pm'); 
    66requires('Class::Accessor::Fast'); 
     7requires('Encode'); 
     8requires('File::ShareDir'); 
    79requires('Text::MeCab', '0.20007'); 
    8 requires('Encode'); 
     10requires('YAML'); 
    911 
    1012use_test_base; 
    1113 
     14install_share; 
     15 
    1216auto_install; 
    1317WriteAll; 

  • lang/perl/Acme-Shukugawa-Atom/trunk/lib/Acme/Shukugawa/Atom.pm

    r7935 r7936  
    77use utf8; 
    88use Encode qw(decode_utf8); 
     9use File::ShareDir; 
    910use Text::MeCab; 
     11use YAML (); 
    1012 
    1113our $VERSION = '0.00003'; 
    … …  
    1820BEGIN 
    1921{ 
     22    my $config = YAML::LoadFile( File::ShareDir::module_file(__PACKAGE__, 'config.yaml') ); 
    2023    $RE_SMALL    = decode_utf8("[ャュョッー]"); 
    2124    $RE_SYLLABLE = decode_utf8("(?:.$RE_SMALL?)"); 
    2225    $RE_NBAR     = decode_utf8("^ンー"); 
    23     @DEFAULT_WORDS = ( 
    24         '急ぎで|急いでる?' => '巻きで', 
    25         '小飼弾|(?i)dankogai|(?i)kogaidan' => 'ガイダンコ', 
    26         '銀座' => 'ザギン', 
    27         '別に' => 'ジリサワゴネタ', 
    28         '予約した' => 'バミった', 
    29         '[2２][4４]時|午前[0０]時' => 'テッペン', 
    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         '逆に|反対に' => 'テレコに', 
    62         '入れ替える' => 'テレコする', 
    63         '傾ける' => '八百屋する', 
    64         '傾けて' => '八百屋して', 
    65         '広い|ひろい' => 'ワイド', 
    66         '晴れ|快晴|青空' => 'ピーカン', 
    67         '遅れている|遅れる' => 'おし', 
    68         '早く|急い|急ぎ' => 'まき', 
    69         '回す' => '時計する', 
    70         '回して' => '時計して', 
    71         '約束|予約' => 'アポ', 
    72         '乳首' => 'ビーチク', 
    73         '撮影' => '撮り', 
    74         '駄目|ダメ|だめ' => 'ＮＧ', 
    75         '交換' => 'バーター', 
    76         '横切る|通り過ぎる' => 'ワイプする', 
    77         '横切った|通り過ぎた' => 'ワイプした', 
    78         '時間が' => '尺が', 
    79         '用意する|準備する' => 'しこむ', 
    80         'フジテレビ' => 'CX', 
    81         'ニッポン放送' => 'LF', 
    82         'テレビ東京' => 'TX', 
    83         '文化放送' => 'QR', 
    84         '日本テレビ' => '日テレ', 
    85     ); 
     26    @DEFAULT_WORDS = map {  
     27        (decode_utf8($_->[0]), decode_utf8($_->[1])) 
     28    } @{ $config->{custom_words} || [] }; 
    8629} 
    8730