Browse Source

update ocamlformat

master
zapashcanon 11 months ago
parent
commit
c907195169
Signed by: zapashcanon GPG Key ID: 8981C3C62D1D28F1
  1. 25
      .ocamlformat
  2. 36
      src/ccbg.ml

25
.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

36
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

Loading…
Cancel
Save