aboutsummaryrefslogtreecommitdiff
path: root/web/gn-uri.scm
blob: c52066d74e758c6e516ade6077fd697020488224 (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
(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
            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 (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-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-predicate postfix)
  (mk-html (string-append "predicate" "/" postfix)))