From 484c9e986fc6f323e30460a88f134da3a4e8a89e Mon Sep 17 00:00:00 2001
From: Simon Huber <huber.simon@protonmail.com>
Date: Wed, 15 Jul 2020 13:23:13 +0200
Subject: [PATCH] Fix #4755 - Indirect colours not shown in palette switcher
 (#4757)

* Fix #4755 - Indirect colours not shown in palette switcher

* Update currpalettepreview.tid

* Update currpalettepreview.tid
---
 core/wiki/currpalettepreview.tid | 35 +++++++++++++++++++++++++++++---
 1 file changed, 32 insertions(+), 3 deletions(-)

diff --git a/core/wiki/currpalettepreview.tid b/core/wiki/currpalettepreview.tid
index b80748737..b5f549666 100644
--- a/core/wiki/currpalettepreview.tid
+++ b/core/wiki/currpalettepreview.tid
@@ -1,11 +1,40 @@
 title: $:/snippets/currpalettepreview
 
+\define resolve-colour(macrocall)
+\import $:/core/macros/utils
+\whitespace trim
+<$wikify name="name" text="""$macrocall$""">
+<<name>>
+</$wikify>
+\end
 \define swatchStyle()
 background-color: $(swatchColour)$;
 \end
+\define swatch-inner()
+<$set name="swatchColour" value={{##$(colourResolved)$}}>
+<$list filter="[<swatchColour>!prefix[<<colour ]!suffix[>>]]" variable="ignore">
+<div class="tc-swatch" style=<<swatchStyle>> title=<<swatchTitle>>/>
+</$list>
+<$list filter="[<swatchColour>prefix[<<colour ]suffix[>>]]" variable="ignore">
+<$wikify name="colourResolved" text="""<$macrocall $name="resolve-colour" macrocall=<<swatchColour>>/>""">
+<<swatch-inner>>
+</$wikify>
+</$list>
+</$set>
+\end
 \define swatch()
-<$set name="swatchColour" value={{##$(colour)$}}
-><div class="tc-swatch" style=<<swatchStyle>> title=<<colour>>/></$set>
+<$set name="swatchColour" value={{##$(colour)$}}>
+<$set name="swatchTitle" value=<<colour>>>
+<$list filter="[<swatchColour>!prefix[<<colour ]!suffix[>>]]" variable="ignore">
+<div class="tc-swatch" style=<<swatchStyle>> title=<<swatchTitle>>/>
+</$list>
+<$list filter="[<swatchColour>prefix[<<colour ]suffix[>>]]" variable="ignore">
+<$wikify name="colourResolved" text="""<$macrocall $name="resolve-colour" macrocall=<<swatchColour>>/>""">
+<<swatch-inner>>
+</$wikify>
+</$list>
+</$set>
+</$set>
 \end
 <div class="tc-swatches-horiz"><$list filter="
 foreground
@@ -15,4 +44,4 @@ primary
 page-background
 tab-background
 tiddler-info-background
-" variable="colour"><<swatch>></$list></div>
\ No newline at end of file
+" variable="colour"><<swatch>></$list></div>