dream sql_sessions

first one...

.gitea/workflows/build.yaml

@@ -6,7 +6,7 @@ jobs:
   build:
     runs-on: ubuntu-latest
     container:
-      image: pena/gitea-ocaml-ci:latest
+      image: zapashcanon/gitea-ocaml-ci:latest
     steps:
       - name: checkout
         uses: actions/checkout@v4

.ocamlformat

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

dune-project

@@ -1,15 +1,23 @@
 (lang dune 2.9)
-(name pellest)
-(implicit_transitive_deps false)
-(generate_opam_files true)
 
-(authors "swrup@protonmail.com" "pena <pena@kumikode.org>")
+(implicit_transitive_deps false)
-(maintainers "swrup@protonmail.com" "pena <pena@kumikode.org>")
+
+(name pellest)
+
+(authors "swrup")
+
+(maintainers "swrup@protonmail.com")
 
 (source
- (uri git+https://forge.kumikode.org/swrup/pellest.git))
+ (uri TODO/pellest))
-(homepage https://forge.kumikode.org/swrup/pellest)
+
-(bug_reports https://forge.kumikode.org/swrup/pellest/issues)
+(homepage TODO/pellest)
+
+(bug_reports TODO/pellest)
+
+(documentation TODO/pellest)
+
+(generate_opam_files true)
 
 (package
  (name pellest)
@@ -20,20 +28,4 @@
   (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,30 +2,15 @@
 opam-version: "2.0"
 synopsis: "OCaml library/executable to TODO"
 description: "pellest is an OCaml library/executable to TODO."
-maintainer: ["swrup@protonmail.com" "pena <pena@kumikode.org>"]
+maintainer: ["swrup@protonmail.com"]
-authors: ["swrup@protonmail.com" "pena <pena@kumikode.org>"]
+authors: ["swrup"]
 tags: ["pellest" "TODO" "TODO" "TODO" "TODO"]
-homepage: "https://forge.kumikode.org/swrup/pellest"
+homepage: "TODO/pellest"
-bug-reports: "https://forge.kumikode.org/swrup/pellest/issues"
+doc: "TODO/pellest"
+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: [
@@ -44,4 +29,4 @@ build: [
   ]
   ["dune" "install" "-p" name "--create-install-files" name]
 ]
-dev-repo: "git+https://forge.kumikode.org/swrup/pellest.git"
+dev-repo: "TODO/pellest"

src/dune

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

src/island_client.ml

@@ -191,22 +191,22 @@ let apply_last_key () =
   let open State in
   Kb.get_last ()
   |> Option.iter (fun code_or_key ->
-      let act =
+         let act =
-        (* when you add something here, don't forget to add the corresponding case in `keypress_handler` *)
+           (* when you add something here, don't forget to add the corresponding case in `keypress_handler` *)
-        match code_or_key with
+           match code_or_key with
-        | "KeyW" | "ArrowUp" -> Move_offset Up
+           | "KeyW" | "ArrowUp" -> Move_offset Up
-        | "KeyA" | "ArrowLeft" -> Move_offset Left
+           | "KeyA" | "ArrowLeft" -> Move_offset Left
-        | "KeyS" | "ArrowDown" -> Move_offset Down
+           | "KeyS" | "ArrowDown" -> Move_offset Down
-        | "KeyD" | "ArrowRight" -> Move_offset Right
+           | "KeyD" | "ArrowRight" -> Move_offset Right
-        | "m" -> Meditate
+           | "m" -> Meditate
-        | "p" -> Plant_wheat
+           | "p" -> Plant_wheat
-        | _ ->
+           | _ ->
-          (* if this happen, it means we're adding
+             (* if this happen, it means we're adding
                 bad values in `keypress_handler`
                 and that should be fixed *)
-          assert false
+             assert false
-      in
+         in
-      Queue.add act input_queue )
+         Queue.add act input_queue )
 
 let render state =
   draw_canvas state;

src/state.ml

@@ -104,13 +104,14 @@ let rec check_action state = function
         ; Set_offset (offset_x, offset_y)
         ]
       in
-      begin match dir' with
+      begin
-      | None -> Ok offset_action
+        match dir' with
-      | Some dir' -> begin
+        | None -> Ok offset_action
-        match check_action state (Move dir') with
+        | Some dir' -> begin
-        | Error _e as e -> e
+          match check_action state (Move dir') with
-        | Ok actions -> Ok (offset_action @ actions)
+          | Error _e as e -> e
-      end
+          | Ok actions -> Ok (offset_action @ actions)
+        end
       end
   | Plant_wheat -> (
     let { Map.x; y; dir } = state.player_pos in