update ocamlformat

.ocamlformat

@@ -1,51 +1,34 @@
-version=0.19.0
-align-cases=false
-align-constructors-decl=false
-align-variants-decl=false
+version=0.24.1
 assignment-operator=end-line
-break-before-in=fit-or-vertical
-break-cases=all
-break-collection-expressions=fit-or-vertical
+break-cases=fit
 break-fun-decl=wrap
 break-fun-sig=wrap
 break-infix=wrap
 break-infix-before-func=false
 break-separators=before
 break-sequences=true
-break-string-literals=auto
-break-struct=force
 cases-exp-indent=2
 cases-matching-exp-indent=normal
-disambiguate-non-breaking-match=false
 doc-comments=before
 doc-comments-padding=2
 doc-comments-tag-only=default
 dock-collection-brackets=false
 exp-grouping=preserve
-extension-indent=2
 field-space=loose
-function-indent=2
-function-indent-nested=never
-if-then-else=k-r
-indent-after-in=0
+if-then-else=compact
 indicate-multiline-delimiters=space
 indicate-nested-or-patterns=unsafe-no
 infix-precedence=indent
 leading-nested-match-parens=false
 let-and=sparse
-let-binding-indent=2
 let-binding-spacing=compact
 let-module=compact
 margin=80
-match-indent=0
-match-indent-nested=never
 max-indent=68
 module-item-spacing=sparse
-nested-match=wrap
 ocp-indent-compat=false
 parens-ite=false
 parens-tuple=always
-parens-tuple-patterns=multi-line-only
 parse-docstrings=true
 sequence-blank-line=preserve-one
 sequence-style=terminator
@@ -54,8 +37,6 @@ space-around-arrays=true
 space-around-lists=true
 space-around-records=true
 space-around-variants=true
-stritem-extension-indent=0
 type-decl=sparse
-type-decl-indent=2
 wrap-comments=false
 wrap-fun-args=true

src/ccbg.ml

@@ -1,6 +1,8 @@
 module Project_dirs = Directories.Project_dirs (struct
   let qualifier = "org"
+
   let organization = "zapashcanon"
+
   let application = "ccbg"
 end)
 
@@ -16,12 +18,12 @@ let config_dir =
   | Some dir -> dir
 
 let wallpaper_dir =
-  match User_dirs.picture_dir  with
+  match User_dirs.picture_dir with
   | None -> err "can't compute picture directory path"
-  | Some dir ->
-    Filename.concat dir "wallpaper"
+  | Some dir -> Filename.concat dir "wallpaper"
 
 let time = 600
+
 let time = Format.sprintf "%ds" time
 
 let () = Random.self_init ()
@@ -29,24 +31,30 @@ let () = Random.self_init ()
 let wallpaper_files =
   match Bos.OS.Dir.contents (Fpath.v wallpaper_dir) with
   | Ok cnt ->
-    let cnt = List.filter (fun path ->
-      match Bos.OS.Dir.exists path with
-      | Ok false -> true
-      | Ok true -> false
-      | _ -> false
-    ) cnt in
+    let cnt =
+      List.filter
+        (fun path ->
+          match Bos.OS.Dir.exists path with
+          | Ok false -> true
+          | Ok true -> false
+          | _ -> false )
+        cnt
+    in
     Array.of_list (List.map Fpath.to_string cnt)
   | Error (`Msg e) -> err e
 
 let random_wallpaper =
   let len = Array.length wallpaper_files in
-  fun () ->
-    wallpaper_files.(Random.int len)
+  fun () -> wallpaper_files.(Random.int len)
 
 let rec new_wallpaper () =
-  match Bos.OS.Cmd.run Bos.Cmd.(v "timeout" % time  % "swaybg" % "--mode" % "fill" %"--image" % (random_wallpaper ())) with
-  | _ ->
-    new_wallpaper ()
+  match
+    Bos.OS.Cmd.run
+      Bos.Cmd.(
+        v "timeout" % time % "swaybg" % "--mode" % "fill" % "--image"
+        % random_wallpaper () )
+  with
+  | _ -> new_wallpaper ()
 
 let () =
   match Bos.OS.Cmd.run Bos.Cmd.(v "killall" % "swaybg") with