widgets: add variants of printf taking continuations

This commit is contained in:
Frédéric Bour 2020-01-09 09:15:28 +01:00
parent 8306dc5ad7
commit 78c4b3a702
1 changed files with 6 additions and 0 deletions

View File

@ -33,6 +33,12 @@ let printf ?attr fmt =
let fmt ?attr fmt =
Format.kasprintf (string ?attr) fmt
let kprintf k ?attr fmt =
Printf.ksprintf (fun str -> k (string ?attr str)) fmt
let kfmt k ?attr fmt =
Format.kasprintf (fun str -> k (string ?attr str)) fmt
let attr_menu_main = A.(bg green ++ fg black)
let attr_menu_sub = A.(bg lightgreen ++ fg black)