Changeset 62 in code
- Timestamp:
- Apr 1, 2024, 2:38:02 PM (13 months ago)
- Location:
- trunk
- Files:
-
- 3 edited
-
cli/html.ml (modified) (1 diff)
-
dune-project (modified) (1 diff)
-
lib/id.ml (modified) (1 diff)
Legend:
- Unmodified
- Added
- Removed
-
trunk/cli/html.ml
r59 r62 32 32 in 33 33 let footer = match htm.templates.footer with None -> "" | Some x -> replace x in 34 Printf.sprintf "<!DOCTYPE HTML>\n<html>\n<head>\n<link rel=\"icon\" href=\"/favicon. png\">\n<title>%s%s</title>\n%s\n%s\n<meta name=\"generator\" content=\"Logarion\">\n<meta name=\"viewport\" content=\"width=device-width, initial-scale=1.0\">\n<meta http-equiv=\"Content-Type\" content=\"text/html; charset=utf-8\">\n</head>\n<body>\n%s%s%s</body>\n</html>"34 Printf.sprintf "<!DOCTYPE HTML>\n<html>\n<head>\n<link rel=\"icon\" href=\"/favicon.ico\">\n<title>%s%s</title>\n%s\n%s\n<meta name=\"generator\" content=\"Logarion\">\n<meta name=\"viewport\" content=\"width=device-width, initial-scale=1.0\">\n<meta http-equiv=\"Content-Type\" content=\"text/html; charset=utf-8\">\n</head>\n<body>\n%s%s%s</body>\n</html>" 35 35 text_title (if site_title <> "" then (" • " ^ site_title) else "") 36 36 htm.style -
trunk/dune-project
r61 r62 4 4 (license EUPL-1.2) 5 5 (authors "orbifx <fox@orbitalfox.eu>") 6 (bug_reports "mailto:logarion @lists.tildeverse.org")6 (bug_reports "mailto:logarion-dev@chaotic.ninja") 7 7 (maintainers "Izuru Yakumo <yakumo.izuru@chaotic.ninja>") 8 8 (homepage "https://logarion.chaotic.ninja") -
trunk/lib/id.ml
r39 r62 1 1 let random_state = Random.State.make_self_init 2 3 (*module UUID = struct*)4 (*type t = Uuidm.t*)5 (*let compare = Uuidm.compare*)6 (*let to_string = Uuidm.to_string*)7 (*let of_string = Uuidm.of_string*)8 (*let to_bytes = Uuidm.to_bytes*)9 (*let of_bytes = Uuidm.of_bytes*)10 (*let generate ?(random_state=random_state ()) = Uuidm.v4_gen random_state*)11 (*let nil = Uuidm.nil*)12 (*end*)13 2 14 3 type t = string
Note:
See TracChangeset
for help on using the changeset viewer.
