aboutsummaryrefslogtreecommitdiff
path: root/doc
diff options
context:
space:
mode:
authorLudovic Courtès2007-12-01 18:48:43 +0100
committerLudovic Courtès2007-12-01 18:48:43 +0100
commit202966db5af27f29894368c58c2f3b33cc9613cc (patch)
treed20166cd74057aada63f5f745607f56cec073d52 /doc
parent132a5833a49bc828aaeed58c96b9369e6f1bd88f (diff)
downloadskribilo-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.
Diffstat (limited to 'doc')
-rw-r--r--doc/modules/skribilo/documentation/manual.scm13
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 ... */