blob: c0a440a813faf82484259edc8d433c68187819b3 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
|
(define-module (web gn-uri)
#:use-module (ice-9 string-fun)
#:export (
get-version
; url-parse-id
; normalize-id
; strip-lang
mk-meta
mk-data
mk-doc
mk-html
mk-url
mk-id
mk-gnid
mk-predicate
prefix
url-parse-id
normalize-id
))
(define (normalize-id str)
;; (string-replace-substring (string-downcase str) " " "_")
(string-replace-substring str " " "_")
)
(define (url-parse-id uri)
(if uri
(car (reverse (string-split uri #\057)))
"unknown"
))
(define get-version
"2.0")
; (define (base-url)
; "https://luna.genenetwork.org")
;(define (prefix)
; "Build the API URL including version"
; (string-append (base-url) "/api/v" get-version))
(define (base-url)
"http://localhost:8091")
(define uri-base-url
"http://genenetwork.org")
(define (prefix)
"Build the API URL including version"
(base-url))
(define* (mk-url postfix #:optional (ext ""))
"Add the path to the API URL"
(string-append (prefix) "/" postfix ext))
(define* (mk-uri postfix)
"Add the path to the GN URI"
(string-append uri-base-url "/" postfix))
(define (mk-html path)
"Create a pointer to HTML documentation"
(string-append (base-url) "/" path ".html"))
(define (mk-doc path)
"Create a pointer to HTML documentation"
(mk-html (string-append "doc/" path)))
(define (mk-meta path)
"Create a meta URL for the API path"
(mk-url path ".meta.json"))
(define (mk-data path)
"Create a JSON URL for the API path"
(mk-url path ".json"))
(define (mk-term postfix)
(mk-html (string-append "term" "/" postfix)))
(define (mk-id postfix)
(mk-html (string-append "id" "/" postfix)))
(define (mk-gnid postfix)
(mk-uri (string-append "id" "/" postfix)))
(define (mk-predicate postfix)
(mk-html (string-append "predicate" "/" postfix)))
|
