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