Archived
1
0
Disbranĉigi 0

Add a multi-paned index page

This commit is contained in:
Jaidyn Ann 2023-05-30 23:59:37 -05:00
parent dc14111285
commit 1bf41f30ad
5 changed files with 20 additions and 3 deletions

View File

@ -141,7 +141,8 @@
;; Send response for the / index.
(define (http-get-root #!optional irc-dir request path)
(spiffy:send-response status: 'ok body: "<h1>Index!!</h1>"))
(spiffy:send-response status: 'ok body:
(html-from-template "templates/index.html" '())))
;; Send a 404 response, with disappointed text.
@ -164,7 +165,7 @@
((/ "room" "*") . ,http-get-room-dir)
((/ "style.css") . ,http-get-style)
((/ "*") . ,http-404)
((/ "") . ,http-get-root)))
(("*") . ,http-get-root)))
;; Get a pair from an associative list based on the closest match to the

12
templates/index.html Normal file
View File

@ -0,0 +1,12 @@
<!DOCTYPE HTML>
<html lang="en">
<head>
<title>spidercat</title>
<meta http-equiv="Content-Type" content="text/html; charset=UTF-8">
<meta name="viewport" content="width=device-width, initial-scale=1.0">
</head>
<frameset cols="424px,*">
<frame name="rooms" src="/room">
<frame name="main" src="/room">
</frameset>
</html>

View File

@ -1 +1 @@
<tr><td><i>{{MESSAGE_DATE}}</i></td><td><b>{{MESSAGE_SENDER}}</b></td><td>{{MESSAGE_TEXT}}</td></tr>
<tr><td><i>{{MESSAGE_DATE}}</i></td><td><i>{{MESSAGE_TIME}}</i></td><td><b>{{MESSAGE_SENDER}}</b></td><td>{{MESSAGE_TEXT}}</td></tr>

View File

@ -3,6 +3,7 @@
<head>
<title>{{ROOM_TITLE}}</title>
<meta http-equiv="Content-Type" content="text/html; charset=UTF-8">
<meta name="viewport" content="width=device-width, initial-scale=1.0">
<link rel="stylesheet" href="/style.css" type="text/css">
</head>
<body>

View File

@ -3,7 +3,10 @@
<head>
<title>Rooms</title>
<meta http-equiv="Content-Type" content="text/html; charset=UTF-8">
<meta name="viewport" content="width=device-width, initial-scale=1.0">
<link rel="stylesheet" href="/style.css" type="text/css">
<base href="" target="main">
</head>
<body>
{{LIST_ITEMS}}