diff options
| author | Ludovic Courtes | 2005-12-04 21:20:44 +0000 |
|---|---|---|
| committer | Ludovic Courtes | 2005-12-04 21:20:44 +0000 |
| commit | 42e397a7d41c5e71e783e0033b5171b933595588 (patch) | |
| tree | ab3b278564578d0ffa0b691481dfa3fd27a1af0d /src/guile/skribilo/engine/latex.scm | |
| parent | 13460dbc76c37ef1257cff2e8e6f59f451148b82 (diff) | |
| download | skribilo-42e397a7d41c5e71e783e0033b5171b933595588.tar.gz skribilo-42e397a7d41c5e71e783e0033b5171b933595588.tar.lz skribilo-42e397a7d41c5e71e783e0033b5171b933595588.zip | |
Added the `~' markup. Added SRFI-62 and SRFI-30 support to the Skribe reader.
* NEWS: Added actual news.
* src/guile/skribilo/skribe/api.scm (~): New markup.
* src/guile/skribilo/engine/html.scm: Added a writer for `~'.
* src/guile/skribilo/engine/latex.scm: Likewise.
* src/guile/skribilo/engine/lout.scm: Likewise.
* src/guile/skribilo/evaluator.scm (skribe-include): Added a `:reader'
argument.
* src/guile/skribilo/reader/skribe.scm (*skribe-reader*): Renamed to
`%skribe-reader'.
(%make-skribe-reader): Moved the sharp reader code to...
(&sharp-reader): ... here. Added support for SRFI-62 and SRFI-30
(Bigloo supports both).
git-archimport-id: lcourtes@laas.fr--2005-mobile/skribilo--devel--1.2--patch-16
Diffstat (limited to 'src/guile/skribilo/engine/latex.scm')
| -rw-r--r-- | src/guile/skribilo/engine/latex.scm | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/guile/skribilo/engine/latex.scm b/src/guile/skribilo/engine/latex.scm index 2a59b4f..90e32cf 100644 --- a/src/guile/skribilo/engine/latex.scm +++ b/src/guile/skribilo/engine/latex.scm @@ -478,9 +478,9 @@ colors)) ;*---------------------------------------------------------------------*/ -;* &~ ... */ +;* ~ ... */ ;*---------------------------------------------------------------------*/ -(markup-writer '&~ +(markup-writer '~ :before "~" :action #f) @@ -1468,7 +1468,7 @@ (if t (begin (output t e) - (output "~" e (markup-writer-get '&~ e)))))) + (output "~" e (markup-writer-get '~ e)))))) :after (lambda (n e) (let* ((c (handle-ast (markup-body n))) (id (markup-ident c))) |