[PATCH] (gnus-html-wash-tags): Add better support for <ul> tags symbols.

[PATCH] (gnus-html-wash-tags): Add better support for <ul> tags symbols.

[Julien Danjou]

[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #1: Type: text/plain, Size: 1750 bytes --]

Signed-off-by: Julien Danjou <julien@danjou.info>
---
 lisp/ChangeLog    |    1 +
 lisp/gnus-html.el |   16 ++++++++++++++++
 2 files changed, 17 insertions(+), 0 deletions(-)

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 565706c..5246c94 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -7,6 +7,7 @@
 	(gnus-html-wash-tags): Fix tag case.
 	Add support for `s' and `ins' tags. Use gnus-emphasis-* faces.
 	(gnus-article-html): Add -o display_ins_del=2 option.
+	(gnus-html-wash-tags): Add better support for <ul> tags symbols.
 
 2010-09-19  Lars Magne Ingebrigtsen  <larsi@gnus.org>
 
diff --git a/lisp/gnus-html.el b/lisp/gnus-html.el
index ba4a020..aff9e56 100644
--- a/lisp/gnus-html.el
+++ b/lisp/gnus-html.el
@@ -270,6 +270,22 @@ fit these criteria."
        ((or (equal tag "ins")
             (equal tag "INS"))
         (gnus-overlay-put (gnus-make-overlay start end) 'face 'gnus-emphasis-underline))
+       ;; Handle different UL types
+       ((equal tag "_SYMBOL")
+        (when (string-match "TYPE=\\(.+\\)" parameters)
+          (let ((type (string-to-number (match-string 1 parameters))))
+            (delete-region start end)
+            (cond ((= type 33) (insert "▸"))
+                  ((= type 34) (insert "◾"))
+                  ((= type 35) (insert "◆"))
+                  ((= type 36) (insert "▰"))
+                  ((= type 37) (insert "○"))
+                  ((= type 38) (insert "▹"))
+                  ((= type 39) (insert "□"))
+                  ((= type 40) (insert "◇"))
+                  ((= type 42) (insert "○"))
+                  ((= type 43) (insert "◾"))
+                  (t (insert "●"))))))
        ;; Whatever.  Just ignore the tag.
        (t
 	))
-- 
1.7.1

Re: [PATCH] (gnus-html-wash-tags): Add better support for <ul> tags symbols.

[Lars Magne Ingebrigtsen]

Julien Danjou <julien@danjou.info> writes:

> +	(gnus-html-wash-tags): Add better support for <ul> tags symbols.

Thanks for the patches; I've applied them all.

Do you want committer access to the Gnus git repository?  :-)

-- 
(domestic pets only, the antidote for overdose, milk.)
  larsi@gnus.org * Lars Magne Ingebrigtsen

Re: [PATCH] (gnus-html-wash-tags): Add better support for <ul> tags symbols.

[Julien Danjou]

[-- Attachment #1: Type: text/plain, Size: 363 bytes --]

On Sun, Sep 19 2010, Lars Magne Ingebrigtsen wrote:

> Do you want committer access to the Gnus git repository?  :-)

Well, I'd be glad. I'll keep sending things here if I'm not sure of what
I'm doing so it can be reviewed, otherwise I'll break things directly if
I'm sure. ;)

-- 
Julien Danjou
// ᐰ <julien@danjou.info>   http://julien.danjou.info

[-- Attachment #2: Type: application/pgp-signature, Size: 197 bytes --]

Re: [PATCH] (gnus-html-wash-tags): Add better support for <ul> tags symbols.

[Ted Zlatanov]

On Sun, 19 Sep 2010 14:22:03 +0200 Julien Danjou <julien@danjou.info> wrote: 

JD> On Sun, Sep 19 2010, Lars Magne Ingebrigtsen wrote:
>> Do you want committer access to the Gnus git repository?  :-)

JD> Well, I'd be glad. I'll keep sending things here if I'm not sure of what
JD> I'm doing so it can be reviewed, otherwise I'll break things directly if
JD> I'm sure. ;)

Send me a htpasswd line, something like this:

larsi:password-here

and I'll add it.  You can use branches to do work you don't want pushed
out to the world.

Thanks
Ted

Re: [PATCH] (gnus-html-wash-tags): Add better support for <ul> tags symbols.

[Lars Magne Ingebrigtsen]

Ted Zlatanov <tzz@lifelogs.com> writes:

> Send me a htpasswd line, something like this:

I've added Julien to the git password file...

-- 
(domestic pets only, the antidote for overdose, milk.)
  larsi@gnus.org * Lars Magne Ingebrigtsen