From 202966db5af27f29894368c58c2f3b33cc9613cc Mon Sep 17 00:00:00 2001
From: Ludovic Courtès
Date: Sat, 1 Dec 2007 18:48:43 +0100
Subject: doc: Fix rendering of keywords.

* doc/modules/skribilo/documentation/manual.scm (write <keyword>): New
  method.
---
 doc/modules/skribilo/documentation/manual.scm | 13 +++++++++++++
 1 file changed, 13 insertions(+)

(limited to 'doc/modules')

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 ...                                                     */
-- 
cgit v1.2.3