From 3df27ffb2bd40f3eaeed6dfb08ef3041cc60bfe0 Mon Sep 17 00:00:00 2001
From: ·𐑑𐑴𐑕𐑑𐑩𐑤
Date: Wed, 10 Dec 2025 13:00:26 +0000
Subject: ocaml onset

---
 lib/editor.ml | 19 +++++++++++++++++++
 1 file changed, 19 insertions(+)
 create mode 100644 lib/editor.ml

(limited to 'lib/editor.ml')

diff --git a/lib/editor.ml b/lib/editor.ml
new file mode 100644
index 0000000..a0a6752
--- /dev/null
+++ b/lib/editor.ml
@@ -0,0 +1,19 @@
+(*─────────────────────────────────────────────────────────────────────────────┐
+│ SPDX-FileCopyrightText: 2025 toastal <https://toast.al/contact/>             │
+│ SPDX-License-Identifier: LGPL-2.1-or-later WITH OCaml-LGPL-linking-exception │
+└─────────────────────────────────────────────────────────────────────────────*)
+
+let find () =
+	match Sys.getenv_opt "VISUAL" with
+	| Some v -> v
+	| None ->
+		match Sys.getenv_opt "EDITOR" with
+		| Some e -> e
+		| None -> "vi"
+
+let run_on file =
+	match find () with
+	| ed when String.contains ed ' ' ->
+		Unix.execvp "/bin/sh" [|"/bin/sh"; "-c"; ed ^ " " ^ file|]
+	| ed ->
+		Unix.execvp ed [|ed; file|]
-- 
cgit v1.2.3