Packages

parrot

0.0.12
2.3.0 2.2.1 2.2.0 2.1.3 2.1.2 2.1.1 2.1.0 2.0.1 2.0.0 1.2.12 1.2.11 1.2.10 1.2.9 1.2.8 1.2.7 1.2.6 1.2.5 1.2.4 1.2.3 1.2.2 1.2.1 1.2.0 1.1.2 1.1.1 1.1.0 1.0.1 1.0.0 0.0.13 0.0.12 0.0.11 0.0.10 0.0.9 0.0.8 0.0.7 0.0.6 0.0.5 0.0.4 0.0.3 0.0.2 0.0.1

🦜 type-safe SQL in gleam for sqlite, postgresql & mysql

HexDocs

Current section

Files

Jump to
Readme
40 Versions
12 Dependencies
2 Dependants
Files
Activity
parrot src parrot internal lib.gleam
Raw

src/parrot/internal/lib.gleam 

//// Various gleam code utilities

////



import gleam/int

import gleam/list

import gleam/result

import gleam/string



pub fn try_nil(

  result: Result(a, b),

  then do: fn(a) -> Result(c, Nil),

) -> Result(c, Nil) {

  result.try(result.replace_error(result, Nil), do)

}



/// Thank you https://github.com/MystPi/dedent/blob/main/src/dedent.gleam

pub fn dedent(text: String) -> String {

  let lines =

    text

    |> string.split("\n")



  let min_indent =

    lines

    |> list.filter(fn(line) { !is_all_whitespace(line) })

    |> list.map(indent_size(_, 0))

    |> list.sort(int.compare)

    |> list.first

    |> result.unwrap(0)



  lines

  |> list.map(string.drop_start(_, min_indent))

  |> string.join("\n")

  |> string.trim

}



fn indent_size(text: String, size: Int) -> Int {

  case text {

    " " <> rest | "\t" <> rest -> indent_size(rest, size + 1)

    _ -> size

  }

}



fn is_all_whitespace(text: String) -> Bool {

  text

  |> string.trim

  |> string.is_empty

}