From 580a0527ea23a5ee94d36ac74b302ebb22342f9e Mon Sep 17 00:00:00 2001
From: Ludovic Courtès
Date: Sun, 22 Apr 2018 15:13:01 +0200
Subject: doc: In HTML, 'prgm' and 'disp' presentation moved to CSS.

* doc/modules/skribilo/documentation/manual.scm (prgm): Add a case for
HTML.
(disp): Likewise.
* doc/user/skribilo.css (.skribilo-manual-prgm, .skribilo-manual-disp):
New items.
---
 doc/modules/skribilo/documentation/manual.scm | 16 ++++++++++++----
 1 file changed, 12 insertions(+), 4 deletions(-)

(limited to 'doc/modules')

diff --git a/doc/modules/skribilo/documentation/manual.scm b/doc/modules/skribilo/documentation/manual.scm
index 8a86216..93222d5 100644
--- a/doc/modules/skribilo/documentation/manual.scm
+++ b/doc/modules/skribilo/documentation/manual.scm
@@ -1,7 +1,7 @@
 ;;; manual.scm  --  Skribilo manuals and documentation style.
 ;;; -*- coding: iso-8859-1 -*-
 ;;;
-;;; Copyright 2007, 2008, 2009, 2012  Ludovic Courtès <ludo@gnu.org>
+;;; Copyright 2007, 2008, 2009, 2012, 2018  Ludovic Courtès <ludo@gnu.org>
 ;;; Copyright 2003, 2004  Manuel Serrano
 ;;;
 ;;;
@@ -216,9 +216,12 @@
      (resolve (lambda (n e env)
                 ;; Same trick as for `ctrtable': don't center frames (which
                 ;; are actually `@Tbl') in Lout.
-                (if (engine-format? "lout" e)
-                    (! "\n@LP\n@ID @F { $1 }\n@LP\n" pr)
-                    f)))))
+                (cond ((engine-format? "lout" e)
+                       (! "\n@LP\n@ID @F { $1 }\n@LP\n" pr))
+                      ((engine-format? "html" e)
+                       (! "\n<div class=\"skribilo-manual-disp \
+skribilo-manual-prgm\">$1</div>\n" pr))
+                      (else f))))))
 
 ;*---------------------------------------------------------------------*/
 ;*    disp ...                                                         */
@@ -234,6 +237,11 @@
                        (if verb
                            (pre (the-body opts))
                            (the-body opts))))
+                   ((engine-format? "html" e)
+                    (! "\n<div class=\"skribilo-manual-disp\">$1</div>\n"
+                       (if verb
+                           (pre (the-body opts))
+                           (the-body opts))))
                    (else
                     (center
                      (frame :margin 5 :border 0 :width *prgm-width*
-- 
cgit v1.2.3