widgets: add variants of printf taking continuations
This commit is contained in:
parent
8306dc5ad7
commit
78c4b3a702
|
@ -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)
|
||||
|
||||
|
|
Loading…
Reference in New Issue