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(+)

(limited to 'src')

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