[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[PATCH] sb-impress.el
- From: Yuya Nishida <yuya@xxxxxxx>
- Date: Sun, 26 Sep 2004 03:38:05 +0900 (JST)
- X-ml-name: emacs-w3m
- X-mail-count: 07114
雄也と申します.
PC Watch の連載記事は Subject にサブタイトル(?)もあった方が
わかりやすいのでハックしてみました.
---
Yuya.Nishida.
http://www.j96.org/~yuya/
Index: shimbun/sb-impress.el
===================================================================
RCS file: /storage/cvsroot/emacs-w3m/shimbun/sb-impress.el,v
retrieving revision 1.18
diff -u -r1.18 sb-impress.el
--- shimbun/sb-impress.el 28 Jun 2004 23:19:49 -0000 1.18
+++ shimbun/sb-impress.el 25 Sep 2004 08:53:55 -0000
@@ -70,11 +70,15 @@
(pos (point))
subject
id)
- (when (re-search-forward "</a>" nil t)
+ (when (re-search-forward "</TD>" nil t)
(setq subject (buffer-substring pos (match-beginning 0))
subject (with-temp-buffer
(insert subject)
(goto-char (point-min))
+ (if (re-search-forward "<br>\\(−\\|〜\\).*" nil t)
+ (progn
+ (replace-match "")
+ (goto-char (point-min))))
(while (re-search-forward "[\r\n]" nil t)
(replace-match ""))
(shimbun-remove-markup)