Unified · Split
| @@ -0,0 +1,32 @@ | ||
| 1 | +PORT?=8080 | |
| 2 | + | |
| 3 | +default: update | |
| 4 | + | |
| 5 | +sync: | |
| 6 | + weewiki sync | |
| 7 | + | |
| 8 | +update: | |
| 9 | + $(MAKE) db | |
| 10 | + $(MAKE) sync | |
| 11 | + $(MAKE) dump | |
| 12 | + | |
| 13 | +export: db | |
| 14 | + $(RM) -r _site/wiki | |
| 15 | + mkdir -p _site/wiki | |
| 16 | + weewiki sync | |
| 17 | + weewiki export | |
| 18 | + mv mkdb.janet mkdb.janet.old | |
| 19 | + weewiki dump mkdb.janet | |
| 20 | + | |
| 21 | +db: | |
| 22 | + @sh update_db.sh | |
| 23 | + | |
| 24 | +dump: | |
| 25 | + weewiki dump mkdb.janet | |
| 26 | + | |
| 27 | +transfer: | |
| 28 | + mkdir -p _live/wiki | |
| 29 | + cp -r _site/wiki/* _live/wiki | |
| 30 | + | |
| 31 | +server: | |
| 32 | + weewiki server - $(PORT) | |
| @@ -0,0 +1,25 @@ | ||
| 1 | +# open and clear wiki db | |
| 2 | + | |
| 3 | +(ww-open "a.db") | |
| 4 | +(ww-clear) | |
| 5 | + | |
| 6 | +# unlinked pages | |
| 7 | + | |
| 8 | + | |
| 9 | +# linked pages | |
| 10 | + | |
| 11 | +(ww-add-link "index" "index.org") | |
| 12 | +(ww-add-link "bigverb" "bigverb.org") | |
| 13 | +(ww-add-link "osc" "osc.org") | |
| 14 | +(ww-add-link "dcblocker" "dcblocker.org") | |
| 15 | +(ww-add-link "fmpair" "fmpair.org") | |
| 16 | +(ww-add-link "vardelay" "vardelay.org") | |
| 17 | +(ww-add-link "rline" "rline.org") | |
| 18 | +(ww-add-link "peakeq" "peakeq.org") | |
| 19 | +(ww-add-link "modalres" "modalres.org") | |
| 20 | +(ww-add-link "phasewarp" "phasewarp.org") | |
| 21 | + | |
| 22 | +# sync and close | |
| 23 | + | |
| 24 | +(ww-sync) | |
| 25 | +(ww-close) | |
| @@ -0,0 +1,16 @@ | ||
| 1 | +if [ ! -f a.db ] | |
| 2 | +then | |
| 3 | + echo "No db found. Generating." | |
| 4 | + weewiki janet mkdb.janet | |
| 5 | + exit | |
| 6 | +fi | |
| 7 | + | |
| 8 | +if [ a.db -nt mkdb.janet ] | |
| 9 | +then | |
| 10 | + echo "Nothing needed to be done." | |
| 11 | +else | |
| 12 | + cmp mkdb.janet mkdb.janet.old ||\ | |
| 13 | + weewiki janet mkdb.janet | |
| 14 | + cp mkdb.janet mkdb.janet.old | |
| 15 | + | |
| 16 | +fi | |
| @@ -0,0 +1,82 @@ | ||
| 1 | +(def ww-dir "_site/wiki") | |
| 2 | +(def webroot "/wiki") | |
| 3 | + | |
| 4 | +(defn pgexists? (name) | |
| 5 | + (var db (ww-db)) | |
| 6 | + (var x | |
| 7 | + (sqlite3/eval | |
| 8 | + db (string | |
| 9 | + "SELECT EXISTS(SELECT key from wiki " | |
| 10 | + "where key is \""name"\") as doiexist;"))) | |
| 11 | + (= ((x 0) "doiexist") 1)) | |
| 12 | + | |
| 13 | +(defn pglink (link) | |
| 14 | + (cond | |
| 15 | + (= link "index") | |
| 16 | + (string webroot "/") | |
| 17 | + (pgexists? link) | |
| 18 | + (string webroot "/" link) "#")) | |
| 19 | + | |
| 20 | +(defn refstr (link &opt name) | |
| 21 | + (if (nil? name) | |
| 22 | + (string "[[" (pglink link) "][" link "]]") | |
| 23 | + (string | |
| 24 | + "[[" | |
| 25 | + (pglink link) | |
| 26 | + "][" | |
| 27 | + name | |
| 28 | + "]]"))) | |
| 29 | + | |
| 30 | +(defn ref (link &opt name) | |
| 31 | + (if (nil? name) | |
| 32 | + (org (string "[[" (pglink link) "][" link "]]")) | |
| 33 | + (org | |
| 34 | + (string | |
| 35 | + "[[" | |
| 36 | + (pglink link) | |
| 37 | + "][" | |
| 38 | + name | |
| 39 | + "]]")))) | |
| 40 | + | |
| 41 | +(defn img [path &opt alt] | |
| 42 | ||
| 43 | + (string | |
| 44 | + "<img src=\"" | |
| 45 | + path "\"" | |
| 46 | + (if-not (nil? alt) (string " alt=\"" alt "\"")) | |
| 47 | + ">"))) | |
| 48 | + | |
| 49 | +(defn img-link [path link &opt alt] | |
| 50 | ||
| 51 | + (string | |
| 52 | + "<a href=\"" link "\">" | |
| 53 | + "<img src=\"" | |
| 54 | + path "\"" | |
| 55 | + (if-not (nil? alt) (string " alt=\"" alt "\"")) | |
| 56 | + "></a>"))) | |
| 57 | + | |
| 58 | +(defn html-header | |
| 59 | + [] | |
| 60 | ||
| 61 | +``<!DOCTYPE html> | |
| 62 | +<html lang="en"> | |
| 63 | +<head> | |
| 64 | + | |
| 65 | +<meta charset="utf-8"> | |
| 66 | +<link rel="stylesheet" href="/css/style.css"> | |
| 67 | + | |
| 68 | +</head> | |
| 69 | +<body> | |
| 70 | +<div id="main"> | |
| 71 | +``) | |
| 72 | +) | |
| 73 | + | |
| 74 | +(defn html-footer | |
| 75 | + [] | |
| 76 | ||
| 77 | +`` | |
| 78 | +</div> | |
| 79 | +</body> | |
| 80 | +</html> | |
| 81 | +`` | |
| 82 | +)) | |