From a96c272a0bc29eb37a67c2ca5ef2ca7465d114aa Mon Sep 17 00:00:00 2001
From: Ludovic Courtès
Date: Sat, 13 Dec 2008 19:13:38 +0100
Subject: info: Add space markups and `tt'.

* src/guile/skribilo/engine/info.scm (~, breakable-space): New.
  (%ornaments): Add `tt'.
---
 src/guile/skribilo/engine/info.scm | 14 ++++++++++++++
 1 file changed, 14 insertions(+)

(limited to 'src')

diff --git a/src/guile/skribilo/engine/info.scm b/src/guile/skribilo/engine/info.scm
index 8647db3..ef2d448 100644
--- a/src/guile/skribilo/engine/info.scm
+++ b/src/guile/skribilo/engine/info.scm
@@ -340,6 +340,19 @@
                                   (lambda ()
                                     (output (markup-body n) e))))))
 
+;*---------------------------------------------------------------------*/
+;*    ~ ...                                                           */
+;*---------------------------------------------------------------------*/
+(markup-writer '~
+  ;; FIXME: This isn't actually breakable.
+  :action (lambda (n e) (output-justified " ")))
+
+;*---------------------------------------------------------------------*/
+;*    breakable-space ...                                              */
+;*---------------------------------------------------------------------*/
+(markup-writer 'breakable-space
+  :action (lambda (n e) (output-justified " ")))
+
 ;*---------------------------------------------------------------------*/
 ;*    *ornaments* ...                                                  */
 ;*---------------------------------------------------------------------*/
@@ -353,6 +366,7 @@
      (sup       "^" "")
      (sub       "_" "")
      (code      "`" "'")
+     (tt        "`" "'")
      (samp      "`" "'")))
 
 ;*---------------------------------------------------------------------*/
-- 
cgit v1.2.3