source: project/release/4/qwiki/trunk/qwiki-nowiki.scm

Last change on this file was 26108, checked in by sjamaan, 9 years ago

qwiki: Update copyright year on other files too

File size: 2.0 KB
Line 
1;;
2;; qwiki-nowiki - nowiki extension for qwiki
3;;
4;; Include raw HTML contents on a page
5;;
6;; Copyright (c) 2009-2012 Ivan Raikov
7;;
8;;  Redistribution and use in source and binary forms, with or without
9;;  modification, are permitted provided that the following conditions
10;;  are met:
11;;
12;;  - Redistributions of source code must retain the above copyright
13;;  notice, this list of conditions and the following disclaimer.
14;;
15;;  - Redistributions in binary form must reproduce the above
16;;  copyright notice, this list of conditions and the following
17;;  disclaimer in the documentation and/or other materials provided
18;;  with the distribution.
19;;
20;;  - Neither name of the copyright holders nor the names of its
21;;  contributors may be used to endorse or promote products derived
22;;  from this software without specific prior written permission.
23;;
24;;  THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND THE
25;;  CONTRIBUTORS "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES,
26;;  INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF
27;;  MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE
28;;  DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT HOLDERS OR THE
29;;  CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
30;;  SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT
31;;  LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF
32;;  USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED
33;;  AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
34;;  LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN
35;;  ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
36;;  POSSIBILITY OF SUCH DAMAGE.
37
38(module qwiki-nowiki
39
40        (nowiki-install!)
41
42(import chicken scheme)
43(use data-structures qwiki qwiki-sxml  sxml-transforms)
44
45(define nowiki-rules
46  `((nowiki
47     *preorder*
48     . ,(lambda (tag contents)
49          (cons 'verbatim contents)))
50    ,@alist-conv-rules*))
51
52(define (nowiki-install!)
53  (qwiki-extensions (cons nowiki-rules (qwiki-extensions)))
54 )
55
56)
Note: See TracBrowser for help on using the repository browser.