[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
01/03: website: packages: Mark GNU packages in the listing.
From: |
Ludovic Courtès |
Subject: |
01/03: website: packages: Mark GNU packages in the listing. |
Date: |
Mon, 28 Aug 2017 18:29:11 -0400 (EDT) |
civodul pushed a commit to branch wip-website-update
in repository guix-artwork.
commit 1fcc70bbb141c5a71fba26b706bc1a5597867193
Author: Ludovic Courtès <address@hidden>
Date: Tue Aug 29 00:09:07 2017 +0200
website: packages: Mark GNU packages in the listing.
* website/apps/packages/templates/components.scm
(detailed-package-preview): Mark
if PACKAGE is a GNU package.
* website/apps/packages/templates/package.scm (package-t): Likewise.
---
website/apps/packages/templates/components.scm | 4 ++++
website/apps/packages/templates/package.scm | 6 +++++-
2 files changed, 9 insertions(+), 1 deletion(-)
diff --git a/website/apps/packages/templates/components.scm
b/website/apps/packages/templates/components.scm
index b02bd7e..5224ba2 100644
--- a/website/apps/packages/templates/components.scm
+++ b/website/apps/packages/templates/components.scm
@@ -13,6 +13,7 @@
#:use-module (apps packages utils)
#:use-module (guix licenses)
#:use-module (guix packages)
+ #:use-module (guix gnu-maintenance)
#:export (detailed-package-preview
issue-count->shtml
lint-issue->shtml
@@ -41,6 +42,9 @@
,(package-synopsis-shtml package)))
(p
(@ (class "package-description"))
+ ,(if (gnu-package? package)
+ '(i "This is a GNU package. ")
+ "")
,(package-description-shtml package))
(ul
diff --git a/website/apps/packages/templates/package.scm
b/website/apps/packages/templates/package.scm
index 178a567..20a5937 100644
--- a/website/apps/packages/templates/package.scm
+++ b/website/apps/packages/templates/package.scm
@@ -11,6 +11,7 @@
#:use-module (apps packages templates components)
#:use-module (apps packages types)
#:use-module (apps packages utils)
+ #:use-module (guix gnu-maintenance)
#:export (package-t))
@@ -46,7 +47,10 @@
(@ (class "synopsis"))
,(package-synopsis-shtml package)))
- (p ,(package-description-shtml package))
+ (p ,(if (gnu-package? package)
+ '(it "This is a GNU package. ")
+ "")
+ ,(package-description-shtml package))
(ul
(@ (class "package-info"))