add services rules

Author: bristermitten

src/Redirects.elm

@@ -1,4 +1,4 @@
-module Redirects exposing (discordURL, githubURL)
+module Redirects exposing (..)
 
 -- There has to be a better way of doing this...
 
@@ -9,3 +9,11 @@ discordURL =
 
 githubURL =
     "https://github.com/TheDeveloperDen"
+
+
+paidServicesURL =
+    "https://discord.com/channels/821743100203368458/1024625154107654234"
+
+
+freeServicesURL =
+    "https://discord.com/channels/821743100203368458/1037763084485406760"

src/Views/Rules.elm

@@ -3,6 +3,8 @@ module Views.Rules exposing (Model, Msg, view)
 import Browser.Navigation as Nav
 import Html exposing (Html, a, div, h1, h2, h3, h4, text)
 import Html.Attributes exposing (class, href)
+import Redirects exposing (freeServicesURL, paidServicesURL)
+import Route
 import Tailwind as Tw
 
 
@@ -44,7 +46,7 @@ view _ =
                 , ruleLine [ text "d. Keep shitposts to ", inlineLink "#🌞-random" "https://discord.com/channels/821743100203368458/932661343520194640", text " as much as possible." ]
                 , ruleLine [ text "e. You can share things you've made in ", inlineLink "#💫-showcase" "https://discord.com/channels/821743100203368458/847936633964724254", text " (read the pinned message before posting)." ]
                 , ruleHeader "5. Other stuff"
-                , ruleLine [ text "a. Hiring freelancers & offering services is currently not permitted." ]
+                , ruleLine [ text "a. Hiring freelancers & offering services must be done in ", inlineLink "#💰-paid-services" paidServicesURL, text " and ", inlineLink "🆓-free-services" freeServicesURL, text ". Before posting, make sure you've read the ", inlineLink "rules" (Route.routeToString Route.ServicesRules), text " for those channels." ]
                 , ruleLine [ text "b. Don't minimod." ]
                 , ruleLine [ text "c. Don't try and find loopholes in rules." ]
                 , ruleLine [ text "d. Staff reserve the right to punish anyone even if they haven't explicitly broken any rules." ]

src/Views/ServicesRules.elm

@@ -3,6 +3,7 @@ module Views.ServicesRules exposing (Model, Msg, view)
 import Browser.Navigation as Nav
 import Html exposing (Html, a, b, div, h1, h2, h3, i, li, p, text, ul)
 import Html.Attributes exposing (class, href)
+import Redirects exposing (freeServicesURL, paidServicesURL)
 import Tailwind as Tw
 
 
@@ -22,7 +23,7 @@ view _ =
         div [ Tw.bg_opacity_80, Tw.bg_gray_700, Tw.w_full, Tw.flex_1, Tw.text_white, Tw.flex, Tw.flex_col ]
             [ div [ Tw.ml_16, Tw.mr_16, Tw.mb_20 ]
                 [ h1 [ Tw.text_6xl, class "montserrat", Tw.mt_2, Tw.py_2, Tw.text_center ] [ text "Services Rules" ]
-                , h2 [ Tw.text_2xl, Tw.py_2, Tw.font_titillium, Tw.text_center ] [ text "Rules for posting in ", inlineLink "#💰-paid-services" "https://discord.com/channels/821743100203368458/1024625154107654234", text " and ", inlineLink "🆓-free-services" "https://discord.com/channels/821743100203368458/1037763084485406760" ]
+                , h2 [ Tw.text_2xl, Tw.py_2, Tw.font_titillium, Tw.text_center ] [ text "Rules for posting in ", inlineLink "#💰-paid-services" paidServicesURL, text " and ", inlineLink "🆓-free-services" freeServicesURL ]
                 , ruleHeader "Global Rules"
                 , rulesList
                     [ i [] [ text "In all rules, the term 'host' refers to someone offering their services and the term 'client' refers to anyone seeking the services of a host." ]
@@ -39,7 +40,7 @@ view _ =
                     ]
                 , ruleHeader "Paid Services"
                 , rulesList
-                    [ i [] [ text "These rules only apply to ", inlineLink "#💰-paid-services" "https://discord.com/channels/821743100203368458/1024625154107654234", text "." ]
+                    [ i [] [ text "These rules only apply to ", inlineLink "#💰-paid-services" paidServicesURL, text "." ]
                     , div []
                         [ text "This channel is for offering or requesting "
                         , b [] [ text "paid" ]
@@ -51,7 +52,7 @@ view _ =
                     ]
                 , ruleHeader "Free Services"
                 , rulesList
-                    [ i [] [ text "These rules only apply to ", inlineLink "🆓-free-services" "https://discord.com/channels/821743100203368458/1037763084485406760", text "." ]
+                    [ i [] [ text "These rules only apply to ", inlineLink "🆓-free-services" freeServicesURL, text "." ]
                     , div []
                         [ text "This channel is only for "
                         , b [] [ text "offering" ]