Artifact c7463c753e490f417586c801ec94fab49d7ef277:
- File stml2/example/pages/header/control.scm — part of check-in [78408a15fb] at 2019-12-16 22:57:30 on branch v1.70-refactor01 — Added stml2 as compilation unit/module (user: matt, size: 365) [annotate] [blame] [check-ins using] [more...]
;; Copyright 2007-2008, Matthew Welland. Kiatoa.com All rights reserved. ;; ;; header/control.scm ;; (load (s:model-path "blah")) (define header:menu-items '(("home" "Home")("learn" "Learn")("action" "Take Action")("discussion" "Discussion") ("preferences" "Preferences"))) (define header:title (let ((t (s:get-param 'section))) (if t t "Home")))