* shr.el: Add shr-link face for links.
(shr-urlify): Use it.
2011-05-03 Teodor Zlatanov <tzz@lifelogs.com>
+ * shr.el: Add shr-link face for links.
+ (shr-urlify): Use it.
+
* registry.el (registry-insert): Make error message more helpful.
2011-05-02 Lars Magne Ingebrigtsen <larsi@gnus.org>
"Font for <s> elements."
:group 'shr)
+(defface shr-link '((t (:underline t)
+ (:foreground "yellow")
+ (:background "black")))
+ "Font for <s> elements."
+ :group 'shr)
+
;;; Internal variables.
(defvar shr-folding-mode nil)
:help-echo (if title (format "%s (%s)" url title) url)
:keymap shr-map
url)
+ (put-text-property start (point) 'face 'shr-link)
(put-text-property start (point) 'shr-url url))
(defun shr-encode-url (url)