Add read function

Author: jmcharter

.example.env

@@ -0,0 +1,3 @@
+GITHUB_OWNER='foo'
+GITHUB_REPO='bar'
+GITHUB_TOKEN='baz'

.gitignore

@@ -2,3 +2,4 @@
 *.ez
 /build
 erl_crash.dump
+.env

gleam.toml

@@ -14,6 +14,10 @@ repository = { type = "github", user = "jmcharter", repo = "https://github.com/j
 
 [dependencies]
 gleam_stdlib = ">= 0.44.0 and < 2.0.0"
+envoy = ">= 1.0.2 and < 2.0.0"
+gleam_http = ">= 4.1.1 and < 5.0.0"
+gleam_httpc = ">= 5.0.0 and < 6.0.0"
+logging = ">= 1.3.0 and < 2.0.0"
 
 [dev-dependencies]
 gleeunit = ">= 1.0.0 and < 2.0.0"

manifest.toml

@@ -0,0 +1,20 @@
+# This file was generated by Gleam
+# You typically do not need to edit this file
+
+packages = [
+  { name = "envoy", version = "1.0.2", build_tools = ["gleam"], requirements = ["gleam_stdlib"], otp_app = "envoy", source = "hex", outer_checksum = "95FD059345AA982E89A0B6E2A3BF1CF43E17A7048DCD85B5B65D3B9E4E39D359" },
+  { name = "gleam_erlang", version = "1.3.0", build_tools = ["gleam"], requirements = ["gleam_stdlib"], otp_app = "gleam_erlang", source = "hex", outer_checksum = "1124AD3AA21143E5AF0FC5CF3D9529F6DB8CA03E43A55711B60B6B7B3874375C" },
+  { name = "gleam_http", version = "4.1.1", build_tools = ["gleam"], requirements = ["gleam_stdlib"], otp_app = "gleam_http", source = "hex", outer_checksum = "DD0271B32C356FB684EC7E9F48B1E835D0480168848581F68983C0CC371405D4" },
+  { name = "gleam_httpc", version = "5.0.0", build_tools = ["gleam"], requirements = ["gleam_erlang", "gleam_http", "gleam_stdlib"], otp_app = "gleam_httpc", source = "hex", outer_checksum = "C545172618D07811494E97AAA4A0FB34DA6F6D0061FDC8041C2F8E3BE2B2E48F" },
+  { name = "gleam_stdlib", version = "0.62.1", build_tools = ["gleam"], requirements = [], otp_app = "gleam_stdlib", source = "hex", outer_checksum = "0080706D3A5A9A36C40C68481D1D231D243AF602E6D2A2BE67BA8F8F4DFF45EC" },
+  { name = "gleeunit", version = "1.6.1", build_tools = ["gleam"], requirements = ["gleam_stdlib"], otp_app = "gleeunit", source = "hex", outer_checksum = "FDC68A8C492B1E9B429249062CD9BAC9B5538C6FBF584817205D0998C42E1DAC" },
+  { name = "logging", version = "1.3.0", build_tools = ["gleam"], requirements = ["gleam_stdlib"], otp_app = "logging", source = "hex", outer_checksum = "1098FBF10B54B44C2C7FDF0B01C1253CAFACDACABEFB4B0D027803246753E06D" },
+]
+
+[requirements]
+envoy = { version = ">= 1.0.2 and < 2.0.0" }
+gleam_http = { version = ">= 4.1.1 and < 5.0.0" }
+gleam_httpc = { version = ">= 5.0.0 and < 6.0.0" }
+gleam_stdlib = { version = ">= 0.44.0 and < 2.0.0" }
+gleeunit = { version = ">= 1.0.0 and < 2.0.0" }
+logging = { version = ">= 1.3.0 and < 2.0.0" }

src/git_store.gleam

@@ -1,9 +1,80 @@
+import gleam/http
+import gleam/http/request
+import gleam/http/response
+import gleam/httpc
 import gleam/io
+import gleam/result
+import gleam/string
 
-pub type GithubConfig {
-  GithubConfig(owner: String, repo: String, token: String)
+import envoy
+import logging
+
+import git_store/utils
+
+pub type GitStoreError {
+  ParsingError(String)
+  HTTPError(String)
+  GitHubError
+}
+
+pub type GitHubConfig {
+  GithubConfig(owner: String, repo: String, token: String, base_url: String)
+}
+
+pub type GitHubFileResponse {
+  GitHubFileResponse(content: String, encoding: String, sha: String, size: Int)
+}
+
+pub fn repos_url(config: GitHubConfig) -> String {
+  config.base_url <> "/repos"
+}
+
+pub fn read_file(
+  config: GitHubConfig,
+  path: String,
+) -> Result(response.Response(String), GitStoreError) {
+  let url =
+    utils.build_path(config.base_url, [
+      "repos",
+      config.owner,
+      config.repo,
+      "contents",
+    ])
+    <> "/"
+    <> path
+
+  request(config, http.Get, url)
+}
+
+fn request(config: GitHubConfig, method: http.Method, endpoint: String) {
+  use req <- result.try(
+    request.to(endpoint)
+    |> result.map_error(fn(_) {
+      logging.log(logging.Error, "Unable to parse URL")
+      ParsingError("Unable to parse URL: " <> endpoint)
+    }),
+  )
+  let res =
+    req
+    |> request.set_header("Authorization", "Bearer " <> config.token)
+    |> request.set_header("Accept", "application/vnd.github+json")
+    |> request.set_header("User-Agent", "GitStore-Gleam")
+    |> request.set_method(method)
+    |> httpc.send()
+
+  res
+  |> result.map_error(fn(error) {
+    logging.log(logging.Error, string.inspect(error))
+    HTTPError(string.inspect(error))
+  })
 }
 
 pub fn main() -> Nil {
+  logging.configure()
+  let owner = envoy.get("GITHUB_OWNER") |> result.unwrap("")
+  let repo = envoy.get("GITHUB_REPO") |> result.unwrap("")
+  let token = envoy.get("GITHUB_TOKEN") |> result.unwrap("")
+  let config = GithubConfig(owner, repo, token, "https://api.github.com")
+  let file = read_file(config, "README.md")
   io.println("Hello from git_store!")
 }

src/git_store/utils.gleam

@@ -0,0 +1,6 @@
+import gleam/list
+
+pub fn build_path(base: String, segments: List(String)) -> String {
+  segments
+  |> list.fold(base, fn(path, segment) { path <> "/" <> segment })
+}