Added several new tags + css styles
Getty Ritter
8 years ago
| 117 | 117 |
(list (simple-tag 'em)
|
| 118 | 118 |
(simple-tag 'strong)
|
| 119 | 119 |
(simple-tag 'li)
|
| 120 | |
(simple-tag 'code)
|
| 121 | 120 |
(simple-tag 'h1)
|
| 122 | 121 |
(simple-tag 'h2)
|
| 123 | 122 |
(list-tag 'sub)
|
| 124 | 123 |
(list-tag 'p)
|
| 125 | 124 |
(list-tag 'ul)
|
| 126 | 125 |
(list-tag 'ol)
|
| 126 |
(simple-tag 'blockquote)
|
| 127 |
(cons 'ttcom (lambda (n) `(span (@ (class comment)) ,n)))
|
| 128 |
(cons 'ttkw (lambda (n) `(span (@ (class keyword)) ,n)))
|
| 129 |
(cons 'ttcn (lambda (n) `(span (@ (class constr)) ,n)))
|
| 130 |
(cons 'ttstr (lambda (n) `(span (@ (class string)) ,n)))
|
| 131 |
(cons 'tt (lambda (n) (list 'code n)))
|
| 127 | 132 |
(cons 'br (lambda _ `(br)))
|
| 128 | |
(simple-tag 'blockquote)
|
| 133 |
(cons 'code (lambda (n) `(pre (code ,n))))
|
| 129 | 134 |
(cons 'comment (lambda _ ""))
|
| 130 | 135 |
(cons 'link (lambda (url name)
|
| 131 | 136 |
`(a (@ (href ,(apply string-append url))) ,name)))
|
| 158 | 158 |
(position absolute)
|
| 159 | 159 |
(-webkit-transform "translateX(-100%) translateX(-0.25rem)")
|
| 160 | 160 |
(-ms-transform "translateX(-100%) translateX(-0.25rem)")
|
| 161 | |
(transform "translateX(-100%) translateX(-0.25rem)"))))
|
| 161 |
(transform "translateX(-100%) translateX(-0.25rem)"))
|
| 162 |
|
| 163 |
((= class constr) (color "#993366"))
|
| 164 |
((= class string) (color "#339966"))
|
| 165 |
((= class comment) (color "#666666"))
|
| 166 |
((= class keyword) (color "#336699"))))
|
| 162 | 167 |
|
| 163 | 168 |
;; the SXML chunk representing the navigation menu
|
| 164 | 169 |
(define menu
|