From 713f88c1c30b378610ebd38c7d03d606aa1d3c59 Mon Sep 17 00:00:00 2001
From: TakeV <takev@disroot.org>
Date: Tue, 12 Dec 2023 20:14:49 -0500
Subject: [PATCH] Add record <docs> Add docs-in-module

The new <docs> record is how we can pass around information associated with a
particular symbol. It stores the symbol, module, and documentation right now,
but could be extended later.

docs-in-module will let us grab a list of <doc> from a specified module.
---
 guile-docs/docs.scm | 24 ++++++++++++++++++++++++
 hall.scm            |  4 +++-
 2 files changed, 27 insertions(+), 1 deletion(-)
 create mode 100644 guile-docs/docs.scm

diff --git a/guile-docs/docs.scm b/guile-docs/docs.scm
new file mode 100644
index 0000000..2d5c267
--- /dev/null
+++ b/guile-docs/docs.scm
@@ -0,0 +1,24 @@
+(define-module (guile-docs docs)
+  #:use-module (srfi srfi-9)
+  #:export (docs-in-module))
+
+(define-record-type <doc>
+  (make-doc module symbol documentation)
+  doc?
+  (module doc-module)
+  (symbol doc-symbol)
+  (documentation doc-documentation))
+
+
+(define (docs-in-module module)
+  "Returns a list of <doc> for each symbol in module mod"
+  (module-map
+   (lambda (sym var)
+     (let* ((binding (variable-ref var))
+            (proc (cond
+                   ((procedure? binding) binding)
+                   ((macro? binding) (macro-binding binding))
+                   (else #f)))
+            (docs (when (procedure? proc) (procedure-documentation proc))))
+       (make-doc (module-name module) sym docs)))
+   module))
diff --git a/hall.scm b/hall.scm
index 2868360..8099cc8 100644
--- a/hall.scm
+++ b/hall.scm
@@ -11,7 +11,9 @@
   (dependencies `())
   (skip ())
   (files (libraries
-           ((directory "guile-docs" ((scheme-file "reflection")))
+           ((directory
+              "guile-docs"
+              ((scheme-file "docs") (scheme-file "reflection")))
             (scheme-file "guile-docs")))
          (tests ())
          (programs ())