[PATCH 1/2] shr: Add support for custom bullet in unordered lists.

[PATCH 1/2] shr: Add support for custom bullet in unordered lists.

[Rüdiger Sonderfeld]

* lisp/shr.el (shr-bullet): New custom variable.
  (shr-tag-li): Support custom bullet in unordered lists.

Signed-off-by: Rüdiger Sonderfeld <ruediger@c-plusplus.de>
---
 lisp/shr.el | 10 +++++++++-
 1 file changed, 9 insertions(+), 1 deletion(-)

diff --git a/lisp/shr.el b/lisp/shr.el
index c93357e..48dfc5a 100644
--- a/lisp/shr.el
+++ b/lisp/shr.el
@@ -83,6 +83,14 @@ (defcustom shr-width fill-column
 		 (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
@@ -1094,7 +1102,7 @@ (defun shr-tag-li (cont)
 	      (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)))
-- 
1.8.3.1

Re: [PATCH 1/2] shr: Add support for custom bullet in unordered lists.

[Lars Magne Ingebrigtsen]

Rüdiger Sonderfeld <ruediger@c-plusplus.de> writes:

> * lisp/shr.el (shr-bullet): New custom variable.
>   (shr-tag-li): Support custom bullet in unordered lists.

Thanks; applied.

-- 
(domestic pets only, the antidote for overdose, milk.)
  bloggy blog http://lars.ingebrigtsen.no/