this repo has no description
cshell -> shelter
+47
-37
+1
README.md
+1
README.md
+11
-7
cshell.opam
shelter.opam
+11
-7
cshell.opam
shelter.opam
···
1
1
# This file is generated by dune, edit dune-project instead
2
2
opam-version: "2.0"
3
-
synopsis: "A short synopsis"
4
-
description: "A longer description"
5
-
maintainer: ["Maintainer Name <maintainer@example.com>"]
6
-
authors: ["Author Name <author@example.com>"]
7
-
license: "LICENSE"
8
-
tags: ["add topics" "to describe" "your" "project"]
3
+
synopsis: "Shelter from the Storm"
4
+
description: "A shell session shim to help you explore!"
5
+
maintainer: ["Patrick Ferris <patrick@sirref.org>"]
6
+
authors: ["Patrick Ferris <patrick@sirref.org>"]
7
+
license: "ISC"
8
+
tags: ["shell"]
9
9
homepage: "https://github.com/username/reponame"
10
-
doc: "https://url/to/documentation"
11
10
bug-reports: "https://github.com/username/reponame/issues"
12
11
depends: [
13
12
"dune" {>= "3.17"}
14
13
"ocaml"
14
+
"eio_posix"
15
+
"void"
16
+
"zfs"
17
+
"cid"
18
+
"ppx_repr"
15
19
"odoc" {with-doc}
16
20
]
17
21
build: [
+16
-11
dune-project
+16
-11
dune-project
···
1
1
(lang dune 3.17)
2
2
3
-
(name cshell)
3
+
(name shelter)
4
4
5
5
(generate_opam_files true)
6
6
7
7
(source
8
8
(github username/reponame))
9
9
10
-
(authors "Author Name <author@example.com>")
10
+
(authors "Patrick Ferris <patrick@sirref.org>")
11
11
12
-
(maintainers "Maintainer Name <maintainer@example.com>")
12
+
(maintainers "Patrick Ferris <patrick@sirref.org>")
13
13
14
-
(license LICENSE)
14
+
(license ISC)
15
15
16
-
(documentation https://url/to/documentation)
17
16
18
17
(package
19
-
(name cshell)
20
-
(synopsis "A short synopsis")
21
-
(description "A longer description")
22
-
(depends ocaml)
18
+
(name shelter)
19
+
(synopsis "Shelter from the Storm")
20
+
(description "A shell session shim to help you explore!")
21
+
(depends
22
+
ocaml
23
+
eio_posix
24
+
void
25
+
zfs
26
+
cid
27
+
ppx_repr
28
+
)
23
29
(tags
24
-
("add topics" "to describe" your project)))
30
+
("shell")))
25
31
26
-
; See the complete stanza docs at https://dune.readthedocs.io/en/stable/reference/dune-project/index.html
+3
-3
src/bin/dune
+3
-3
src/bin/dune
+2
-2
src/bin/main.ml
+2
-2
src/bin/main.ml
···
5
5
let merge = Irmin.Merge.default (Repr.option t)
6
6
end
7
7
8
-
module Pass = Cshell.Make (History) (Cshell_passthrough)
9
-
module Shelter = Cshell.Make (Shelter.History) (Shelter)
8
+
module Pass = Shelter.Make (History) (Shelter_passthrough)
9
+
module Shelter = Shelter.Make (Shelter_main.History) (Shelter_main)
10
10
11
11
let home = Unix.getenv "HOME"
12
12
src/lib/cshell.ml
src/lib/shelter.ml
src/lib/cshell.ml
src/lib/shelter.ml
+2
-2
src/lib/dune
+2
-2
src/lib/dune
+3
-3
src/lib/passthrough/cshell_passthrough.ml
src/lib/passthrough/shelter_passthrough.ml
+3
-3
src/lib/passthrough/cshell_passthrough.ml
src/lib/passthrough/shelter_passthrough.ml
···
18
18
19
19
type ctx = unit
20
20
21
-
let init _ _ (Cshell.History.Store ((module S), store) : entry Cshell.History.t)
22
-
=
21
+
let init _ _
22
+
(Shelter.History.Store ((module S), store) : entry Shelter.History.t) =
23
23
match S.list store history_key with
24
24
| [] -> ()
25
25
| xs ->
···
34
34
List.iter (fun v -> LNoise.history_add v |> ignore) entries
35
35
36
36
let run _fs clock proc
37
-
( ((Cshell.History.Store ((module S), store) : entry Cshell.History.t) as
37
+
( ((Shelter.History.Store ((module S), store) : entry Shelter.History.t) as
38
38
full_store),
39
39
() ) (Exec command) =
40
40
let info () =
-1
src/lib/passthrough/cshell_passthrough.mli
-1
src/lib/passthrough/cshell_passthrough.mli
···
1
-
include Cshell.Engine.S with type entry = string
+3
-3
src/lib/passthrough/dune
+3
-3
src/lib/passthrough/dune
+1
src/lib/passthrough/shelter_passthrough.mli
+1
src/lib/passthrough/shelter_passthrough.mli
···
1
+
include Shelter.Engine.S with type entry = string
+3
-3
src/lib/shelter/dune
+3
-3
src/lib/shelter/dune
+1
-1
src/lib/shelter/shelter.ml
src/lib/shelter/shelter_main.ml
+1
-1
src/lib/shelter/shelter.ml
src/lib/shelter/shelter_main.ml