From b4fc80b9757a05ec1e27351b5a543dcc55c20fe0 Mon Sep 17 00:00:00 2001 From: manu Date: Thu, 7 Aug 2014 23:52:06 +1200 Subject: [PATCH 1/3] add blogroll on About/Community page --- src/pages.ml | 6 ++++++ tmpl/about-blogroll.md | 4 ++++ 2 files changed, 10 insertions(+) create mode 100644 tmpl/about-blogroll.md diff --git a/src/pages.ml b/src/pages.ml index e08bd3164..8827947ff 100644 --- a/src/pages.ml +++ b/src/pages.ml @@ -37,6 +37,7 @@ module Global = struct
  • Background
  • Contact
  • Team
  • +
  • Blogroll
  • Links
  • @@ -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<
    @@ -179,6 +181,10 @@ module About = struct
    $l$
    $r$
    +
    + +
    +
    $br$
    >> in return (Global.page ~title:"Community" ~headers:[] ~content) end diff --git a/tmpl/about-blogroll.md b/tmpl/about-blogroll.md new file mode 100644 index 000000000..9c0cb9203 --- /dev/null +++ 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/)** \ No newline at end of file From efac6c2e947fb08f445c77b8d7eecb8917854dc9 Mon Sep 17 00:00:00 2001 From: manu Date: Thu, 7 Aug 2014 23:52:06 +1200 Subject: [PATCH 2/3] add blogroll on About/Community page --- src/pages.ml | 8 ++++++++ tmpl/about-b.md | 3 --- tmpl/about-blogroll.md | 4 ++++ 3 files changed, 12 insertions(+), 3 deletions(-) create mode 100644 tmpl/about-blogroll.md diff --git a/src/pages.ml b/src/pages.ml index e08bd3164..bd2e9cc3c 100644 --- a/src/pages.ml +++ b/src/pages.ml @@ -37,6 +37,7 @@ module Global = struct
  • Background
  • Contact
  • Team
  • +
  • Blogroll
  • Links
  • @@ -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<
    @@ -174,11 +176,17 @@ module About = struct
    $b$
    +
    $l$
    $r$
    +
    +
    + +
    +
    $br$
    >> in return (Global.page ~title:"Community" ~headers:[] ~content) end diff --git a/tmpl/about-b.md b/tmpl/about-b.md index adb04a7e9..01e8f12f1 100644 --- a/tmpl/about-b.md +++ b/tmpl/about-b.md @@ -1,5 +1,3 @@ -
    -
    • Join the e-mail developer mailing list or search the past archives. This is a fairly low-volume list, and beginner questions are welcome.
    • @@ -16,4 +14,3 @@
    -
    diff --git a/tmpl/about-blogroll.md b/tmpl/about-blogroll.md new file mode 100644 index 000000000..9c0cb9203 --- /dev/null +++ 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/)** \ No newline at end of file From 66a3ceaf6f86dd86204d91292d897a1e4af6f1ba Mon Sep 17 00:00:00 2001 From: manu Date: Mon, 11 Aug 2014 21:19:27 +1200 Subject: [PATCH 3/3] added a few links to blogroll --- tmpl/about-blogroll.md | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) diff --git a/tmpl/about-blogroll.md b/tmpl/about-blogroll.md index 9c0cb9203..29901ee6d 100644 --- a/tmpl/about-blogroll.md +++ b/tmpl/about-blogroll.md @@ -1,4 +1,8 @@ ### Blogroll +* **[Anil's blog](http://anil.recoil.org/blog/)** +* **[Dave's blog](http://dave.recoil.org/blog/index.html)** +* **[Amir's blog](http://amirchaudhry.com/)** * **[Some Random Idiot](http://www.somerandomidiot.com/)** -* **[My Little Garden of Code](http://philtomson.github.io/blog/2014/07/09/core-dot-async-example/)** \ No newline at end of file +* **[Thomas Leonard's blog](http://roscidus.com/blog/)** +* **[My Little Garden of Code](http://philtomson.github.io/)** \ No newline at end of file