inquire 0.2.0 · OCaml Package

Inquire is a high-level library to create interactive command line interfaces.

module Make (M : sig ... end) : sig ... end

Create a new implementation of Inquire to customize the prompts.

module Minimal : sig ... end

Minimal implementation of Inquire with no color and no prompt prefixes.

module Default : sig ... end

Default implementation of Inquire with hopefully nice colors and prefixes.

val confirm : ?default:bool -> StdLabels.String.t -> bool Lwt.t

Prompt the user to answer the given message with "y" or "n".

Examples

let result =
  Inquire.confirm "Are you sure?" ~default:true >>= fun choice ->
  if choice then Lwt_io.printl "Yes!" else Lwt_io.printl "No!"
in
Lwt_main.run result

val password : 
  ?validate:(string -> (string, string) Lwt_result.t) ->
  string ->
  string Lwt.t

Prompt the user to enter a password that will be hidden with stars ('*').

The password can take any value, except the empty string.

Examples

let result =
  Inquire.password "Enter your password:" >>= fun password ->
  Lwt_io.printlf "Your new password is: %S" password
in
Lwt_main.run result

val input : 
  ?validate:(string -> (string, string) Lwt_result.t) ->
  ?default:string ->
  string ->
  string Lwt.t

Prompt the user to input a string.

The string can take any value, except the empty string.

Examples

let result =
  Inquire.input "Enter a value:" >>= fun value ->
  Lwt_io.printlf "You entered: %S" value
in
Lwt_main.run result

val raw_select : 
  ?default:string ->
  options:string list ->
  StdLabels.String.t ->
  StdLabels.String.t Lwt.t

Prompt the user to chose a value from the given options.

The options will be listed with an index prefixed and the users will have to enter the index of their choice.

Examples

let movies =
  [ "Star Wars: The Rise of Skywalker"
  ; "Solo: A Star Wars Story"
  ; "Star Wars: The Last Jedi"
  ; "Rogue One: A Star Wars Story"
  ; "Star Wars: The Force Awakens"
  ]
in
let result =
  Inquire.raw_select "What's your favorite movie?" ~options:movies
  >>= fun movie -> Lwt_io.printlf "Indeed, %S is a great movie!" movie
in
Lwt_main.run result

val select : 
  ?default:string ->
  options:string list ->
  StdLabels.String.t ->
  StdLabels.String.t Lwt.t

Prompt the user to chose a value from the given options.

The prompt is interactive and users can select their choice with directional keys.

Examples

let movies =
  [ "Star Wars: The Rise of Skywalker"
  ; "Solo: A Star Wars Story"
  ; "Star Wars: The Last Jedi"
  ; "Rogue One: A Star Wars Story"
  ; "Star Wars: The Force Awakens"
  ]
in
let result =
  Inquire.select "What's your favorite movie?" ~options:movies
  >>= fun movie -> Lwt_io.printlf "Indeed, %S is a great movie!" movie
in
Lwt_main.run result

package inquire