[Date Prev][Date Next][Thread Prev][][Date Index][Thread Index]

[PATCH] sb-impress.el



雄也と申します.

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)