+2010-12-04 Adam Sjøgren <asjo@koldfront.dk>
+
+ * shr.el (shr-urlify): Display the title in <a> tags.
+
2010-12-04 Andrew Cohen <cohen@andy.bu.edu>
* nnir.el (nnir-categorize): Replace mapcar with mapc.
(autoload 'widget-convert-button "wid-edit")
-(defun shr-urlify (start url)
+(defun shr-urlify (start url &optional title)
(widget-convert-button
'url-link start (point)
- :help-echo url
+ :help-echo (if title (format "%s (%s)" title url) url)
:keymap shr-map
url)
(put-text-property start (point) 'shr-url url))
(defun shr-tag-a (cont)
(let ((url (cdr (assq :href cont)))
+ (title (cdr (assq :title cont)))
(start (point))
shr-start)
(shr-generic cont)
- (shr-urlify (or shr-start start) url)))
+ (shr-urlify (or shr-start start) url title)))
(defun shr-tag-object (cont)
(let ((start (point))