!7

static S text;

concept Text {
  S conceptID;
  S text;
  S by;
}

p {
  db();
  indexConceptField(Text, 'conceptID);
  indexConceptField(Text, 'by);
  load("text");
  if (isMainProgram()) serveHttpAndOpenBrowser();
}

synchronized html {
  uri = dropPrefix("/", uri);
  
  if (isPossibleGlobalID(uri)) {
    S id = uri;
    Text t = findConcept(Text, conceptID := id);
    ret t == null ? "Text with ID " + id + " not found" : 
      h3(t.concept)
      + pre(dynamize(t.text))
      + p("by " + t.by);
  }
  
  S newText = params.get("text");
  if (newText != null) {
    text = newText;
    save("text");
  }
  
  S user = cast call(getBot(#1007510), "conceptIDForCookie");
  S msg = "";
  
  if (nempty(params.get("publish"))) {
    Text t = uniq_sync(Text, text := text, by := user);
    cset(t, conceptID := aGlobalID());
    msg = "Published as: " + t.conceptID;
  }
  
  S list = p("Published texts: " + join(", ", collect(list(Text), 'conceptID)));
  
  ret
    (empty(msg) ? "" : p(msg))
    + list
    + p("You are: " + or2(user, "?"))
    + hpostform([[
<style type="text/css" media="screen">
    #editor { 
        width: 600px;
        height: 350px;
    }
</style>
<table><tr><td>
      <div id="editor">#TEXT#</div>
    <script src="http://tinybrain.de:8080/ace-builds/src-noconflict/ace.js" type="text/javascript" charset="utf-8"></script>
    <script src="http://tinybrain.de:8080/ace-builds/src-noconflict/ext-language_tools.js" type="text/javascript" charset="utf-8"></script>
    <script>
        ace.require("ace/ext/language_tools");
        var editor = ace.edit("editor");
        editor.setTheme("ace/theme/ambience");
        //editor.getSession().setMode("ace/mode/lua");
        editor.getSession().setTabSize(2);
        editor.getSession().setUseSoftTabs(true);
        editor.getSession().setUseWrapMode(true);
        document.getElementById('editor').style.fontSize='15px';
        editor.setOptions({
          enableBasicAutocompletion: true
        });
        editor.focus();
    </script>
   <input type="hidden" name="text" value="">
 </td></tr>
 <tr><td>
 <input type="submit" value="Save">
 <br><br>
 <input type="submit" name="publish" value="Publish this text">
 </td></tr></table>
  ]].replace("#TEXT#", htmlencode(text)),
    onSubmit := "if (editor) text.value = editor.getValue(); return true;");
}