!7

module ShowRandomColor > DynModule {

  RGB color;

  S myGuess, yourName, lastOverwrite;

  bool voiceMode = true; // voice input & output

  transient double maxDiff = 0.25; // max difference to assume it's a similar color

  transient JPanel colorPanel;

  transient JTextField tfYourName;

  transient JButton btnSave;

  transient Pair<S, Double> closestColor;

  transient bool hadBounds;

  enhanceFrame {

    /*onInternalFrameDeactivated(f/JInternalFrame, r {

      dm_hideYesPopupForComponent(btnSave)

    });*/

    if (!hadBounds) {

      growInternalFrameLeft(f, 250); // space to type

      growInternalFrameSouth(f, 150); // space to see the color

    }

    internalFrameTitleMenuItem(f, "Talk!", rThread talk);

  }

  visualize {

    hadBounds = dm_getBounds() != null;

    dm_showTalkingSmiley();

    if (color == null) setField(color := makeRandomColor());

    dm_onTopInput_q(voidfunc(S s) {

      if (!licensed()) ret;

      //if (!dm_isActiveModule(module())) ret with print("not active");

      if (!voiceMode) ret;

      S _lastOverwrite = lastOverwrite;

      setField(lastOverwrite := null);

      JComponent popup = dm_generalMap_get('yesPopup);

      if "no problem|stop listening|thanks" {}

      else if (matchStart_vbar("hi|hello|hey|carol", s)) dm_say("Hello there");

      else if (matchEnd("your question", s)) dm_say("yes?"); // as to your question

      else if (matchStart_vbar("talk|ask", s)) newColor();

      else if (containsPhrase_vbar(s, "colorblind|colour blind")) dm_say("No problem. I'm not judging.");

      else if (containsWord(s, "forget") && containsWord(s, "all") && containsWord_vbar(s, "colors|colours")) {

        // TODO: backup

        dm_callModule(dm_colorNamesModule(), 'deleteAll);

        dm_hideYesPopupForComponent(btnSave);

        setField(yourName := "");

        dm_setTopInput("");

        dm_say("OK, starting over.");

      } else if (containsWord(s, "list") && containsWord_vbar(s, "show|open")) {

        dm_showModule(dm_colorNamesModule());

        dm_say("Here it is");

      } else if (containsWord(s, "reload")) dm_reloadModuleInBackground();

      else if (containsPhrase(s, "how many")) dm_say("You have taught me " + n2(toInt(dm_callModule(dm_colorNamesModule(), 'conceptCount)), "color"));

      else if (match_vbar("accept|except|save|definitely|and if it is|is if it is right|is this|right|enter|submit|send|you got it|close enough|that it is|bingo|confirm|confirming|confirmed|i said yes|it is|surely|is this the man|guess my man|just|sieve|yesterday's", s)

        || matchStart_vbar("yes|yeah|yep|yay|absolutely|correct|you can say that|chore|shore|shorts|sure|is yes|okay|ok|that's correct|you are right|you're right|you're correct|you just said it", s)

        || matchEnd_vbar("that's right|got it|could say that|could say so|that's it|couldn't be anything else", s)) {

        confirm();

      } else if "no|nope|undo|scratch that|scrap that|oops|oopsie" {

        removeFromParent(popup);

        if (_lastOverwrite != null) {

          setField(yourName := _lastOverwrite);

          dm_say(oneOf("oops", "oopsie", "sorry"));

        } else

          dm_say("What is it then?");

      } else if (matchStart_vbar("no idea", s)) {

        dm_say("OK I'll move on.");

        newColor();

      } else if (matchStart_vbar("new|next|another|hit me|again|do it again", dropPrefix_repeat_matchVBar("give me|a", s)))

        newColor();

      else {

        print("Got input: " + s);

        // "that is" is often heard as "what is" or "where is"

        S stuff = "no|actually|maybe|I think|it's|that's|this is|it is|that is|that looks like|I guess|or something|I'd call that|I would call that|I would say|I'd call it|Some call it|Some people call it|is what it is|definitely|of course|well|rather|confirmed|called|that would be called|I say|I said|damn it|what is|make that|a|my friend|buddy|you silly thing|or|just|simply|straight|plain|normal|simple|nothing but|really|good old|plain old|what's|playing|pure|dude|my man|let's|sir|is this|confirmed|confirming|where is|is|because|obviously|there is|say";

        s = dropPrefix_repeat_matchVBar(stuff, s);

        s = dropSuffix_repeat_matchVBar(stuff, s);

        s = replaceWords(s, "blew", "blue", "great", "gray", "grey", "gray", "read", "red");

        print("Simplified to: " + s);

        if (empty(s)) ret;

        if (eqic(s, yourName)) ret with confirm();

        setField(lastOverwrite := yourName);

        setField(yourName := s);

        dm_showYesToAcceptPopupAbove(btnSave);

        if (voiceMode) dm_say(s);

      }

    });

    JComponent theForm = vstackWithSpacing(

      makeBold(fontSize(20, liveValueLabel(mapLiveValue(dm_fieldLiveValue('myGuess), S, func(S s) -> S { "I call this color: " + or2(s, "Uh... no idea") + "." })))),

      westCenterAndEastWithMargin(fontSize(20, jBoldLabel("How do you call this color?")),

        withSideMargin(15, 5, onEnter(tfYourName = focusOnShow(selectAllOnFocus(

          fontSize(20, makeBold(dm_centeredFieldTextField('yourName))))), rThread saveName)),

        btnSave = jBoldButton("SAVE", rThread saveName)),

      withTopMargin(rightAlignedLine(jBoldButton("NEXT ONE PLEASE", rThread newColor))));

    ret onFirstShow(rThread talk,

     centerAndSouthWithMargin(

      northAndCenterWithMargins(

        westAndCenter(dm_fieldCheckBox('voiceMode),

          rightAlignedLine(

            withLabel("Color Code:", jBoldLiveValueLabel(mapLiveValue(func(O color) -> S { "#" + color }, S, dm_fieldLiveValue('color)))),

            jPopDownButton_noText("Choose color...", rThread chooseColor))),

        jCenteredSectionWithFont(sansSerifBold(18), " HERE'S A COLOR FOR YOU ", colorPanel = singleColorPanel(toColor(color)))),

      withBottomMargin(withSideMargin(15, theForm))));

  }

  void newColor enter {

    setColor(makeRandomColor());

  }

  void setColor(RGB color) enter {

    setField(+color);

    closestColor = (Pair) quickImport(dm_callModule(dm_colorNamesModule(), 'getClosestColor, color.getColor()));

    S guess = pairA(closestColor);

    bool closeEnough = guess != null && pairB(closestColor) <= maxDiff;

    if (!closeEnough) guess = null;

    setField(myGuess := or(guess, "no idea"));

    setField(yourName := guess);

    changeSingleColorPanel(colorPanel, color.getColor());

    selectAll(tfYourName);

    if (guess != null) {

      dm_showYesToAcceptPopupAbove(btnSave);

      if (voiceMode)

        dm_say("Is this " + myGuess + oneOf("", " that I see") + "?");

    } else if (voiceMode)

      dm_say("Master! What is the name of this color?");

  }

  void saveName enter {

    setField(yourName := trim(yourName));

    if (empty(yourName)) ret;

    if (eqic(myGuess, yourName))

      dm_infoBoxOrTalk(voiceMode, randomLL(

        "Hey I got this one right.",

        "I'm good!",

        "I'm so good.",

        "I'm so smart.",

        "I'm so smart, don't you think?",

        "Yippieh!"));

    else

      dm_infoBoxOrTalk(voiceMode, quote(yourName) + " confirmed.");

    dm_callModule(dm_colorNamesModule(), 'addColorName, color.getColor(), yourName, "");

    newColor();

  }

  RGB makeRandomColor() { ret randomHSBColor(); }

  void chooseColor enter {

    inputText("Choose a color (RRGGBB)", color.getHexString(), voidfunc(S s) enter {

      setColor(rgbFromHex(s))

    });

  }

  S switchableFields() { ret 'voiceMode; }

  void confirm enter {

    dm_hideYesPopupForComponent(btnSave);

    simulateClick(btnSave);

  }

  void talk { // ask about current color

    setColor(color);

  }

}