From 626e0505a1db105b65bea85e254f01ae9349dc44 Mon Sep 17 00:00:00 2001
From: Arun Isaac
Date: Sun, 4 Jul 2021 19:49:41 +0530
Subject: doc: Search for source-ref referenced files in source-path.

* doc/skribilo.scm: Import (skribilo parameters).
(source-ref): Search for files in source-path.
---
 doc/skribilo.scm | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

(limited to 'doc')

diff --git a/doc/skribilo.scm b/doc/skribilo.scm
index 3438b82..4a5d0c1 100644
--- a/doc/skribilo.scm
+++ b/doc/skribilo.scm
@@ -31,6 +31,7 @@
   #:use-module (skribilo engine)
   #:use-module (skribilo lib)
   #:use-module (skribilo package base)
+  #:use-module (skribilo parameters)
   #:use-module (skribilo source lisp)
   #:use-module (skribilo utils keywords)
   #:use-module (skribilo writer)
@@ -108,7 +109,8 @@ and END are line numbers indexed from 1."
              (position->line-number str end))))))
 
 (define (source-ref file regexp text)
-  (ref #:url (match (sexp-file-lines file regexp)
+  (ref #:url (match (sexp-file-lines (search-path (*source-path*) file)
+                                     regexp)
                ((start-line . end-line)
                 (if (= start-line end-line)
                     (string-append %source-uri-base
-- 
cgit v1.2.3