Initial commit

.github/workflows/test.yml

@@ -0,0 +1,23 @@
+name: test
+
+on:
+  push:
+    branches:
+      - master
+      - main
+  pull_request:
+
+jobs:
+  test:
+    runs-on: ubuntu-latest
+    steps:
+      - uses: actions/checkout@v4
+      - uses: erlef/setup-beam@v1
+        with:
+          otp-version: "27.1.2"
+          gleam-version: "1.11.1"
+          rebar3-version: "3"
+          # elixir-version: "1"
+      - run: gleam deps download
+      - run: gleam test
+      - run: gleam format --check src test

.gitignore

@@ -0,0 +1,5 @@
+*.beam
+*.ez
+/build
+erl_crash.dump
+.env

LICENSE.md

@@ -0,0 +1,9 @@
+The MIT License (MIT)
+
+Copyright © 2025 Lily Rose
+
+Permission is hereby granted, free of charge, to any person obtaining a copy of this software and associated documentation files (the “Software”), to deal in the Software without restriction, including without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to the following conditions:
+
+The above copyright notice and this permission notice shall be included in all copies or substantial portions of the Software.
+
+THE SOFTWARE IS PROVIDED “AS IS”, WITHOUT WARRANTY OF ANY KIND, EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.

README.md

@@ -0,0 +1,27 @@
+# spacetraders_api_fetch
+
+[![Package Version](https://img.shields.io/hexpm/v/spacetraders_api_fetch)](https://hex.pm/packages/spacetraders_api_fetch)
+[![Hex Docs](https://img.shields.io/badge/hex-docs-ffaff3)](https://hexdocs.pm/spacetraders_api_fetch/)
+
+```sh
+gleam add spacetraders_api_fetch@1
+```
+```gleam
+import spacetraders_api_fetch
+import gleam/javascript/promise
+
+pub fn main() -> Nil {
+  use res <- promise.map(spacetraders_api_fetch.get_server_status())
+  let assert Ok(server_status) = res
+  io.println(server_status.status)
+}
+```
+
+Further documentation can be found at <https://hexdocs.pm/spacetraders_api_fetch>.
+
+## Development
+
+```sh
+gleam run   # Run the project
+gleam test  # Run the tests
+```

gleam.toml

@@ -0,0 +1,19 @@
+name = "spacetraders_api_fetch"
+version = "1.0.0"
+target = "javascript"
+description = "Gleam functions for interacting with the spacetraders.io game API using gleam_fetch"
+licences = ["MIT"]
+repository = { type = "forgejo", host = "git.7cs.dev", user = "lily", repo = "gleam-spacetraders-api-fetch" }
+
+[dependencies]
+gleam_stdlib = ">= 0.44.0 and < 2.0.0"
+gleam_fetch = ">= 1.3.0 and < 2.0.0"
+gleam_javascript = ">= 1.0.0 and < 2.0.0"
+gleam_http = ">= 4.1.0 and < 5.0.0"
+gleam_json = ">= 3.0.2 and < 4.0.0"
+spacetraders_api = ">= 1.0.0 and < 2.0.0"
+spacetraders_models = ">= 1.1.0 and < 2.0.0"
+
+[dev-dependencies]
+gleeunit = ">= 1.0.0 and < 2.0.0"
+envoy = ">= 1.0.2 and < 2.0.0"

manifest.toml

@@ -0,0 +1,26 @@
+# 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_fetch", version = "1.3.0", build_tools = ["gleam"], requirements = ["gleam_http", "gleam_javascript", "gleam_stdlib"], otp_app = "gleam_fetch", source = "hex", outer_checksum = "2CBF9F2E1C71AEBBFB13A9D5720CD8DB4263EB02FE60C5A7A1C6E17B0151C20C" },
+  { name = "gleam_http", version = "4.1.0", build_tools = ["gleam"], requirements = ["gleam_stdlib"], otp_app = "gleam_http", source = "hex", outer_checksum = "DB25DFC8530B64B77105405B80686541A0D96F7E2D83D807D6B2155FB9A8B1B8" },
+  { name = "gleam_javascript", version = "1.0.0", build_tools = ["gleam"], requirements = ["gleam_stdlib"], otp_app = "gleam_javascript", source = "hex", outer_checksum = "EF6C77A506F026C6FB37941889477CD5E4234FCD4337FF0E9384E297CB8F97EB" },
+  { name = "gleam_json", version = "3.0.2", build_tools = ["gleam"], requirements = ["gleam_stdlib"], otp_app = "gleam_json", source = "hex", outer_checksum = "874FA3C3BB6E22DD2BB111966BD40B3759E9094E05257899A7C08F5DE77EC049" },
+  { name = "gleam_stdlib", version = "0.61.0", build_tools = ["gleam"], requirements = [], otp_app = "gleam_stdlib", source = "hex", outer_checksum = "3DC407D6EDA98FCE089150C11F3AD892B6F4C3CA77C87A97BAE8D5AB5E41F331" },
+  { name = "gleam_time", version = "1.2.0", build_tools = ["gleam"], requirements = ["gleam_stdlib"], otp_app = "gleam_time", source = "hex", outer_checksum = "D71F1AFF7FEB534FF55E5DC58E534E9201BA75A444619788A2E4DEA4EBD87D16" },
+  { name = "gleeunit", version = "1.6.0", build_tools = ["gleam"], requirements = ["gleam_stdlib"], otp_app = "gleeunit", source = "hex", outer_checksum = "63022D81C12C17B7F1A60E029964E830A4CBD846BBC6740004FC1F1031AE0326" },
+  { name = "spacetraders_api", version = "1.0.0", build_tools = ["gleam"], requirements = ["gleam_http", "gleam_json", "gleam_stdlib", "spacetraders_models"], otp_app = "spacetraders_api", source = "hex", outer_checksum = "4C783D9E7D213027D41F6B43335ED7CD387D3FF499D67F9263D1DE926B9D7727" },
+  { name = "spacetraders_models", version = "1.1.0", build_tools = ["gleam"], requirements = ["gleam_http", "gleam_json", "gleam_stdlib", "gleam_time"], otp_app = "spacetraders_models", source = "hex", outer_checksum = "6A0CBC5CFC54313170AEEF813567C910D212F4FDB9AAA3B45F078A48935038A1" },
+]
+
+[requirements]
+envoy = { version = ">= 1.0.2 and < 2.0.0" }
+gleam_fetch = { version = ">= 1.3.0 and < 2.0.0" }
+gleam_http = { version = ">= 4.1.0 and < 5.0.0" }
+gleam_javascript = { version = ">= 1.0.0 and < 2.0.0" }
+gleam_json = { version = ">= 3.0.2 and < 4.0.0" }
+gleam_stdlib = { version = ">= 0.44.0 and < 2.0.0" }
+gleeunit = { version = ">= 1.0.0 and < 2.0.0" }
+spacetraders_api = { version = ">= 1.0.0 and < 2.0.0" }
+spacetraders_models = { version = ">= 1.1.0 and < 2.0.0" }

src/spacetraders_api_fetch.gleam

@@ -0,0 +1,788 @@
+import gleam/fetch.{type FetchError}
+import gleam/http/request.{type Request}
+import gleam/http/response.{type Response}
+import gleam/javascript/promise.{type Promise}
+import gleam/json.{type DecodeError}
+import gleam/option.{type Option}
+import gleam/result
+import spacetraders_api.{
+  type AgentRegistered, type ApiResponse, type CargoPurchased, type CargoSold,
+  type CargoTransferred, type ChartCreated, type ConstructionSiteSupplied,
+  type ContractAccepted, type ContractCargoDelivered, type ContractFulfilled,
+  type ErrorCode, type ExportToImportMap, type FactionReputation,
+  type ResourcesExtracted, type ResourcesSiphoned, type Scan, type ServerStatus,
+  type ShipJumped, type ShipModuleInstalled, type ShipModuleRemoved,
+  type ShipMountInstalled, type ShipMountRemoved, type ShipNavPatched,
+  type ShipNavigated, type ShipPurchased, type ShipRefined, type ShipRefueled,
+  type ShipRepaired, type ShipScrapped, type ShipWarped, type SurveyCreated,
+}
+import spacetraders_models/account.{type Account}
+import spacetraders_models/account_token.{type AccountToken}
+import spacetraders_models/agent.{type Agent}
+import spacetraders_models/agent_event.{type AgentEvent}
+import spacetraders_models/agent_symbol.{type AgentSymbol}
+import spacetraders_models/agent_token.{type AgentToken}
+import spacetraders_models/construction.{type Construction}
+import spacetraders_models/contract.{type Contract}
+import spacetraders_models/contract_id.{type ContractId}
+import spacetraders_models/cooldown.{type Cooldown}
+import spacetraders_models/faction.{type Faction}
+import spacetraders_models/faction_symbol.{type FactionSymbol}
+import spacetraders_models/jump_gate.{type JumpGate}
+import spacetraders_models/market.{type Market}
+import spacetraders_models/module_symbol.{type ModuleSymbol}
+import spacetraders_models/mount_symbol.{type MountSymbol}
+import spacetraders_models/paged_data.{type PagedData}
+import spacetraders_models/public_agent.{type PublicAgent}
+import spacetraders_models/refinement_produce.{type RefinementProduce}
+import spacetraders_models/repair_transaction.{type RepairTransaction}
+import spacetraders_models/scanned_ship.{type ScannedShip}
+import spacetraders_models/scanned_system.{type ScannedSystem}
+import spacetraders_models/scanned_waypoint.{type ScannedWaypoint}
+import spacetraders_models/scrap_transaction.{type ScrapTransaction}
+import spacetraders_models/ship.{type Ship}
+import spacetraders_models/ship_cargo.{type ShipCargo}
+import spacetraders_models/ship_module.{type ShipModule}
+import spacetraders_models/ship_mount.{type ShipMount}
+import spacetraders_models/ship_nav.{type ShipNav}
+import spacetraders_models/ship_nav_flight_mode.{type ShipNavFlightMode}
+import spacetraders_models/ship_symbol.{type ShipSymbol}
+import spacetraders_models/ship_type.{type ShipType}
+import spacetraders_models/shipyard.{type Shipyard}
+import spacetraders_models/spacetraders_error.{type SpacetradersError}
+import spacetraders_models/survey.{type Survey}
+import spacetraders_models/system.{type System}
+import spacetraders_models/system_symbol.{type SystemSymbol}
+import spacetraders_models/trade_symbol.{type TradeSymbol}
+import spacetraders_models/waypoint.{type Waypoint}
+import spacetraders_models/waypoint_symbol.{type WaypointSymbol}
+import spacetraders_models/waypoint_trait_symbol.{type WaypointTraitSymbol}
+import spacetraders_models/waypoint_type.{type WaypointType}
+
+pub type FetchApiError {
+  ClientError(FetchError)
+  JsonDecodeError(DecodeError)
+  ServerError(SpacetradersError)
+}
+
+pub type FetchApiResponse(data) =
+  Promise(Result(data, FetchApiError))
+
+fn send(request: Request(BitArray)) -> FetchApiResponse(Response(BitArray)) {
+  fetch.send_bits(request)
+  |> promise.await(fn(res) {
+    case res {
+      Ok(fetch_body) ->
+        fetch.read_bytes_body(fetch_body)
+        |> promise.map(result.map_error(_, ClientError))
+      Error(err) -> promise.resolve(Error(ClientError(err)))
+    }
+  })
+}
+
+fn try_send(
+  request: Request(BitArray),
+  apply fun: fn(Response(BitArray)) -> ApiResponse(data),
+) -> FetchApiResponse(data) {
+  use res <- promise.map_try(send(request))
+  fun(res)
+  |> result.map_error(fn(api_error) {
+    case api_error {
+      spacetraders_api.JsonDecodeError(e) -> JsonDecodeError(e)
+      spacetraders_api.ServerError(e) -> ServerError(e)
+    }
+  })
+}
+
+pub fn get_account(token: AgentToken) -> FetchApiResponse(Account) {
+  try_send(
+    spacetraders_api.get_account_request(token),
+    spacetraders_api.get_account_response,
+  )
+}
+
+pub fn register_new_agent(
+  token: AccountToken,
+  agent_symbol: AgentSymbol,
+  faction_symbol: FactionSymbol,
+) -> FetchApiResponse(AgentRegistered) {
+  try_send(
+    spacetraders_api.register_new_agent_request(
+      token,
+      agent_symbol,
+      faction_symbol,
+    ),
+    spacetraders_api.register_new_agent_response,
+  )
+}
+
+pub fn list_public_agents(
+  page: Option(Int),
+  limit: Option(Int),
+) -> FetchApiResponse(PagedData(List(PublicAgent))) {
+  try_send(
+    spacetraders_api.list_public_agents_request(page, limit),
+    spacetraders_api.list_public_agents_response,
+  )
+}
+
+pub fn get_public_agent(
+  agent_symbol: AgentSymbol,
+) -> FetchApiResponse(PublicAgent) {
+  try_send(
+    spacetraders_api.get_public_agent_request(agent_symbol),
+    spacetraders_api.get_public_agent_response,
+  )
+}
+
+pub fn get_agent(token: AgentToken) -> FetchApiResponse(Agent) {
+  try_send(
+    spacetraders_api.get_agent_request(token),
+    spacetraders_api.get_agent_response,
+  )
+}
+
+pub fn get_agent_events(token: AgentToken) -> FetchApiResponse(List(AgentEvent)) {
+  try_send(
+    spacetraders_api.get_agent_events_request(token),
+    spacetraders_api.get_agent_events_response,
+  )
+}
+
+pub fn list_contracts(
+  token: AgentToken,
+  page: Option(Int),
+  limit: Option(Int),
+) -> FetchApiResponse(PagedData(List(Contract))) {
+  try_send(
+    spacetraders_api.list_contracts_request(token, page, limit),
+    spacetraders_api.list_contracts_response,
+  )
+}
+
+pub fn get_contract(
+  token: AgentToken,
+  contract_id: ContractId,
+) -> FetchApiResponse(Contract) {
+  try_send(
+    spacetraders_api.get_contract_request(token, contract_id),
+    spacetraders_api.get_contract_response,
+  )
+}
+
+pub fn accept_contract(
+  token: AgentToken,
+  contract_id: ContractId,
+) -> FetchApiResponse(ContractAccepted) {
+  try_send(
+    spacetraders_api.accept_contract_request(token, contract_id),
+    spacetraders_api.accept_contract_response,
+  )
+}
+
+pub fn fulfill_contract(
+  token: AgentToken,
+  contract_id: ContractId,
+) -> FetchApiResponse(ContractFulfilled) {
+  try_send(
+    spacetraders_api.fulfill_contract_request(token, contract_id),
+    spacetraders_api.fulfill_contract_response,
+  )
+}
+
+pub fn deliver_contract_cargo(
+  token: AgentToken,
+  contract_id: ContractId,
+  ship_symbol: ShipSymbol,
+  trade_symbol: TradeSymbol,
+  units: Int,
+) -> FetchApiResponse(ContractCargoDelivered) {
+  try_send(
+    spacetraders_api.deliver_contract_cargo_request(
+      token,
+      contract_id,
+      ship_symbol,
+      trade_symbol,
+      units,
+    ),
+    spacetraders_api.deliver_contract_cargo_response,
+  )
+}
+
+pub fn get_supply_chain() -> FetchApiResponse(ExportToImportMap) {
+  try_send(
+    spacetraders_api.get_supply_chain_request(),
+    spacetraders_api.get_supply_chain_response,
+  )
+}
+
+pub fn list_factions(
+  page: Option(Int),
+  limit: Option(Int),
+) -> FetchApiResponse(PagedData(List(Faction))) {
+  try_send(
+    spacetraders_api.list_factions_request(page, limit),
+    spacetraders_api.list_factions_response,
+  )
+}
+
+pub fn get_faction(symbol: FactionSymbol) -> FetchApiResponse(Faction) {
+  try_send(
+    spacetraders_api.get_faction_request(symbol),
+    spacetraders_api.get_faction_response,
+  )
+}
+
+pub fn get_my_factions(
+  token: AgentToken,
+  page: Option(Int),
+  limit: Option(Int),
+) -> FetchApiResponse(PagedData(List(FactionReputation))) {
+  try_send(
+    spacetraders_api.get_my_factions_request(token, page, limit),
+    spacetraders_api.get_my_factions_response,
+  )
+}
+
+pub fn list_ships(
+  token: AgentToken,
+  page: Option(Int),
+  limit: Option(Int),
+) -> FetchApiResponse(PagedData(List(Ship))) {
+  try_send(
+    spacetraders_api.list_ships_request(token, page, limit),
+    spacetraders_api.list_ships_response,
+  )
+}
+
+pub fn purchase_ship(
+  token: AgentToken,
+  ship_type: ShipType,
+  waypoint_symbol: WaypointSymbol,
+) -> FetchApiResponse(ShipPurchased) {
+  try_send(
+    spacetraders_api.purchase_ship_request(token, ship_type, waypoint_symbol),
+    spacetraders_api.purchase_ship_response,
+  )
+}
+
+pub fn get_ship(
+  token: AgentToken,
+  ship_symbol: ShipSymbol,
+) -> FetchApiResponse(Ship) {
+  try_send(
+    spacetraders_api.get_ship_request(token, ship_symbol),
+    spacetraders_api.get_ship_response,
+  )
+}
+
+pub fn create_chart(
+  token: AgentToken,
+  ship_symbol: ShipSymbol,
+) -> FetchApiResponse(ChartCreated) {
+  try_send(
+    spacetraders_api.create_chart_request(token, ship_symbol),
+    spacetraders_api.create_chart_response,
+  )
+}
+
+pub fn negotiate_contract(
+  token: AgentToken,
+  ship_symbol: String,
+) -> FetchApiResponse(Contract) {
+  try_send(
+    spacetraders_api.negotiate_contract_request(token, ship_symbol),
+    spacetraders_api.negotiate_contract_response,
+  )
+}
+
+pub fn get_ship_cooldown(
+  token: AgentToken,
+  ship_symbol: ShipSymbol,
+) -> FetchApiResponse(Option(Cooldown)) {
+  try_send(
+    spacetraders_api.get_ship_cooldown_request(token, ship_symbol),
+    spacetraders_api.get_ship_cooldown_response,
+  )
+}
+
+pub fn dock_ship(
+  token: AgentToken,
+  ship_symbol: ShipSymbol,
+) -> FetchApiResponse(ShipNav) {
+  try_send(
+    spacetraders_api.dock_ship_request(token, ship_symbol),
+    spacetraders_api.dock_ship_response,
+  )
+}
+
+pub fn extract_resources(
+  token: AgentToken,
+  ship_symbol: ShipSymbol,
+) -> FetchApiResponse(ResourcesExtracted) {
+  try_send(
+    spacetraders_api.extract_resources_request(token, ship_symbol),
+    spacetraders_api.extract_resources_response,
+  )
+}
+
+pub fn extract_resources_with_survey(
+  token: AgentToken,
+  ship_symbol: ShipSymbol,
+  survey: Survey,
+) -> FetchApiResponse(ResourcesExtracted) {
+  try_send(
+    spacetraders_api.extract_resources_with_survey_request(
+      token,
+      ship_symbol,
+      survey,
+    ),
+    spacetraders_api.extract_resources_with_survey_response,
+  )
+}
+
+pub fn jettison_cargo(
+  token: AgentToken,
+  ship_symbol: ShipSymbol,
+  trade_symbol: TradeSymbol,
+  units: Int,
+) -> FetchApiResponse(ShipCargo) {
+  try_send(
+    spacetraders_api.jettison_cargo_request(
+      token,
+      ship_symbol,
+      trade_symbol,
+      units,
+    ),
+    spacetraders_api.jettison_cargo_response,
+  )
+}
+
+pub fn jump_ship(
+  token: AgentToken,
+  ship_symbol: ShipSymbol,
+  waypoint_symbol: WaypointSymbol,
+) -> FetchApiResponse(ShipJumped) {
+  try_send(
+    spacetraders_api.jump_ship_request(token, ship_symbol, waypoint_symbol),
+    spacetraders_api.jump_ship_response,
+  )
+}
+
+pub fn scan_systems(
+  token: AgentToken,
+  ship_symbol: ShipSymbol,
+) -> FetchApiResponse(Scan(ScannedSystem)) {
+  try_send(
+    spacetraders_api.scan_systems_request(token, ship_symbol),
+    spacetraders_api.scan_systems_response,
+  )
+}
+
+pub fn scan_waypoints(
+  token: AgentToken,
+  ship_symbol: ShipSymbol,
+) -> FetchApiResponse(Scan(ScannedWaypoint)) {
+  try_send(
+    spacetraders_api.scan_waypoints_request(token, ship_symbol),
+    spacetraders_api.scan_waypoints_response,
+  )
+}
+
+pub fn scan_ships(
+  token: AgentToken,
+  ship_symbol: ShipSymbol,
+) -> FetchApiResponse(Scan(ScannedShip)) {
+  try_send(
+    spacetraders_api.scan_ships_request(token, ship_symbol),
+    spacetraders_api.scan_ships_response,
+  )
+}
+
+pub fn scrap_ship(
+  token: AgentToken,
+  ship_symbol: ShipSymbol,
+) -> FetchApiResponse(ShipScrapped) {
+  try_send(
+    spacetraders_api.scrap_ship_request(token, ship_symbol),
+    spacetraders_api.scrap_ship_response,
+  )
+}
+
+pub fn get_scrap_ship(
+  token: AgentToken,
+  ship_symbol: ShipSymbol,
+) -> FetchApiResponse(ScrapTransaction) {
+  try_send(
+    spacetraders_api.get_scrap_ship_request(token, ship_symbol),
+    spacetraders_api.get_scrap_ship_response,
+  )
+}
+
+pub fn navigate_ship(
+  token: AgentToken,
+  ship_symbol: ShipSymbol,
+  waypoint_symbol: WaypointSymbol,
+) -> FetchApiResponse(ShipNavigated) {
+  try_send(
+    spacetraders_api.navigate_ship_request(token, ship_symbol, waypoint_symbol),
+    spacetraders_api.navigate_ship_response,
+  )
+}
+
+pub fn warp_ship(
+  token: AgentToken,
+  ship_symbol: ShipSymbol,
+  waypoint_symbol: WaypointSymbol,
+) -> FetchApiResponse(ShipWarped) {
+  try_send(
+    spacetraders_api.warp_ship_request(token, ship_symbol, waypoint_symbol),
+    spacetraders_api.warp_ship_response,
+  )
+}
+
+pub fn orbit_ship(
+  token: AgentToken,
+  ship_symbol: ShipSymbol,
+) -> FetchApiResponse(ShipNav) {
+  try_send(
+    spacetraders_api.orbit_ship_request(token, ship_symbol),
+    spacetraders_api.orbit_ship_response,
+  )
+}
+
+pub fn purchase_cargo(
+  token: AgentToken,
+  ship_symbol: ShipSymbol,
+  trade_symbol: TradeSymbol,
+) -> FetchApiResponse(CargoPurchased) {
+  try_send(
+    spacetraders_api.purchase_cargo_request(token, ship_symbol, trade_symbol),
+    spacetraders_api.purchase_cargo_response,
+  )
+}
+
+pub fn refine_ship(
+  token: AgentToken,
+  ship_symbol: ShipSymbol,
+  produce: RefinementProduce,
+) -> FetchApiResponse(ShipRefined) {
+  try_send(
+    spacetraders_api.refine_ship_request(token, ship_symbol, produce),
+    spacetraders_api.refine_ship_response,
+  )
+}
+
+pub fn refuel_ship(
+  token: AgentToken,
+  ship_symbol: ShipSymbol,
+  units: Option(Int),
+  from_cargo: Option(Bool),
+) -> FetchApiResponse(ShipRefueled) {
+  try_send(
+    spacetraders_api.refuel_ship_request(token, ship_symbol, units, from_cargo),
+    spacetraders_api.refuel_ship_response,
+  )
+}
+
+pub fn repair_ship(
+  token: AgentToken,
+  ship_symbol: ShipSymbol,
+) -> FetchApiResponse(ShipRepaired) {
+  try_send(
+    spacetraders_api.repair_ship_request(token, ship_symbol),
+    spacetraders_api.repair_ship_response,
+  )
+}
+
+pub fn get_repair_ship(
+  token: AgentToken,
+  ship_symbol: ShipSymbol,
+) -> FetchApiResponse(RepairTransaction) {
+  try_send(
+    spacetraders_api.get_repair_ship_request(token, ship_symbol),
+    spacetraders_api.get_repair_ship_response,
+  )
+}
+
+pub fn sell_cargo(
+  token: AgentToken,
+  ship_symbol: ShipSymbol,
+  trade_symbol: TradeSymbol,
+  units: Int,
+) -> FetchApiResponse(CargoSold) {
+  try_send(
+    spacetraders_api.sell_cargo_request(token, ship_symbol, trade_symbol, units),
+    spacetraders_api.sell_cargo_response,
+  )
+}
+
+pub fn siphon_resources(
+  token: AgentToken,
+  ship_symbol: ShipSymbol,
+) -> FetchApiResponse(ResourcesSiphoned) {
+  try_send(
+    spacetraders_api.siphon_resources_request(token, ship_symbol),
+    spacetraders_api.siphon_resources_response,
+  )
+}
+
+pub fn create_survey(
+  token: AgentToken,
+  ship_symbol: ShipSymbol,
+) -> FetchApiResponse(SurveyCreated) {
+  try_send(
+    spacetraders_api.create_survey_request(token, ship_symbol),
+    spacetraders_api.create_survey_response,
+  )
+}
+
+pub fn transfer_cargo(
+  token: AgentToken,
+  ship_symbol: ShipSymbol,
+  trade_symbol: TradeSymbol,
+  units: Int,
+  target_ship_symbol: ShipSymbol,
+) -> FetchApiResponse(CargoTransferred) {
+  try_send(
+    spacetraders_api.transfer_cargo_request(
+      token,
+      ship_symbol,
+      trade_symbol,
+      units,
+      target_ship_symbol,
+    ),
+    spacetraders_api.transfer_cargo_response,
+  )
+}
+
+pub fn get_ship_cargo(
+  token: AgentToken,
+  ship_symbol: ShipSymbol,
+) -> FetchApiResponse(ShipCargo) {
+  try_send(
+    spacetraders_api.get_ship_cargo_request(token, ship_symbol),
+    spacetraders_api.get_ship_cargo_response,
+  )
+}
+
+pub fn get_ship_modules(
+  token: AgentToken,
+  ship_symbol: ShipSymbol,
+) -> FetchApiResponse(List(ShipModule)) {
+  try_send(
+    spacetraders_api.get_ship_modules_request(token, ship_symbol),
+    spacetraders_api.get_ship_modules_response,
+  )
+}
+
+pub fn install_ship_module(
+  token: AgentToken,
+  ship_symbol: ShipSymbol,
+  module_symbol: ModuleSymbol,
+) -> FetchApiResponse(ShipModuleInstalled) {
+  try_send(
+    spacetraders_api.install_ship_module_request(
+      token,
+      ship_symbol,
+      module_symbol,
+    ),
+    spacetraders_api.install_ship_module_response,
+  )
+}
+
+pub fn remove_ship_module(
+  token: AgentToken,
+  ship_symbol: ShipSymbol,
+  module_symbol: ModuleSymbol,
+) -> FetchApiResponse(ShipModuleRemoved) {
+  try_send(
+    spacetraders_api.remove_ship_module_request(
+      token,
+      ship_symbol,
+      module_symbol,
+    ),
+    spacetraders_api.remove_ship_module_response,
+  )
+}
+
+pub fn get_ship_mounts(
+  token: AgentToken,
+  ship_symbol: ShipSymbol,
+) -> FetchApiResponse(List(ShipMount)) {
+  try_send(
+    spacetraders_api.get_ship_mounts_request(token, ship_symbol),
+    spacetraders_api.get_ship_mounts_response,
+  )
+}
+
+pub fn install_ship_mount(
+  token: AgentToken,
+  ship_symbol: ShipSymbol,
+  mount_symbol: MountSymbol,
+) -> FetchApiResponse(ShipMountInstalled) {
+  try_send(
+    spacetraders_api.install_ship_mount_request(
+      token,
+      ship_symbol,
+      mount_symbol,
+    ),
+    spacetraders_api.install_ship_mount_response,
+  )
+}
+
+pub fn remove_ship_mount(
+  token: AgentToken,
+  ship_symbol: ShipSymbol,
+  mount_symbol: MountSymbol,
+) -> FetchApiResponse(ShipMountRemoved) {
+  try_send(
+    spacetraders_api.remove_ship_mount_request(token, ship_symbol, mount_symbol),
+    spacetraders_api.remove_ship_mount_response,
+  )
+}
+
+pub fn get_ship_nav(
+  token: AgentToken,
+  ship_symbol: ShipSymbol,
+) -> FetchApiResponse(ShipNav) {
+  try_send(
+    spacetraders_api.get_ship_nav_request(token, ship_symbol),
+    spacetraders_api.get_ship_nav_response,
+  )
+}
+
+pub fn patch_ship_nav(
+  token: AgentToken,
+  ship_symbol: ShipSymbol,
+  flight_mode: ShipNavFlightMode,
+) -> FetchApiResponse(ShipNavPatched) {
+  try_send(
+    spacetraders_api.patch_ship_nav_request(token, ship_symbol, flight_mode),
+    spacetraders_api.patch_ship_nav_response,
+  )
+}
+
+pub fn get_server_status() -> FetchApiResponse(ServerStatus) {
+  try_send(
+    spacetraders_api.get_server_status_request(),
+    spacetraders_api.get_server_status_response,
+  )
+}
+
+pub fn list_error_codes() -> FetchApiResponse(List(ErrorCode)) {
+  try_send(
+    spacetraders_api.list_error_codes_request(),
+    spacetraders_api.list_error_codes_response,
+  )
+}
+
+pub fn list_systems(
+  page: Option(Int),
+  limit: Option(Int),
+) -> FetchApiResponse(PagedData(List(System))) {
+  try_send(
+    spacetraders_api.list_systems_request(page, limit),
+    spacetraders_api.list_systems_response,
+  )
+}
+
+pub fn get_system(system_symbol: SystemSymbol) -> FetchApiResponse(System) {
+  try_send(
+    spacetraders_api.get_system_request(system_symbol),
+    spacetraders_api.get_system_response,
+  )
+}
+
+pub fn list_system_waypoints(
+  system_symbol: SystemSymbol,
+  page: Option(Int),
+  limit: Option(Int),
+  type_: Option(WaypointType),
+  traits: List(WaypointTraitSymbol),
+) -> FetchApiResponse(PagedData(List(Waypoint))) {
+  try_send(
+    spacetraders_api.list_system_waypoints_request(
+      system_symbol,
+      page,
+      limit,
+      type_,
+      traits,
+    ),
+    spacetraders_api.list_system_waypoints_response,
+  )
+}
+
+pub fn get_waypoint(
+  system_symbol: SystemSymbol,
+  waypoint_symbol: WaypointSymbol,
+) -> FetchApiResponse(Waypoint) {
+  try_send(
+    spacetraders_api.get_waypoint_request(system_symbol, waypoint_symbol),
+    spacetraders_api.get_waypoint_response,
+  )
+}
+
+pub fn get_construction_site(
+  system_symbol: SystemSymbol,
+  waypoint_symbol: WaypointSymbol,
+) -> FetchApiResponse(Construction) {
+  try_send(
+    spacetraders_api.get_construction_site_request(
+      system_symbol,
+      waypoint_symbol,
+    ),
+    spacetraders_api.get_construction_site_response,
+  )
+}
+
+pub fn supply_construction_site(
+  token: AgentToken,
+  system_symbol: SystemSymbol,
+  waypoint_symbol: WaypointSymbol,
+  ship_symbol: ShipSymbol,
+  trade_symbol: TradeSymbol,
+  units: Int,
+) -> FetchApiResponse(ConstructionSiteSupplied) {
+  try_send(
+    spacetraders_api.supply_construction_site_request(
+      token,
+      system_symbol,
+      waypoint_symbol,
+      ship_symbol,
+      trade_symbol,
+      units,
+    ),
+    spacetraders_api.supply_construction_site_response,
+  )
+}
+
+pub fn get_market(
+  system_symbol: SystemSymbol,
+  waypoint_symbol: WaypointSymbol,
+) -> FetchApiResponse(Market) {
+  try_send(
+    spacetraders_api.get_market_request(system_symbol, waypoint_symbol),
+    spacetraders_api.get_market_response,
+  )
+}
+
+pub fn get_jump_gate(
+  system_symbol: SystemSymbol,
+  waypoint_symbol: WaypointSymbol,
+) -> FetchApiResponse(JumpGate) {
+  try_send(
+    spacetraders_api.get_jump_gate_request(system_symbol, waypoint_symbol),
+    spacetraders_api.get_jump_gate_response,
+  )
+}
+
+pub fn get_shipyard(
+  system_symbol: SystemSymbol,
+  waypoint_symbol: WaypointSymbol,
+) -> FetchApiResponse(Shipyard) {
+  try_send(
+    spacetraders_api.get_shipyard_request(system_symbol, waypoint_symbol),
+    spacetraders_api.get_shipyard_response,
+  )
+}

test/spacetraders_api_fetch_test.gleam

@@ -0,0 +1,30 @@
+import gleam/javascript/promise
+import gleeunit
+import spacetraders_api_fetch
+import spacetraders_api_fetch_test/env
+
+pub fn main() -> Nil {
+  gleeunit.main()
+}
+
+pub fn status_test() {
+  use res <- promise.map(spacetraders_api_fetch.get_server_status())
+  let assert Ok(_) = res
+}
+
+pub fn error_codes_test() {
+  use res <- promise.map(spacetraders_api_fetch.list_error_codes())
+  let assert Ok(_) = res
+}
+
+pub fn account_test() {
+  use res <- promise.map(spacetraders_api_fetch.get_account(
+    env.load_env_unsafe().agent_token,
+  ))
+  let assert Ok(_) = echo res
+}
+
+pub fn supply_chain_test() {
+  use res <- promise.map(spacetraders_api_fetch.get_supply_chain())
+  let assert Ok(_) = res
+}

test/spacetraders_api_fetch_test/env.gleam

@@ -0,0 +1,48 @@
+import envoy
+import gleam/result
+import spacetraders_models/account_token.{type AccountToken}
+import spacetraders_models/agent_token.{type AgentToken}
+import spacetraders_models/token_parse_error.{type TokenParseError}
+
+pub type Env {
+  Env(account_token: AccountToken, agent_token: AgentToken)
+}
+
+pub type EnvError {
+  MissingVar(name: String)
+  InvalidTokenVar(name: String, error: TokenParseError)
+}
+
+fn get(name: String) -> Result(String, EnvError) {
+  envoy.get(name)
+  |> result.replace_error(MissingVar(name:))
+}
+
+fn get_token(name: String, parse: fn(String) -> Result(token, TokenParseError)) {
+  get(name)
+  |> result.try(fn(value) {
+    parse(value) |> result.map_error(InvalidTokenVar(name:, error: _))
+  })
+}
+
+pub fn get_account_token() -> Result(AccountToken, EnvError) {
+  get_token("ACCOUNT_TOKEN", account_token.parse)
+}
+
+pub fn get_agent_token() -> Result(AgentToken, EnvError) {
+  get_token("AGENT_TOKEN", agent_token.parse)
+}
+
+pub fn load_env() -> Result(Env, EnvError) {
+  use account_token <- result.try(get_account_token())
+  use agent_token <- result.try(get_agent_token())
+  Ok(Env(account_token:, agent_token:))
+}
+
+pub fn load_env_unsafe() -> Env {
+  let assert Ok(account_token) = get_account_token()
+    as "Missing or invalid account token"
+  let assert Ok(agent_token) = get_agent_token()
+    as "Missing or invalid agent token"
+  Env(account_token:, agent_token:)
+}