let pager_cmd =
try
Some
(try
Sys.getenv "OASIS_PAGER"
with Not_found ->
begin
try
Sys.getenv "PAGER"
with Not_found ->
OASISFileUtil.which ~ctxt:!BaseContext.default "pager"
end)
with Not_found ->
None