Skip to content
This repository

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse code

Cleaned up +cliki-tags+ html tags whitelist

  • Loading branch information...
commit 85a7fdd56c56a33168e7dc966a03b0bd7c8f7a42 1 parent 9fe84e7
Vladimir Sedach authored

Showing 1 changed file with 10 additions and 21 deletions. Show diff stats Hide diff stats

  1. +10 21 src/markup.lisp
31 src/markup.lisp
@@ -7,29 +7,20 @@
7 7 :protocols (("a" . (("href" . (:ftp :http :https :mailto :relative))))))
8 8
9 9 (sanitize:define-sanitize-mode +cliki-tags+
10   - :elements ("a" "blockquote"
11   - "dd" "dl" "dt"
12   - "h1" "h2" "h3" "h4" "h5" "h6" "hgroup"
13   - "pre" "code"
14   - "img"
15   - "table" "tbody" "td" "tfoot" "th" "thead" "tr" "col" "colgroup"
16   - "ul" "ol" "li"
17   - "b" "em" "i" "small" "strike" "strong"
18   - ;; what are these?
19   - "ins" "kbd" "mark"
20   - "caption" "cite"
21   - "figcaption" "figure" "del"
22   - "sub" "sup" "bdo" "dfn"
23   - "q" "rp" "rt" "ruby" "s" "samp"
24   - "time" "var" "wbr" "u" "abbr")
  10 + :elements ("a" "blockquote" "q" "dd" "dl" "dt" "h1" "h2" "h3" "h4" "h5"
  11 + "h6" "hgroup" "pre" "code" "kbd" "samp" "cite" "var" "time"
  12 + "figure" "figcaption" "img" "table" "caption" "tbody" "td"
  13 + "tfoot" "th" "thead" "tr" "col" "colgroup" "ul" "ol" "li" "b"
  14 + "em" "i" "small" "strike" "strong" "dfn" "s" "sub" "sup" "u"
  15 + "abbr" "ruby" "rp" "rt" "bdo" "mark")
25 16 :attributes ((:all . ("dir" "lang" "title" "class"))
26 17 ("a" . ("href"))
  18 + ("abbr" . ("title"))
  19 + ("bdo" . ("dir"))
27 20 ("blockquote" . ("cite"))
28   - ("col" . ("span" "width"))
29   - ("colgroup" . ("span" "width"))
30   - ("del" . ("cite" "datetime"))
  21 + ("col" . ("span" "width" "align" "valign"))
  22 + ("colgroup" . ("span" "width" "align" "valign"))
31 23 ("img" . ("align" "alt" "height" "src" "width"))
32   - ("ins" . ("cite" "datetime"))
33 24 ("ol" . ("start" "reversed" "type"))
34 25 ("ul" . ("type"))
35 26 ("code" . ("lang"))
@@ -40,9 +31,7 @@
40 31
41 32 :protocols (("a" . (("href" . (:ftp :http :https :mailto :relative))))
42 33 ("blockquote" . (("cite" . (:http :https :relative))))
43   - ("del" . (("cite" . (:http :https :relative))))
44 34 ("img" . (("src" . (:http :https :relative))))
45   - ("ins" . (("cite" . (:http :https :relative))))
46 35 ("q" . (("cite" . (:http :https :relative))))))
47 36
48 37 (defun generate-html-from-markup (markup)

0 comments on commit 85a7fdd

Please sign in to comment.
Something went wrong with that request. Please try again.