[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
01/01: website: packages: Render texinfo as plain text in package previe
From: |
Luis Felipe López Acevedo |
Subject: |
01/01: website: packages: Render texinfo as plain text in package previews. |
Date: |
Fri, 1 Mar 2019 13:19:38 -0500 (EST) |
lfla pushed a commit to branch master
in repository guix-artwork.
commit 23590ffb79f596a983f97e0feea06815f149ac50
Author: sirgazil <address@hidden>
Date: Fri Mar 1 13:14:23 2019 -0500
website: packages: Render texinfo as plain text in package previews.
* website/apps/packages/templates/components.scm (package-preview):
Render texinfo as plain text.
---
website/apps/packages/templates/components.scm | 6 +++++-
1 file changed, 5 insertions(+), 1 deletion(-)
diff --git a/website/apps/packages/templates/components.scm
b/website/apps/packages/templates/components.scm
index 6ab36a5..ca9d6f4 100644
--- a/website/apps/packages/templates/components.scm
+++ b/website/apps/packages/templates/components.scm
@@ -15,6 +15,8 @@
#:use-module (guix packages)
#:use-module (guix gnu-maintenance)
#:use-module (srfi srfi-1)
+ #:use-module (texinfo)
+ #:use-module (texinfo plain-text)
#:export (detailed-package-preview
issue-count->shtml
letter-selector
@@ -176,7 +178,9 @@
(h3 ,(package-name package) " " ,(package-version package))
(p
(@ (class "item-summary"))
- ,(string-summarize (package-description package) 30)
+ ,(string-summarize
+ (stexi->plain-text (texi-fragment->stexi (package-description package)))
+ 30)
"…")))