From 8b8c93e2f18d9443c1f70b950e67f88d5fe75e2a Mon Sep 17 00:00:00 2001
From: EuAndreh <eu@euandre.org>
Date: Wed, 22 Mar 2023 17:50:44 -0300
Subject: src/bin/paku: Fix Guix package names in HTML outputs

Follow-up on b62c88aba03eb80ef7df80d6c27696aec6e73c00.
---
 src/bin/paku | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

(limited to 'src')

diff --git a/src/bin/paku b/src/bin/paku
index 1d97f3a..2cbca20 100755
--- a/src/bin/paku
+++ b/src/bin/paku
@@ -529,6 +529,7 @@ sub emit_html() {
 		EOF
 
 	for my $pkg (@{$json->{packages}}) {
+		my $guix_suffix = $pkg->{label} eq 'latest' ? '' : '@' . $pkg->{label} =~ s/-/./gr;
 		my $suffix = $pkg->{label} eq 'latest' ? '' : "-$pkg->{label}";
 		my $apt_suffix = $suffix =~ s/-/=/r;
 		my $ver = $pkg->{label} eq 'latest' ? $pkg->{label} : $pkg->{version};
@@ -550,11 +551,11 @@ sub emit_html() {
 		                to include this channel, you can launch a shell
 		                that includes this package:
 		              </p>
-		              <pre><code>\$ guix shell $pkg->{name}$suffix</code></pre>
+		              <pre><code>\$ guix shell $pkg->{name}$guix_suffix</code></pre>
 		              <p>
 		                Alternatively, you can install it imperatively:
 		              </p>
-		              <pre><code>\$ guix install $pkg->{name}$suffix</code></pre>
+		              <pre><code>\$ guix install $pkg->{name}$guix_suffix</code></pre>
 		            </section>
 		            <section>
 		              <h2>Debian</h2>
-- 
cgit v1.2.3