From 3bf4cb75dca135e52efd216bb06d34541b2dc092 Mon Sep 17 00:00:00 2001
From: Arun Isaac
Date: Fri, 28 Mar 2025 02:23:33 +0000
Subject: doc: Add record-field-ref.

* doc/skribilo.scm (record-field-ref): New public function.
---
 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 bd2c313..be40014 100644
--- a/doc/skribilo.scm
+++ b/doc/skribilo.scm
@@ -45,6 +45,7 @@
             record-documentation
             record-field
             record-ref
+            record-field-ref
             docstring-function-documentation))
 
 ;; Constants
@@ -301,6 +302,12 @@ are a list of <record-field> objects."
   (ref #:ident identifier
        #:text (code identifier)))
 
+(define (record-field-ref record-identifier field-identifier)
+  "Link to documentation of field identified by @var{field-identifier} in
+record identified by @var{record-identifier}."
+  (ref #:ident (string-append record-identifier "-" field-identifier)
+       #:text (code field-identifier)))
+
 (define-record-type <function>
   (function name arguments docstring)
   function?
-- 
cgit v1.2.3