From 418a759052bbcc48012e2f99e105df796f1453b3 Mon Sep 17 00:00:00 2001
From: Ludovic Courtès
Date: Sun, 22 Apr 2018 18:50:41 +0200
Subject: doc: In HTML, use CSS for the 'doc-engine' markup.

* doc/modules/skribilo/documentation/api.scm (he): Add 'doc-engine'
writer.
(doc-engine): Add a case for HTML alongside Lout.
* doc/user/skribilo.css (.skribilo-doc-markup, .skribilo-doc-engine)
(.skribilo-api-engine-custom-name)
(.skribilo-api-engine-custom-description)
(.skribilo-api-engine-custom-default): New entities.
---
 doc/modules/skribilo/documentation/api.scm | 30 +++++++++++++++++++++++++++---
 1 file changed, 27 insertions(+), 3 deletions(-)

(limited to 'doc/modules')

diff --git a/doc/modules/skribilo/documentation/api.scm b/doc/modules/skribilo/documentation/api.scm
index 7ac194f..9494591 100644
--- a/doc/modules/skribilo/documentation/api.scm
+++ b/doc/modules/skribilo/documentation/api.scm
@@ -44,7 +44,7 @@
 
 
 ;*---------------------------------------------------------------------*/
-;*    Html configuration                                               */
+;*    HTML configuration                                               */
 ;*---------------------------------------------------------------------*/
 (let* ((he (find-engine 'html))
        (tro (markup-writer-get 'tr he)))
@@ -108,7 +108,30 @@ See also $1</div>"
                                (punctuate see))
                             e))
 
-                  (display "</div>\n")))))
+                  (display "</div>\n"))))
+
+  (markup-writer 'doc-engine he
+    :action (lambda (n e)
+              (let ((customs  (markup-option n 'customs))
+                    (defaults (markup-option n 'defaults)))
+
+                (display "\n<div class=\"skribilo-doc-engine\">")
+                (for-each (match-lambda
+                            ((name desc)
+                             (output (! "\
+<div class=\"skribilo-api-engine-custom\"> \
+<span class=\"skribilo-api-engine-custom-name\">$1</span> \
+<span class=\"skribilo-api-engine-custom-description\"> \
+<span class=\"skribilo-api-engine-custom-default\">default: <tt>$2</tt></span> \
+$3</span></div>\n"
+                                        (object->string name)
+                                        (match (assq name defaults)
+                                          ((_ dflt)
+                                           (object->string dflt)))
+                                        desc)
+                                     e)))
+                          customs)
+                (display "\n</div>\n")))))
 
 ;*---------------------------------------------------------------------*/
 ;*    LaTeX configuration                                              */
@@ -808,7 +831,8 @@ def @SkribiloExample named @Title {} right x {
                       ((engine-format? "latex" e)
                        (skribe-warning 3 "'doc-engine' not rendered in LaTeX")
                        #f)
-                      ((engine-format? "lout" e)
+                      ((or (engine-format? "lout" e)
+                           (engine-format? "html" e))
                        (list (map (lambda (c)
                                     (index (symbol->string (car c))
                                            :index idx
-- 
cgit v1.2.3