- 1 名前：名無しさん＠お腹いっぱい。 mailto:sage [05/02/15 16:40:53 ID:ePogUOrF]
- ブラウザ「k-meleon」を語ろう
- 53 名前：名無しさん＠お腹いっぱい。 mailto:sage [2005/03/29(火) 19:12:59 ID:2S6doecy]
- >>49さんのpluginを導入した状態用にマクロ(macros.cfg)を
$encodeっていう変数を作って分岐処理するように
書き換えてみた。
>>49みたいなのがあげられても反応薄いとこ見ると、
やっぱこのスレって相当に人が少ないのかな?
何人いるか数えてみたくなる...
- 54 名前：名無しさん＠お腹いっぱい。 mailto:sage [2005/03/29(火) 19:13:31 ID:2S6doecy]
- #書き換え
# $encode = SJIS(Shift_JIS) / EncodeUTF8(UTF8) / ToEUC(EUC-JP) / ToJIS(ISO-2022-JP) / Original
Google{
&OldSearch; $search = "Google";
$eng = "www.google.com/search?q=";
$encode="EncodeUTF8"
&SetSearch;
}
Yahoo{
&OldSearch; $search = "Yahoo Japan";
$eng = "search.yahoo.co.jp/bin/search?p=";
$encode="ToEUC"
# $eng = "search.yahoo.com/bin/search?p=";
&SetSearch;
}
Wikipedia{
&OldSearch; $search = "Wikipedia";
$eng = "ja.wikipedia.org/wiki/";
$encode="EncodeUTF8"
&SetSearch;
}
Dictionaries{
&OldSearch; $search = "Dictionaries (One Look)";
$eng = "www.onelook.com/?w=";
$encode="Original"
&SetSearch;
}
- 55 名前：名無しさん＠お腹いっぱい。 mailto:sage [2005/03/29(火) 19:14:04 ID:2S6doecy]
- #書き換え
# ----SEARCH MACROS----
$se="kmeleon.general.searchEngine";
$sl="kmeleon.general.searchLocked";
$sen="kmeleon.general.searchEngineName";
$enc="kmeleon.general.searchEngineEncode";
$so="kmeleon.general.searchOpen";
$eng=getpref(STRING, $se) ;
$search=getpref(STRING, $sen);
$encode=getpref(STRING, $enc);
$layers="kmeleon.plugins.layers.load";
$layer=getpref(BOOL, $layers);
OldSearch{
$oldeng=$eng; $oldsearch=$search; $oldencode=$encode;
}
SetSearch{
getpref(BOOL,$sl)==false ? &Unlocked:&Locked; &Sync;
}
Unlocked{
setpref(STRING,$sen,$search); setpref(STRING,$se,$eng); setpref(STRING,$enc,$encode); &Search;
}
Locked{
&Search; $search=$oldsearch; $eng=$oldeng; $encode=$oldencode;
}
- 56 名前：名無しさん＠お腹いっぱい。 mailto:sage [2005/03/29(火) 19:15:49 ID:2S6doecy]
- #書き換え
# $encode = SJIS(Shift_JIS) / EncodeUTF8(UTF8) / ToEUC(EUC-JP) / ToJIS(ISO-2022-JP) / Original
OpenSearch{
$how=getpref(INT, $so);
$encode=="Original"? : $encode=="Umlauts"? &Umlauts : &EncodeJ;
# $search!="Google"?"":&Umlauts;
$how==0 ? open($eng.$word):$how==1 ? &SearchNew:$how==2 ? &SearchBack:0;
}
#追加
EncodeJ{
# $word = pluginmsgex(jconv, "Escape", $word, STRING);
$encode=="SJIS"? : $word = pluginmsgex(jconv, $encode, $word, STRING);
$word = pluginmsgex(jconv, "Escape", $word, STRING);
}
- 57 名前：名無しさん＠お腹いっぱい。 mailto:sage [2005/03/29(火) 19:22:06 ID:2S6doecy]
- あ...
>>56の&EncodeJの#で始まってるコメント行は消しといてくださいな。
他にももっとうまいやり方とか、問題点とかあったら教えてください。
以上長文失礼しました。
|
 |
