[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: href "title" attribute
- From: Kevin Ryde <user42@xxxxxxxxxx>
- Date: Tue, 11 Jan 2011 09:40:26 +1100
- X-ml-name: emacs-w3m
- X-mail-count: 11485
- References: <87d3oesu2d.fsf@xxxxxxxxx> <20110103.163353.214432641.1BF46D@xxxxxxxxxxx> <20110104.223841.133868059.1BF46D@xxxxxxxxxxx>
Hideyuki SHIRAI (°×¾®ÐãÐÐ) <shirai@xxxxxxxxxxx> writes:
>
> I've just commited the patch with little modification.
Looks good. The `=' page info screen too? Perhaps per below.
Some of the OEIS titles can be long, I was thinking of a paragraph fill
for this "Anchor Title:" line, but maybe showing it unmodified would be
better in general.
2011-01-11 Kevin Ryde <user42@xxxxxxxxxx>
* w3m.el (w3m-about-header): Show anchor-title of link at point.
--- w3m.el.~1.1512.~ 2011-01-11 09:34:15.000000000 +1100
(B+++ w3m.el 2011-01-11 09:35:12.000000000 +1100
(B@@ -9927,12 +9927,18 @@
(B "\nDocument Type: " (or (w3m-content-type url) "")
(B "\nLast Modified: "
(B (let ((time (w3m-last-modified url)))
(B- (if time (current-time-string time) ""))
(B- (let ((anchor (with-current-buffer w3m-current-buffer
(B- (and (equal url w3m-current-url) (w3m-anchor)))))
(B- (if anchor
(B- (concat "\nCurrent Anchor: " anchor)
(B- "")))
(B+ (if time (current-time-string time) "")))
(B+
(B+ (let (anchor anchor-title)
(B+ (with-current-buffer w3m-current-buffer
(B+ (when (equal url w3m-current-url)
(B+ (setq anchor (w3m-anchor))
(B+ (setq anchor-title (w3m-anchor-title))))
(B+ (if anchor
(B+ (insert "\nCurrent Anchor: " anchor))
(B+ (if anchor-title
(B+ (insert "\nAnchor Title: " anchor-title)))
(B+
(B (let ((ct (w3m-arrived-content-type url))
(B (charset (w3m-arrived-content-charset url))
(B (separator (w3m-make-separator))