diff options
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/input_foreman.ml | 16 |
1 files changed, 13 insertions, 3 deletions
diff --git a/lib/input_foreman.ml b/lib/input_foreman.ml index 7e2aa4b..8f0cffe 100644 --- a/lib/input_foreman.ml +++ b/lib/input_foreman.ml @@ -32,10 +32,20 @@ let pp fmt inputs' = (* Ugly, but *shrug* *) let pp_for_earthlings pff = - let hp_k_v ppf' (k, v) = Fmt.pf ppf' "\t%s: %s" k v in + let hp_k_v ppf' (k, v) = + let open Fmt in + pf ppf' "\t%a%a %s" (styled `Blue string) k (styled `Faint string) ":" v + in let hp_betupled_input ppf' (name, kind, data) = - Fmt.pf ppf' "%s: (%s)@;" (Name.take name) kind; - Fmt.pf ppf' "%a" (Fmt.list ~sep: (Fmt.any "@.") hp_k_v) data; + let open Fmt in + pf + ppf' + "%a: %a@;" + (styled `Green string) + (Name.take name) + (styled `Faint (parens (styled `None (styled `Yellow string)))) + kind; + pf ppf' "%a" (list ~sep: (any "@.") hp_k_v) data; and betuple (input : Input.t) : Name.t * string * (string * string) list = let models = Input.jg_models2 input in let fill = Input.Template.fill ~models in |