summaryrefslogtreecommitdiff
path: root/src/guile
diff options
context:
space:
mode:
Diffstat (limited to 'src/guile')
-rw-r--r--src/guile/skribilo.scm13
-rw-r--r--src/guile/skribilo/ast.scm6
-rw-r--r--src/guile/skribilo/biblio.scm8
-rw-r--r--src/guile/skribilo/condition.scm8
-rw-r--r--src/guile/skribilo/engine/html.scm4
-rw-r--r--src/guile/skribilo/engine/info.scm2
-rw-r--r--src/guile/skribilo/engine/lout.scm10
-rw-r--r--src/guile/skribilo/index.scm2
-rw-r--r--src/guile/skribilo/package/base.scm16
-rw-r--r--src/guile/skribilo/package/jfp.scm4
-rw-r--r--src/guile/skribilo/package/lncs.scm2
-rw-r--r--src/guile/skribilo/package/pie.scm4
-rw-r--r--src/guile/skribilo/package/slide/latex.scm4
-rw-r--r--src/guile/skribilo/package/web-book2.scm2
-rwxr-xr-xsrc/guile/skribilo/reader/rss-2.scm4
-rw-r--r--src/guile/skribilo/source.scm4
-rw-r--r--src/guile/skribilo/utils/compat.scm6
-rw-r--r--src/guile/skribilo/verify.scm6
18 files changed, 53 insertions, 52 deletions
diff --git a/src/guile/skribilo.scm b/src/guile/skribilo.scm
index 33c08fb..463be51 100644
--- a/src/guile/skribilo.scm
+++ b/src/guile/skribilo.scm
@@ -1,6 +1,7 @@
;;; skribilo.scm -- The Skribilo document processor.
;;;
-;;; Copyright 2005, 2006, 2007, 2008, 2009, 2011, 2012, 2013 Ludovic Courtès <ludo@gnu.org>
+;;; Copyright 2005, 2006, 2007, 2008, 2009, 2011, 2012, 2013,
+;;; 2015 Ludovic Courtès <ludo@gnu.org>
;;; Copyright 2003, 2004 Erick Gallesio - I3S-CNRS/ESSI <eg@unice.fr>
;;;
;;;
@@ -67,16 +68,16 @@ Process Skribilo document from file INPUT (or the standard input) using the
specified reader syntax, and produce its output using the specified engine.
"))
(display (_ "
- -R, --reader=READER Use READER to parse the input file, e.g., `skribe'
- (default) or `outline'."))
+ -R, --reader=READER Use READER to parse the input file, e.g., 'skribe'
+ (default) or 'outline'."))
(display (_ "
- -t, --target=ENGINE Use ENGINE as the output engine, e.g., `html'."))
+ -t, --target=ENGINE Use ENGINE as the output engine, e.g., 'html'."))
(display (_ "
-c, --custom=C=VAL Use VAL as the value of ENGINE's custom C."))
(display (_ "
-o, --output=FILE Write output to FILE."))
(display (_ "
- --compat=COMPAT Use COMPAT as the compatibility layer, e.g., `skribe'."))
+ --compat=COMPAT Use COMPAT as the compatibility layer, e.g., 'skribe'."))
(newline)
(display (_ "
-I, --doc-path=DIR Prepend DIR to the document include path."))
@@ -90,7 +91,7 @@ specified reader syntax, and produce its output using the specified engine.
-U, --sui-path=DIR Prepend DIR to the Skribe URL Index (SUI) search path."))
(newline)
(display (_ "
- -b, --base=BASE Strip BASE from all hyperlinks (`html' engine)."))
+ -b, --base=BASE Strip BASE from all hyperlinks ('html' engine)."))
(display (_ "
-e, --eval=EXPR Prepend EXPR to the list of expressions to be
evaluted before the input file is processed."))
diff --git a/src/guile/skribilo/ast.scm b/src/guile/skribilo/ast.scm
index 1b0b47b..853d14d 100644
--- a/src/guile/skribilo/ast.scm
+++ b/src/guile/skribilo/ast.scm
@@ -151,7 +151,7 @@
(option (markup-unknown-option-error:option c)))
(show-location markup)
(format (current-error-port)
- (_ "~a: unknown markup option for `~a'~%")
+ (_ "~a: unknown markup option for '~a'~%")
option markup)))
((markup-already-bound-error? c)
@@ -159,7 +159,7 @@
(ident (markup-already-bound-error:ident c)))
(show-location markup)
(format (current-error-port)
- (_ "`~a' (~a): markup identifier already bound~%")
+ (_ "'~a' (~a): markup identifier already bound~%")
ident
(if (markup? markup)
(markup-markup markup)
@@ -493,7 +493,7 @@
(let ((ident (if (null? ident) (markup-ident node) (car ident))))
(if ident
(let ((handle (hash-get-handle (document-node-table doc) ident)))
- ;;(format (current-error-port) "binding `~a' in `~a'~%" ident node)
+ ;;(format (current-error-port) "binding '~a' in '~a'~%" ident node)
(if (and (pair? handle) (not (eq? (cdr handle) node)))
(raise (condition (&markup-already-bound-error
(ident ident)
diff --git a/src/guile/skribilo/biblio.scm b/src/guile/skribilo/biblio.scm
index 455f58e..b168d8a 100644
--- a/src/guile/skribilo/biblio.scm
+++ b/src/guile/skribilo/biblio.scm
@@ -115,12 +115,12 @@
entry))))
((biblio-template-error? c)
(format (current-error-port)
- (_ "invalid bibliography entry template: `~a', in `~a'~%")
+ (_ "invalid bibliography entry template: '~a', in '~a'~%")
(biblio-template-error:expression c)
(biblio-template-error:template c)))
((biblio-parse-error? c)
(format (current-error-port)
- (_ "invalid bibliography entry s-exp: `~a'~%")
+ (_ "invalid bibliography entry s-exp: '~a'~%")
(biblio-parse-error:sexp c)))
(else
(format (current-error-port)
@@ -183,10 +183,10 @@
'bib
(format #f "duplicated bibliographic entry ~a'.\n" ident)
(if ofrom
- (format #f " using version of `~a'.\n" ofrom)
+ (format #f " using version of '~a'.\n" ofrom)
"")
(if from
- (format #f " ignoring version of `~a'." from)
+ (format #f " ignoring version of '~a'." from)
" ignoring redefinition."))))
diff --git a/src/guile/skribilo/condition.scm b/src/guile/skribilo/condition.scm
index 0b86b76..280f547 100644
--- a/src/guile/skribilo/condition.scm
+++ b/src/guile/skribilo/condition.scm
@@ -129,7 +129,7 @@
(display-backtrace stack (current-error-port)))
(begin
(format (current-error-port) (_ "Call stack trace not available.~%"))
- (format (current-error-port) (_ "Use `GUILE=\"guile --debug\" skribilo ...' for a detailed stack trace.~%"))))))
+ (format (current-error-port) (_ "Use 'GUILE=\"guile --debug\" skribilo ...' for a detailed stack trace.~%"))))))
(define (abort exit-val)
;; Abort the `skribilo' command-line program, returning EXIT-VAL.
@@ -147,21 +147,21 @@
(lambda (c)
(cond ((invalid-argument-error? c)
(format (current-error-port)
- (_ "in `~a': invalid argument: ~S~%")
+ (_ "in '~a': invalid argument: ~S~%")
(invalid-argument-error:proc-name c)
(invalid-argument-error:argument c))
(abort exit-val))
((too-few-arguments-error? c)
(format (current-error-port)
- (_ "in `~a': too few arguments: ~S~%")
+ (_ "in '~a': too few arguments: ~S~%")
(too-few-arguments-error:proc-name c)
(too-few-arguments-error:arguments c))
(abort exit-val))
((file-search-error? c)
(format (current-error-port)
- (_ "~a: not found in path `~S'~%")
+ (_ "~a: not found in path '~S'~%")
(file-error:file-name c)
(file-search-error:path c))
(abort exit-val))
diff --git a/src/guile/skribilo/engine/html.scm b/src/guile/skribilo/engine/html.scm
index 12c068e..3b06ae1 100644
--- a/src/guile/skribilo/engine/html.scm
+++ b/src/guile/skribilo/engine/html.scm
@@ -728,7 +728,7 @@
(id (markup-ident n)))
(unless (string? id)
(skribe-error '&html-generic-header
- (format #f "Illegal identifier `~a'" id)
+ (format #f "Illegal identifier '~a'" id)
n))
;; title
(output (new markup
@@ -1094,7 +1094,7 @@
(f (html-file c e)))
(unless (string? id)
(skribe-error 'toc
- (format #f "illegal identifier `~a'" id)
+ (format #f "illegal identifier '~a'" id)
c))
(display " <tr>")
;; blank columns
diff --git a/src/guile/skribilo/engine/info.scm b/src/guile/skribilo/engine/info.scm
index d92e47f..7cf2fad 100644
--- a/src/guile/skribilo/engine/info.scm
+++ b/src/guile/skribilo/engine/info.scm
@@ -174,7 +174,7 @@
(begin
(skribe-warning/ast 1 section
(format #f
- (_ "Info node title `~A' already used")
+ (_ "Info node title '~A' already used")
title))
(skribe-warning/ast 1 (cdr same-named)
(_ "previous occurrence was here"))
diff --git a/src/guile/skribilo/engine/lout.scm b/src/guile/skribilo/engine/lout.scm
index 1a3467c..cf5bd46 100644
--- a/src/guile/skribilo/engine/lout.scm
+++ b/src/guile/skribilo/engine/lout.scm
@@ -418,12 +418,12 @@
" @PageMark @Tag\n"
"}\n\n"
- "# @SkribiloLeaders is used in `toc'\n"
+ "# @SkribiloLeaders is used in 'toc'\n"
"# (this is mostly copied from the expert's guide)\n"
"def @SkribiloLeaders { "
,leader " |" ,leader-space " @SkribiloLeaders }\n\n"
- "# Embedding an application in PDF (``Launch'' actions)\n"
+ "# Embedding an application in PDF ('Launch' actions)\n"
"# (tested with XPdf 3.1 and Evince 0.4.0)\n"
"def @SkribiloEmbed\n"
" left command\n"
@@ -1033,7 +1033,7 @@
(which (assoc orientation alist)))
(if (not which)
(skribe-error 'lout
- "`page-orientation' should be either `portrait' or `landscape'"
+ "'page-orientation' should be either 'portrait' or 'landscape'"
orientation)
(cdr which))))
@@ -1130,7 +1130,7 @@
((slides) (display "@SysInclude { slides }\n"))
(else (skribe-error
'lout
- "`document-type' should be one of `book', `report', `doc' or `slides'"
+ "'document-type' should be one of 'book', 'report', 'doc' or 'slides'"
doc-type)))
(format #t "# Custom document includes\n~a\n" doc-include))
@@ -1395,7 +1395,7 @@
((slides) (assoc-ref lout-slides-markup-alist skribe-markup))
(else
(skribe-error 'lout
- "`document-type' should be one of `book', `report', `doc' or `slides'"
+ "'document-type' should be one of 'book', 'report', 'doc' or 'slides'"
doc-type)))))
diff --git a/src/guile/skribilo/index.scm b/src/guile/skribilo/index.scm
index 9cdb35e..abdce19 100644
--- a/src/guile/skribilo/index.scm
+++ b/src/guile/skribilo/index.scm
@@ -94,7 +94,7 @@
(location-column loc))
""))
(msg (format
- #f (_ "the-index: char-offset `~A' out of bounds~%")
+ #f (_ "the-index: char-offset '~A' out of bounds~%")
char-offset)))
(raise (condition (&message
(condition-message (string-append loc msg))))))
diff --git a/src/guile/skribilo/package/base.scm b/src/guile/skribilo/package/base.scm
index 64d6b97..3941cd1 100644
--- a/src/guile/skribilo/package/base.scm
+++ b/src/guile/skribilo/package/base.scm
@@ -143,7 +143,7 @@
(let ((body (the-body opts)))
(cond
(section
- (error 'handle "Illegal handle `section' option" section)
+ (error 'handle "Illegal handle 'section' option" section)
(new unresolved
(loc &invocation-location)
(proc (lambda (n e env)
@@ -652,7 +652,7 @@
(if (not (is-markup? r markup))
(skribe-warning 2
for
- (format #f "illegal `~a' element, `~a' expected"
+ (format #f "illegal '~a' element, '~a' expected"
(if (markup? r)
(markup-markup r)
(type-name r))
@@ -813,12 +813,12 @@
((not (memq align '(#f center left right)))
(skribe-error
'tc
- "align should be one of 'left', `center', or `right'"
+ "align should be one of 'left', 'center', or 'right'"
align))
((not (memq valign '(#f top middle center bottom)))
(skribe-error
'tc
- "valign should be one of 'top', `middle', `center', or `bottom'"
+ "valign should be one of 'top', 'middle', 'center', or 'bottom'"
valign))
(else
(new container
@@ -1025,7 +1025,7 @@
((not (string? (car bd)))
(skribe-type-error 'mark "Illegal ident:" (car bd) "string"))
(ident
- (skribe-error 'mark "Illegal `ident:' option" ident))
+ (skribe-error 'mark "Illegal 'ident:' option" ident))
(else
(let* ((bs (ast->string bd))
(n (new markup
@@ -1067,7 +1067,7 @@
(page #f)
(sort-bib-refs bib-sort-refs/number))
(define (unref text kind)
- (let ((msg (format #f "can't find `~a': " kind)))
+ (let ((msg (format #f "can't find '~a': " kind)))
(warning/loc 1 &invocation-location 'ref msg text)
(new markup
(markup 'unref)
@@ -1230,7 +1230,7 @@
(cond
((not target)
(skribe-warning/ast 1 n 'numref
- "can't find `ident': "
+ "can't find 'ident': "
ident)
(new markup
(markup 'unref)
@@ -1299,7 +1299,7 @@
(labels 'number))
(if (not (memq count '(partial full)))
(skribe-error 'the-bibliography
- "count must be either `partial' or `full'"
+ "count must be either 'partial' or 'full'"
count)
(let ((label-proc (case labels
((number) assign-entries-numbers!)
diff --git a/src/guile/skribilo/package/jfp.scm b/src/guile/skribilo/package/jfp.scm
index ee9e118..5c831a2 100644
--- a/src/guile/skribilo/package/jfp.scm
+++ b/src/guile/skribilo/package/jfp.scm
@@ -98,7 +98,7 @@
(&latex-author-n body))
(else
(skribe-error 'author
- "Illegal `jfp' author"
+ "Illegal 'jfp' author"
body))))))
;; title
(markup-writer '&latex-title le
@@ -171,7 +171,7 @@
(output y e)))))
((is-markup? y '&bib-entry-year)
(skribe-error 'bib-ref
- "Missing `name' entry"
+ "Missing 'name' entry"
(markup-ident be)))
(else
(let ((ba (markup-body a)))
diff --git a/src/guile/skribilo/package/lncs.scm b/src/guile/skribilo/package/lncs.scm
index 347fd3e..97335e0 100644
--- a/src/guile/skribilo/package/lncs.scm
+++ b/src/guile/skribilo/package/lncs.scm
@@ -146,7 +146,7 @@
(+ 1 j)))))))))
(else
(skribe-error 'author
- "Illegal `lncs' author"
+ "Illegal 'lncs' author"
body))))))
;; author
(let ((old-author (markup-writer-get 'author le)))
diff --git a/src/guile/skribilo/package/pie.scm b/src/guile/skribilo/package/pie.scm
index ec68f62..ef21d96 100644
--- a/src/guile/skribilo/package/pie.scm
+++ b/src/guile/skribilo/package/pie.scm
@@ -99,7 +99,7 @@
(weight (and the-slice (markup-option the-slice :weight))))
(if (not the-slice)
(skribe-error 'lout
- "`sliceweight' node not within a `slice' body"
+ "'sliceweight' node not within a 'slice' body"
sw-node)
(if pct?
(let* ((the-pie (ast-parent the-slice))
@@ -108,7 +108,7 @@
'&total-weight))))
(if (not the-pie)
(skribe-error 'lout
- "`slice' not within a `pie' body"
+ "'slice' not within a 'pie' body"
the-slice)
(* 100.0 (/ weight total)))) ;; flonum (FIXME: precision)
diff --git a/src/guile/skribilo/package/slide/latex.scm b/src/guile/skribilo/package/slide/latex.scm
index 955a308..1d030c3 100644
--- a/src/guile/skribilo/package/slide/latex.scm
+++ b/src/guile/skribilo/package/slide/latex.scm
@@ -192,7 +192,7 @@
;* %slide-advi-setup! ... */
;*---------------------------------------------------------------------*/
(define (%slide-advi-setup!)
- (skribe-message "Generating `Advi Seminar' slides...\n")
+ (skribe-message "Generating 'Advi Seminar' slides...\n")
(let ((le (find-engine 'latex)))
(define (advi-geometry geo)
(let ((r (string-match "([0-9]+)x([0-9]+)" geo)))
@@ -337,7 +337,7 @@
;* %slide-prosper-setup! ... */
;*---------------------------------------------------------------------*/
(define (%slide-prosper-setup!)
- (skribe-message "Generating `Prosper' slides...\n")
+ (skribe-message "Generating 'Prosper' slides...\n")
(let ((le (find-engine 'latex))
(overlay-count 0))
;; transitions
diff --git a/src/guile/skribilo/package/web-book2.scm b/src/guile/skribilo/package/web-book2.scm
index 0ce01c5..08ca3ba 100644
--- a/src/guile/skribilo/package/web-book2.scm
+++ b/src/guile/skribilo/package/web-book2.scm
@@ -105,7 +105,7 @@
;; Override the `chapter' markup from the `base' package to allow the
;; production of a small TOC at the beginning of each chapter.
(lambda args
- ;;(format (current-error-port) "in new `~a'~%" markup)
+ ;;(format (current-error-port) "in new '~a'~%" markup)
(if (engine-format? "html")
(apply markup
(append (concatenate (the-options args))
diff --git a/src/guile/skribilo/reader/rss-2.scm b/src/guile/skribilo/reader/rss-2.scm
index 182ebb9..6bdd753 100755
--- a/src/guile/skribilo/reader/rss-2.scm
+++ b/src/guile/skribilo/reader/rss-2.scm
@@ -239,14 +239,14 @@
`(list ,@(loop (html->shtml body))))
(((? symbol? unsupported-tag) rest ...)
- (warn* (_ "tag `~s' ignored") tag)
+ (warn* (_ "tag '~s' ignored") tag)
#f)
((lst ...)
(map loop lst))
(_
- (warn* (_ "skipping tag `~a'~%") tag)
+ (warn* (_ "skipping tag '~a'~%") tag)
#f))))
(define (english-date->date str)
diff --git a/src/guile/skribilo/source.scm b/src/guile/skribilo/source.scm
index e836af9..39a5eeb 100644
--- a/src/guile/skribilo/source.scm
+++ b/src/guile/skribilo/source.scm
@@ -67,12 +67,12 @@
;; Issue a user-friendly error message for error condition C.
(cond ((no-extractor-error? c)
(format (current-error-port)
- (_ "source language `~a' does not have an extractor~%")
+ (_ "source language '~a' does not have an extractor~%")
(language-name (no-extractor-error:language c))))
((definition-not-found-error? c)
(format (current-error-port)
- (_ "source definition of `~a' in language `~a' not found~%")
+ (_ "source definition of '~a' in language '~a' not found~%")
(definition-not-found-error:definition c)
(language-name (definition-not-found-error:language c))))
diff --git a/src/guile/skribilo/utils/compat.scm b/src/guile/skribilo/utils/compat.scm
index 395441b..3f0ec6e 100644
--- a/src/guile/skribilo/utils/compat.scm
+++ b/src/guile/skribilo/utils/compat.scm
@@ -164,7 +164,7 @@
(begin
(if (> (*verbose*) 1)
(format (current-error-port)
- " skribe-load: `~a' -> `~a'~%"
+ " skribe-load: '~a' -> '~a'~%"
file mod-name))
(let ((mod (false-if-exception
(resolve-interface mod-name))))
@@ -211,7 +211,7 @@
(*document-being-output*))))
(if (document? doc)
(document-bind-node! doc node)
- (error "Sorry, unable to achieve `bind-markup!'. Use `document-bind-node!' instead."
+ (error "Sorry, unable to achieve 'bind-markup!'. Use 'document-bind-node!' instead."
node))))
(define-public (find-markups ident)
@@ -222,7 +222,7 @@
(if result
(list result)
#f))
- (error "Sorry, unable to achieve `find-markups'. Use `document-lookup-node' instead."
+ (error "Sorry, unable to achieve 'find-markups'. Use 'document-lookup-node' instead."
ident))))
(define-public (find-markup-ident ident)
diff --git a/src/guile/skribilo/verify.scm b/src/guile/skribilo/verify.scm
index 3d38d57..cf07e55 100644
--- a/src/guile/skribilo/verify.scm
+++ b/src/guile/skribilo/verify.scm
@@ -72,7 +72,7 @@
(option (unsupported-markup-option-error:option c)))
(show-location node)
(format (current-error-port)
- (_ "option `~a' of markup `~a' not supported by engine `~a'~%")
+ (_ "option '~a' of markup '~a' not supported by engine '~a'~%")
option (and (markup? node)
(markup-markup node))
(engine-ident engine))))
@@ -127,7 +127,7 @@
3
markup
'verify
- (format #f "engine ~a does not support markup ~a option `~a' -- ~a"
+ (format #f "engine ~a does not support markup ~a option '~a' -- ~a"
(engine-ident engine)
(markup-markup markup)
o
@@ -192,7 +192,7 @@
(skribe-warning/ast
1
node
- (format #f "node `~a' forbidden here by ~a engine"
+ (format #f "node '~a' forbidden here by ~a engine"
(markup-markup node)
(engine-ident e))))))))
node))
generated by cgit v1.2.3 (git 2.45.2) at 2024-11-15 19:14:44 +0000