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