8bit.lol
forked from
futur.blue/pegasus
objective categorical abstract machine language personal data server
set up mlx/tailwind
futur.blue
+173
-3
+4
bin/main.ml
+4
bin/main.ml
···
80
80
, "/xrpc/com.atproto.actor.putPreferences"
81
81
, Api.Actor.PutPreferences.handler ) ]
82
82
83
+
let static_routes =
84
+
[Dream.get "/public/**" (Dream.static "_build/default/public")]
85
+
83
86
let main =
84
87
let%lwt db = Data_store.connect ~create:true () in
85
88
let%lwt () = Data_store.init db in
···
93
96
(fun (fn, path, handler) ->
94
97
fn path (fun req -> handler ({req; db} : Xrpc.init)) )
95
98
handlers
99
+
@ static_routes
96
100
97
101
let () = Lwt_main.run main
+18
dune
+18
dune
···
1
+
(subdir
2
+
public/
3
+
(rule
4
+
(target index.css)
5
+
(deps
6
+
%{workspace_root}/tools/tailwindcss/tailwindcss
7
+
(:input %{workspace_root}/public/main.css)
8
+
(source_tree %{workspace_root}/pegasus/lib/templates))
9
+
(action
10
+
(chdir
11
+
%{workspace_root}
12
+
(run
13
+
%{workspace_root}/tools/tailwindcss/tailwindcss
14
+
-m
15
+
-i
16
+
%{input}
17
+
-o
18
+
%{target})))))
+17
-1
dune-project
+17
-1
dune-project
···
30
30
(url "git+https://github.com/roddyyaga/ppx_rapper.git")
31
31
(package (name ppx_rapper_lwt)))
32
32
33
+
33
34
(package
34
35
(name pegasus)
35
36
(synopsis "An atproto Personal Data Server implementation")
···
46
47
(cohttp-lwt-unix (>= 6.1.1))
47
48
(dns-client (>= 10.2.0))
48
49
dream
50
+
html_of_jsx
51
+
mlx
49
52
(re (>= 1.13.2))
50
53
(safepass (>= 3.1))
51
54
(timedesc (>= 3.1.0))
···
56
59
(ppx_deriving_yojson (>= 3.9.1))
57
60
ppx_rapper
58
61
ppx_rapper_lwt
59
-
(alcotest :with-test)))
62
+
(alcotest :with-test)
63
+
(ocamlformat-mlx :with-dev-setup)
64
+
(ocamlmerlin-mlx :with-dev-setup)))
60
65
61
66
(package
62
67
(name mist)
···
98
103
(hacl-star (>= 0.7.2))
99
104
(mirage-crypto-ec (>= 2.0.1))
100
105
(multibase (>= 0.1.0))))
106
+
107
+
(package
108
+
(name tailwindcss) (allow_empty))
109
+
110
+
(dialect
111
+
(name mlx)
112
+
(implementation
113
+
(extension mlx)
114
+
(merlin_reader mlx)
115
+
(preprocess
116
+
(run mlx-pp %{input-file}))))
+4
pegasus.opam
+4
pegasus.opam
···
18
18
"cohttp-lwt-unix" {>= "6.1.1"}
19
19
"dns-client" {>= "10.2.0"}
20
20
"dream"
21
+
"html_of_jsx"
22
+
"mlx"
21
23
"re" {>= "1.13.2"}
22
24
"safepass" {>= "3.1"}
23
25
"timedesc" {>= "3.1.0"}
···
29
31
"ppx_rapper"
30
32
"ppx_rapper_lwt"
31
33
"alcotest" {with-test}
34
+
"ocamlformat-mlx" {with-dev-setup}
35
+
"ocamlmerlin-mlx" {with-dev-setup}
32
36
"odoc" {with-doc}
33
37
]
34
38
build: [
+2
-1
pegasus/lib/dune
+2
-1
pegasus/lib/dune
···
9
9
cohttp-lwt-unix
10
10
dns-client.unix
11
11
dream
12
+
html_of_jsx
12
13
ipld
13
14
kleidos
14
15
lwt
···
25
26
ppx_deriving_yojson.runtime
26
27
ppx_rapper_lwt)
27
28
(preprocess
28
-
(pps lwt_ppx ppx_deriving_yojson ppx_rapper)))
29
+
(pps html_of_jsx.ppx lwt_ppx ppx_deriving_yojson ppx_rapper)))
29
30
30
31
(include_subdirs qualified)
+12
pegasus/lib/templates/layout.mlx
+12
pegasus/lib/templates/layout.mlx
···
1
+
open JSX
2
+
3
+
let make ?(title = "Pegasus") children =
4
+
<html lang="en">
5
+
<head>
6
+
<meta charset="utf-8" />
7
+
<meta name="viewport" content="width=device-width, initial-scale=1" />
8
+
<link rel="stylesheet" href="/public/index.css" />
9
+
<title>(string title)</title>
10
+
</head>
11
+
<body>(list children)</body>
12
+
</html>
+1
public/main.css
+1
public/main.css
···
1
+
@import "tailwindcss" source("../pegasus/lib/templates");
+27
tailwindcss.opam
+27
tailwindcss.opam
···
1
+
# This file is generated by dune, edit dune-project instead
2
+
opam-version: "2.0"
3
+
maintainer: ["futurGH"]
4
+
authors: ["futurGH"]
5
+
license: "MPL-2.0"
6
+
homepage: "https://github.com/futurGH/pegasus"
7
+
bug-reports: "https://github.com/futurGH/pegasus/issues"
8
+
depends: [
9
+
"dune" {>= "3.20"}
10
+
"odoc" {with-doc}
11
+
]
12
+
build: [
13
+
["dune" "subst"] {dev}
14
+
[
15
+
"dune"
16
+
"build"
17
+
"-p"
18
+
name
19
+
"-j"
20
+
jobs
21
+
"@install"
22
+
"@runtest" {with-test}
23
+
"@doc" {with-doc}
24
+
]
25
+
]
26
+
dev-repo: "git+https://github.com/futurGH/pegasus.git"
27
+
x-maintenance-intent: ["(latest)"]
+88
tools/tailwindcss/dune
+88
tools/tailwindcss/dune
···
1
+
(rule
2
+
(target tailwindcss-linux-x64)
3
+
(action
4
+
(progn
5
+
(with-stdout-to
6
+
%{target}
7
+
(bash
8
+
"cat 2> /dev/null < $(which tailwindcss) || curl -#fSL https://github.com/tailwindlabs/tailwindcss/releases/download/v4.1.7/%{target}"))
9
+
(run chmod +x %{target}))))
10
+
11
+
(rule
12
+
(target tailwindcss-linux-arm64)
13
+
(action
14
+
(progn
15
+
(with-stdout-to
16
+
%{target}
17
+
(bash
18
+
"cat 2> /dev/null < $(which tailwindcss) || curl -#fSL https://github.com/tailwindlabs/tailwindcss/releases/download/v4.1.7/%{target}"))
19
+
(run chmod +x %{target}))))
20
+
21
+
(rule
22
+
(target tailwindcss-macos-x64)
23
+
(action
24
+
(progn
25
+
(with-stdout-to
26
+
%{target}
27
+
(bash
28
+
"cat 2> /dev/null < $(which tailwindcss) || curl -#fSL https://github.com/tailwindlabs/tailwindcss/releases/download/v4.1.7/%{target}"))
29
+
(run chmod +x %{target}))))
30
+
31
+
(rule
32
+
(target tailwindcss-macos-arm64)
33
+
(action
34
+
(progn
35
+
(with-stdout-to
36
+
%{target}
37
+
(bash
38
+
"cat 2> /dev/null < $(which tailwindcss) || curl -#fSL https://github.com/tailwindlabs/tailwindcss/releases/download/v4.1.7/%{target}"))
39
+
(run chmod +x %{target}))))
40
+
41
+
(rule
42
+
(enabled_if
43
+
(and
44
+
(= %{architecture} amd64)
45
+
(= %{system} linux)))
46
+
(target tailwindcss)
47
+
(deps tailwindcss-linux-x64)
48
+
(action
49
+
(copy %{deps} tailwindcss)))
50
+
51
+
(rule
52
+
(enabled_if
53
+
(and
54
+
(= %{architecture} arm64)
55
+
(= %{system} linux)))
56
+
(target tailwindcss)
57
+
(deps tailwindcss-linux-arm64)
58
+
(action
59
+
(copy %{deps} tailwindcss)))
60
+
61
+
(rule
62
+
(enabled_if
63
+
(and
64
+
(= %{architecture} amd64)
65
+
(= %{system} macosx)))
66
+
(target tailwindcss)
67
+
(deps tailwindcss-macos-x64)
68
+
(action
69
+
(copy %{deps} tailwindcss)))
70
+
71
+
(rule
72
+
(enabled_if
73
+
(and
74
+
(= %{architecture} arm64)
75
+
(= %{system} macosx)))
76
+
(target tailwindcss)
77
+
(deps tailwindcss-macos-arm64)
78
+
(action
79
+
(copy %{deps} tailwindcss)))
80
+
81
+
(alias
82
+
(name default)
83
+
(deps tailwindcss))
84
+
85
+
(install
86
+
(section bin)
87
+
(package tailwindcss)
88
+
(files tailwindcss))