add blogroll on About/Community page

mirage · Aug 7, 2014 · b4fc80b · b4fc80b
1 parent b696c26
commit b4fc80b
Show file tree

Hide file tree

Showing 2 changed files with 10 additions and 0 deletions.
diff --git a/src/pages.ml b/src/pages.ml
@@ -37,6 +37,7 @@ module Global = struct
           <li><a href="/community/">Background</a></li>
           <li><a href="/community/">Contact</a></li>
           <li><a href="/community/#team">Team</a></li>
+          <li><a href="/community/#blogroll">Blogroll</a></li>
           <li><a href="/links/">Links</a></li>
         </ul>
       </li>
@@ -165,6 +166,7 @@ module About = struct
     lwt r = read_file read_fn "/about-community.md" in
     lwt b = read_file read_fn "/about-b.md" in
     lwt f = read_file read_fn "/about-funding.md" in
+    lwt br = read_file read_fn "/about-blogroll.md" in
     let content = <:html<
     <a name="about"> </a>
     <div class="row">
@@ -179,6 +181,10 @@ module About = struct
     <div class="row">
       <div class="small-12 medium-6 columns">$l$</div>
       <div class="small-12 medium-6 columns">$r$</div>
+    </div>
+    <a name="blogroll"> </a>
+    <div class="row">
+      <div class="small-12 medium-6 columns">$br$</div>
     </div> >> in
     return (Global.page ~title:"Community" ~headers:[] ~content)
 end

diff --git a/tmpl/about-blogroll.md b/tmpl/about-blogroll.md
@@ -0,0 +1,4 @@
+### Blogroll
+
+* **[Some Random Idiot](http://www.somerandomidiot.com/)**
+* **[My Little Garden of Code](http://philtomson.github.io/blog/2014/07/09/core-dot-async-example/)**