fmt+deps

.ocamlformat

@@ -1,4 +1,4 @@
-version=0.27.0
+version=0.28.1
 assignment-operator=end-line
 break-cases=fit
 break-fun-decl=wrap

dune-project

@@ -1,23 +1,15 @@
 (lang dune 2.9)
-
-(implicit_transitive_deps false)
-
 (name pellest)
+(implicit_transitive_deps false)
+(generate_opam_files true)
 
-(authors "swrup")
+(authors "swrup@protonmail.com" "pena <pena@kumikode.org>")
-
+(maintainers "swrup@protonmail.com" "pena <pena@kumikode.org>")
-(maintainers "swrup@protonmail.com")
 
 (source
- (uri TODO/pellest))
+ (uri git+https://forge.kumikode.org/swrup/pellest.git))
-
+(homepage https://forge.kumikode.org/swrup/pellest)
-(homepage TODO/pellest)
+(bug_reports https://forge.kumikode.org/swrup/pellest/issues)
-
-(bug_reports TODO/pellest)
-
-(documentation TODO/pellest)
-
-(generate_opam_files true)
 
 (package
  (name pellest)
@@ -28,4 +20,20 @@
   (pellest TODO TODO TODO TODO))
  (depends
   (ocaml
-   (>= 4.08))))
+   (>= 4.08))
+   bos
+   brr
+   caqti
+   caqti-driver-sqlite3
+   directories
+   dream
+   emile
+   fpath
+   lambdasoup
+   lwt
+   lwt_ppx
+   safepass
+   scfg
+   tyxml
+   uri
+   uuidm))

pellest.opam

@@ -2,15 +2,30 @@
 opam-version: "2.0"
 synopsis: "OCaml library/executable to TODO"
 description: "pellest is an OCaml library/executable to TODO."
-maintainer: ["swrup@protonmail.com"]
+maintainer: ["swrup@protonmail.com" "pena <pena@kumikode.org>"]
-authors: ["swrup"]
+authors: ["swrup@protonmail.com" "pena <pena@kumikode.org>"]
 tags: ["pellest" "TODO" "TODO" "TODO" "TODO"]
-homepage: "TODO/pellest"
+homepage: "https://forge.kumikode.org/swrup/pellest"
-doc: "TODO/pellest"
+bug-reports: "https://forge.kumikode.org/swrup/pellest/issues"
-bug-reports: "TODO/pellest"
 depends: [
   "dune" {>= "2.9"}
   "ocaml" {>= "4.08"}
+  "bos"
+  "brr"
+  "caqti"
+  "caqti-driver-sqlite3"
+  "directories"
+  "dream"
+  "emile"
+  "fpath"
+  "lambdasoup"
+  "lwt"
+  "lwt_ppx"
+  "safepass"
+  "scfg"
+  "tyxml"
+  "uri"
+  "uuidm"
   "odoc" {with-doc}
 ]
 build: [
@@ -29,4 +44,4 @@ build: [
   ]
   ["dune" "install" "-p" name "--create-install-files" name]
 ]
-dev-repo: "TODO/pellest"
+dev-repo: "git+https://forge.kumikode.org/swrup/pellest.git"

src/dune

@@ -17,6 +17,8 @@
   user
   ws)
  (libraries
+  shared
+  ;
   bos
   caqti
   caqti.blocking
@@ -24,7 +26,6 @@
   directories
   dream
   emile
-  shared
   fpath
   lambdasoup
   lwt

src/state.ml

@@ -104,8 +104,7 @@ let rec check_action state = function
         ; Set_offset (offset_x, offset_y)
         ]
       in
-      begin
+      begin match dir' with
-        match dir' with
       | None -> Ok offset_action
       | Some dir' -> begin
         match check_action state (Move dir') with