8bit.lol
forked from
futur.blue/pegasus
objective categorical abstract machine language personal data server
Unify login/sign up/migrate footer text
futur.blue
+43
-23
+8
-3
frontend/src/components/AccountSidebar.mlx
+8
-3
frontend/src/components/AccountSidebar.mlx
···
1
1
[@@@ocaml.warning "-26-27"]
2
+
2
3
open React
3
4
4
5
type actor = AccountSwitcher.actor
···
15
16
header=(<AccountSwitcher
16
17
current_user logged_in_users add_account_url="/account/login"
17
18
/>)
18
-
footer=(<a href=("/account/logout?did=" ^ (Js.Global.encodeURIComponent current_user.did))>
19
-
<Button kind=`Secondary className="mt-2 justify-start pl-0">(string "log out")</Button>
20
-
</a>)
19
+
footer=(<a
20
+
href=( "/account/logout?did="
21
+
^ Js.Global.encodeURIComponent current_user.did )>
22
+
<Button kind=`Secondary className="mt-2 justify-start pl-0">
23
+
(string "log out")
24
+
</Button>
25
+
</a>)
21
26
/>
+17
-7
frontend/src/templates/MigratePage.mlx
+17
-7
frontend/src/templates/MigratePage.mlx
···
195
195
</form>
196
196
<div className="mt-4">
197
197
<span className="text-sm text-mist-100">
198
-
(string "Don't have an account? ")
199
-
<a
200
-
href="/account/signup"
201
-
className="text-mana-100 underline hover:text-mana-200">
202
-
(string "sign up")
203
-
</a>
204
-
(string " instead.")
198
+
(string "or:")
199
+
<ul className="mt-1 pl-2">
200
+
<li className="mb-1">
201
+
<a
202
+
className="text-mana-100 underline hover:text-mana-200"
203
+
href="/account/login">
204
+
(string "sign in")
205
+
</a>
206
+
</li>
207
+
<li>
208
+
<a
209
+
className="text-mana-100 underline hover:text-mana-200"
210
+
href="/account/signup">
211
+
(string "create an account")
212
+
</a>
213
+
</li>
214
+
</ul>
205
215
</span>
206
216
</div>
207
217
</div>
+18
-13
frontend/src/templates/SignupPage.mlx
+18
-13
frontend/src/templates/SignupPage.mlx
···
40
40
</Button>
41
41
</form>
42
42
<span className="text-sm text-mist-100">
43
-
(string "already have an account? ")
44
-
<a
45
-
href="/account/login"
46
-
className="text-mana-100 underline hover:text-mana-200">
47
-
(string "sign in")
48
-
</a>
49
-
(string " or ")
50
-
<a
51
-
href="/account/migrate"
52
-
className="text-mana-100 underline hover:text-mana-200">
53
-
(string "migrate from another PDS")
54
-
</a>
55
-
(string ".")
43
+
(string "already have an account?")
44
+
<ul className="mt-1 pl-2">
45
+
<li className="mb-1">
46
+
<a
47
+
className="text-mana-100 underline hover:text-mana-200"
48
+
href="/account/login">
49
+
(string "sign in")
50
+
</a>
51
+
(string ", or")
52
+
</li>
53
+
<li>
54
+
<a
55
+
className="text-mana-100 underline hover:text-mana-200"
56
+
href="/account/migrate">
57
+
(string "migrate from another PDS")
58
+
</a>
59
+
</li>
60
+
</ul>
56
61
</span>
57
62
</main>