[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[bug#62202] [PATCH v3 4/4] import: utils: Rule out texinfo common syntax
From: |
Nicolas Graves |
Subject: |
[bug#62202] [PATCH v3 4/4] import: utils: Rule out texinfo common syntax from @ escape. |
Date: |
Thu, 21 Dec 2023 15:01:03 +0100 |
---
guix/import/utils.scm | 8 +++++++-
1 file changed, 7 insertions(+), 1 deletion(-)
diff --git a/guix/import/utils.scm b/guix/import/utils.scm
index 47254539a1..57e4ec0ce7 100644
--- a/guix/import/utils.scm
+++ b/guix/import/utils.scm
@@ -375,7 +375,13 @@ (define* (beautify-description description #:optional
(length 80))
(cut string-trim-both <> #\')
;; Escape single @ to prevent it from being understood as
;; invalid Texinfo syntax.
- (cut regexp-substitute/global #f "@" <> 'pre "@@" 'post)
+ (lambda (word)
+ (if ; Rule out some valid Texinfo syntax.
+ (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.41.0