debug: added evince

a48b49d8 · Philippe Veber · 2043db3e · a48b49d8
Commit a48b49d8 authored Apr 01, 2019 by Philippe Veber
Hide whitespace changes
Inline Side-by-side

Showing with 4 additions and 0 deletions

lib/debug.ml lib/debug.ml +4 -0

No files found.
--- a/lib/debug.ml
+++ b/lib/debug.ml
@@ -29,6 +29,10 @@ let firefox w =
  Sys.command (sprintf "firefox %s" (path w))
  |> ignore

+let evince w =
+  Sys.command (sprintf "evince %s" (path w))
+  |> ignore
+
 let workflow_of_template t =
  let open Bistro.Shell_dsl in
  Workflow.shell [