Stylisation des liens morts

themes/42/assets/css/a.css

@@ -12,4 +12,12 @@
     &:hover {
         color: var(--color-link-affiliated-hover);
     }
+}
+
+.dead {
+    color: var(--color-link-dead);
+
+    &:hover {
+        color: var(--color-link-dead-hover);
+    }
 }

themes/42/layouts/_markup/render-link.html

@@ -3,8 +3,26 @@
 {{- $host := $parsed.Host -}}
 {{- $path := $parsed.Path -}}
 {{- $query := $parsed.RawQuery -}}
-{{- $aff := index site.Data.affiliates.sites $host -}}
+{{- $page := .Page -}}
+{{- $site := $page.Site -}}
+{{- $aff := index $site.Data.affiliates.sites $host -}}
 {{- $isAffiliated := false -}}
+{{- $scratch := $page.Scratch -}}
+{{- $externalCache := $scratch.Get "externalLinksCache" -}}
+{{- if not $externalCache -}}
+  {{- $externalCache = dict -}}
+  {{- if fileExists "tools/cache/external_links.yaml" -}}
+    {{- with readFile "tools/cache/external_links.yaml" -}}
+      {{- $parsedCache := transform.Unmarshal . -}}
+      {{- if $parsedCache -}}
+        {{- $externalCache = $parsedCache -}}
+      {{- end -}}
+    {{- end -}}
+  {{- end -}}
+  {{- $scratch.Set "externalLinksCache" $externalCache -}}
+{{- end -}}
+{{- $cacheEntry := index $externalCache .Destination -}}
+{{- $isDeadLink := and $cacheEntry (eq (index $cacheEntry "manually_killed") true) -}}
 {{- $newURL := .Destination -}}
 {{- if and $isExternal $aff -}}
 {{- $param := $aff.param -}}
@@ -22,7 +40,18 @@
 {{- else if $isExternal -}}
 {{- $titlePrefix = "Lien externe" -}}
 {{- end -}}
+{{- $classes := slice -}}
+{{- if $isExternal -}}
+  {{- $classes = $classes | append "external" -}}
+  {{- if $isAffiliated -}}
+    {{- $classes = $classes | append "affiliated" -}}
+  {{- end -}}
+{{- end -}}
+{{- if $isDeadLink -}}
+  {{- $classes = $classes | append "dead" -}}
+{{- end -}}
 <a href="{{ $newURL }}" title="{{ $titlePrefix }}{{ .Title }}"
-   {{- if $isExternal -}} rel="noreferrer" class="external{{ if $isAffiliated }} affiliated{{ end }}" {{- end -}}>
+   {{- if $isExternal -}} rel="noreferrer"{{- end -}}
+   {{- if gt (len $classes) 0 -}} class="{{ delimit $classes " " }}"{{- end -}}>
     {{- .Text | safeHTML -}}
-</a>
+</a>