From 6e4d7aa7f19f79aebe62607824f0dd818ea716f3 Mon Sep 17 00:00:00 2001
From: Jeremy Ruston <jeremy@jermolene.com>
Date: Tue, 4 Feb 2025 21:03:13 +0000
Subject: [PATCH] Give the AutoToggle palette a custom editor

---
 core/language/en-GB/ControlPanel.multids |  2 +-
 core/palettes/AutoToggle.tid             |  5 +----
 core/palettes/AutoToggleEditor.tid       | 28 ++++++++++++++++++++++++
 core/ui/PaletteManager.tid               | 10 +++++++++
 core/wiki/palette.tid                    |  2 +-
 5 files changed, 41 insertions(+), 6 deletions(-)
 create mode 100644 core/palettes/AutoToggleEditor.tid

diff --git a/core/language/en-GB/ControlPanel.multids b/core/language/en-GB/ControlPanel.multids
index b095ffc5f..26314697e 100644
--- a/core/language/en-GB/ControlPanel.multids
+++ b/core/language/en-GB/ControlPanel.multids
@@ -57,7 +57,7 @@ LayoutSwitcher/Caption: Layout
 LoadedModules/Caption: Loaded Modules
 LoadedModules/Hint: These are the currently loaded tiddler modules linked to their source tiddlers. Any italicised modules lack a source tiddler, typically because they were setup during the boot process.
 Palette/Caption: Palette
-Palette/CustomEditor/Prompt: Custom editor for current palette:
+Palette/CustomEditor/Prompt: Custom editor for current palette: <<palette-link>>
 Palette/Editor/Clone/Caption: clone
 Palette/Editor/Clone/Prompt: It is recommended that you clone this shadow palette before editing it
 Palette/Editor/Delete/Hint: delete this entry from the current palette
diff --git a/core/palettes/AutoToggle.tid b/core/palettes/AutoToggle.tid
index 016f7eb99..25a87f828 100644
--- a/core/palettes/AutoToggle.tid
+++ b/core/palettes/AutoToggle.tid
@@ -5,9 +5,6 @@ tags: $:/tags/Palette
 type: application/x-tiddler-dictionary
 color-scheme: [{$:/info/browser/darkmode}match[no]then[light]else[dark]]
 palette-type: classic
-editor: $:/palette-editors/TwentyTwenties
+editor: $:/palette-editors/AutoToggle
 palette-import@light: $:/palettes/FlexokiLight
 palette-import@dark: $:/palettes/FlexokiDark
-
-page-background@light: green
-page-background@dark: red
diff --git a/core/palettes/AutoToggleEditor.tid b/core/palettes/AutoToggleEditor.tid
new file mode 100644
index 000000000..cd97c8c61
--- /dev/null
+++ b/core/palettes/AutoToggleEditor.tid
@@ -0,0 +1,28 @@
+title: $:/palette-editors/AutoToggle
+
+\procedure set-imported-palette(field)
+<$select field=<<field>>>
+	<$list filter="[all[shadows+tiddlers]tag[$:/tags/Palette]sort[name]] :filter[{!!palette-type}!match[]else[classic]match<palette-type>] -[<currentTiddler>]">
+		<option value=<<currentTiddler>>><$view field="name"><$view field="title"/></$view></option>
+	</$list>
+</$select>
+\end set-imported-palette
+
+This palette can be used to automatically switch between two palettes based on the browser's dark mode setting.
+
+<$tiddler tiddler={{$:/palette}}>
+
+Palette type: <$select field="palette-type" default="classic">
+	<option value="classic">Classic</option>
+	<option value="modern">Modern</option>
+</$select>
+
+<$let palette-type={{!!palette-type}}>
+
+Light palette: <<set-imported-palette field:"palette-import@light">>
+
+Dark palette: <<set-imported-palette field:"palette-import@dark">>
+
+</$let>
+
+</$tiddler>
diff --git a/core/ui/PaletteManager.tid b/core/ui/PaletteManager.tid
index 39d3be051..a10c2de64 100644
--- a/core/ui/PaletteManager.tid
+++ b/core/ui/PaletteManager.tid
@@ -2,6 +2,16 @@ title: $:/PaletteManager
 
 \define lingo-base() $:/language/ControlPanel/Palette/
 
+\procedure palette-link()
+<$tiddler tiddler={{$:/palette}}>
+	<$link to={{!!title}}>
+		<$view field="name" format="text">
+			<$view field="title" format="text"/>
+		</$view>
+	</$link>
+</$tiddler>
+\end palette-link
+
 <$transclude $tiddler="$:/snippets/paletteswitcher" thumbnails="yes"/>
 
 {{$:/snippets/palettetests}}
diff --git a/core/wiki/palette.tid b/core/wiki/palette.tid
index afd78912b..6512518a8 100644
--- a/core/wiki/palette.tid
+++ b/core/wiki/palette.tid
@@ -1,3 +1,3 @@
 title: $:/palette
 
-$:/palettes/Vanilla
\ No newline at end of file
+$:/palettes/AutoToggle
\ No newline at end of file