1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
|
(in-package #:cl-markdown)
(defparameter *spaces-per-tab* 4)
(defparameter *parsing-environment* nil)
(defparameter *chunk-parsing-environments*
(make-container 'simple-associative-container))
(defparameter *spanner-parsing-environments*
(make-container 'simple-associative-container :test #'equal))
(defparameter *horizontal-rule-count-threshold* 3)
(defparameter *default-stream* *standard-output*)
(defparameter *default-format* :html)
(defvar *output-stream* nil)
(defvar *current-indentation-level* 0)
(defparameter *current-document* nil)
(defparameter *current-format* nil)
(defparameter *render-active-functions*
'(table-of-contents property set-property anchor footnote footnotes
today now include include-if comment))
(defparameter *parse-active-functions*
'(table-of-contents property set-property anchor footnote footnotes
include include-if comment))
(defparameter *block-level-html-tags*
'(address blockquote div fieldset
h1 h2 h3 h4 h5 h6
hr legend p pre ul ol li dl dd))
|
