Add a multi-paned index page
This commit is contained in:
parent
dc14111285
commit
1bf41f30ad
|
@ -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
|
||||
|
|
|
@ -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>
|
|
@ -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>
|
||||
|
|
|
@ -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>
|
||||
|
|
|
@ -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}}
|
||||
|
|
Reference in New Issue