!7

set flag DynModule. // for evals

set flag JDA40.

cmodule Gazelle2 > DynDiscordHopper {

  switchable S myName = "Gazelle";

  void init after super {

    dm_vmBus_onMessage_q editedDiscordMessage(voidfunc(Map map) {

      ret if !enabled || !dm_isMe(map.get('module));

      ret if isTrue(map.get('bot));

      S s = getString content(map);

      Message msg = cast map.get('msg);

      long msgID = getLong msgID(map);

      MessageChannel channel = cast map.get('channel);

      long userID = getLong userID(map);

      print("Got edited message: " + s);

      // experimental edited msg handling for evals

      if (startsWith(s, "!")) {

        // postInChannel(channel, "I saw your edit, " + discordAt(userID));

        RecordedAnswer oldAnswer = firstWhere(recordedAnswers, questionMsgID := msgID);

        print("Have " + n2(recordedAnswers, "recorded answer")

          + ", found " + oldAnswer);

        if (oldAnswer != null) {

          recordedAnswers.remove(oldAnswer);

          change();

          pcall {

            print("Deleting my old answer: " + oldAnswer.answerMsgID);

            discord.getTextChannelById(oldAnswer.channelID)

              .deleteMessageById(oldAnswer.answerMsgID).queue();

          }

        }

        S answer = answer(s, map);

        sendReply(map, answer);

      }

    });

  }

  transient new InheritableThreadLocal<Map> msgMap; // while answering

  @Override S answer(S s, Map map) {

    new Matches m;

    temp tempSetTL(msgMap, map);

    long ch = getLong channelID(map);

    long userID = getLong userID(map);

    S sOld = s;    

    s = dropPrefix_trim(atSelf() + " ", s);

    if (sOld != s) print("dropped atSelf >> " + s);

    s = simpleSpaces_javaTok(s);

    if (match("help", s) || match(myName + " help", s)) ret linesLL(

      atSelf() + " source - show sources",

      myName + ", show me X - show an image",

      myName + ", look up X - dictionary lookup",

      "what's your name - say my name",

      "!eval 1+2 - evaluate JavaX code"

    );

    if (eqicOneOf(s, "source", "sources", "source code"))

      ret snippetLink(programID());

    if "what's your name" ret myName;

    if (swic_trim(s, myName + ", show me ", m)) {

      iAmTyping(map);

      S query = m.rest();

      BufferedImage img = quickVisualize(query);

      if (img == null) ret "No image found, sorry!";

      postImage(map, dehttps(uploadToImageServer(img, query)));

      null;

    }

    if (swic_trim(s, myName + ", look up ", m)) {

      if (isSingleWord($1))

        try answer wordNet_pretty($1);

      ret ":cry: I don't know";

    }

    if (ellipsisToDotStarRegexpFindIC("days...year", collapse(s)))

      ret nDays(daysUntilEndOfYear()) + " till end of year";

    S content = s;      

    try {

      if (swicOneOf(content, "!eval ", "!fresh ", "!real-eval", "!safe-eval ") || eqic(content, "!fresh")) {

        O safetyCheck = null;

        bool authed = dm_discord_userCanEval(userID);

        print("Authed " + userID + " => " + authed);

        if (swic_trim(content, "!safe-eval ", m)) {

          content = "!eval " + m.rest();

          authed = false;

        }

        /*if (regexpMatches("![a-z\\-]+\\s+again", content)) {

          GazelleLine last = dm_discord_nextToLastEvalByUser(userID);

          if (last == null) ret "No last eval found";

          content = replaceSuffix("again", afterSpace(last.text), content);

        }*/

        if (!authed)

          safetyCheck = botEval_strictSafetyCheck();

        iAmTyping(map);

        dm_mediumRefreshTranspiler();

        dm_bot_execEvalCmd(voidfunc(S s) {

          if (s != null)

            sendReply(map, shorten(ifEmpty(s, [[""]]), 1000));

        }, content, +safetyCheck);

        null;

      }

    } catch print error {

      postInChannel(ch, exceptionToStringShort(error));

    }

    ret super.answer(s, map);

  }

  // for evals with gazelle_msg()

  Message respondingTo() { ret (Message) get msg(msgMap!); }

  MessageChannel currentChannel() { ret (MessageChannel) get channel(msgMap!); }

  void postImage(S url) {

    postImage(msgMap!, url);

  }

  void postImage(S url, S description) {

    postImage(msgMap!, url, description);

  }

}