summaryrefslogtreecommitdiff
path: root/src/guile
diff options
context:
space:
mode:
authorLudovic Court`es2007-08-29 13:21:41 +0000
committerLudovic Court`es2007-08-29 13:21:41 +0000
commita748ab9dc57810b8e2a1ddc776e2c697e2ab3070 (patch)
treee82f31f4729c4d41556cd7ed0a575588903f67a3 /src/guile
parent3b765c35b128e495991e654c400057112e4b7722 (diff)
parent85c61d23a33ba480173bf4bd36a37c8aa743883f (diff)
downloadskribilo-a748ab9dc57810b8e2a1ddc776e2c697e2ab3070.tar.gz
skribilo-a748ab9dc57810b8e2a1ddc776e2c697e2ab3070.tar.lz
skribilo-a748ab9dc57810b8e2a1ddc776e2c697e2ab3070.zip
`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: skribilo@sv.gnu.org--2006/skribilo--devo--1.2--patch-156
Diffstat (limited to 'src/guile')
-rw-r--r--src/guile/skribilo/engine/base.scm7
-rw-r--r--src/guile/skribilo/package/base.scm5
2 files changed, 12 insertions, 0 deletions
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
@@ -194,6 +194,13 @@
:action #f)
;*---------------------------------------------------------------------*/
+;* noabbrev ... */
+;*---------------------------------------------------------------------*/
+(markup-writer 'noabbrev
+ :action (lambda (n e)
+ (output (markup-body n) e)))
+
+;*---------------------------------------------------------------------*/
;* bib-ref ... */
;*---------------------------------------------------------------------*/
(markup-writer '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
@@ -1330,6 +1330,11 @@
label-proc)))))))
;*---------------------------------------------------------------------*/
+;* noabbrev ... */
+;*---------------------------------------------------------------------*/
+(define-simple-markup noabbrev)
+
+;*---------------------------------------------------------------------*/
;* make-index ... */
;* ------------------------------------------------------------- */
;* doc: */