2005-07-13

html-fold.el alpha2 -- quickurl との連携 |HTML|Emacs|

最初にお知らせ。html-fold.el alpha2 を公開しました。

M-x html-fold-inline (及び M-x html-fold-dwim) で閉じタグが fold されないバグを直しました。

quickurl.el とは...

さて、HTML でリンクを入力するのに quickurl.el を使うと便利という話をむかし書いた。簡単に復習すると

clmemo-!-

という状況で (-!- はカーソルの位置)、 M-x quickurl (or C-c q) すると

<a href="http://pop-club.hp.infoseek.co.jp/emacs/changelog.html">ChangeLog メモ</a>

clmemo に対応するリンクへと変換される。

quickurl との連携

更に html-fold を組み合わせれば、上のリンクは

[a:ChangeLog メモ]

と見晴らしがよくなる。でも、怠惰な人間は考える。 quickurl したら、すぐに html-fold をかましたいと。考えたなら、やってみましょう。advice を使えば簡単に実現できる。下のコードを .emacs に追加して、

(defadvice quickurl-insert (after fold-html-if-available)
  "Fold inserted url if fold-html-mode is t"
  (when (and (boundp 'html-fold-mode) html-fold-mode)
    (html-fold-inline)))

(eval-after-load "quickurl"(ad-active 'quickurl-insert) を加える。具体的には、こんな感じ。

(eval-after-load "quickurl"
  '(progn
    (defun quickurl-mode-format-function (url-list)
       (let ((url  (quickurl-url-url         url-list))
       .... この関数は 
        quickurl の導入で定義したもの。
    (ad-activate 'quickurl-insert)  ; この一行を追加する。
))
      

さあ。リンクは楽に入力できるし、沢山入力しても見苦しくない。よいでせう。

ref

No comments:

Post a Comment