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

Re: patch for sb-ibm-dev.el



山下 純司です。

目次サイドバーを含まないページを正しく扱えないようです。
このパッチで期待通りの表示が得られましたが、
これで正しくない HTML を作り出している可能性があります。

また内容の終了目印が想定しているものと違うページがありました。
イレギュラーなページである可能性もありますが
とりあえず終了目印に含めてみました。

--- sb-ibm-dev.el.orig  Thu Dec 13 20:46:55 2001
+++ sb-ibm-dev.el       Thu Dec 13 20:22:11 2001
@@ -143,10 +143,12 @@
                                     (match-string 1) (match-string 2))))))
        (delete-region beg end))
       (goto-char (point-min))
+      ;; Remove sidebar if exist
       (if (re-search-forward "<!--[  ]*Contents[  ]*-->" nil t nil)
          (delete-region (progn (beginning-of-line) (point))
-                        (progn (re-search-forward "</table>" nil t nil))))
-      (if (re-search-forward "<!--[  ]*End of Contents[  ]*-->" nil t nil)
+                        (progn (re-search-forward "<h2>" nil t nil)
+                               (beginning-of-line) (1- (point)))))
+      (if (re-search-forward "<!--[  ]*\\(End of Contents\\|END PAPER BODY\\)[  ]*-->" nil t nil)
          (progn
            (beginning-of-line)
            (delete-region (point) (point-max)))

-- 
山下 純司	mailto:ysjj@unixuser.org