From 60790b4368518134a14166fcad535f96d05c7765 Mon Sep 17 00:00:00 2001
From: defanor <defanor@uberspace.net>
Date: Sat, 28 Oct 2017 07:59:31 +0300
Subject: Change fragment link colors

So that they are distinguishable from active links.
---
 Pancake.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'Pancake.hs')

diff --git a/Pancake.hs b/Pancake.hs
index 000279f..9357fa8 100644
--- a/Pancake.hs
+++ b/Pancake.hs
@@ -299,7 +299,7 @@ readInline (P.Link _ alt (url, title)) =
       case uri of
         -- fragment links are mostly useless here, at least for now.
         -- but still marking them as links, to avoid confusion.
-        (URI "" Nothing "" "" _) -> pure $ map (Fg Blue) t
+        (URI "" Nothing "" "" _) -> pure $ map (Fg Magenta) t
         _ -> storeLink uri >>=
              \cnt -> pure $ map (Fg Cyan) t ++
                      [Fg Blue (mconcat ["[", fromString $ show cnt, "]"])]
-- 
cgit v1.2.3