!7

// TODO: use central transpiler

set flag bindLiveValueListenerToComponent_debug.

//set flag addMenu_debug.

cmodule2 SFEditor {

  // What are we editing?

  O editing; // File or snippet ID

  S remoteText;

  Int snippetType;

  S savedText;

  int caretPos;

  int fontSize = 16;

  S fontID = /*#1400030*/#1400031;

  S snippetTitle;

  switchable bool alwaysTranspileHere = true;

  transient EditorFrame2 e;

  transient SimpleLiveValue<O> lvEditing;

  transient AutoCompletion autoCompletion;

  transient ReliableSingleThread rstAutoComplete = dm_rst(this, r installAutoComplete);

  transient bool installAutoComplete_first;

  transient Set<S> autoComplete_lastSet;

  transient int autoCompleteRefreshDelay = 1000;

  transient JFastLogView_noWrap transpilationErrorBox;

  transient ReliableSingleThread persistLater = rstWithDelay(10.0, r persistMe);

  transient JButton saveAndTranspileButton;

  !include #1016117 // setAndSave etc.

  bool warnOnDelete() { ret neq(e.getText(), unnull(remoteText)); }

  void reset {

    cleanMeUp();

    autoCompletion = null;

    autoComplete_lastSet = null;

    start();

  }

  void start() swing {

    temp enter();

    installAutoComplete_first = true;

    lvEditing = dm_fieldLiveValue('editing);

    e = new EditorFrame2;

    e._setFont(deriveFont(loadFont(fontID), e._getFont().getSize()));

    e._setFontSize(fontSize);

    main.onChangeAndNow(e.textArea, rstAutoComplete);

    // Register Ctrl+S

    e.textArea.getInputMap().put(ctrlKeyStroke(KeyEvent.VK_S),

      abstractAction("Save", rThread { saveThen(null) }));

    e.setText(savedText);

    load('caretPos);

    setCaretPosition(e.textArea, caretPos);

  }

  visual e.panel;

  enhanceFrame {

    e.prepareFrame(f/JInternalFrame);

    minimalFrameSize(f/JInternalFrame, 400, 400);

    reload();

    makeMenus(f);

    awtCalcEvery(f/JInternalFrame.getRootPane(), 1000, r update);

    onPossiblyInternalFrameDeactivated(f/JInternalFrame.getRootPane(), r fullUpdate);

  }

  void makeMenus(Container f) {

    if (f == null) ret;

    bool wasEmpty = countComponents(getMenuBar(f)) < 2; // Search menu is added somewhere else

    //print("Components in menu: " + getComponents(getMenuBar(f)));

    addMenu(f, "&View",

      "Bigger font", r { e._setFontSize(setAndSave(fontSize := e._getFontSize()+1)) },

      "Smaller font", r { e._setFontSize(setAndSave(fontSize := max(1, e._getFontSize()-1))) },

      "---",

      "Show snippet in browser", rThread showInBrowser);

    addMenu(f, "&New",

      "New text", r newText,

      "New window", rThread { dm_showNewModule(dm_moduleLibID()) });

    addMenu(f, "&Load", "Load snippet...", r {

      selectSnippetID(voidfunc(S snippetID) { _loadSnippet(snippetID) });

    }, "Load file...", r {

      selectFile("File to load", voidfunc(File f) { _loadFile(f) });

    }, "Reload", r-thread { // TODO: single thread

      if (editing != null) {

        reload();

        main setText(e.textArea, remoteText);

      }

    });

    // There is a weird bug that breaks the bindToComponent magic

    LiveValue<S> lvSaveCmd = mapLiveValue(func(O editing) -> S {

      editing instanceof S ? "Save snippet " + editing

        : editing instanceof File ? "Save file " + f2s((File) editing)

        : "{Save}" }, S.class, lvEditing);

    addMenu(f, "&Save",

      lvSaveCmd, rThread { saveThen(null) },

      "Save as snippet...", r saveAsSnippet,

      "Save as file...", r saveAsFile,

      "Rename snippet...", rThread renameTheSnippet);

    addMenu(f, "&Transpile",

      "Save & Quick Transpile", r { transpile(false) },

      "Save & Medium Transpile", r { transpile(true) },

      "---",

      "Show transpilation", r showTranspilation);

    //print("Editing: " + editing);

    addMenu(f, "&Activate",

      eq(snippetType, snippetType_JavaXDesktop()) ? "Run" : null, rThread runIt,

      isString(editing) ? "Load Module" : null, rThread _loadModule,

      isString(editing) ? "Reload Module" : null, rThread _reloadModule,

      haveMuricaPassword() ? "Reload on server" : null, rThread _butterReload,

      haveMuricaPassword() ? "Transpile quick & reload on server" : null, rThread { transpileAndButterReload(false) },

      haveMuricaPassword() ? "Transpile medium & reload on server" : null, rThread { transpileAndButterReload(true) });

    if (wasEmpty) {

      // add horizontal spacer so icons end up on the right

      addToContainer(getMenuBar(f), Box.createHorizontalGlue());

      // Save & medium transpile icon

      addToContainer(getMenuBar(f), 

        jbutton("Save", rThread { saveThen(null) }),

        setToolTip("Save & medium-transpile",

          setBorderPainted(false,

            saveAndTranspileButton = jimagebutton(#1102952, rThread { transpile(true) })))

      );

    }

  }

  void reload {

    if (editing instanceof S) _loadSnippet_noSet((S) editing);

    else if (editing instanceof File) _loadFile_noSet((File) editing);

  }

  void update { update(internalFrameActive(e.panel)); }

  void fullUpdate { update(true); }

  void update(bool full) {

    if (e == null) ret; // e.g. if this instance was made by dm_originalFieldValues

    S text = e.getText();

    int cp = getCaretPosition(e.textArea);

    if (neq(savedText, text)) {

      setAndSave(savedText := text);

      setAndSave(caretPos := cp);

    } else if (cp != caretPos) {

      caretPos = cp;

      persistLater.trigger();

    }

    if (!full) ret;

    S status = remoteText != null && neq(remoteText, text) ? "Changes. " : "";

    Pair<Int, S> p = testBracketHygieneExt(text);

    status += p == null ? "Hygienic" : p.b;

    silentStatus(trim(status));

  }

  void status(S s) { silentStatus(infoBoxAndReturn(s)); }

  void silentStatus(S s) { e.setStatus(s); }

  void saveThen(Runnable next) {

    fS text = dropCarriageReturn(getText());

    if (editing cast S) {

      status("Saving snippet...");

      thread {

        fS page = editSnippet(editing, text);

        remoteText = text; // TODO: check save result

        status("Saved snippet: " + page);

        callF(next);

      }

    } else if (editing cast File) {

      status("Saving file...");

      thread {

        saveTextFile(editing, text);

        remoteText = text;

        status("Saved file");

        callF(next);

      }

    }

  }

  void renameTheSnippet enter {

    if (!editing instanceof S)

      ret with infoBox("Not editing a snippet");

    S snippetID = cast editing;

    inputText("Rename snippet " + snippetID, snippetTitle(snippetID), voidfunc(S name) {

      renameSnippet(snippetID, snippetTitle = name);

      setModuleName("Editing: " + snippetID + " - " + quote(snippetTitle));

    });

  }

  void _butterReload() {

    time { butterReload((S) editing); }

    infoBox("Reloaded in " + lastTiming_format100ms());

  }

  void transpileAndButterReload(bool medium) {

    transpile(medium, onSuccess := r _butterReload);

  }

  void transpile(bool medium, O... _) { saveThen(r { _transpile(medium, _) }); }

  void _transpile(bool medium, O... _) {

    optPar Runnable onSuccess;

    status("Transpiling...");

    //jdisable(btnEleuReload);

    S toTranspile = or(mainTranspilationSnippetFromSrc(getText()), (S) editing);

    S msg = "Transpiling " + toTranspile + "...";

    infoBox(msg);

    thread msg {

      try {

        Pair<Bool, S> p;

        {

          temp tempDisableButton(saveAndTranspileButton);

          p = transpileHereOrOnServer(toTranspile, medium, alwaysHere := alwaysTranspileHere);

        }

        awt {

          if (p.a) {

            status("Transpiled OK!");

            hideWindow(transpilationErrorBox);

            transpilationErrorBox = null;

            callFInNewThread(onSuccess);

          } else {

            S text = htmlDecode(htmlDecode(p.b)); /// XXX

            status("Transpilation error. " + text);

            bool first = transpilationErrorBox == null;

            transpilationErrorBox = maximizeFrame(scrollAllTheWayDown(showText_fast_noWrap(transpilationErrorBox, "Transpilation Error", text)));

            if (first) {

              setFrameIcon(#1101268, transpilationErrorBox);

              addButtonsToWindow(transpilationErrorBox, "Medium transpile", r { _transpile(true) });

            }

          }

        }

      } catch print e {

        status("Transpilation problem. " + e);

      }

      //jenable(btnEleuReload);

    }

  }

  void _loadSnippet(S snippetID) enter {

    _loadSnippet_noSet(snippetID);

    e.textArea.setText(remoteText);

  }

  void _loadSnippet_noSet(S snippetID) {

    remoteText = loadSnippet(snippetID);

    setField(snippetType := getSnippetType(snippetID));

    setAndSave('editing, snippetID);

    setModuleName("Editing: " + snippetID + " - " + quote(snippetTitle = snippetTitle(snippetID)));

    print("_loadSnippet_noSet: Making menus for " + dm_frame() + " of " + className(dm_vis()));

    makeMenus(dm_frame());

  }

  void _loadFile(File f) {

    _loadFile_noSet(f);

    e.textArea.setText(remoteText);

  }

  void _loadFile_noSet(File f) {

    remoteText = loadTextFile(f);

    setField(snippetType := null);

    setAndSave('editing, f);

    setModuleName("Editing: " + f2s(f));

    makeMenus(dm_frame());

  }

  void newText {

    setAndSave(editing := null);

    remoteText = null;

    setField(snippetType := null);

    S lastText = e.getText();

    if (nempty(lastText)) logQuotedWithDate("saved-texts.log", lastText);

    e.setText("");

    setModuleName(programTitle());

  }

  void cleanMeUp {

    update(false);

  }

  void installAutoComplete {

    if (installAutoComplete_first) installAutoComplete_first = false;

    else sleep(autoCompleteRefreshDelay); // don't update too often

    //temp tempMiniLoadingAnim();

    Set<S> set = concatListsToSet(allJavaKeywords(), standardFunctionNames(), deepWords(getText()), deepWords(snippetTitle));

    if (eq(set, autoComplete_lastSet)) ret;

    autoComplete_lastSet = set;

    final new DefaultCompletionProvider provider;

    provider.addCompletions(map(func(S s) -> Completion { new BasicCompletion(provider, s) }, set));

    swing {

      if (autoCompletion == null) {

        (autoCompletion = new AutoCompletion(provider)).install(e.textArea);

        call(autoCompletion, 'setHideOnCompletionProviderChange, false);

      } else

        autoCompletion.setCompletionProvider(provider);

    }

  }

  void newWindow {

    copyFields(this, new SFEditor(), 'fontSize).start();

  }

  void runIt {

    if (editing instanceof S)

      nohupJavax((S) editing);

  }

  void saveAsSnippet {

    JTextField tfTitle = jtextfield(snippetTitle);

    JComboBox cbType = jComboBox_javaxTypes();

    JCheckBox cbPublic = jCheckBox("Public", true);

    renameSubmitButton("Create snippet", showFormTitled("Save as new snippet",

      "Title:", tfTitle,

      "Type:", cbType,

      "", cbPublic,

      r-thread {

        loading {

          int type = parseFirstInt(getSelectedItem(cbType));

          S title = getTextTrim(tfTitle);

          S snippetID = createSnippet(getText(), title, type, isChecked(cbPublic));

          _loadSnippet_noSet(snippetID);

        }

      }));

  }

  void saveAsFile {

    inputFilePath("Save as...", optCast(File, editing), voidfunc(File f) {

      saveTextFile(f, getText());

      _loadFile_noSet(f);

    });

  }

  S getText() { ret e.getText(); }

  void _reloadModule enter {

    dm_reloadAllModulesWithSnippetID((S) editing);

  }

  void _loadModule enter {

    dm_addDynamicModuleDialog2((S) editing);

  }

  S snippetID() { ret optCast S(editing); }

  void showTranspilation enter {

    if (snippetID() == null) ret;

    showText("Transpilation of " + snippetID(),

      getServerTranspiledWithoutLibs(snippetID()));

  }

  void showInBrowser {

    if (snippetID() == null) ret;

    openInBrowser(snippetLink(snippetID()));

  }

  // API

  void setText(S text) enter {

    e.textArea.setText(text);

  }

}