1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
|
;; Copyright 2007-2008, Matthew Welland. Megatest All rights reserved.
;;
;; index
(list
"<!DOCTYPE html PUBLIC \"-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd\">"
(s:html
(s:title (conc "Megatest "))
(s:head
index:kickstart-junk
)
(s:body
(s:div 'class "grid flex" 'id "top_of_page"
;; add visible to columns to help visualize them e.g. "col_12 visible"
;; BEGINNING OF HEADER
(s:div 'class "col_12"
"stuff goes here"))
index:jquery
index:javascript
)))
|
>
|
|
|
|
|
|
|
|
|
|
|
|
|
>
>
|
|
|
|
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
|
;; Copyright 2007-2008, Matthew Welland. Megatest All rights reserved.
;;
;; index
(let ((dbh (s:db)))
(list
"<!DOCTYPE html PUBLIC \"-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd\">"
(s:html
(s:title (conc "Megatest "))
(s:head
index:kickstart-junk
)
(s:body
(s:div 'class "grid flex" 'id "top_of_page"
;; add visible to columns to help visualize them e.g. "col_12 visible"
;; BEGINNING OF HEADER
(s:div 'class "col_12"
(map (lambda (area)
(s:p "data=" (conc area)))
(pgdb:get-tests dbh "%"))
index:jquery
index:javascript
))))))
|