preview button now that there's more things that can go wrong

docs/changelog.txt

@@ -2,6 +2,8 @@ changelog
 
 -- v
 
+++ Preview before honking.
+
 + Misc UI touchups.
 
 + Read only support for qonks.

honk.go

@@ -946,6 +946,7 @@ func savehonk(w http.ResponseWriter, r *http.Request) {
 		d.Name = name
 		d.Media = media
 		d.URL = url
+		d.Local = true
 		honk.Donks = append(honk.Donks, &d)
 	}
 	herd := herdofemus(honk.Noise)
@@ -963,6 +964,20 @@ func savehonk(w http.ResponseWriter, r *http.Request) {
 	if !honk.Public {
 		whofore = 3
 	}
+	if r.FormValue("preview") == "preview" {
+		honks := []*Honk{ &honk }
+		reverbolate(honks)
+		templinfo := getInfo(r)
+		templinfo["HonkCSRF"] = login.GetCSRF("honkhonk", r)
+		templinfo["Honks"] = honks
+		templinfo["Noise"] = r.FormValue("noise")
+		templinfo["ServerMessage"] = "honk preview"
+		err := readviews.Execute(w, "honkpage.html", templinfo)
+		if err != nil {
+			log.Print(err)
+		}
+		return
+	}
 	res, err := stmtSaveHonk.Exec(userinfo.UserID, what, honk.Honker, xid, rid,
 		dt.Format(dbtimeformat), "", aud, noise, convoy, whofore, "html", honk.Precis, honk.Oonker)
 	if err != nil {

views/honkform.html

@@ -7,9 +7,10 @@ in reply to: <input type="text" name="rid" id="ridinput" value="" autocomplete=o
 <p>
 <label id="donker">attach: <input onchange="updatedonker();" type="file" name="donk"><span></span></label>
 <p>
-<textarea name="noise" id="honknoise"></textarea>
+<textarea name="noise" id="honknoise">{{ .Noise }}</textarea>
 <p>
 <input type="submit" value="it's gonna be honked">
+<input type="submit" name="preview" value="preview">
 </form>
 <script>
 function showhonkform(rid, hname) {
@@ -20,9 +21,6 @@ function showhonkform(rid, hname) {
 	if (rid) {
 		ridinput.value = rid
 		honknoise.value = "@" + hname + " "
-	} else {
-		ridinput.value = ""
-		honknoise.value = ""
 	}
 	document.getElementById("infobox").scrollIntoView()
 }