From 5c8f0ec0ce2f722a76ec680de1b25d6252fe3286 Mon Sep 17 00:00:00 2001
From: jared-w <jaredweakly@gmail.com>
Date: Sun, 16 Aug 2020 11:55:55 -0700
Subject: [PATCH 1/2] Use superscript on folgezettel links to denote connection

---
 neuron/src/lib/Neuron/Web/Query/View.hs | 9 ++++++---
 1 file changed, 6 insertions(+), 3 deletions(-)

diff --git a/neuron/src/lib/Neuron/Web/Query/View.hs b/neuron/src/lib/Neuron/Web/Query/View.hs
index 3b1960771..69dca20f9 100644
--- a/neuron/src/lib/Neuron/Web/Query/View.hs
+++ b/neuron/src/lib/Neuron/Web/Query/View.hs
@@ -121,6 +121,9 @@ renderZettelLink conn (fromMaybe def -> linkView) Zettel {..} = do
             else Just $ "Tags: " <> T.intercalate "; " (unTag <$> zettelTags)
     elAttr "span" ("class" =: "zettel-link" <> withTooltip linkTooltip) $ do
       neuronRouteLink (Some $ Route_Zettel zettelID) mempty $ text zettelTitle
+      case conn of
+        Just Folgezettel -> el "sup" $ do elAttr "span" noSnippet $ text "ᛦ"
+        _ -> pure mempty
   where
     -- Prevent this element from appearing in Google search results
     -- https://developers.google.com/search/reference/robots_meta_tag#data-nosnippet-attr
@@ -192,9 +195,9 @@ zettelLinkCss = do
     C.textDecoration C.none
   "span.zettel-link-container span.extra" ? do
     C.color C.auto
-  "span.zettel-link-container.folgezettel::after" ? do
-    C.paddingLeft $ em 0.3
-    C.content $ C.stringContent "ᛦ"
+  -- "span.zettel-link-container.folgezettel::after" ? do
+  --   C.paddingLeft $ em 0.3
+  --   C.content $ C.stringContent "ᛦ"
   "span.zettel-link-container.raw" ? do
     C.border C.solid (C.px 1) C.red
   "[data-tooltip]:after" ? do

From 424c0c80595c02b6ec81873f8d8ea49de6d5f76b Mon Sep 17 00:00:00 2001
From: jared-w <jaredweakly@gmail.com>
Date: Sun, 16 Aug 2020 12:30:37 -0700
Subject: [PATCH 2/2] encode noSnippet element restriction

---
 neuron/src/lib/Neuron/Web/Query/View.hs | 12 +++++-------
 1 file changed, 5 insertions(+), 7 deletions(-)

diff --git a/neuron/src/lib/Neuron/Web/Query/View.hs b/neuron/src/lib/Neuron/Web/Query/View.hs
index 69dca20f9..0868ae320 100644
--- a/neuron/src/lib/Neuron/Web/Query/View.hs
+++ b/neuron/src/lib/Neuron/Web/Query/View.hs
@@ -110,7 +110,7 @@ renderZettelLink conn (fromMaybe def -> linkView) Zettel {..} = do
       classes :: [Text] = catMaybes $ [Just "zettel-link-container"] <> [connClass, rawClass]
   elClass "span" (T.intercalate " " classes) $ do
     forM_ mextra $ \extra ->
-      elAttr "span" ("class" =: "extra monoFont" <> noSnippet) $ do
+      elNoSnippetSpan ("class" =: "extra monoFont") $ do
         extra
         -- The extra space is so that double clicking on this extra text
         -- doesn't select the title next.
@@ -122,13 +122,14 @@ renderZettelLink conn (fromMaybe def -> linkView) Zettel {..} = do
     elAttr "span" ("class" =: "zettel-link" <> withTooltip linkTooltip) $ do
       neuronRouteLink (Some $ Route_Zettel zettelID) mempty $ text zettelTitle
       case conn of
-        Just Folgezettel -> el "sup" $ do elAttr "span" noSnippet $ text "ᛦ"
+        Just Folgezettel -> elNoSnippetSpan mempty $ do
+          elAttr "sup" ("title" =: "Branching link (folgezettel)") $ text "ᛦ"
         _ -> pure mempty
   where
     -- Prevent this element from appearing in Google search results
     -- https://developers.google.com/search/reference/robots_meta_tag#data-nosnippet-attr
-    noSnippet :: Map Text Text
-    noSnippet = "data-nosnippet" =: ""
+    elNoSnippetSpan :: DomBuilder t m => Map Text Text -> NeuronWebT t m a -> NeuronWebT t m a
+    elNoSnippetSpan attrs = elAttr "span" ("data-nosnippet" =: "" <> attrs)
     withTooltip :: Maybe Text -> Map Text Text
     withTooltip = \case
       Nothing -> mempty
@@ -195,9 +196,6 @@ zettelLinkCss = do
     C.textDecoration C.none
   "span.zettel-link-container span.extra" ? do
     C.color C.auto
-  -- "span.zettel-link-container.folgezettel::after" ? do
-  --   C.paddingLeft $ em 0.3
-  --   C.content $ C.stringContent "ᛦ"
   "span.zettel-link-container.raw" ? do
     C.border C.solid (C.px 1) C.red
   "[data-tooltip]:after" ? do