From 18148135117d8f1d5070cdf1e74f30b7e56bdb91 Mon Sep 17 00:00:00 2001
From: Munyoki Kilyungi
Date: Fri, 9 Aug 2024 12:04:26 +0300
Subject: Delete dead comments.

Signed-off-by: Munyoki Kilyungi <me@bonfacemunyoki.com>
---
 web/gn-uri.scm | 47 ++++++++++++++++++-----------------------------
 1 file changed, 18 insertions(+), 29 deletions(-)

diff --git a/web/gn-uri.scm b/web/gn-uri.scm
index b849e95..3455d51 100644
--- a/web/gn-uri.scm
+++ b/web/gn-uri.scm
@@ -3,11 +3,10 @@
   #:use-module (ice-9 match)
   #:use-module (ice-9 regex)
 
-  #:export (
-            get-version
-            ; url-parse-id
-            ; normalize-id
-            ; strip-lang
+  #:export (get-version
+            ;; url-parse-id
+            ;; normalize-id
+            ;; strip-lang
             mk-meta
             mk-data
             mk-doc
@@ -18,50 +17,38 @@
             mk-predicate
             prefix
             url-parse-id
-            normalize-id
-            ))
-
+            normalize-id))
 
 (define (normalize-id str)
   ;; (string-replace-substring (string-downcase str) " " "_")
   (match str
     (#f "unknown")
-    (_ (string-replace-substring str " " "_"))
-  ))
+    (_ (string-replace-substring str " " "_"))))
 
 (define (url-parse-id uri)
   (if uri
-      (car (reverse (string-split uri #\057)))
-      "unknown"
-      ))
+      (car (reverse (string-split uri #\/))) "unknown"))
 
 (define get-version
   "4.0.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 ; always points to genenetwork.org!
+(define uri-base-url
+   ;always points to genenetwork.org!
   "http://genenetwork.org")
 
 (define (prefix)
-  "Build the API URL including version"
-  base-url)
+  "Build the API URL including version" base-url)
 
-(define* (mk-url postfix #:optional (ext ""))
+(define* (mk-url postfix
+                 #:optional (ext ""))
   "Makes a fully qualified URL by adding the path (postfix+ext) to the API URL.
    If there is an existing http+hostname no prefix is added"
   (match (string-match "^http:" postfix)
-    [ #f (string-append (prefix) "/" postfix ext)]
-    [ _ (string-append postfix ext)]
-    ))
+    (#f (string-append (prefix) "/" postfix ext))
+    (_ (string-append postfix ext))))
 
 (define* (mk-uri postfix)
   "Add the path to the GN URI. A URI always points to http://genenetwork.org/"
@@ -92,9 +79,11 @@
 (define (mk-id postfix)
   "Expand URL to make $api/id/identifier.
    If postfix is a path it will only apply the last element"
-  (mk-url (string-append "id" "/" (url-parse-id postfix))))
+  (mk-url (string-append "id" "/"
+                         (url-parse-id postfix))))
 
 (define (mk-gnid postfix)
   "Expand URL to make http://genenetwork.org/id/identifier.
    If postfix is a path it will only apply the last element"
-  (mk-uri (string-append "id" "/" (url-parse-id postfix))))
+  (mk-uri (string-append "id" "/"
+                         (url-parse-id postfix))))
-- 
cgit v1.2.3