From c1fdef39c43b90d357b1b54098234b88c4c69f9c Mon Sep 17 00:00:00 2001
From: Ludovic Court`es
Date: Wed, 28 Mar 2007 08:02:55 +0000
Subject: `base' package: Introduced `breakable-space'.

* src/guile/skribilo/engine/base.scm (breakable-space): New writer.

* src/guile/skribilo/engine/latex.scm (breakable-space): New writer.

* src/guile/skribilo/engine/lout.scm (breakable-space): New writer.

* src/guile/skribilo/package/base.scm (breakable-space): New markup.

git-archimport-id: lcourtes@laas.fr--2006-libre/skribilo--devo--1.2--patch-33
---
 src/guile/skribilo/engine/base.scm  | 7 +++++++
 src/guile/skribilo/engine/latex.scm | 7 +++++++
 src/guile/skribilo/engine/lout.scm  | 6 ++++++
 src/guile/skribilo/package/base.scm | 5 +++++
 4 files changed, 25 insertions(+)

diff --git a/src/guile/skribilo/engine/base.scm b/src/guile/skribilo/engine/base.scm
index 6973eb2..2085ed6 100644
--- a/src/guile/skribilo/engine/base.scm
+++ b/src/guile/skribilo/engine/base.scm
@@ -184,6 +184,13 @@
 		     (n (list "[" (color :fg "red" (bold msg)) "]")))
 		 (evaluate-document n e))))
 
+;*---------------------------------------------------------------------*/
+;*    breakable-space ...                                              */
+;*---------------------------------------------------------------------*/
+(markup-writer 'breakable-space
+   :before " "
+   :action #f)
+
 ;*---------------------------------------------------------------------*/
 ;*    &the-bibliography ...                                            */
 ;*---------------------------------------------------------------------*/
diff --git a/src/guile/skribilo/engine/latex.scm b/src/guile/skribilo/engine/latex.scm
index 183c822..2d5e4b6 100644
--- a/src/guile/skribilo/engine/latex.scm
+++ b/src/guile/skribilo/engine/latex.scm
@@ -491,6 +491,13 @@
    :before "~"
    :action #f)
 
+;*---------------------------------------------------------------------*/
+;*    breakable-space ...                                              */
+;*---------------------------------------------------------------------*/
+(markup-writer 'breakable-space
+   :before " %\n"
+   :action #f)
+
 ;*---------------------------------------------------------------------*/
 ;*    &latex-table-start                                               */
 ;*---------------------------------------------------------------------*/
diff --git a/src/guile/skribilo/engine/lout.scm b/src/guile/skribilo/engine/lout.scm
index b9b4812..4648217 100644
--- a/src/guile/skribilo/engine/lout.scm
+++ b/src/guile/skribilo/engine/lout.scm
@@ -984,6 +984,12 @@
 ;*---------------------------------------------------------------------*/
 (markup-writer '~ :before "~" :action #f)
 
+;*---------------------------------------------------------------------*/
+;*    breakable-space ...                                              */
+;*---------------------------------------------------------------------*/
+(markup-writer 'breakable-space :before " &1s\n" :action #f)
+
+
 (define (lout-page-orientation orientation)
   ;; Return a string representing the Lout page orientation name for symbol
   ;; `orientation'.
diff --git a/src/guile/skribilo/package/base.scm b/src/guile/skribilo/package/base.scm
index 01e8667..1971ca5 100644
--- a/src/guile/skribilo/package/base.scm
+++ b/src/guile/skribilo/package/base.scm
@@ -300,6 +300,11 @@
      (options (the-options opts :class))
      (body (the-body opts))))
 
+;*---------------------------------------------------------------------*/
+;*    breakable-space ...                                              */
+;*---------------------------------------------------------------------*/
+(define-simple-markup breakable-space)
+
 ;*---------------------------------------------------------------------*/
 ;*    footnote ...                                                     */
 ;*---------------------------------------------------------------------*/
-- 
cgit v1.2.3