Artifact
c14538dbadfda9ba5972c7ef08c6ab770737c453:
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: 68 65 61 64 65 72 2f 76 69 65 77 2e 73 63 6d 0a header/view.scm.
0060: 3b 3b 0a 28 6c 69 73 74 0a 20 3b 3b 20 28 73 3a ;;.(list. ;; (s:
0070: 64 69 76 20 27 69 64 20 22 74 69 74 6c 65 62 61 div 'id "titleba
0080: 72 22 0a 09 28 73 3a 74 61 62 6c 65 0a 09 20 28 r"..(s:table.. (
0090: 73 3a 74 72 0a 09 20 20 28 73 3a 74 64 20 28 73 s:tr.. (s:td (s
00a0: 3a 69 6d 67 20 27 73 72 63 20 22 2f 77 77 77 2f :img 'src "/www/
00b0: 69 6d 61 67 65 73 2f 61 70 70 72 6f 76 61 6c 76 images/approvalv
00c0: 6f 74 65 2e 70 6e 67 22 20 0a 09 09 20 20 20 20 ote.png" ...
00d0: 20 20 20 27 61 6c 74 20 22 41 70 70 72 6f 76 61 'alt "Approva
00e0: 6c 56 6f 74 65 2e 63 6f 6d 22 20 0a 09 09 20 20 lVote.com" ...
00f0: 20 20 20 20 20 27 74 69 74 6c 65 20 22 57 65 6c 'title "Wel
0100: 63 6f 6d 65 20 74 6f 20 41 70 70 72 6f 76 61 6c come to Approval
0110: 56 6f 74 65 2e 63 6f 6d 22 29 29 0a 09 20 20 28 Vote.com")).. (
0120: 73 3a 74 64 20 27 76 61 6c 69 67 6e 20 22 74 6f s:td 'valign "to
0130: 70 22 20 27 61 6c 69 67 6e 20 22 72 69 67 68 74 p" 'align "right
0140: 22 0a 09 09 28 73 3a 74 61 62 6c 65 20 27 62 6f "...(s:table 'bo
0150: 72 64 65 72 20 22 30 22 20 27 63 65 6c 6c 73 70 rder "0" 'cellsp
0160: 61 63 69 6e 67 20 22 30 22 0a 09 09 09 20 28 73 acing "0".... (s
0170: 3a 74 72 20 0a 09 09 09 20 20 28 73 3a 74 64 20 :tr .... (s:td
0180: 27 76 61 6c 69 67 6e 20 22 63 65 6e 74 65 72 22 'valign "center"
0190: 20 3b 3b 20 27 77 69 64 74 68 20 22 32 35 30 22 ;; 'width "250"
01a0: 20 3b 3b 20 27 72 6f 77 73 70 61 6e 20 22 32 22 ;; 'rowspan "2"
01b0: 0a 09 09 09 09 28 73 3a 61 20 28 73 3a 73 6d 61 .....(s:a (s:sma
01c0: 6c 6c 20 22 20 2a 20 20 20 20 20 20 4e 4f 57 20 ll " * NOW
01d0: 49 53 20 41 20 47 52 45 41 54 20 54 49 4d 45 20 IS A GREAT TIME
01e0: 54 4f 20 50 55 53 48 20 46 4f 52 20 41 50 50 52 TO PUSH FOR APPR
01f0: 4f 56 41 4c 20 56 4f 54 49 4e 47 21 20 20 20 20 OVAL VOTING!
0200: 20 2a 20 22 29 29 0a 09 09 09 09 28 73 3a 62 72 * ")).....(s:br
0210: 29 29 29 0a 09 09 09 20 28 73 3a 74 72 20 0a 09 ))).... (s:tr ..
0220: 09 09 20 20 28 73 3a 74 64 20 27 63 6f 6c 75 6d .. (s:td 'colum
0230: 6e 73 70 61 6e 3d 22 33 22 20 0a 09 09 09 09 28 nspan="3" .....(
0240: 73 3a 63 65 6e 74 65 72 20 22 2a 2a 2a 2a 2a 2a s:center "******
0250: 2a 2a 2a 22 29 29 29 29 29 29 20 3b 3b 20 20 68 ***")))))) ;; h
0260: 65 61 64 65 72 3a 74 69 74 6c 65 29 29 29 29 29 eader:title)))))
0270: 29 0a 09 20 3b 3b 20 74 68 69 73 20 69 73 20 74 ).. ;; this is t
0280: 68 65 20 68 6f 72 69 7a 6f 6e 74 61 6c 20 6d 65 he horizontal me
0290: 6e 75 73 0a 09 20 28 73 3a 74 72 20 27 63 6f 6c nus.. (s:tr 'col
02a0: 75 6d 6e 73 70 61 6e 20 22 34 22 0a 09 20 20 20 umnspan "4"..
02b0: 20 20 20 20 28 73 3a 74 61 62 6c 65 0a 09 09 28 (s:table...(
02c0: 73 3a 74 72 0a 09 09 20 20 28 6d 61 70 20 28 6c s:tr... (map (l
02d0: 61 6d 62 64 61 20 28 6d 2d 69 74 65 6d 29 0a 09 ambda (m-item)..
02e0: 09 09 20 28 73 3a 74 64 20 28 73 3a 73 6d 61 6c .. (s:td (s:smal
02f0: 6c 20 20 22 5b 22 20 0a 09 09 09 09 09 20 28 73 l "[" ...... (s
0300: 3a 61 20 27 68 72 65 66 20 28 73 3a 6c 69 6e 6b :a 'href (s:link
0310: 2d 74 6f 20 28 63 61 72 20 6d 2d 69 74 65 6d 29 -to (car m-item)
0320: 29 28 63 61 64 72 20 6d 2d 69 74 65 6d 29 29 0a )(cadr m-item)).
0330: 09 09 09 09 09 20 22 5d 22 29 29 29 0a 09 09 20 ..... "]")))...
0340: 20 20 20 20 20 20 68 65 61 64 65 72 3a 6d 65 6e header:men
0350: 75 2d 69 74 65 6d 73 29 0a 09 09 20 20 29 29 29 u-items)... )))
0360: 29 29 3b 3b 20 29 0a ));; ).