Artifact
c7463c753e490f417586c801ec94fab49d7ef277:
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 63 6f 6e 74 72 6f 6c 2e 73 header/control.s
0060: 63 6d 0a 0a 3b 3b 20 28 6c 6f 61 64 20 28 73 3a cm..;; (load (s:
0070: 6d 6f 64 65 6c 2d 70 61 74 68 20 22 62 6c 61 68 model-path "blah
0080: 22 29 29 0a 28 64 65 66 69 6e 65 20 68 65 61 64 ")).(define head
0090: 65 72 3a 6d 65 6e 75 2d 69 74 65 6d 73 20 27 28 er:menu-items '(
00a0: 28 22 68 6f 6d 65 22 20 22 48 6f 6d 65 22 29 28 ("home" "Home")(
00b0: 22 6c 65 61 72 6e 22 20 22 4c 65 61 72 6e 22 29 "learn" "Learn")
00c0: 28 22 61 63 74 69 6f 6e 22 20 22 54 61 6b 65 20 ("action" "Take
00d0: 41 63 74 69 6f 6e 22 29 28 22 64 69 73 63 75 73 Action")("discus
00e0: 73 69 6f 6e 22 20 22 44 69 73 63 75 73 73 69 6f sion" "Discussio
00f0: 6e 22 29 0a 09 09 09 20 20 20 20 28 22 70 72 65 n").... ("pre
0100: 66 65 72 65 6e 63 65 73 22 20 22 50 72 65 66 65 ferences" "Prefe
0110: 72 65 6e 63 65 73 22 29 29 29 0a 28 64 65 66 69 rences"))).(defi
0120: 6e 65 20 68 65 61 64 65 72 3a 74 69 74 6c 65 20 ne header:title
0130: 28 6c 65 74 20 28 28 74 20 28 73 3a 67 65 74 2d (let ((t (s:get-
0140: 70 61 72 61 6d 20 27 73 65 63 74 69 6f 6e 29 29 param 'section))
0150: 29 0a 09 09 20 20 20 20 20 20 20 28 69 66 20 74 )... (if t
0160: 20 74 20 22 48 6f 6d 65 22 29 29 29 0a t "Home"))).