Add disable status in state

src/state.ml

@@ -38,12 +38,11 @@ open Core.Std;;
 
 (* Module to display the current state of the program *)
 
-(* TODO Print whether auto-launch is set or not *)
 (* Display current state *)
 let print_current ~(rc:Rc.t) () =
-  let log =
+  let tmp, log =
     Tmp_file.init ()
-    |> (fun tmp -> Tmp_file.get_accurate_log ~tmp ())
+    |> (fun tmp -> (tmp, Tmp_file.get_accurate_log ~tmp ()))
   in
   let next_command =
     match
@@ -56,5 +55,10 @@ let print_current ~(rc:Rc.t) () =
       |> fun entry -> sprintf "Next: command %i, '%s'" num entry#command
     | None -> "Nothing next"
   in
-  Messages.ok next_command
+  let is_disabled =
+    Tmp_file.is_disabled ~tmp
+    |> sprintf "Disabled: %b"
+  in
+  Messages.ok next_command;
+  Messages.ok is_disabled
 ;;