From 85c61d23a33ba480173bf4bd36a37c8aa743883f Mon Sep 17 00:00:00 2001 From: Ludovic Court`es Date: Wed, 29 Aug 2007 12:36:22 +0000 Subject: `base' package: Introduced `noabbrev'. * src/guile/skribilo/engine/base.scm (noabbrev): New writer. * src/guile/skribilo/package/base.scm (noabbrev): New markup. git-archimport-id: lcourtes@laas.fr--2006-libre/skribilo--devo--1.2--patch-98 --- src/guile/skribilo/engine/base.scm | 7 +++++++ src/guile/skribilo/package/base.scm | 5 +++++ 2 files changed, 12 insertions(+) diff --git a/src/guile/skribilo/engine/base.scm b/src/guile/skribilo/engine/base.scm index 344146e..63cd9a3 100644 --- a/src/guile/skribilo/engine/base.scm +++ b/src/guile/skribilo/engine/base.scm @@ -193,6 +193,13 @@ :before " " :action #f) +;*---------------------------------------------------------------------*/ +;* noabbrev ... */ +;*---------------------------------------------------------------------*/ +(markup-writer 'noabbrev + :action (lambda (n e) + (output (markup-body n) e))) + ;*---------------------------------------------------------------------*/ ;* bib-ref ... */ ;*---------------------------------------------------------------------*/ diff --git a/src/guile/skribilo/package/base.scm b/src/guile/skribilo/package/base.scm index 9616080..66f1df1 100644 --- a/src/guile/skribilo/package/base.scm +++ b/src/guile/skribilo/package/base.scm @@ -1329,6 +1329,11 @@ (the-options opts) label-proc))))))) +;*---------------------------------------------------------------------*/ +;* noabbrev ... */ +;*---------------------------------------------------------------------*/ +(define-simple-markup noabbrev) + ;*---------------------------------------------------------------------*/ ;* make-index ... */ ;* ------------------------------------------------------------- */ -- cgit v1.2.3