01/03: website: packages: Mark GNU packages in the listing.

[Ludovic Courtès]

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"))