Artifact
e6eeff7675a86f6fe0c9aef4aa54dc6ab1c902ab:
0000: 3b 3b 20 43 6f 70 79 72 69 67 68 74 20 32 30 30 ;; Copyright 200
0010: 37 2d 32 30 30 38 2c 20 4d 61 74 74 68 65 77 20 7-2008, Matthew
0020: 57 65 6c 6c 61 6e 64 2e 20 4b 69 61 74 6f 61 2e Welland. Kiatoa.
0030: 63 6f 6d 20 41 6c 6c 20 72 69 67 68 74 73 20 72 com All rights r
0040: 65 73 65 72 76 65 64 2e 0a 3b 3b 20 0a 3b 3b 20 eserved..;; .;;
0050: 69 6e 64 65 78 0a 0a 28 6c 69 73 74 0a 20 28 73 index..(list. (s
0060: 3a 68 74 6d 6c 0a 20 20 28 73 3a 68 65 61 64 0a :html. (s:head.
0070: 20 20 20 28 73 3a 74 69 74 6c 65 20 22 41 70 70 (s:title "App
0080: 72 6f 76 61 6c 20 56 6f 74 69 6e 67 20 4e 6f 77 roval Voting Now
0090: 21 22 29 0a 20 20 20 28 73 3a 6c 69 6e 6b 20 20 !"). (s:link
00a0: 27 72 65 6c 20 22 73 74 79 6c 65 73 68 65 65 74 'rel "stylesheet
00b0: 22 20 27 74 79 70 65 20 22 74 65 78 74 2f 63 73 " 'type "text/cs
00c0: 73 22 20 27 68 72 65 66 20 22 2f 61 70 70 72 6f s" 'href "/appro
00d0: 76 61 6c 76 6f 74 65 2f 6d 61 72 6b 75 70 2e 63 valvote/markup.c
00e0: 73 73 22 29 0a 20 20 20 28 73 3a 6c 69 6e 6b 20 ss"). (s:link
00f0: 20 27 72 65 6c 20 22 73 74 79 6c 65 73 68 65 65 'rel "styleshee
0100: 74 22 20 27 74 79 70 65 20 22 74 65 78 74 2f 63 t" 'type "text/c
0110: 73 73 22 20 27 68 72 65 66 20 22 2f 61 70 70 72 ss" 'href "/appr
0120: 6f 76 61 6c 76 6f 74 65 2f 6c 61 79 6f 75 74 2e ovalvote/layout.
0130: 63 73 73 22 29 29 0a 20 20 28 73 3a 62 6f 64 79 css")). (s:body
0140: 0a 20 20 20 28 73 3a 64 69 76 20 27 63 6c 61 73 . (s:div 'clas
0150: 73 20 22 68 65 61 64 65 72 22 20 20 20 20 20 20 s "header"
0160: 20 28 73 3a 63 61 6c 6c 20 22 68 65 61 64 65 72 (s:call "header
0170: 22 29 29 0a 20 20 20 28 73 3a 64 69 76 20 27 63 ")). (s:div 'c
0180: 6c 61 73 73 20 22 72 69 67 68 74 63 6f 6c 75 6d lass "rightcolum
0190: 6e 22 20 20 28 73 3a 63 61 6c 6c 20 22 72 69 67 n" (s:call "rig
01a0: 68 74 63 6f 6c 22 29 29 0a 20 20 20 28 73 3a 64 htcol")). (s:d
01b0: 69 76 20 27 63 6c 61 73 73 20 22 6c 65 66 74 63 iv 'class "leftc
01c0: 6f 6c 75 6d 6e 22 20 20 20 28 73 3a 63 61 6c 6c olumn" (s:call
01d0: 20 22 6c 65 66 74 6e 61 76 22 29 29 0a 20 20 20 "leftnav")).
01e0: 28 73 3a 64 69 76 20 27 63 6c 61 73 73 20 22 63 (s:div 'class "c
01f0: 65 6e 74 65 72 63 6f 6c 75 6d 6e 22 0a 20 20 20 entercolumn".
0200: 20 20 20 20 20 20 20 28 6c 65 74 20 28 28 70 61 (let ((pa
0210: 67 65 20 20 20 20 28 73 6c 6f 74 2d 72 65 66 20 ge (slot-ref
0220: 73 3a 73 65 73 73 69 6f 6e 20 27 70 61 67 65 29 s:session 'page)
0230: 29 29 0a 20 20 20 20 20 20 20 20 20 20 20 20 28 )). (
0240: 69 66 20 70 61 67 65 0a 20 20 20 20 20 20 20 20 if page.
0250: 20 20 20 20 20 20 20 20 28 73 3a 63 61 6c 6c 20 (s:call
0260: 70 61 67 65 29 0a 20 20 20 20 20 20 20 20 20 20 page).
0270: 20 20 20 20 20 20 28 6c 69 73 74 20 28 73 3a 68 (list (s:h
0280: 32 20 22 48 6f 6d 65 22 29 0a 09 09 20 20 20 20 2 "Home")...
0290: 20 20 28 73 3a 63 61 6c 6c 20 22 73 79 73 2d 73 (s:call "sys-s
02a0: 74 61 74 65 22 29 29 29 29 29 0a 20 20 20 28 73 tate"))))). (s
02b0: 3a 64 69 76 20 27 63 6c 61 73 73 20 22 66 6f 6f :div 'class "foo
02c0: 74 65 72 22 20 28 73 3a 63 61 6c 6c 20 22 66 6f ter" (s:call "fo
02d0: 6f 74 65 72 22 29 29 29 29 29 0a oter"))))).