From afbbd86f316c2bfa70b86c1c51a4147a83f285ec Mon Sep 17 00:00:00 2001
From: Pjotr Prins
Date: Wed, 23 Aug 2023 14:23:44 +0200
Subject: Able to render group data

---
 gn/data/group.scm | 5 +++++
 1 file changed, 5 insertions(+)

(limited to 'gn/data/group.scm')

diff --git a/gn/data/group.scm b/gn/data/group.scm
index 3d31a0b..014b689 100644
--- a/gn/data/group.scm
+++ b/gn/data/group.scm
@@ -10,6 +10,7 @@
 
   #:export (
             get-group-links
+            get-group-data
             ))
 
 (define (get-group-links gnid func)
@@ -22,3 +23,7 @@
                      (func (car r))
                      #f)) recs)
   ))
+
+(define (get-group-data id)
+  (car (cdr (make-pairs (lambda () (sparql-group-info (string-append "gn:" id))))
+  )))
-- 
cgit v1.2.3