aboutsummaryrefslogtreecommitdiff
path: root/gn/data/group.scm
diff options
context:
space:
mode:
authorPjotr Prins2023-08-23 14:23:44 +0200
committerPjotr Prins2023-08-23 14:23:44 +0200
commitafbbd86f316c2bfa70b86c1c51a4147a83f285ec (patch)
treecfcb6445da1f69e3a9a553424dc557dba57a8040 /gn/data/group.scm
parent9dff66430a956f7c8fe92a600bf36c4b1895f958 (diff)
downloadgn-guile-afbbd86f316c2bfa70b86c1c51a4147a83f285ec.tar.gz
Able to render group data
Diffstat (limited to 'gn/data/group.scm')
-rw-r--r--gn/data/group.scm5
1 files changed, 5 insertions, 0 deletions
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))))
+ )))