diff options
| author | Ludovic Courtès | 2007-12-01 18:48:43 +0100 |
|---|---|---|
| committer | Ludovic Courtès | 2007-12-01 18:48:43 +0100 |
| commit | 202966db5af27f29894368c58c2f3b33cc9613cc (patch) | |
| tree | d20166cd74057aada63f5f745607f56cec073d52 | |
| parent | 132a5833a49bc828aaeed58c96b9369e6f1bd88f (diff) | |
| download | skribilo-202966db5af27f29894368c58c2f3b33cc9613cc.tar.gz skribilo-202966db5af27f29894368c58c2f3b33cc9613cc.tar.lz skribilo-202966db5af27f29894368c58c2f3b33cc9613cc.zip | |
doc: Fix rendering of keywords.
* doc/modules/skribilo/documentation/manual.scm (write <keyword>): New
method.
| -rw-r--r-- | doc/modules/skribilo/documentation/manual.scm | 13 |
1 files changed, 13 insertions, 0 deletions
diff --git a/doc/modules/skribilo/documentation/manual.scm b/doc/modules/skribilo/documentation/manual.scm index d4aea0b..beb6cc6 100644 --- a/doc/modules/skribilo/documentation/manual.scm +++ b/doc/modules/skribilo/documentation/manual.scm @@ -35,6 +35,7 @@ :use-module (skribilo source lisp) :use-module (skribilo source xml) + :use-module (oop goops) :use-module (ice-9 optargs)) (fluid-set! current-reader %skribilo-module-reader) @@ -150,6 +151,18 @@ (engine-custom-set! le 'initial-font "Palatino Base 10p")) +;*---------------------------------------------------------------------*/ +;* Keywords should be represented using the right syntax, i.e., */ +;* using the `:KW' style. */ +;*---------------------------------------------------------------------*/ +(define-generic write) +(define-method (write (kw <keyword>) . rest) + (let ((port (if (null? rest) + (current-output-port) + (car rest)))) + (display ":" port) + (display (keyword->symbol kw) port))) + ;*---------------------------------------------------------------------*/ ;* ctrtable ... */ |