[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: w3m-history
初めまして、長谷川と申します。
At 21 Mar 2001 11:44:24 +0900,
TSUCHIYA Masatoshi wrote:
> こういった需要があるのは、
>
> 1. w3m-antenna にサイトを追加するのは面倒だ
現在表示しているサイトを w3m-antenna-sites に追加するコードを書いてみ
ました。(ほぼ、w3m-bookmark.el からの Cut&Paste なのですけど...。)
実行後 w3m-antenna で Reload すると、追加したサイトが表示されます。
(define-key w3m-mode-map "A" 'w3m-antenna-add-current-url)
> 2. w3m-antenna が非同期に動作してくれないから、なかなか実行しづらい。
>
> というのが理由なのかなあとか思ったんですけど、どうなんでしょうね。
(1) w3m-antenna-sites から「たまてばこ」等の sites 定義ファイルを生成し、
非同期で外部のアンテナ取得プログラムを実行してしまう。
(2) w3m-anntena は、先ほど実行したプログラムの実行結果から更新情報を取得する。
うーん、これじゃ意味ないですね(^^;
> とりあえず、時刻を比較する関数は既に存在する(w3m-time-newer-p)ので、余
> 分なコードを削除しておきました。それと、w3m-antenna の見栄えを夏ミカン
> アンテナっぽくしてみました。
<head>から「<meta name="author" content="hogehoge">」が取得できた場合
作成者名を表示するというのはどうでしょう？
============================================================
$ diff w3m-antenna.el.orig w3m-antenna.el
291a292,329
>
>
> (defun w3m-antenna-add-current-url (&optional arg)
> "*Add link of current page to antenna.
> With prefix, ask new url to add instead of current page."
> (interactive "P")
> (w3m-antenna-add (if arg (w3m-input-url) w3m-current-url)
> w3m-current-title)
> (message "Added."))
>
> (defun w3m-antenna-add (url &optional title class)
> "Add URL to antenna.
> Optional argument TITLE is title of link."
> (setq title (read-string "Title: " title))
> (if (string-match title "^ *$")
> (error "You must specify title."))
> (setq class (read-string "Class: " class))
> (if (string-match class "^ *$")
> (setq class "nil"))
> (if (w3m-antenna-check-duplication url w3m-antenna-sites)
> (setq w3m-antenna-sites (delete
> (assoc
> url w3m-antenna-sites)
> w3m-antenna-sites)))
> (setq w3m-antenna-sites (cons
> (list
> url title class)
> w3m-antenna-sites)))
>
> (defun w3m-antenna-check-duplication (url sites-list)
> (let (item)
> (catch 'found
> (while sites-list
> (setq item (car sites-list))
> (if (equal (car item) url)
> (throw 'found t))
> (setq sites-list (cdr sites-list))))))
>
============================================================
---
長谷川 誠 (Makoto HASEGAWA) / MAKOPi
mailto:m-hase@ceres.dti.ne.jp
http://homepage2.nifty.com/MAKOPi/