Runs a Git pager and waits for its termination.

Example:

  Git_pager.run ~f:(fun pager ->
    let write_end = Git_pager.write_end pager in
    Printf.fprintf write_end "Hello, pager!\n")

This is where lines to be sent to the pager should be written. You may flush the write end of the pager as needed, however note that run already ends with a call to Out_channel.flush.

Returns the appropriate color mode to use for Git commands whose outputs are sent to the pager.

The color mode is decided based on: 1. The command-line flag --color=(auto|always|never) (via Err.color_mode). 2. Git's configuration for color.ui. 3. The output context (e.g., terminal, pager, or redirection).

If both the command-line flag and color.ui are set to auto, and the output is being sent to a pager, this function returns `Always to ensure colored output.

Example:

  let git_diff_flags git_pager =
    match Git_pager.git_color_mode git_pager with
    | `Auto -> []
    | `Always -> [ "--color=always" ]
    | `Never -> [ "--color=never" ]
  ;;

Based on the current color mode and output kind, says whether outputs sent to the pager should contain colors. It is useful for configuring custom outputs rendering or other non-Git commands.

Returns the kind of t's output.

• `Tty: Output is sent directly to a terminal (pager is disabled).
• `Pager: Output is sent to a pager, as configured by Git.
• `Other: Output is redirected (e.g., piped to another command or written to a file).

See also should_enable_color.