add more info to base pages

pages/about.hamlet

@@ -1,5 +1,24 @@
 <h1>About Me
 <p>
   I'm dfsek, I work mostly on Minecraft stuff at Polyhedral Development (lots of worldgen stuff), as well as on
-  my homelab. This website is still a work-in-progress, it's a long overdue from-scratch project to replace
+  my homelab.
+
+<h2>Things I Think are Pretty Cool
+<ul>
+  <li>Computer
+  <li>Haskell (and functional programming in general)
+  <li>
+    JVM stuff (sometimes)
+    <ul>
+      <li>Java (new Java is kind of cool sometimes)
+      <li>Kotlin (sometimes)
+  <li>Compilers
+  <li>Open-Source Stuff
+  <li>Anything Self-hosted
+  <li>Linux
+
+<h2>Website
+
+<p>
+  This website is still a work-in-progress, it's a long overdue from-scratch project to replace
   the bloated nightmare that 15 year-old me made.

pages/projects.hamlet

@@ -1,2 +1,37 @@
 <h1>Projects
-<p>TODO
+<ul>
+  <li>
+    <a href="https://github.com/PolyhedralDev/Terra">
+      Terra
+    <p>
+      A world generation modding platform for Minecraft.
+  <li>
+    <a href="https://github.com/PolyhedralDev/Paralithic">
+      Paralithic
+    <p>
+      My first compiler! A Java mathematical expression evaluator that compiles to Java bytecode.
+  <li>
+    <a href="https://github.com/PolyhedralDev/Substrate">
+      Substrate/Subscript
+    <p>
+      WIP - A functional scripting language for JVM applications.
+  <li>
+    <a href="https://git.dfsek.com/dfsek/feldspar">
+      Feldspar
+    <p>
+      A very simple Android Matrix chat client.
+  <li>
+    <a href="https://git.dfsek.com/dfsek/yamgur">
+      Yamgur
+    <p>
+      Super simple image hosting thingy.
+  <li>
+    <a href="https://git.dfsek.com/dfsek/interdimensional">
+      Yamgur
+    <p>
+      Super simple application portal for my homelab.
+  <li>
+    <a href="https://git.dfsek.com/dfsek/dfsek.com">
+      dfsek.com
+    <p>
+      This website.

src/Application.hs

@@ -166,9 +166,6 @@ getBlogR = defaultLayout $(whamletFile "pages/blog.hamlet")
 getBlogTEMP_RIVERS :: Handler Html
 getBlogTEMP_RIVERS = defaultLayout $(whamletFile "static_blog/noise_rivers.hamlet")
 
-unwrapResult :: (Monad m, Functor f) => m (f (Entity b)) -> m (f b)
-unwrapResult result = result >>= (\m -> return $ entityVal <$> m)
-
 appMain :: IO ()
 appMain = do
   c' <- decodeFileEither "config.yml"

templates/default-layout.hamlet

@@ -8,7 +8,7 @@
             <table .menu-children>
               $forall ChildItem childLabel childRoute <- children
                 <tr>
-                  <td :Just route == mcurrentRoute:.active>
+                  <td :Just childRoute == mcurrentRoute:.active>
                     <a href="@{childRoute}">#{childLabel}
     <div #signin>
       $maybe un <- user
@@ -26,4 +26,4 @@
 <footer>
   <div .container>
     <p .text-muted>
-      dfsek.com
+      dfsek.com - <a href="https://git.dfsek.com/dfsek/dfsek.com">Source Code</a>