From 33255a1dca0deeb5fed2966b03dc64658e8535b3 Mon Sep 17 00:00:00 2001
From: Arun Isaac
Date: Sat, 26 Aug 2023 15:17:05 +0100
Subject: html: Remove redundant pair? check on inline CSS.

The inline-css engine custom is either a string or a list. If it is a
string, we coerce it into a singleton list. So, there is no need to
check again that it is a pair.

* src/guile/skribilo/engine/html.scm (&html-header-style): Remove
redundant pair? check on inline CSS.
---
 src/guile/skribilo/engine/html.scm | 42 ++++++++++++++++++--------------------
 1 file changed, 20 insertions(+), 22 deletions(-)

(limited to 'src')

diff --git a/src/guile/skribilo/engine/html.scm b/src/guile/skribilo/engine/html.scm
index 65eb9a9..991050b 100644
--- a/src/guile/skribilo/engine/html.scm
+++ b/src/guile/skribilo/engine/html.scm
@@ -865,28 +865,26 @@ unspecified or #f values are ignored."
 (markup-writer '&html-header-style
    :before " <style type=\"text/css\">\n  <!--\n"
    :action (lambda (node engine)
-	      (let ((icss (let ((ic (engine-custom engine 'inline-css)))
-			     (if (string? ic)
-				 (list ic)
-				 ic))))
-		 (display "  pre { font-family: monospace }\n")
-		 (display "  tt { font-family: monospace }\n")
-		 (display "  code { font-family: monospace }\n")
-		 (display "  p.flushright { text-align: right }\n")
-		 (display "  p.flushleft { text-align: left }\n")
-		 (display "  span.sc { font-variant: small-caps }\n")
-		 (display "  span.sf { font-family: sans-serif }\n")
-		 (display "  span.skribetitle { font-family: sans-serif; font-weight: bolder; font-size: x-large; }\n")
-                 (display "  li.skribilo-toc-item::marker { content: attr(skribilo-toc-item-marker) }\n")
-		 (when (pair? icss)
-		    (for-each (lambda (css)
-                                (display (guard (c (else (skribe-error
-				                          'html-css
-				                          "Can't open CSS file for input"
-				                          css)))
-                                           (call-with-input-file css
-                                             get-string-all))))
-			      icss))))
+	      (display "  pre { font-family: monospace }\n")
+	      (display "  tt { font-family: monospace }\n")
+	      (display "  code { font-family: monospace }\n")
+	      (display "  p.flushright { text-align: right }\n")
+	      (display "  p.flushleft { text-align: left }\n")
+	      (display "  span.sc { font-variant: small-caps }\n")
+	      (display "  span.sf { font-family: sans-serif }\n")
+	      (display "  span.skribetitle { font-family: sans-serif; font-weight: bolder; font-size: x-large; }\n")
+              (display "  li.skribilo-toc-item::marker { content: attr(skribilo-toc-item-marker) }\n")
+	      (for-each (lambda (css)
+                          (display (guard (c (else (skribe-error
+				                    'html-css
+				                    "Can't open CSS file for input"
+				                    css)))
+                                     (call-with-input-file css
+                                       get-string-all))))
+                        (let ((inline-css (engine-custom engine 'inline-css)))
+			  (if (string? inline-css)
+			      (list inline-css)
+			      inline-css))))
    :after "  -->\n </style>\n")
 
 (markup-writer '&html-header-javascript
-- 
cgit v1.2.3