aboutsummaryrefslogtreecommitdiff
path: root/doc/modules
diff options
context:
space:
mode:
Diffstat (limited to 'doc/modules')
-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 ... */