[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
w3m-view-header `=' on a linked image
- From: Kevin Ryde <user42@xxxxxxxxxx>
- Date: Fri, 10 Feb 2012 10:57:30 +1100
- X-ml-name: emacs-w3m
- X-mail-count: 11750
With the current cvs looking at the foo.html below, if point is on the
"gpl" image then pressing `=' w3m-view-header doesn't show the href link
target. I hoped that it would, the same as it does on linked text.
I struck this when experimenting with `=' to show an image location url,
per the diff below (not properly tested yet :-). Then I noticed not
only it doesn't work but neither does the existing code that shows just
an anchor target.
A bit of tracing suggests point might be moved when the code goes to
look for the properties. I wondered if it was due to
w3m-history-restore-position doing something different on a position
with an image, but I can't tell. Would that about:/header thing extract
its information before any save/restore anyway?
Title: A Page
This is a linked image:
--- w3m.el.~1.1552.~ 2012-02-10 10:30:29.000000000 +1100
+++ w3m.el 2012-02-10 10:42:04.000000000 +1100
@@ -9950,15 +9950,26 @@
(let ((time (w3m-last-modified url)))
(if time (current-time-string time) "")))
- (let (anchor anchor-title)
+ (let (anchor anchor-title
+ image-url image-alt image-size)
(with-current-buffer w3m-current-buffer
(when (equal url w3m-current-url)
- (setq anchor (w3m-anchor))
- (setq anchor-title (w3m-anchor-title))))
+ (setq anchor (w3m-anchor)
+ anchor-title (w3m-anchor-title)
+ image-url (w3m-image)
+ image-alt (w3m-image-alt)
+ image-size (w3m-get-text-property-around 'w3m-image-size))))
(if anchor
(insert "\nCurrent Anchor: " anchor))
(if anchor-title
- (insert "\nAnchor Title: " anchor-title)))
+ (insert "\nAnchor Title: " anchor-title))
+ (if image-url
+ (insert "\nImage: " image-url))
+ (if image-alt
+ (insert "\nImage Alt: " image-alt))
+ (if image-size
+ (insert (format "\nImage Size: %sx%s"
+ (car image-size) (cdr image-size)))))
(let ((ct (w3m-arrived-content-type url))
(charset (w3m-arrived-content-charset url))