diff options
| author | Ludovic Court`es | 2007-03-28 09:23:47 +0000 |
|---|---|---|
| committer | Ludovic Court`es | 2007-03-28 09:23:47 +0000 |
| commit | d95eb6f5a7d1aba4ed3948071046a910af577896 (patch) | |
| tree | 8f8fbab5621b24c573937e1d52fbfbeab228a5d4 /src/guile | |
| parent | 331dc3ff8e3850f6e9c1a7e1dc69cd19c9e5bb4c (diff) | |
| parent | c1fdef39c43b90d357b1b54098234b88c4c69f9c (diff) | |
| download | skribilo-d95eb6f5a7d1aba4ed3948071046a910af577896.tar.gz skribilo-d95eb6f5a7d1aba4ed3948071046a910af577896.tar.lz skribilo-d95eb6f5a7d1aba4ed3948071046a910af577896.zip | |
`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
Diffstat (limited to 'src/guile')
| -rw-r--r-- | src/guile/skribilo/engine/base.scm | 7 | ||||
| -rw-r--r-- | src/guile/skribilo/engine/latex.scm | 7 | ||||
| -rw-r--r-- | src/guile/skribilo/engine/lout.scm | 6 | ||||
| -rw-r--r-- | src/guile/skribilo/package/base.scm | 5 |
4 files changed, 25 insertions, 0 deletions
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 |