From 683033623187f1386008eb87e38417283bad1ca0 Mon Sep 17 00:00:00 2001 From: =?utf8?q?R=C3=BCdiger=20Sonderfeld?= Date: Sun, 16 Jun 2013 16:19:38 +0200 Subject: [PATCH] Allow customizing the
  • "bullet" (shr-bullet): New custom variable. (shr-tag-li): Support custom bullet in unordered lists. --- lisp/ChangeLog | 2 ++ lisp/shr.el | 10 +++++++++- 2 files changed, 11 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 2b2b63c1c..b5380761d 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -2,6 +2,8 @@ * shr.el (shr-dom-to-xml): (shr-dom-to-xml): New function. (shr-tag-svg): Add support for the SVG tag. + (shr-bullet): New custom variable. + (shr-tag-li): Support custom bullet in unordered lists. 2013-06-16 Lars Magne Ingebrigtsen diff --git a/lisp/shr.el b/lisp/shr.el index 517390865..7f79e1a60 100644 --- a/lisp/shr.el +++ b/lisp/shr.el @@ -83,6 +83,14 @@ used." (const :tag "Use the width of the window" nil)) :group 'shr) +(defcustom shr-bullet "* " + "Bullet used for unordered lists. +Alternative suggestions are: +- \" \" +- \" \"" + :type 'string + :group 'shr) + (defvar shr-content-function nil "If bound, this should be a function that will return the content. This is used for cid: URLs, and the function is called with the @@ -1128,7 +1136,7 @@ ones, in case fg and bg are nil." (prog1 (format "%d " shr-list-mode) (setq shr-list-mode (1+ shr-list-mode))) - "* ")) + shr-bullet)) (shr-indentation (+ shr-indentation (length bullet)))) (insert bullet) (shr-generic cont))) -- 2.25.1