summaryrefslogtreecommitdiff
path: root/doc/modules
diff options
context:
space:
mode:
authorLudovic Courtes2006-09-03 11:43:41 +0000
committerLudovic Courtes2006-09-03 11:43:41 +0000
commit242821c06c44429369cbf1f542bf07be5d51e955 (patch)
tree2784624e96491312e5bb4a6300c496156e80d89f /doc/modules
parent4901580f449aa13851543d83fe9d4996ed8f1b72 (diff)
downloadskribilo-242821c06c44429369cbf1f542bf07be5d51e955.tar.gz
skribilo-242821c06c44429369cbf1f542bf07be5d51e955.tar.lz
skribilo-242821c06c44429369cbf1f542bf07be5d51e955.zip
Doc: Various fixes (non-unique idents, dangling refs).
* doc/modules/skribilo/documentation/api.scm (doc-markup): Added an `ident' argument, use it. * doc/user/package.skb (Articles): Differentiate the identifiers for the various `abstract' markups. * doc/user/Makefile.am (skribilo): Look for it in `$(top_builddir)' rather than `$(top_srcdir)'. * doc/user/markup.skb (Standard Markups): Added an identifier. * doc/user/src/links1.skb: When referring to `Standard Markups' by identifier, use its current identifier (`std-markups'). git-archimport-id: lcourtes@laas.fr--2005-libre/skribilo--devo--1.2--patch-56
Diffstat (limited to 'doc/modules')
-rw-r--r--doc/modules/skribilo/documentation/api.scm8
1 files changed, 5 insertions, 3 deletions
diff --git a/doc/modules/skribilo/documentation/api.scm b/doc/modules/skribilo/documentation/api.scm
index d27d074..84108c9 100644
--- a/doc/modules/skribilo/documentation/api.scm
+++ b/doc/modules/skribilo/documentation/api.scm
@@ -347,9 +347,10 @@
;* doc-markup ... */
;*---------------------------------------------------------------------*/
(define-markup (doc-markup id args
- #!rest
+ #!rest
opts
- #!key
+ #!key
+ (ident #f)
(writer-id #f)
(common-args '((:ident "The node identifier.")
(:class "The node class.")))
@@ -557,7 +558,8 @@
(if (and (pair? drest) (not (define-markup-rest d)))
(skribe-error 'doc-markup "No rest argument for" id)
options)
- (list (mark :class "public-definition" (symbol->string id))
+ (list (mark :class "public-definition"
+ (or ident (symbol->string id)))
(map (lambda (i) (mark (symbol->string i))) others)
(map (lambda (i)
(let ((is (symbol->string i)))