wiki.hml

   1 ml_debug
   2         datastore:wiki
   3         ml:-
   4         html:proj/page/wiki.html
   5 ;;;
   6 (include 'lib-page.ml)
   7 (include 'lib.ml)
   8 (include 'lib-wikifunc.ml)
   9
  10 (input-bool 'Edit)
  11
  12 ($sqlite3 'database
  13         (authorize Proj)
  14         (setvar '(Date Title WikiText) (wiki-page PID Page))
  15         (setvar '(junk junk SideMenuText) (wiki-page PID "special-SideMenu"))
  16         (setvar '(junk junk TopMenuText) (wiki-page PID "special-TopMenu"))
  17 )
  18 (setvar '(yy mm dd) (pad0 '(4 2 2) (to-date Date)))