From ed00ffbaa86a8ef1c25fccd16e96315ca5d2505e Mon Sep 17 00:00:00 2001
From: Arun Isaac
Date: Wed, 9 Aug 2023 16:33:58 +0100
Subject: doc: Add record-ref convenience function.

* doc/skribilo.scm (record-ref): New public function.
* doc/forge.skb: Use record-ref.
---
 doc/skribilo.scm | 7 +++++++
 1 file changed, 7 insertions(+)

(limited to 'doc/skribilo.scm')

diff --git a/doc/skribilo.scm b/doc/skribilo.scm
index 4058e62..c3b8efc 100644
--- a/doc/skribilo.scm
+++ b/doc/skribilo.scm
@@ -44,6 +44,7 @@
             source-ref
             record-documentation
             record-field
+            record-ref
             docstring-function-documentation))
 
 ;; Constants
@@ -294,6 +295,12 @@ are a list of <record-field> objects."
                                 (record-field-documentation documented-field))))
                       fields)))))
 
+(define (record-ref identifier)
+  "Link to record documentation of record identified by
+@var{identifier}."
+  (ref #:ident identifier
+       #:text (code identifier)))
+
 (define-record-type <function>
   (function name arguments docstring)
   function?
-- 
cgit v1.2.3