(address . guix-patches@gnu.org)
* website/apps/packages/templates/components.scm
(detailed-package-preview): Add an id attribute and a link to itself
to each package entry headline.
* website/static/packages/css/package-list.css: Add style rules
to show the permalink symbol only when hovering over the
headline.
---
.../apps/packages/templates/components.scm | 8 ++++++--
website/static/packages/css/package-list.css | 19 ++++++++++++++++++-
2 files changed, 24 insertions(+), 3 deletions(-)
Toggle diff (54 lines)
diff --git a/website/apps/packages/templates/components.scm b/website/apps/packages/templates/components.scm
index 96e4296..7352402 100644
--- a/website/apps/packages/templates/components.scm
+++ b/website/apps/packages/templates/components.scm
@@ -41,13 +41,17 @@
`(div
(@ (class "package-preview"))
(h3
- (@ (class "package-name"))
+ (@ (class "package-name") (id ,(package-name package)))
,(package-name package) " " ,(package-version package) " "
,(if (package-issues? package) '(span (@ (class "red-tag")) "") " ")
(span
(@ (class "package-synopsis"))
" — "
- ,(package-synopsis-shtml package)))
+ ,(package-synopsis-shtml package))
+ (a
+ (@ (class "headerlink") (title "Permalink to this package")
+ (href ,(string-append "#" (package-name package))))
+ " ¶"))
(div
(@ (class "package-description"))
diff --git a/website/static/packages/css/package-list.css b/website/static/packages/css/package-list.css
index 10f079b..2e9e352 100644
--- a/website/static/packages/css/package-list.css
+++ b/website/static/packages/css/package-list.css
@@ -40,4 +40,21 @@
display: inline-block;
height: 13px;
width: 22px;
-}
\ No newline at end of file
+}
+
+a.headerlink {
+ visibility: hidden;
+}
+
+h1:hover > a.headerlink,
+h2:hover > a.headerlink,
+h3:hover > a.headerlink,
+h4:hover > a.headerlink,
+h5:hover > a.headerlink,
+h6:hover > a.headerlink,
+dt:hover > a.headerlink,
+caption:hover > a.headerlink,
+p.caption:hover > a.headerlink,
+div.code-block-caption:hover > a.headerlink {
+ visibility: visible;
+}
--
2.21.0