<% (if (find "iPhone" (env "HTTP_USER_AGENT") 1) (set 'CSSpage "pages/Default_Style_iPhone") (find "iPad" (env "HTTP_USER_AGENT") 1) (set 'CSSpage "pages/Default_Style_iPad") true (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) %> <% (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 (= page-name "Home") (println [text] [/text])) (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 has-menu (begin (println {
}) (if (file? (append "pages/" page-name)) (if is-protected (print {Edit protected | }) (print {Edit | }))) (println {
}) (println {Home | } {Index | } {Files | } {Changes | } {References}) (println {
}) (println {
}))) %>
<% (print copyright) %> Site powered by newLISP wiki v4.6