<% ;; for comments on global variables used in the newLISP code on ;; this page see the beginning og the index.cgi file ;; (set 'CSSpage "pages/Default_Style") (set 'display-title page-name) (set 'search-title page-name) (replace "_" display-title " ") (replace "_" search-title "%20") (replace "%this%" title page-name) %> <% (print browser-title " - " display-title) %>
<% (print title) %>
<% ;; in Netscape 4 the edit textarea cannot be inside a css block div ;; (if has-content-box (println {
})) (if has-pagename (begin (if (not has-content-box) (println {
})) (println {
} {} display-title {} {
}) (if (not has-content-box) (println {
})))) (println body) (if has-content-box (println {
})) %> <% (if (and has-comments (not is-locked)) (println {
} (comment-dialog page-name) {
})) (if has-postdialog (println {
} (post-dialog) {
})) (if (and (or has-comments has-postdialog) (not is-locked)) (println {
} {
Formatting Help:

} {''italics''   '''bold'''   '''''bold italics'''''
} {[http://asite.com/page Some Text] display a link with text
} (if has-postdialog {[image://asite.com/pic.jpg alt text] display an image or alt text
} {}) {* a line with a bullet
} {Lines starting with a space will not be formatted and displayed monospaced.
} {
} )) %>
<% (if (file? "pages/Bottom_Bar") (println (format-page (read-file "pages/Bottom_Bar")))) %>
<% (if has-menu (begin (println {
}) (if (file? (append "pages/" page-name)) (if is-protected (print {Edit protected | }) (print {Edit | }))) (println {Home | } {Files | } {Index | } {Changes | } {References}) (println {
}))) %>
<% (print copyright) %> page generated by newLISP wiki v4.7