From 0ea9e56921f887613da5472f12c1e2ae229cb829 Mon Sep 17 00:00:00 2001
From: Christopher Allan Webber <cwebber@dustycloud.org>
Date: Fri, 20 Jan 2017 20:48:25 -0600
Subject: [PATCH 1/1] Chat alignment works "properly", thanks to a hack

---
 data/web-static/css/main.css | 53 ++++++++++++++++++++++++++++++++----
 mudsync/networking.scm       | 11 ++++----
 2 files changed, 53 insertions(+), 11 deletions(-)

diff --git a/data/web-static/css/main.css b/data/web-static/css/main.css
index 67113ca..f9e9cd0 100644
--- a/data/web-static/css/main.css
+++ b/data/web-static/css/main.css
@@ -23,24 +23,65 @@ body {
     border: 0px;
     margin: 0px;
     font-family: 'Inconsolata', monospace;
+    font-size: 12pt;
 }
 
 #stream-metabox {
-    flex: 1;
+    flex-direction: column;
+    display: flex;
     min-height: 85vh;
     max-height: 85vh;
     background-color: #d5d5d5;
-    padding: 10px;
-    overflow-y: scroll;
+    padding-left: 15px;
+    padding-right: 15px;
+    padding-bottom: 0px;
+    padding-top: 0px;
+    overflow-y: auto;
+}
+
+/*
+ Alignment hack:
+   http://stackoverflow.com/a/37515194
+*/ 
+#stream-metabox > :first-child {
+    margin-top: auto !important;
+}
+
+#stream {
+    background-color: #fbfbfb;
+    padding-bottom: .25em;
 }
 
+
+.stream-entry {
+    background-color: #fdfdfd;
+    padding-left: 5px;
+    padding-right: 5px;
+    padding-top: 0px;
+    padding-bottom: 0px;
+    border-left-style: solid;
+    border-left-width: 2px;
+    border-left-color: #7b7b7b;
+    margin-top: .5em;
+    margin-bottom: 0px;
+    margin-left: -2px;
+    margin-right: 0px;
+}
+
+.stream-entry p {
+    margin-top: .25em;
+    margin-bottom: 0px;
+}
+
+
+
 #input-metabox {
     flex: 1;
     min-height: 15vh;
     max-height: 15vh;
     background-color: #414141;
     color: #d5d5d5;
-    padding: 10px;
+    padding: 15px;
 }
 
 input {
@@ -52,4 +93,6 @@ input {
     background-color: #ffffff;
     padding: 5px;
     width: 75%;
-}
\ No newline at end of file
+    font-family: 'Inconsolata', monospace;
+    font-size: 12pt;
+}
diff --git a/mudsync/networking.scm b/mudsync/networking.scm
index e553e01..4417cfd 100644
--- a/mudsync/networking.scm
+++ b/mudsync/networking.scm
@@ -210,17 +210,16 @@
 
 (define (view:main-display request body)
   (define one-entry
-    '(div (@ (class "stream-entry"))
-          (p "This is an entry!")
-          (p "Let's try a few paragraphs")
-          (p "okay?")))
+     '(div (@ (class "stream-entry"))
+          (p (b "<foo>") " Wow, it's so shiny!")))
 
   (define body-tmpl
     `((div (@ (id "stream-metabox"))
            (div (@ (id "stream"))
-                ,@(map (const one-entry) (iota 10))))
+                ,@(map (const one-entry) (iota 25))
+                (div (@ (class "stream-entry"))
+                     (p (b "<bar>") " Last one!"))))
       (div (@ (id "input-metabox"))
-           (p "test test")
            (input (@ (id "input"))))))
 
   (define (main-tmpl)
-- 
2.31.1