glormat

import gleam/result
import gleam/string

/// Replace all instances of `"{label}"` with `data` in the input string.
///
/// To replace more labels, pipe this function into `then` or `then_debug`.
///
/// If you want to use `format` in a pipeline, `replace` may be more concise.
///
/// If the given label isn't found, this function returns `Error(Nil).`
///
/// ## Examples
///
/// ```gleam
/// let assert Ok("hello world") =
///   format(in: "hello {object}", replace: "object", with: "world")
/// ```
pub fn format(
  in format_string: String,
  replace label: String,
  with data: String,
) -> Result(String, Nil) {
  let to_replace = "{" <> label <> "}"
  let contains_label =
    format_string
    |> string.contains(to_replace)

  case contains_label {
    True -> Ok(string.replace(in: format_string, each: to_replace, with: data))
    False -> Error(Nil)
  }
}

/// An alias for `format` that may lend more readable code.
///
/// ## Examples
///
/// ```gleam
/// let assert Ok("hello world") =
///   "hello {object}"
///   |> replace("object", with: "world")
/// ```
pub fn replace(
  in format_string: String,
  replace label: String,
  with data: String,
) -> Result(String, Nil) {
  format(in: format_string, replace: label, with: data)
}

/// A wrapper for `format` that calls `string.inspect` on `data` before passing it in.
///
/// This allows formatting with non-`String` data.
pub fn debug(
  in format_string: String,
  replace label: String,
  with data: a,
) -> Result(String, Nil) {
  format(in: format_string, replace: label, with: string.inspect(data))
}

/// If `result` is `Ok`, call `format` on the contained value, otherwise return the `Error`.
///
/// ## Examples
///
/// ```gleam
/// let assert Ok("hello world, how are you?") =
///   "hello {object}, {question}?"
///   |> replace("object", with: "world")
///   |> then("question", with: "how are you")
/// ```
pub fn then(
  in result: Result(String, Nil),
  replace label: String,
  with data: String,
) -> Result(String, Nil) {
  fn(format_string) { format(in: format_string, replace: label, with: data) }
  |> result.map(result, _)
  |> result.flatten()
}

/// A wrapper for `then` that calls `string.inspect` on `data` before passing it in.
/// This allows formatting with non-String data.
pub fn then_debug(
  in result: Result(String, Nil),
  replace label: String,
  with data: a,
) -> Result(String, Nil) {
  then(in: result, replace: label, with: string.inspect(data))
}

/// Assert that `result` is `Ok`, returning the contained `String`. This may be useful in cases where you as the programmer know that formatting will not fail, but the compiler does not.
pub fn assert_ok(result: Result(String, Nil)) -> String {
  let assert Ok(string) = result

  string
}