Color palette theming

5 files changed, 252 insertions, 61 deletions

diff --git a/src/gmdocument.c b/src/gmdocument.c
index e23d5836..a631739f 100644
--- a/src/gmdocument.c
+++ b/src/gmdocument.c
@@ -265,14 +265,14 @@ static void doLayout_GmDocument_(iGmDocument *d) {
         regular_FontId,
     };
     static const int colors[max_GmLineType] = {
-        gray75_ColorId,
-        gray75_ColorId,
-        cyan_ColorId,
-        gray75_ColorId,
-        white_ColorId,
-        white_ColorId,
-        white_ColorId,
-        white_ColorId,
+        tmParagraph_ColorId,
+        tmParagraph_ColorId,
+        tmPreformatted_ColorId,
+        tmQuote_ColorId,
+        tmHeader1_ColorId,
+        tmHeader2_ColorId,
+        tmHeader3_ColorId,
+        tmLinkText_ColorId,
     };
     static const int indents[max_GmLineType] = {
         5, 10, 5, 10, 0, 0, 0, 5
@@ -363,7 +363,7 @@ static void doLayout_GmDocument_(iGmDocument *d) {
                 banner.visBounds = init_Rect(0, 0, d->size.x, lineHeight_Text(banner_FontId) * 2);
                 banner.font      = banner_FontId;
                 banner.text      = bannerText;
-                banner.color     = gray50_ColorId;
+                banner.color     = tmBannerTitle_ColorId;
                 pushBack_Array(&d->layout, &banner);
                 pos.y += height_Rect(banner.visBounds) + lineHeight_Text(paragraph_FontId);
             }
@@ -419,10 +419,7 @@ static void doLayout_GmDocument_(iGmDocument *d) {
             if (link->flags & remote_GmLinkFlag) {
                 run.visBounds.pos.x -= gap_Text / 2;
             }
-            run.color = linkColor_GmDocument(d, run.linkId);
-            if (link->flags & visited_GmLinkFlag) {
-                run.color--; /* darker */
-            }
+            run.color = linkColor_GmDocument(d, run.linkId, icon_GmLinkPart);
             pushBack_Array(&d->layout, &run);
         }
         run.color = colors[type];
@@ -433,7 +430,7 @@ static void doLayout_GmDocument_(iGmDocument *d) {
         int bigCount = 0;
         if (type == text_GmLineType && isFirstText) {
             run.font = firstParagraph_FontId;
-            run.color = white_ColorId;
+            run.color = tmFirstParagraph_ColorId;
             bigCount = 15; /* max lines -- what if the whole document is one paragraph? */
             isFirstText = iFalse;
         }
@@ -549,6 +546,14 @@ void reset_GmDocument(iGmDocument *d) {
     d->themeSeed = 0;
 }
 
+static float fixHue_(float hue) {
+    if (hue > 260 && hue < 330) {
+        if (hue < 295) return hue - 90;
+        return hue + 90;
+    }
+    return hue;
+}
+
 void setThemeSeed_GmDocument(iGmDocument *d, const iBlock *seed) {
     static const iChar siteIcons[] = {
         0x25ed,  0x2600,  0x2601,  0x2604,  0x2605,  0x2606,  0x265c,  0x265e,  0x2690,
@@ -560,14 +565,106 @@ void setThemeSeed_GmDocument(iGmDocument *d, const iBlock *seed) {
     };
     d->themeSeed = 0;
     d->siteIcon  = 0;
+    /* Default colors. */ {
+        const iHSLColor base = { 0, 0, 0.15f, 1.0f };
+        setHsl_Color(tmBackground_ColorId, base);
+    }
     if (seed && !isEmpty_Block(seed)) {
         d->themeSeed = crc32_Block(seed);
         d->siteIcon  = siteIcons[(d->themeSeed >> 7) % iElemCount(siteIcons)];
+        /* Set up colors. */ {
+            static const float hues[] = {
+                0, 60, 90, 100, 180, 210, 230, 260, 330
+            };
+            const iBool isDesaturated   = iFalse;
+            const iBool isLowSaturated  = iFalse;
+            const iBool isLightMode     = iFalse;
+            const iBool isBannerLighter = (d->themeSeed & 0x4000) != 0;
+            iHSLColor   base            = { hues[(d->themeSeed & 0xff) % iElemCount(hues)],
+                               0.8f * (d->themeSeed >> 24) / 255.0f,
+                               0.06f + 0.09f * ((d->themeSeed >> 5) & 0x7) / 7.0f,
+                               1.0f };
+            printf("background: %d %f %f\n", (int) base.hue, base.sat, base.lum);
+            setHsl_Color(tmBackground_ColorId, base);
+
+            setHsl_Color(tmBannerBackground_ColorId, addSatLum_HSLColor(base, 0.1f, 0.04f * (isBannerLighter ? 1 : -1)));
+            setHsl_Color(tmBannerTitle_ColorId, setLum_HSLColor(addSatLum_HSLColor(base, 0.1f, 0), 0.55f));
+            setHsl_Color(tmBannerIcon_ColorId, setLum_HSLColor(addSatLum_HSLColor(base, 0.35f, 0), 0.65f));
+
+            const iBool altDir = (d->themeSeed & 0x4) != 0;
+            const float altHue = fixHue_(iWrapf(base.hue + (altDir ? 90 : -90), 0, 360));
+            const float altHue2 = fixHue_(iWrapf(base.hue + (altDir ? -30 : 30), 0, 360));
+            iHSLColor altBase = base;
+            altBase.hue = altHue;
+            const float titleLum = 0.2f * ((d->themeSeed >> 17) & 0x7) / 7.0f;
+            setHsl_Color(tmHeader1_ColorId, setLum_HSLColor(altBase, titleLum + 0.80f));
+            setHsl_Color(tmHeader2_ColorId, setLum_HSLColor(altBase, titleLum + 0.70f));
+            setHsl_Color(tmHeader3_ColorId, setLum_HSLColor(altBase, titleLum + 0.60f));
+
+            setHsl_Color(tmParagraph_ColorId, addSatLum_HSLColor(base, 0.1f, 0.6f));
+            setHsl_Color(tmFirstParagraph_ColorId, addSatLum_HSLColor(base, 0.2f, 0.8f));
+            setHsl_Color(tmPreformatted_ColorId, (iHSLColor){ altHue2, 1.0f, 0.75f, 1.0f });
+            set_Color(tmQuote_ColorId, get_Color(tmPreformatted_ColorId));
+            set_Color(tmInlineContentMetadata_ColorId, get_Color(tmHeader3_ColorId));
+            set_Color(tmBadLink_ColorId, get_Color(red_ColorId));
+
+            set_Color(tmLinkText_ColorId, get_Color(white_ColorId));
+            set_Color(tmLinkIcon_ColorId, get_Color(cyan_ColorId));
+            set_Color(tmLinkTextHover_ColorId, get_Color(cyan_ColorId));
+            set_Color(tmLinkIconVisited_ColorId, get_Color(teal_ColorId));
+            set_Color(tmLinkDomain_ColorId, get_Color(teal_ColorId));
+            set_Color(tmLinkLastVisitDate_ColorId, get_Color(cyan_ColorId));
+
+            set_Color(tmHypertextLinkText_ColorId, get_Color(white_ColorId));
+            set_Color(tmHypertextLinkIcon_ColorId, get_Color(orange_ColorId));
+            set_Color(tmHypertextLinkTextHover_ColorId, get_Color(orange_ColorId));
+            set_Color(tmHypertextLinkIconVisited_ColorId, get_Color(brown_ColorId));
+            set_Color(tmHypertextLinkDomain_ColorId, get_Color(brown_ColorId));
+            set_Color(tmHypertextLinkLastVisitDate_ColorId, get_Color(orange_ColorId));
+
+            set_Color(tmGopherLinkText_ColorId, get_Color(white_ColorId));
+            set_Color(tmGopherLinkIcon_ColorId, get_Color(blue_ColorId));
+            set_Color(tmGopherLinkTextHover_ColorId, get_Color(blue_ColorId));
+            set_Color(tmGopherLinkIconVisited_ColorId, get_Color(magenta_ColorId));
+            set_Color(tmGopherLinkDomain_ColorId, get_Color(magenta_ColorId));
+            set_Color(tmGopherLinkLastVisitDate_ColorId, get_Color(blue_ColorId));
+
+            for (int i = tmFirst_ColorId; i < max_ColorId; i++) {
+                iHSLColor color = hsl_Color(get_Color(i));
+                if (isLightMode) {
+                    color.lum = 1.0f - color.lum;
+                }
+                if (i < tmBadLink_ColorId) { /* Not a link? */
+                    if (isLowSaturated) {
+                        color.sat *= 0.3f;
+                    }
+                    if (isDesaturated) {
+                        color.sat = 0;
+                    }
+                    if (isLightMode) {
+                        /* Darken text. */
+                        if (i == tmParagraph_ColorId || i == tmLinkText_ColorId ||
+                            i == tmHypertextLinkText_ColorId || i == tmGopherLinkText_ColorId) {
+                            color.lum *= 0.5f;
+                        }
+                        else if (i == tmBannerIcon_ColorId) {
+                            color.lum *= 0.75f;
+                        }
+                    }
+                }
+                else if (isLightMode) {
+                    /* Darken links. */
+                    color.lum *= 0.75f;
+                    color.sat = 1.0f;
+                }
+                setHsl_Color(i, color);
+            }
+        }
     }
-    /* Special exceptions. */ {
-        const iRangecc host = urlHost_String(&d->url);
-        if (equalCase_Rangecc(&host, "gemini.circumlunar.space")) {
-            d->siteIcon = 0x264a; /* gemini */
+    /* Special exceptions. */
+    if (seed) {
+        if (equal_CStr(cstr_Block(seed), "gemini.circumlunar.space")) {
+            d->siteIcon = 0x264a; /* gemini symbol */
         }
     }
 }
@@ -787,17 +884,54 @@ uint16_t linkImage_GmDocument(const iGmDocument *d, iGmLinkId linkId) {
     return 0;
 }
 
-enum iColorId linkColor_GmDocument(const iGmDocument *d, iGmLinkId linkId) {
+enum iColorId linkColor_GmDocument(const iGmDocument *d, iGmLinkId linkId, enum iGmLinkPart part) {
     const iGmLink *link = link_GmDocument_(d, linkId);
     if (link) {
-        if ((link->flags & supportedProtocol_GmLinkFlag) == 0) {
-            return red_ColorId;
+        const iBool isBad = (link->flags & supportedProtocol_GmLinkFlag) == 0;
+        if (part == icon_GmLinkPart) {
+            if (isBad) {
+                return tmBadLink_ColorId;
+            }
+            if (link->flags & visited_GmLinkFlag) {
+                return link->flags & http_GmLinkFlag
+                           ? tmHypertextLinkIconVisited_ColorId
+                           : link->flags & gopher_GmLinkFlag ? tmGopherLinkIconVisited_ColorId
+                                                             : tmLinkIconVisited_ColorId;
+            }
+            return link->flags & http_GmLinkFlag
+                       ? tmHypertextLinkIcon_ColorId
+                       : link->flags & gopher_GmLinkFlag ? tmGopherLinkIcon_ColorId
+                                                         : tmLinkIcon_ColorId;
+        }
+        if (part == text_GmLinkPart) {
+            return link->flags & http_GmLinkFlag
+                       ? tmHypertextLinkText_ColorId
+                       : link->flags & gopher_GmLinkFlag ? tmGopherLinkText_ColorId
+                                                         : tmLinkText_ColorId;
+        }
+        if (part == textHover_GmLinkPart) {
+            return link->flags & http_GmLinkFlag
+                       ? tmHypertextLinkTextHover_ColorId
+                       : link->flags & gopher_GmLinkFlag ? tmGopherLinkTextHover_ColorId
+                                                         : tmLinkTextHover_ColorId;
+        }
+        if (part == domain_GmLinkPart) {
+            if (isBad) {
+                return tmBadLink_ColorId;
+            }
+            return link->flags & http_GmLinkFlag
+                       ? tmHypertextLinkDomain_ColorId
+                       : link->flags & gopher_GmLinkFlag ? tmGopherLinkDomain_ColorId
+                                                         : tmLinkDomain_ColorId;
+        }
+        if (part == visited_GmLinkPart) {
+            return link->flags & http_GmLinkFlag
+                       ? tmHypertextLinkLastVisitDate_ColorId
+                       : link->flags & gopher_GmLinkFlag ? tmGopherLinkLastVisitDate_ColorId
+                                                         : tmLinkLastVisitDate_ColorId;
         }
-        return link->flags & http_GmLinkFlag
-                   ? orange_ColorId
-                   : link->flags & gopher_GmLinkFlag ? blue_ColorId : cyan_ColorId;
     }
-    return white_ColorId;
+    return tmLinkText_ColorId;
 }
 
 iBool isMediaLink_GmDocument(const iGmDocument *d, iGmLinkId linkId) {
diff --git a/src/gmdocument.h b/src/gmdocument.h
index b0a7df22..42639357 100644
--- a/src/gmdocument.h
+++ b/src/gmdocument.h
@@ -80,13 +80,21 @@ iInt2   sizeWithoutBanner_GmDocument    (const iGmDocument *);
 iRangecc        findText_GmDocument         (const iGmDocument *, const iString *text, const char *start);
 iRangecc        findTextBefore_GmDocument   (const iGmDocument *, const iString *text, const char *before);
 
+enum iGmLinkPart {
+    icon_GmLinkPart,
+    text_GmLinkPart,
+    textHover_GmLinkPart,
+    domain_GmLinkPart,
+    visited_GmLinkPart,
+};
+
 const iGmRun *  findRun_GmDocument      (const iGmDocument *, iInt2 pos);
 const char *    findLoc_GmDocument      (const iGmDocument *, iInt2 pos);
 const iGmRun *  findRunAtLoc_GmDocument (const iGmDocument *, const char *loc);
 const iString * linkUrl_GmDocument      (const iGmDocument *, iGmLinkId linkId);
 uint16_t        linkImage_GmDocument    (const iGmDocument *, iGmLinkId linkId);
 int             linkFlags_GmDocument    (const iGmDocument *, iGmLinkId linkId);
-enum iColorId   linkColor_GmDocument    (const iGmDocument *, iGmLinkId linkId);
+enum iColorId   linkColor_GmDocument    (const iGmDocument *, iGmLinkId linkId, enum iGmLinkPart part);
 const iTime *   linkTime_GmDocument     (const iGmDocument *, iGmLinkId linkId);
 iBool           isMediaLink_GmDocument  (const iGmDocument *, iGmLinkId linkId);
 const iString * title_GmDocument        (const iGmDocument *);
diff --git a/src/ui/color.c b/src/ui/color.c
index 0402d0fb..a2ff6e27 100644
--- a/src/ui/color.c
+++ b/src/ui/color.c
@@ -100,9 +100,12 @@ static float hueToRgb_(float p, float q, float t) {
     return p;
 }
 
-iColor fromHsl_Color(iHSLColor hsl) {
+iColor rgb_HSLColor(iHSLColor hsl) {
     float r, g, b;
     hsl.hue /= 360.0f;
+    hsl.hue = iWrapf(hsl.hue, 0, 1);
+    hsl.sat = iClamp(hsl.sat, 0.0f, 1.0f);
+    hsl.lum = iClamp(hsl.lum, 0.0f, 1.0f);
     if (hsl.sat < 0.00001f) {
         r = g = b = hsl.lum;
     }
@@ -137,7 +140,23 @@ const char *escape_Color(int color) {
     if (color >= 0 && color < (int) iElemCount(esc)) {
         return esc[color];
     }
-    return white_ColorEscape;
+    return format_CStr("\r%c", color + '0');
+}
+
+iHSLColor setSat_HSLColor(iHSLColor d, float sat) {
+    d.sat = iClamp(sat, 0, 1);
+    return d;
+}
+
+iHSLColor setLum_HSLColor(iHSLColor d, float lum) {
+    d.lum = iClamp(lum, 0, 1);
+    return d;
+}
+
+iHSLColor addSatLum_HSLColor(iHSLColor d, float sat, float lum) {
+    d.sat = iClamp(d.sat + sat, 0, 1);
+    d.lum = iClamp(d.lum + lum, 0, 1);
+    return d;
 }
 
 iColor ansi_Color(iRangecc escapeSequence, int fallback) {
diff --git a/src/ui/color.h b/src/ui/color.h
index 11feb63e..c3cacf77 100644
--- a/src/ui/color.h
+++ b/src/ui/color.h
@@ -19,6 +19,7 @@ enum iColorId {
     magenta_ColorId,
     blue_ColorId,
     green_ColorId,
+
     /* content theme colors */
     tmFirst_ColorId,
     tmBackground_ColorId = tmFirst_ColorId,
@@ -29,6 +30,11 @@ enum iColorId {
     tmHeader1_ColorId,
     tmHeader2_ColorId,
     tmHeader3_ColorId,
+    tmBannerBackground_ColorId,
+    tmBannerTitle_ColorId,
+    tmBannerIcon_ColorId,
+    tmInlineContentMetadata_ColorId,
+    tmBadLink_ColorId,
 
     tmLinkIcon_ColorId,
     tmLinkIconVisited_ColorId,
@@ -51,10 +57,6 @@ enum iColorId {
     tmGopherLinkDomain_ColorId,
     tmGopherLinkLastVisitDate_ColorId,
 
-    tmInlineContentMetadata_ColorId,
-    tmBannerBackground_ColorId,
-    tmBannerTitle_ColorId,
-    tmBannerIcon_ColorId,
     max_ColorId
 };
 
@@ -87,11 +89,19 @@ struct Impl_HSLColor {
     float hue, sat, lum, a;
 };
 
+iHSLColor       hsl_Color       (iColor);
+iColor          rgb_HSLColor    (iHSLColor);
+
+iHSLColor       setSat_HSLColor     (iHSLColor, float sat);
+iHSLColor       setLum_HSLColor     (iHSLColor, float lum);
+iHSLColor       addSatLum_HSLColor  (iHSLColor, float sat, float lum);
+
 iColor          get_Color       (int color);
 void            set_Color       (int color, iColor rgba);
 
-iHSLColor       hsl_Color       (iColor rgba);
-iColor          fromHsl_Color   (iHSLColor hsl);
+iLocalDef void setHsl_Color(int color, iHSLColor hsl) {
+    set_Color(color, rgb_HSLColor(hsl));
+}
 
 iColor          ansi_Color      (iRangecc escapeSequence, int fallback);
 const char *    escape_Color    (int color);
diff --git a/src/ui/documentwidget.c b/src/ui/documentwidget.c
index dbcf57eb..48eb482f 100644
--- a/src/ui/documentwidget.c
+++ b/src/ui/documentwidget.c
@@ -841,6 +841,16 @@ static iBool processEvent_DocumentWidget_(iDocumentWidget *d, const SDL_Event *e
                     return iTrue;
                 }
                 break;
+            case SDLK_9: {
+                iBlock *seed = new_Block(64);
+                for (size_t i = 0; i < 64; ++i) {
+                    setByte_Block(seed, i, iRandom(0, 255));
+                }
+                setThemeSeed_GmDocument(d->doc, seed);
+                delete_Block(seed);
+                refresh_Widget(w);
+                break;
+            }
 #if 0
             case '0': {
                 extern int enableHalfPixelGlyphs_Text;
@@ -1013,34 +1023,38 @@ static void drawRun_DrawContext_(void *context, const iGmRun *run) {
          !isEmpty_Rect(run->bounds));
     const iInt2 visPos = add_I2(run->visBounds.pos, origin);
     /* Text markers. */
+    /* TODO: Add themed palette entries */
     fillRange_DrawContext_(d, run, teal_ColorId, d->widget->foundMark, &d->inFoundMark);
     fillRange_DrawContext_(d, run, brown_ColorId, d->widget->selectMark, &d->inSelectMark);
     if (run->linkId && !isEmpty_Rect(run->bounds)) {
-//        const int flags = linkFlags_GmDocument(doc, run->linkId);
-        fg = /*flags & visited_GmLinkFlag ? gray88_ColorId :*/ white_ColorId;
-        if (isHover || linkFlags_GmDocument(doc, run->linkId) & content_GmLinkFlag) {
-            fg = linkColor_GmDocument(doc, run->linkId);
+        fg = linkColor_GmDocument(doc, run->linkId, isHover ? textHover_GmLinkPart : text_GmLinkPart);
+        if (linkFlags_GmDocument(doc, run->linkId) & content_GmLinkFlag) {
+            fg = linkColor_GmDocument(doc, run->linkId, textHover_GmLinkPart); /* link is inactive */
         }
     }
     if (run->flags & siteBanner_GmRunFlag) {
+        /* Draw the site banner. */
         fillRect_Paint(
             &d->paint,
             initCorners_Rect(topLeft_Rect(d->widgetBounds),
                              init_I2(right_Rect(bounds_Widget(constAs_Widget(d->widget))),
                                      visPos.y + height_Rect(run->visBounds))),
-            black_ColorId);
+            tmBannerBackground_ColorId);
         const iChar icon = siteIcon_GmDocument(doc);
         iString bannerText;
         init_String(&bannerText);
-        format_String(&bannerText, "%lc", (int) icon);
-        //appendRange_String(&bannerText, run->text);
-        const iInt2 iconSize = advanceN_Text(banner_FontId, cstr_String(&bannerText), 2);
         iInt2 bpos = add_I2(visPos, init_I2(0, lineHeight_Text(banner_FontId) / 2));
-//        draw_Text(run->font, bpos, fg, "%s", buf);
-//        bpos.x += iconSize.x;
-        drawRange_Text(run->font, bpos, fg, range_String(&bannerText));
-        bpos.x += iconSize.x + 3 * gap_Text;
-        drawRange_Text(run->font, bpos, fg, run->text);
+        if (icon) {
+            format_String(&bannerText, "%lc", (int) icon);
+            const iInt2 iconSize = advanceN_Text(banner_FontId, cstr_String(&bannerText), 2);
+            drawRange_Text(run->font, bpos, tmBannerIcon_ColorId, range_String(&bannerText));
+            bpos.x += iconSize.x + 3 * gap_Text;
+        }
+        drawRange_Text(run->font,
+                       bpos,
+                       tmBannerTitle_ColorId,
+                       isEmpty_String(d->widget->titleUser) ? run->text
+                                                            : range_String(d->widget->titleUser));
         deinit_String(&bannerText);
     }
     else {
@@ -1053,8 +1067,9 @@ static void drawRun_DrawContext_(void *context, const iGmRun *run) {
         const int flags = linkFlags_GmDocument(doc, run->linkId);
         const iRect linkRect = moved_Rect(run->visBounds, origin);
         iMediaRequest *mr = NULL;
+        /* Show inline content. */
         if (flags & content_GmLinkFlag) {
-            fg = linkColor_GmDocument(doc, run->linkId);
+            fg = linkColor_GmDocument(doc, run->linkId, textHover_GmLinkPart);
             if (!isEmpty_Rect(run->bounds)) {
                 iGmImageInfo info;
                 imageInfo_GmDocument(doc, linkImage_GmDocument(doc, run->linkId), &info);
@@ -1064,7 +1079,7 @@ static void drawRun_DrawContext_(void *context, const iGmRun *run) {
                               info.mime, info.size.x, info.size.y, info.numBytes / 1.0e6f);
                 if (findMediaRequest_DocumentWidget_(d->widget, run->linkId)) {
                     appendFormat_String(
-                        &text, "  %s\U0001f7a8", isHover ? white_ColorEscape : "");
+                        &text, "  %s\U0001f7a8", isHover ? escape_Color(tmLinkText_ColorId) : "");
                 }
                 drawAlign_Text(metaFont,
                                add_I2(topRight_Rect(run->bounds), origin),
@@ -1079,7 +1094,7 @@ static void drawRun_DrawContext_(void *context, const iGmRun *run) {
             if (!isFinished_GmRequest(mr->req)) {
                 draw_Text(metaFont,
                           topRight_Rect(linkRect),
-                          linkColor_GmDocument(doc, run->linkId),
+                          tmInlineContentMetadata_ColorId,
                           " \u2014 Fetching\u2026");
             }
         }
@@ -1090,7 +1105,7 @@ static void drawRun_DrawContext_(void *context, const iGmRun *run) {
             iUrl parts;
             init_Url(&parts, url);
             const iString *host = collect_String(newRange_String(parts.host));
-            fg = linkColor_GmDocument(doc, linkId);
+            fg = linkColor_GmDocument(doc, linkId, textHover_GmLinkPart);
             const iBool showHost  = (!isEmpty_String(host) && flags & userFriendly_GmLinkFlag);
             const iBool showImage = (flags & imageFileExtension_GmLinkFlag) != 0;
             const iBool showAudio = (flags & audioFileExtension_GmLinkFlag) != 0;
@@ -1099,20 +1114,25 @@ static void drawRun_DrawContext_(void *context, const iGmRun *run) {
             if (run->flags & endOfLine_GmRunFlag &&
                 (flags & (imageFileExtension_GmLinkFlag | audioFileExtension_GmLinkFlag) ||
                  showHost)) {
-                format_String(&str, " \u2014%s%s%s\r%c%s",
-                              showHost ? " " : "",
-                              showHost ? cstr_String(host) : "",
-                              showHost && (showImage || showAudio) ? " \u2014" : "",
-                              showImage || showAudio ? '0' + fg : ('0' + fg - 1),
-                              showImage ? " View Image \U0001f5bc"
-                                        : showAudio ? " Play Audio \U0001f3b5" : "");
+                format_String(
+                    &str,
+                    " \u2014%s%s%s\r%c%s",
+                    showHost ? " " : "",
+                    showHost ? cstr_String(host) : "",
+                    showHost && (showImage || showAudio) ? " \u2014" : "",
+                    showImage || showAudio
+                        ? '0' + fg
+                        : ('0' + linkColor_GmDocument(doc, run->linkId, domain_GmLinkPart)),
+                    showImage ? " View Image \U0001f5bc"
+                              : showAudio ? " Play Audio \U0001f3b5" : "");
             }
             if (run->flags & endOfLine_GmRunFlag && flags & visited_GmLinkFlag) {
                 iDate date;
                 init_Date(&date, linkTime_GmDocument(doc, run->linkId));
                 appendFormat_String(&str,
                                     " \u2014 %s%s",
-                                    escape_Color(fg),
+                                    escape_Color(linkColor_GmDocument(doc, run->linkId,
+                                                                      visited_GmLinkPart)),
                                     cstr_String(collect_String(format_Date(&date, "%b %d"))));
             }
             if (!isEmpty_String(&str)) {
@@ -1128,7 +1148,7 @@ static void drawRun_DrawContext_(void *context, const iGmRun *run) {
                 }
                 drawAlign_Text(metaFont,
                                init_I2(tx, top_Rect(linkRect)),
-                               fg - 1,
+                               linkColor_GmDocument(doc, run->linkId, domain_GmLinkPart),
                                left_Alignment,
                                "%s",
                                msg);
@@ -1152,7 +1172,7 @@ static void draw_DocumentWidget_(const iDocumentWidget *d) {
         .bounds = documentBounds_DocumentWidget_(d)
     };
     init_Paint(&ctx.paint);
-    fillRect_Paint(&ctx.paint, bounds, black_ColorId);
+    fillRect_Paint(&ctx.paint, bounds, tmBackground_ColorId);
     setClip_Paint(&ctx.paint, bounds);
     render_GmDocument(d->doc, visibleRange_DocumentWidget_(d), drawRun_DrawContext_, &ctx);
     clearClip_Paint(&ctx.paint);