diff options
| author | Pjotr Prins | 2023-08-23 11:13:43 +0200 |
|---|---|---|
| committer | Pjotr Prins | 2023-08-23 11:13:43 +0200 |
| commit | c322b6e5f5011d42a657334553ce0698c567ac2c (patch) | |
| tree | 93c0caf1f94c4db7103eacd11a47f0ce5a5a564b /gn | |
| parent | d2e12c6e3cd695dee4aed39e481fd8c18424b278 (diff) | |
| download | gn-guile-c322b6e5f5011d42a657334553ce0698c567ac2c.tar.gz | |
Refactoring URIs
Diffstat (limited to 'gn')
| -rw-r--r-- | gn/data/group.scm | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/gn/data/group.scm b/gn/data/group.scm index 1505b21..3d31a0b 100644 --- a/gn/data/group.scm +++ b/gn/data/group.scm @@ -12,12 +12,13 @@ get-group-links )) -(define (get-group-links gnid) - "Return all the URIs that link to group info, e.g. for Mus_musculus" +(define (get-group-links gnid func) + "Return all the URIs that link to group info, e.g. for Mus_musculus. + Uses func to transform the link - if required." (let ([recs (car (cdr (compile-groups-meta)))] [uri (mk-gnid gnid)]) (filter-map (lambda (r) (if (string=? (second r) uri) - `(("ref" . ,(mk-id (car r)))) + (func (car r)) #f)) recs) )) |