diff options
| author | Ludovic Courtès | 2010-03-08 00:27:57 +0100 |
|---|---|---|
| committer | Ludovic Courtès | 2010-03-08 00:27:57 +0100 |
| commit | 86de6d9453a9d747bddadd20fce67e58c4dbe8c7 (patch) | |
| tree | 44ad52bc21763d13adf5de74d3c50ab92a75fae4 /doc/modules | |
| parent | cb2c1a2e6bef653cf9b7aa003d8fcfe09fc4eca0 (diff) | |
| download | skribilo-86de6d9453a9d747bddadd20fce67e58c4dbe8c7.tar.gz skribilo-86de6d9453a9d747bddadd20fce67e58c4dbe8c7.tar.lz skribilo-86de6d9453a9d747bddadd20fce67e58c4dbe8c7.zip | |
Factorize encoding twiddling in `set-correct-file-encoding!'.
* doc/modules/skribilo/documentation/api.scm (api-search-definition): Call `set-correct-file-encoding!'. * doc/user/src/outline.txt (Author): Remove accent from last name, as a temporary hack. * doc/user/syntax.skb: Call `set-correct-file-encoding!' in the `outline' syntax example. * doc/user/user.skb: Use `(skribilo utils syntax)'. * src/guile/skribilo.scm (skribilo): Replace encoding twiddling with `set-correct-file-encoding!' call. * src/guile/skribilo/evaluator.scm (load-document, include-document): Likewise. * src/guile/skribilo/source.scm (source-read-lines): Call `set-correct-file-encoding!'. (source-read-definition): Likewise. * src/guile/skribilo/utils/syntax.scm (set-correct-file-encoding!): New macro.
Diffstat (limited to 'doc/modules')
| -rw-r--r-- | doc/modules/skribilo/documentation/api.scm | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/doc/modules/skribilo/documentation/api.scm b/doc/modules/skribilo/documentation/api.scm index ab445a4..959211b 100644 --- a/doc/modules/skribilo/documentation/api.scm +++ b/doc/modules/skribilo/documentation/api.scm @@ -28,7 +28,7 @@ :use-module (skribilo output) :use-module (skribilo lib) ;; `define-markup' :use-module (skribilo utils compat) - :use-module (skribilo utils syntax) ;; `skribilo-module-syntax' + :use-module (skribilo utils syntax) :use-module (skribilo package base) :use-module (skribilo documentation manual) @@ -243,6 +243,7 @@ path) (with-input-from-file f (lambda () + (set-correct-file-encoding!) (let loop ((exp (read))) (if (eof-object? exp) (skribe-error 'api-search-definition |