>From 66ddc73d11fd6b9b5fb77021a04e42086096fc79 Mon Sep 17 00:00:00 2001 From: Mathieu Lirzin Date: Thu, 27 Aug 2015 17:51:11 +0200 Subject: [PATCH] website: packages: Support Texinfo's markup. * website/www/packages.scm (package->sxml): Adapt to new Texinfo's markup in package description. --- website/www/packages.scm | 10 +++++++++- 1 file changed, 9 insertions(+), 1 deletion(-) diff --git a/website/www/packages.scm b/website/www/packages.scm index 09da932..48ed703 100644 --- a/website/www/packages.scm +++ b/website/www/packages.scm @@ -37,6 +37,8 @@ #:use-module (ice-9 i18n) #:use-module (srfi srfi-1) #:use-module (srfi srfi-19) + #:use-module (texinfo) + #:use-module (texinfo html) #:export (packages-page)) (define lookup-gnu-package @@ -170,6 +172,12 @@ decreasing, is 1." (package-transitive-supported-systems package))) " "))) + (define (package-description-shtml package) + "Return a SXML representation of PACKAGE description field with HTML +vocabulary." + (and=> (package-description package) + (lambda (str) (stexi->shtml (texi-fragment->stexi str))))) + (define (package-logo name) (and=> (lookup-gnu-package name) gnu-package-logo)) @@ -203,7 +211,7 @@ description-ids as formal parameters." (class "package-logo") (alt ("Logo of " ,(package-name package)))))) (_ #f)) - (p ,(package-description package)) + (p ,(package-description-shtml package)) ,(license package) (a (@ (href ,(package-home-page package)) (title "Link to the package's website")) -- 2.1.4