GNU bug report logs - #62202
[PATCH 0/21] Juliahub import script.

Previous Next

Full log

Message #103 received at 62202 <at> debbugs.gnu.org (full text, mbox):

From: Simon Tournier <zimon.toutoune <at> gmail.com>
To: 62202 <at> debbugs.gnu.org
Cc: Simon Tournier <zimon.toutoune <at> gmail.com>
Subject: [PATCH v2 03/23] DRAFT TODO: guix: import: utils: Fix corner cases
 beautify-descritption.
Date: Mon, 18 Sep 2023 20:03:10 +0200

* guix/import/utils.scm (beautify-descritption): Fix.
---
 guix/import/utils.scm | 10 ++++++++++
 1 file changed, 10 insertions(+)

diff --git a/guix/import/utils.scm b/guix/import/utils.scm
index 189facfcf823..01d9861f279c 100644
--- a/guix/import/utils.scm
+++ b/guix/import/utils.scm
@@ -339,6 +339,16 @@ (define* (beautify-description description #:optional (length 80))
                    ;; Escape single @ to prevent it from being understood as
                    ;; invalid Texinfo syntax.
                    (cut regexp-substitute/global #f "@" <> 'pre "@@" 'post)
+
+                   ;; Remove cut above
+                   ;; (lambda (word)
+                   ;;   (if
+                   ;;    (member word '("@itemize" "@item" "@end" "@quotation"
+                   ;;                   "@enumerate" "@code" "@code{"))
+                   ;;    word
+                   ;;    ((cut regexp-substitute/global
+                   ;;          #f "@" <> 'pre "@@" 'post) word)))))))
+
                    ;; Wrap camelCase or PascalCase words in @code{...}.
                    (lambda (word)
                      (let ((pattern (make-regexp "([A-Z][a-z]+[A-Z]|[a-z]+[A-Z])")))
-- 
2.38.1

Previous Next

GNU bug tracking system
Copyright (C) 1999 Darren O. Benham, 1997,2003 nCipher Corporation Ltd, 1994-97 Ian Jackson.