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

bookmark.html を見やすく



こんにちは、高石です。

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
/--------------------------------------------------------/