import { arrayOf } from "lib/Array.cms";

name = InputBox("現在のスタイルの名前を入力してください");
fileName = GetSettingPath() + "Macro\\スタイル：" + name + ".cms";
if (FileExists(fileName)) {
  if (MessageBox(fileName + " は既に存在します。\n上書きしますか？", MB_YESNO)
      == IDNO) {
    return;
  }
}

keys = arrayOf(
    "BgColor",
    "CalcBgColor",
    "CalcErrorBgColor",
    "CalcErrorFgColor",
    "CalcFgColor",
    "CurrentColBgColor",
    "CurrentRowBgColor",
    "DummyBgColor",
    "EvenRowBgColor",
    "FgColor",
    "FixFgColor",
    "FixedColor",
    "FoundBgColor",
    "UrlColor");

script = "SaveIniSetting();\n";
SaveIniSetting();
style = GetIniSetting("Mode", "Style");
script += "SetIniSetting(\"Mode\", \"Style\", \"" + style + "\");\n";
for (key of keys) {
  value = GetIniSetting("Font", key);
  script += "SetIniSetting(\"Font\", \"" + key + "\", " + value + ");\n";
}
script += "LoadIniSetting();";

WriteToFile(script, fileName);
MessageBox(fileName + " に保存しました。");