diff options
| author | Ludovic Courtes | 2006-09-03 11:43:41 +0000 |
|---|---|---|
| committer | Ludovic Courtes | 2006-09-03 11:43:41 +0000 |
| commit | 242821c06c44429369cbf1f542bf07be5d51e955 (patch) | |
| tree | 2784624e96491312e5bb4a6300c496156e80d89f /doc/modules/skribilo/documentation/api.scm | |
| parent | 4901580f449aa13851543d83fe9d4996ed8f1b72 (diff) | |
| download | skribilo-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/skribilo/documentation/api.scm')
| -rw-r--r-- | doc/modules/skribilo/documentation/api.scm | 8 |
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))) |