From 75f92f70820777036c63f73f77727c07eb489c59 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= Date: Mon, 4 May 2020 17:32:05 +0200 Subject: Add support for future code tag. --- module/util/options.scm | 2 ++ 1 file changed, 2 insertions(+) diff --git a/module/util/options.scm b/module/util/options.scm index 690b9c5a..87390e27 100644 --- a/module/util/options.scm +++ b/module/util/options.scm @@ -57,6 +57,8 @@ "\n\n")] [(b) (string-append (esc 'bold) (string-concatenate (map sxml->ansi-text body)) (esc))] [(i em) (string-append (esc 'italic) (string-concatenate (map sxml->ansi-text body)) (esc))] + ;; NOOP, but for future use. + [(code) (string-concatenate (map sxml->ansi-text body))] [(blockquote) (string-concatenate (map (lambda (line) (sxml->ansi-text `(group (ws (@ (minwidth 4))) ,line (br)))) (flow-text -- cgit v1.2.3