[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: Blog Search
From: Katsumi Yamaoka <yamaoka@jpl.org>
Subject: [emacs-w3m:08382] Re: Blog Search
Date: Thu, 15 Sep 2005 08:51:49 +0900
安宅です。
> > Google から、Blog 用の検索エンジン Blog Search がリリースされました。
>
> > http://search.blogger.com/
>
> > 毎度のことながら、Emacs-w3m 用のパッチを書きました [1][2]。
>
> どうもありがとうございます。さっそく幹に取り込みました。
>
山岡さん、ありがとうございます。
Google のブログ検索には Blogger 風インターフェースと
Google 風インターフェースの二種類が出ています。
前回のコードは Blogger 風インターフェースを使ったのですが
そちらでは、BackSpace で「前」の検索結果に戻れなかったので
改めて、Google 風インターフェースで検索するようにしました。
# 詳しくはブログ (http://at-aka.blogspot.com/2005/09/emacs-w3m-blog-search-google.html)
# に書きました。
ChangeLog とパッチをお送りします。
ではでは。
----Input with T-Code!
http://pop-club.hp.infoseek.co.jp
Masayuki Ataka / 安宅 正之 (ataka@milk.freemail.ne.jp)
2005-09-18 Masayuki Ataka <ataka@milk.freemail.ne.jp>
* w3m.el (w3m-relationship-estimate-rules): Add a rule for Google
Blog Search.
* w3m-search.el (w3m-search-engine-alist): Use
`http://blogsearch.google.com/' instead of
`http://search.blogger.com/' for "blog-*" search, because
search.blogger.com does not have a explicit link to previous
search result page.
Index: w3m-search.el
===================================================================
RCS file: /storage/cvsroot/emacs-w3m/w3m-search.el,v
retrieving revision 1.46
diff -u -r1.46 w3m-search.el
--- w3m-search.el 14 Sep 2005 23:51:51 -0000 1.46
+++ w3m-search.el 17 Sep 2005 18:18:20 -0000
@@ -58,16 +58,16 @@
utf-8)
,@(if ja
'(("blog"
- "http://search.blogger.com/?q=%s&lr=lang_ja&oe=utf-8&ie=utf-8"
+ "http://blogsearch.google.com/blogsearch?q=%s&lr=lang_ja&oe=utf-8&ie=utf-8"
utf-8)
("blog-en"
- "http://search.blogger.com/?q=%s&oe=utf-8&ie=utf-8"
+ "http://blogsearch.google.com/blogsearch?q=%s&oe=utf-8&ie=utf-8"
utf-8))
'(("blog"
- "http://search.blogger.com/?q=%s&oe=utf-8&ie=utf-8"
+ "http://blogsearch.google.com/blogsearch?q=%s&oe=utf-8&ie=utf-8"
utf-8)
("blog-ja"
- "http://search.blogger.com/?q=%s&lr=lang_ja&oe=utf-8&ie=utf-8"
+ "http://blogsearch.google.com/blogsearch?q=%s&lr=lang_ja&oe=utf-8&ie=utf-8"
utf-8)))
,@(if ja
'(("google"
Index: w3m.el
===================================================================
RCS file: /storage/cvsroot/emacs-w3m/w3m.el,v
retrieving revision 1.1159
diff -u -r1.1159 w3m.el
--- w3m.el 29 Aug 2005 02:19:23 -0000 1.1159
+++ w3m.el 17 Sep 2005 18:18:20 -0000
@@ -1744,7 +1744,7 @@
(defcustom w3m-relationship-estimate-rules
`((w3m-relationship-simple-estimate
- "\\`http://\\(?:www\\|groups\\|news\\)\\.google\\.[^/]+/\\(?:search\\|groups\\|news\\)"
+ "\\`http://\\(?:www\\|blogsearch\\|groups\\|news\\)\\.google\\.[^/]+/\\(?:search\\|blogsearch\\|groups\\|news\\)"
,(concat "<a href=" w3m-html-string-regexp
"><img src=\\(?:/intl/[^/]+/\\)?nav_next\\.gif")
,(concat "<a href=" w3m-html-string-regexp