Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Newer
Older
100644 42 lines (28 sloc) 1.47 kb
d3e78ff @archimag added registration and authentication
archimag authored
1 ;;;; markup.lisp
2
3 (in-package #:cliki2)
4
5 (defun generate-html-from-markup (markup)
6d6413b @vsedach Replaced cl-docutils with 3bmd, changed the way categories work.
authored
6 (with-output-to-string (s)
7 (3bmd:parse-string-and-print-to-stream markup s)))
5606e43 @archimag added to markup: hyperspec-ref and code-block
archimag authored
8
6d6413b @vsedach Replaced cl-docutils with 3bmd, changed the way categories work.
authored
9 ;;;; article-ref (_())
5606e43 @archimag added to markup: hyperspec-ref and code-block
archimag authored
10
11
6d6413b @vsedach Replaced cl-docutils with 3bmd, changed the way categories work.
authored
12 ;;;; person-ref (_())
5606e43 @archimag added to markup: hyperspec-ref and code-block
archimag authored
13
6d6413b @vsedach Replaced cl-docutils with 3bmd, changed the way categories work.
authored
14 ;;;; hypespec-ref ???
17416b2 @archimag added markup: article-ref and person-ref
archimag authored
15
6d6413b @vsedach Replaced cl-docutils with 3bmd, changed the way categories work.
authored
16 ;;;; code-block <code></code>
5606e43 @archimag added to markup: hyperspec-ref and code-block
archimag authored
17
6d6413b @vsedach Replaced cl-docutils with 3bmd, changed the way categories work.
authored
18 ;; (defmethod docutils:visit-node ((writer docutils.writer.html:html-writer) (node code-block))
19 ;; (let ((lang (car (assoc (code-block-lang node)
20 ;; (colorize:coloring-types)
21 ;; :test #'string-equal))))
22 ;; (if lang
23 ;; (append-template 'cliki2.view:code-block
24 ;; :code (colorize::html-colorization :common-lisp
25 ;; (code-block-code node)))
26 ;; (docutils:part-append
27 ;; (format nil "<pre>~A</pre>" (code-block-code node))))))
9873a6f @archimag added categories
archimag authored
28
6d6413b @vsedach Replaced cl-docutils with 3bmd, changed the way categories work.
authored
29 ;;;; category *()
9873a6f @archimag added categories
archimag authored
30
6d6413b @vsedach Replaced cl-docutils with 3bmd, changed the way categories work.
authored
31 ;;;; category list /()
9873a6f @archimag added categories
archimag authored
32
6d6413b @vsedach Replaced cl-docutils with 3bmd, changed the way categories work.
authored
33 ;; (defmethod docutils:visit-node ((writer docutils.writer.html:html-writer) (node category-content))
34 ;; (append-template 'cliki2.view:category-content
35 ;; :items (iter (for article in (articles-with-category (category-content-title node)))
36 ;; (collect
37 ;; (list :title (article-title article)
38 ;; :href (restas:genurl 'view-article
39 ;; :title (article-title article)))))))
9873a6f @archimag added categories
archimag authored
40
41
Something went wrong with that request. Please try again.