diff options
| author | Ludovic Court`es | 2007-08-29 13:21:41 +0000 |
|---|---|---|
| committer | Ludovic Court`es | 2007-08-29 13:21:41 +0000 |
| commit | a748ab9dc57810b8e2a1ddc776e2c697e2ab3070 (patch) | |
| tree | e82f31f4729c4d41556cd7ed0a575588903f67a3 /src | |
| parent | 3b765c35b128e495991e654c400057112e4b7722 (diff) | |
| parent | 85c61d23a33ba480173bf4bd36a37c8aa743883f (diff) | |
| download | skribilo-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')
| -rw-r--r-- | src/guile/skribilo/engine/base.scm | 7 | ||||
| -rw-r--r-- | src/guile/skribilo/package/base.scm | 5 |
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: */ |