テーマのトグル

概要

テーマをキーボードショートカットなどでトグルできるようになるマクロです。フォーラムでucky様が作成されたものですが、フォーラムだけだと埋没してしまい検索に苦労したので、こちらにも記載させていただきました。

動作環境

Mery Ver 3.7.14 以降で使用できます。

使用方法

あらかじめ [オプション] ダイアログの [表示] カテゴリの [テーマ] で切り替え用１・切り替え用２・切り替え用３というテーマ名で切り替えたいテーマを「名前を付けて保存」してからマクロを実行してください。

切り替えるテーマの数や保存する名前を変更したい場合は switch 文を編集してください。下記は FavoriteTheme1 と FavoriteTheme2 の二つのテーマを切り替える例です。

switch (currentTheme) {
	case "FavoriteTheme1":
		newTheme = "FavoriteTheme2";
		break;
	default:
		newTheme = "FavoriteTheme1";
}

最初から入っているテーマを使用したい場合でも「名前を付けて保存」で別途保存してください。

テーマの仕様変更で追加された項目を反映させたい場合はテーマを保存しなおす必要があります。

変更履歴

• 2025-12-12
  • テーマの項目を INI ファイルから取得するようにした（pizz さんが作成された「テーマの自動変更」マクロのアイデアを参考にさせていただきました）
  • ディレクティブ（#fonticonと#title）を追加
• 2025-05-03
  • Mery 3.7.13 時点の仕様に合わせて項目を追加
• 2024-12-29
  • Mery 3.7.9 時点の仕様に合わせて項目を追加
• 2024-04-09
  • メニュー等から変更した INI ファイルに書き込まれる前の設定が破棄されるのを修正
• 2024-03-03
  • Mery 3.7.0 時点の仕様に合わせて項目を追加
• 2021-06-26
  • 新規作成

ソースコード

#fonticon = "\uE790", #4d82b8, #dddddd
#title = "テーマのトグル"

var currentTheme = editor.ReadSettingString("Themes", "ThemeName", "");
var newTheme;

switch (currentTheme) {
	case "切り替え用１":
		newTheme = "切り替え用２";
		break;
	case "切り替え用２":
		newTheme = "切り替え用３";
		break;
	default:
		newTheme = "切り替え用１";
}

var getItems = function () {
	var iniFullName = editor.FullName.replace(/\.exe$/i, ".ini");
	if (!shell.FileExists(iniFullName)) {
		iniFullName = shell.GetEnv("APPDATA") + "\\Mery" + iniFullName.slice(iniFullName.lastIndexOf("\\"));
	}
	var iniText = shell.Exec("cmd.exe /k", "type \"" + iniFullName + "\"", true).stdOut;
	var sectionStart = iniText.indexOf("\r\n[Theme\\" + newTheme + "]\r\n");
	if (sectionStart === -1) {
		return false;
	}
	var sectionEnd = iniText.indexOf("\r\n\r\n", sectionStart);
	var items = iniText.slice(sectionStart, sectionEnd).split("\r\n").slice(2);
	for (var i = 0; i < items.length; i++) {
		items[i] = items[i].slice(0, items[i].indexOf("="));
	}
	return items;
};

var items = getItems();

if (items) {
	var statusText = Status;
	editor.ExecuteMacro(
		"Status = 'テーマ切り替え中...しばらくお待ちください';" +
		"ShowTip('テーマ切り替え中...しばらくお待ちください', meShowTipPosMouse);",
		meRunText | meMacroAsync
	);
	editor.WriteSettings();

	editor.WriteSettingString("Themes", "ThemeName", newTheme);

	// テーマを「名前を付けて保存」したときに設定ファイルに追加される
	// [Theme\テーマ名] セクションを読んで [Display] セクションの該当する項目を書き換える
	for (var i = 0; i < items.length; i++) {
		editor.WriteSettingString("Display", items[i],
			editor.ReadSettingString("Theme\\" + newTheme, items[i], "")
		);
	}

	editor.ReadSettings();
	Status = statusText;
	ShowTip("", meShowTipHide);
} else {
	Alert(newTheme + " という名前でテーマを保存してください");
}