(def ww-dir "_site/sndkit")(def webroot (if (ww-server?) "/wiki" "/sndkit"))(def write-tex (if (ww-server?) false true))(def fig-dir "_fig") (defn pgexists? (name)  (var db (ww-db))  (var x       (sqlite3/eval        db (string            "SELECT EXISTS(SELECT key from wiki "            "where key is \""name"\") as doiexist;")))  (= ((x 0) "doiexist") 1)) (defn pglink (link)  (cond    (= link "index")    (string webroot "/")    (pgexists? link)    (string webroot "/" link) "#")) (defn refstr (link &opt name)  (if (nil? name)    (string "[[" (pglink link) "][" link "]]")    (string     "[["     (pglink link)     "]["     name     "]]"))) (defn ref (link &opt name)  (if (nil? name)    (org (string "[[" (pglink link) "][" link "]]"))    (org     (string      "[["      (pglink link)      "]["      name      "]]")))) (defn img [path &opt alt srcset]  (print   (string    "<img src=\""    path "\""    (if-not (nil? alt) (string " alt=\"" alt "\""))    (if-not (nil? srcset)      (string "srcset=\"" srcset "\""))    ">"))) (defn img-link [path link &opt alt]  (print   (string    "<a href=\"" link "\">"    "<img src=\""    path "\""    (if-not (nil? alt) (string " alt=\"" alt "\""))    "></a>"))) (defn html-header  [](print``<!DOCTYPE html><html lang="en"><head> <meta charset="utf-8"><link rel="stylesheet" href="/css/style.css"> </head><body><div id="main">``)) (defn html-footer  []  (print``</div></body></html>``)) (defn marker [id &opt msg]  (default msg "")  (prin (string "<a id=\"" id "\">" msg "</a>"))) (import "keywords")(import "fig")  (defn pngfilepath [name]  (if (ww-server?)    (string "/" fig-dir "/" name ".png")    (string webroot "/" fig-dir "/" name ".png"))) (defn fig (name eqn)  (if write-tex (fig/fig name eqn fig-dir))  (img   (pngfilepath name)   eqn   (string    (pngfilepath name) " 1x,"    (pngfilepath (string name "2x")) " 2x,"))) (defn smallfig (name &opt eqn)  (if write-tex (fig/smallfig name eqn fig-dir))  (img   (pngfilepath name)   eqn))