[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
bookmark.html
を見やすく
- From: rio-t@xxxxxxxxx
- Date: Wed, 23 Oct 2002 18:38:45 +0900 (JST)
- X-ml-name: emacs-w3m
- X-mail-count: 04102
こんにちは、高石です。
bookmarkの整理をするために、時々bookmark.htmlを直接編集する
のですが、そのままだとあまり見やすくないので、以下のように変
更してみました。
単に、<li>をスペース一個分インデントして、</ul>の後に空行を
入れるようにしただけですが、個人的にはこれだけでも大分見やす
くなりました。
どんなもんでしょう。
# 手元では、さらにw3m-bookmark-section-delimiterを使わなくし
# て</ul>をセクション区切りにしちゃってたりもしますが。
Index: w3m-bookmark.el
===================================================================
RCS file: /storage/cvsroot/emacs-w3m/w3m-bookmark.el,v
retrieving revision 1.12
diff -u -r1.12 w3m-bookmark.el
--- w3m-bookmark.el 21 Oct 2002 13:56:30 -0000 1.12
+++ w3m-bookmark.el 23 Oct 2002 09:10:53 -0000
@@ -56,9 +56,9 @@
(defconst w3m-bookmark-section-format
(eval-when-compile
(concat "<h2>%s</h2>\n<ul>\n"
- "<li><a href=\"%s\">%s</a>\n"
+ " <li><a href=\"%s\">%s</a>\n"
w3m-bookmark-section-delimiter
- "</ul>\n"))))
+ "</ul>\n\n"))))
(defconst w3m-bookmark-initial-format
(eval-when-compile
@@ -116,7 +116,7 @@
(unless (search-forward w3m-bookmark-section-delimiter nil t)
(error "Can't find section delimiter: %s" section))
(goto-char (match-beginning 0))
- (insert (format "<li><a href=\"%s\">%s</a>\n" url title)))
+ (insert (format " <li><a href=\"%s\">%s</a>\n" url title)))
;; New section.
(unless (search-forward "</body>\n" nil t)
(error "%s" "Can't find delimiter of bookmark contents"))
/--------------------------------------------------------/
高石 勇人 < rio-t@presen.to >
PGP Key(RSA): http://rio-t.presen.to/pgp/mykey.asc
(DSS): http://rio-t.presen.to/pgp/mykey-dss.asc
/--------------------------------------------------------/