`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: skribilo@sv.gnu.org--2006/skribilo--devo--1.2--patch-74

5 files changed, 50 insertions, 0 deletions

diff --git a/ChangeLog b/ChangeLog
index 6d2b452..58432e4 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -2,6 +2,31 @@
 # arch-tag: automatic-ChangeLog--skribilo@sv.gnu.org--2006/skribilo--devo--1.2
 #
 
+2007-03-28 09:23:47 GMT	Ludovic Court`es <ludovic.courtes@laas.fr>	patch-74
+
+    Summary:
+      `base' package: Introduced `breakable-space'.
+    Revision:
+      skribilo--devo--1.2--patch-74
+
+    * 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.
+
+    modified files:
+     ChangeLog src/guile/skribilo/engine/base.scm
+     src/guile/skribilo/engine/latex.scm
+     src/guile/skribilo/engine/lout.scm
+     src/guile/skribilo/package/base.scm
+
+    new patches:
+     lcourtes@laas.fr--2006-libre/skribilo--devo--1.2--patch-33
+
+
 2007-03-28 09:23:01 GMT	Ludovic Court`es <ludovic.courtes@laas.fr>	patch-73
 
     Summary:
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
@@ -185,6 +185,13 @@
 		 (evaluate-document n e))))
 
 ;*---------------------------------------------------------------------*/
+;*    breakable-space ...                                              */
+;*---------------------------------------------------------------------*/
+(markup-writer 'breakable-space
+   :before " "
+   :action #f)
+
+;*---------------------------------------------------------------------*/
 ;*    &the-bibliography ...                                            */
 ;*---------------------------------------------------------------------*/
 (markup-writer '&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
@@ -492,6 +492,13 @@
    :action #f)
 
 ;*---------------------------------------------------------------------*/
+;*    breakable-space ...                                              */
+;*---------------------------------------------------------------------*/
+(markup-writer 'breakable-space
+   :before " %\n"
+   :action #f)
+
+;*---------------------------------------------------------------------*/
 ;*    &latex-table-start                                               */
 ;*---------------------------------------------------------------------*/
 (markup-writer '&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
@@ -301,6 +301,11 @@
      (body (the-body opts))))
 
 ;*---------------------------------------------------------------------*/
+;*    breakable-space ...                                              */
+;*---------------------------------------------------------------------*/
+(define-simple-markup breakable-space)
+
+;*---------------------------------------------------------------------*/
 ;*    footnote ...                                                     */
 ;*---------------------------------------------------------------------*/
 (define-markup (footnote #!rest opts