Move GitHub client around

Author: chshersh

bin/main.ml

@@ -1,20 +1 @@
-(*
-let () = print_endline @@ Github_tui.Gh.query
-{| 
-query {
-  repository(owner: "chshersh", name: "zbg") {
-    issues(last: 2, states: [OPEN], orderBy: {field: CREATED_AT, direction: DESC}) {
-        nodes {
-          number
-          title
-          author {
-            login
-          }
-        }
-    }
-  }
-}
-|}
-*)
-
 let () = Github_tui.Main.main ()

lib/dune

@@ -2,6 +2,5 @@
  (name github_tui)
  (libraries
   cmdliner
-  ezcurl
   ;; Internal dependencies
   tui))

lib/gh.ml lib/gh/client.mllib/gh.ml renamed to lib/gh/client.ml

@@ -0,0 +1,26 @@
+(** A low level function to perform a query. Reads $GITHUB_TOKEN from the
+    environment.
+
+    Usage example:
+
+    {[
+      let () =
+        print_endline
+        @@ Github_tui.Gh.query
+             {|
+      query {
+        repository(owner: "chshersh", name: "github-tui") {
+          issues(last: 2, states: [OPEN], orderBy: {field: CREATED_AT, direction: ASC}) {
+              nodes {
+                number
+                title
+                author {
+                  login
+                }
+              }
+          }
+        }
+      }
+      |}
+    ]} *)
+val query : string -> string

lib/gh/client.mli

@@ -0,0 +1,3 @@
+(library
+ (name gh)
+ (libraries ezcurl))

lib/gh/dune

@@ -0,0 +1 @@
+module Client = Client

lib/gh/gh.ml

@@ -0,0 +1,3 @@
+(** This module contains functions to query GitHub API *)
+
+module Client = Client

lib/gh/gh.mli

@@ -5,7 +5,8 @@ let clone_repo ~repo ~local_path =
       let owner, repo =
         match String.split_on_char '/' repo with
         | [ owner; repo ] -> (owner, repo)
-        | _ -> ("chshersh", "zbg")
+        | _ -> ("chshersh", "github-tui")
+        (* TODO: lol *)
       in
       let temp_dir =
         Filename.temp_dir "github-tui-" (Printf.sprintf "%s-%s" owner repo)