From 97c0a96ef388a0f95def7ab316d8c4fc07718c09 Mon Sep 17 00:00:00 2001
From: Anupam Jain <ajnsit@gmail.com>
Date: Mon, 5 Jun 2023 19:25:14 +0530
Subject: [PATCH] Add a tab for connected communities

---
 markdown/communities.md  | 39 +++++++++++++++++++++++++++++++++++++++
 src/FPIndia/Route.hs     |  2 ++
 src/FPIndia/View.hs      |  2 ++
 src/FPIndia/View/Util.hs |  1 +
 4 files changed, 44 insertions(+)
 create mode 100644 markdown/communities.md

diff --git a/markdown/communities.md b/markdown/communities.md
new file mode 100644
index 0000000..b221ca7
--- /dev/null
+++ b/markdown/communities.md
@@ -0,0 +1,39 @@
+## Connected Communities
+
+There are many other sister communities related to FPIndia. The following is a list of some of them. If you run a community on a topic related to functional programming and would like to be added to this list, please [let us know](connect.html).
+
+## Rust
+
+[Rust](https://www.rust-lang.org/) is a blazingly fast, strongly typed, imperative programming language that provides compile time guarantees about memory safety and thread-safety. Rust may be imperative, but its strong static type system and facilities for immutability and concurrency, earn it the badge of an honorary functional programming language!
+
+### Rust India
+
+Connect with the Indian Rust community on the [Rust India Telegram group](https://t.me/RustIndia), or the [Rust India HasGeek page](https://hasgeek.com/rustlangin). They also have a [Rust India Discord](https://discord.gg/p3uaTXS6NP), a [Rust India LinkedIn](https://www.linkedin.com/company/rust-india/), and a [Rust India Twitter](https://twitter.com/rustlangin).
+
+#### Rust Kerala
+
+Rust community for people in the state of Kerala. They have a [Rust Kerala Telegram group](https://t.me/keralars), as well as presence on [Rust Kerala LinkedIn](https://www.linkedin.com/company/kerala-rustaceans/), and [Rust Kerala Twitter](https://twitter.com/rustaceanstvm).
+
+#### Rust Bangalore
+
+There's a Rust community specifically for people within Bangalore. It uses the same community platforms as the umbrella Rust India group.
+
+#### Rust Hyderabad
+
+The Rust community for people in Hyderabad. Join the [Rust Hyderabad Meetup Group](https://www.meetup.com/rust-hyderabad/), or use the same platforms as for Rust India.
+
+#### Rust Delhi
+
+The Rust community specifically for people within Delhi NCR. Join the [Rust Delhi Telegram Group](https://t.me/RustDelhi), or explore [other ways to connect](https://linktr.ee/rustdelhi).
+
+#### Rust Pune
+
+The Rust community for people in Pune. Join the [Rust Pune Meetup Group](https://www.meetup.com/rust-pune), or use the same platforms as for Rust India.
+
+## Elixir
+
+[Elixir](https://elixir-lang.org/) is a dynamically typed functional programming language with immutable data structures.
+
+### Elixir Delhi
+
+Connect with the Delhi Elixir community on the [Elixir Delhi Telegram group](https://t.me/elixirdelhi).
diff --git a/src/FPIndia/Route.hs b/src/FPIndia/Route.hs
index 2ccf985..93b2db6 100644
--- a/src/FPIndia/Route.hs
+++ b/src/FPIndia/Route.hs
@@ -13,6 +13,7 @@ data HtmlRoute
   = HtmlRoute_Index
   | HtmlRoute_Events
   | HtmlRoute_ConnectWithUs
+  | HtmlRoute_Communities
   | HtmlRoute_FpJobsInIndia
   | HtmlRoute_Resources
   deriving stock (Show, Eq, Ord, Generic, Enum, Bounded)
@@ -25,6 +26,7 @@ deriveIsRoute
         '[ FileRoute "index.html"
          , FileRoute "events.html"
          , FileRoute "connect.html"
+         , FileRoute "communities.html"
          , FileRoute "jobs.html"
          , FileRoute "resources.html"
          ]
diff --git a/src/FPIndia/View.hs b/src/FPIndia/View.hs
index 4e18bab..ef7dac5 100644
--- a/src/FPIndia/View.hs
+++ b/src/FPIndia/View.hs
@@ -35,6 +35,8 @@ renderBody rp model r = do
           renderMarkdown model "events.md"
         HtmlRoute_ConnectWithUs -> do
           renderMarkdown model "connect.md"
+        HtmlRoute_Communities -> do
+          renderMarkdown model "communities.md"
         HtmlRoute_FpJobsInIndia -> do
           H.div ! A.class_ "my-4" $ do
             H.img ! A.class_ "h-20 m-auto mb-5" ! A.src (staticRouteUrl rp model "underconstruction.svg")
diff --git a/src/FPIndia/View/Util.hs b/src/FPIndia/View/Util.hs
index fddf83f..605ed69 100644
--- a/src/FPIndia/View/Util.hs
+++ b/src/FPIndia/View/Util.hs
@@ -19,6 +19,7 @@ routeHref rp r = fromString . toString $ Ema.routeUrlWith Ema.UrlPretty rp (Rout
 routeTitle :: HtmlRoute -> Text
 routeTitle r = case r of
   HtmlRoute_ConnectWithUs -> "Connect"
+  HtmlRoute_Communities -> "Communities"
   HtmlRoute_FpJobsInIndia -> "Jobs"
   HtmlRoute_Index -> "Home"
   HtmlRoute_Events -> "Events"