objective categorical abstract machine language personal data server
Show favicon on authorize page
+25
-14
+1
-1
frontend/src/icons/ChevronDownIcon.mlx
+1
-1
frontend/src/icons/ChevronDownIcon.mlx
+24
-13
frontend/src/templates/OauthAuthorizePage.mlx
+24
-13
frontend/src/templates/OauthAuthorizePage.mlx
···
34
34
let rendered_name =
35
35
match client_name with
36
36
| Some client_name ->
37
-
<span className="text-mana-100 font-serif">
37
+
<span className="text-mana-100 font-serif mr-1">
38
38
(string client_name)
39
39
<span className="font-sans">(string (" (" ^ host ^ ")"))</span>
40
40
</span>
41
41
| None when String.length path = 0 ->
42
-
<span className="text-mana-100 font-serif">(string host)</span>
42
+
<span className="text-mana-100 font-serif mr-1">(string host)</span>
43
43
| None ->
44
-
<span className="text-mana-100 font-serif">
44
+
<span className="text-mana-100 font-serif mr-1">
45
45
(string host) <span className="text-mana-40">(string path)</span>
46
46
</span>
47
47
in
···
53
53
Webapi.Dom.Location.search Webapi.Dom.location
54
54
in
55
55
let add_account_url = "/account/login" ^ query_string in
56
+
let favicon_url, set_favicon_url =
57
+
useState (fun () -> "https://" ^ host ^ "/favicon.ico")
58
+
in
56
59
<form className="w-full h-auto max-w-lg px-4 sm:px-0">
57
60
<h1 className="text-2xl font-serif text-mana-200 mb-2">
58
61
(string ("authorizing " ^ host))
59
62
</h1>
60
63
<span className="w-full inline text-mist-100">
61
64
(string "You're signing into ")
65
+
( if favicon_url <> "" then
66
+
<img
67
+
src=favicon_url
68
+
className="w-4 h-4 inline ml-1.5 mr-1 -mt-0.5"
69
+
onError=(fun _ -> set_favicon_url (fun _ -> "")) />
70
+
else null )
62
71
rendered_name
63
72
(string " as ")
64
73
<Aria.Select name="did" className="inline" defaultValue=current_user.did>
65
74
<Aria.Button
66
-
className="group inline-flex flex-row items-center px-1.5 py-1 -mx-0.5 -my-1 rounded-lg \
67
-
focus-visible:outline-none hover:bg-mist-20/40 \
68
-
active:bg-mist-20/40">
75
+
className="group inline-flex flex-row items-center px-1.5 py-1 \
76
+
-mx-0.5 -my-1 rounded-lg focus-visible:outline-none \
77
+
hover:bg-mist-20/40 active:bg-mist-20/40">
69
78
<Aria.SelectValue
70
-
className="text-mana-100 font-serif inline-flex items-center gap-x-1"
79
+
className="text-mana-100 font-serif inline-flex items-center \
80
+
gap-x-1"
71
81
/>
72
82
</Aria.Button>
73
83
<Aria.Popover
···
94
104
| Some src ->
95
105
<img src className="w-5 h-5 mr-1 rounded-md" />
96
106
| None ->
97
-
null)
107
+
null )
98
108
<span className="self-baseline select-none">
99
109
(string ("@" ^ user.handle))
100
110
</span>
···
107
117
logged_in_users
108
118
|> Array.of_list |> array )
109
119
<Aria.ListBoxItem
110
-
className="flex flex-row items-center p-1 pl-2 text-mana-100 font-normal \
111
-
underline rounded-md focus-visible:outline-none \
112
-
data-hovered:text-mist-20 data-focused:text-mist-20 \
113
-
data-hovered:bg-mana-100 data-focused:bg-mana-100"
120
+
className="flex flex-row items-center p-1 pl-2 text-mana-100 \
121
+
font-normal underline rounded-md \
122
+
focus-visible:outline-none data-hovered:text-mist-20 \
123
+
data-focused:text-mist-20 data-hovered:bg-mana-100 \
124
+
data-focused:bg-mana-100"
114
125
href=add_account_url>
115
126
(string "add account")
116
127
</Aria.ListBoxItem>
···
146
157
(string "authorize")
147
158
</Button>
148
159
</div>
149
-
</form>
160
+
</form>