(defn mkpage ()
  #(var db (sqlite3/open "a.db"))
  (var db (ww-db))
  (each page
      (sqlite3/eval
       db
       (string "SELECT key FROM wiki "
               "WHERE key NOT LIKE \"@%\" "
               "ORDER BY key COLLATE NOCASE;"))
    (do
      # handle index page differently
      (if (= (get page "key") "index")
        (org (string "[["
                     (string webroot "/index.html")
                     "][index]]"))
        (ref (get page "key") (get page "key")))
      (org "\n")))
   #(sqlite3/close db)
)