Move everything to the “/haskell” subpath

src/JS.hs

@@ -118,6 +118,8 @@ instance JSParams a => JSFunction (a -> JS) where
 assign :: ToJS x => JS -> x -> JS
 assign v x = JS $ format "{} = {};" (v, toJS x)
 
+-- TODO: all links here shouldn't be absolute [absolute-links]
+
 replaceWithData :: JSFunction a => a
 replaceWithData =
   makeJSFunction "replaceWithData" ["node"]
@@ -224,7 +226,7 @@ addCategory :: JSFunction a => a
 addCategory =
   makeJSFunction "addCategory" ["node", "s"]
   [text|
-    $.post("/add/category", {content: s})
+    $.post("/haskell/add/category", {content: s})
      .done(prependData(node));
   |]
 
@@ -233,7 +235,7 @@ addItem :: JSFunction a => a
 addItem =
   makeJSFunction "addItem" ["node", "catId", "s"]
   [text|
-    $.post("/add/category/"+catId+"/item", {name: s})
+    $.post("/haskell/add/category/"+catId+"/item", {name: s})
      .done(appendData(node));
   |]
 
@@ -246,7 +248,7 @@ submitCategoryTitle :: JSFunction a => a
 submitCategoryTitle =
   makeJSFunction "submitCategoryTitle" ["node", "catId", "s"]
   [text|
-    $.post("/set/category/"+catId+"/title", {content: s})
+    $.post("/haskell/set/category/"+catId+"/title", {content: s})
      .done(replaceWithData(node));
   |]
 
@@ -254,7 +256,7 @@ submitCategoryNotes :: JSFunction a => a
 submitCategoryNotes =
   makeJSFunction "submitCategoryNotes" ["node", "catId", "s"]
   [text|
-    $.post("/set/category/"+catId+"/notes", {content: s})
+    $.post("/haskell/set/category/"+catId+"/notes", {content: s})
      .done(replaceWithData(node));
   |]
 
@@ -262,7 +264,7 @@ submitItemDescription :: JSFunction a => a
 submitItemDescription =
   makeJSFunction "submitItemDescription" ["node", "itemId", "s"]
   [text|
-    $.post("/set/item/"+itemId+"/description", {content: s})
+    $.post("/haskell/set/item/"+itemId+"/description", {content: s})
      .done(replaceWithData(node));
   |]
 
@@ -270,7 +272,7 @@ submitItemEcosystem :: JSFunction a => a
 submitItemEcosystem =
   makeJSFunction "submitItemEcosystem" ["node", "itemId", "s"]
   [text|
-    $.post("/set/item/"+itemId+"/ecosystem", {content: s})
+    $.post("/haskell/set/item/"+itemId+"/ecosystem", {content: s})
      .done(replaceWithData(node));
   |]
 
@@ -278,7 +280,7 @@ submitItemNotes :: JSFunction a => a
 submitItemNotes =
   makeJSFunction "submitItemNotes" ["node", "itemId", "s"]
   [text|
-    $.post("/set/item/"+itemId+"/notes", {content: s})
+    $.post("/haskell/set/item/"+itemId+"/notes", {content: s})
      .done(function (data) {
         $(node).replaceWith(data);
         switchSection(node, "expanded");
@@ -293,7 +295,7 @@ addPro :: JSFunction a => a
 addPro =
   makeJSFunction "addPro" ["node", "itemId", "s"]
   [text|
-    $.post("/add/item/"+itemId+"/pro", {content: s})
+    $.post("/haskell/add/item/"+itemId+"/pro", {content: s})
      .done(function (data) {
         var jData = $(data);
         jData.appendTo(node);
@@ -306,7 +308,7 @@ addCon :: JSFunction a => a
 addCon =
   makeJSFunction "addCon" ["node", "itemId", "s"]
   [text|
-    $.post("/add/item/"+itemId+"/con", {content: s})
+    $.post("/haskell/add/item/"+itemId+"/con", {content: s})
      .done(function (data) {
         var jData = $(data);
         jData.appendTo(node);
@@ -318,7 +320,7 @@ submitTrait :: JSFunction a => a
 submitTrait =
   makeJSFunction "submitTrait" ["node", "itemId", "traitId", "s"]
   [text|
-    $.post("/set/item/"+itemId+"/trait/"+traitId, {content: s})
+    $.post("/haskell/set/item/"+itemId+"/trait/"+traitId, {content: s})
      .done(function (data) {
         $(node).replaceWith(data);
         switchSection(node, "editable");
@@ -337,13 +339,13 @@ submitItemInfo =
     // it would lose the item's state (e.g. what if the traits were
     // being edited? etc). So, instead we query colors from the server
     // and change the color of the item's body manually.
-    $.post("/set/item/"+itemId+"/info", $(form).serialize())
+    $.post("/haskell/set/item/"+itemId+"/info", $(form).serialize())
      .done(function (data) {
         // Note the order – first we change the color, then we replace
         // the info node. The reason is that otherwise the bodyNode
         // selector might become invalid (if it depends on the infoNode
         // selector).
-        $.get("/render/item/"+itemId+"/colors")
+        $.get("/haskell/render/item/"+itemId+"/colors")
          .done(function (colors) {
             $(bodyNode).css("background-color", colors.light);
             $(infoNode).replaceWith(data);
@@ -355,7 +357,7 @@ moveTraitUp :: JSFunction a => a
 moveTraitUp =
   makeJSFunction "moveTraitUp" ["itemId", "traitId", "traitNode"]
   [text|
-    $.post("/move/item/"+itemId+"/trait/"+traitId, {direction: "up"});
+    $.post("/haskell/move/item/"+itemId+"/trait/"+traitId, {direction: "up"});
     moveNodeUp(traitNode);
   |]
 
@@ -363,7 +365,7 @@ moveTraitDown :: JSFunction a => a
 moveTraitDown =
   makeJSFunction "moveTraitDown" ["itemId", "traitId", "traitNode"]
   [text|
-    $.post("/move/item/"+itemId+"/trait/"+traitId, {direction: "down"});
+    $.post("/haskell/move/item/"+itemId+"/trait/"+traitId, {direction: "down"});
     moveNodeDown(traitNode);
   |]
 
@@ -372,7 +374,7 @@ deleteTrait =
   makeJSFunction "deleteTrait" ["itemId", "traitId", "traitNode"]
   [text|
     if (confirm("Confirm deletion?")) {
-      $.post("/delete/item/"+itemId+"/trait/"+traitId);
+      $.post("/haskell/delete/item/"+itemId+"/trait/"+traitId);
       $(traitNode).remove();
     }
   |]
@@ -381,7 +383,7 @@ moveItemUp :: JSFunction a => a
 moveItemUp =
   makeJSFunction "moveItemUp" ["itemId", "itemNode"]
   [text|
-    $.post("/move/item/"+itemId, {direction: "up"});
+    $.post("/haskell/move/item/"+itemId, {direction: "up"});
     moveNodeUp(itemNode);
   |]
 
@@ -389,7 +391,7 @@ moveItemDown :: JSFunction a => a
 moveItemDown =
   makeJSFunction "moveItemDown" ["itemId", "itemNode"]
   [text|
-    $.post("/move/item/"+itemId, {direction: "down"});
+    $.post("/haskell/move/item/"+itemId, {direction: "down"});
     moveNodeDown(itemNode);
   |]
 
@@ -398,7 +400,7 @@ deleteItem =
   makeJSFunction "deleteItem" ["itemId", "itemNode"]
   [text|
     if (confirm("Confirm deletion?")) {
-      $.post("/delete/item/"+itemId);
+      $.post("/haskell/delete/item/"+itemId);
       $(itemNode).remove();
     }
   |]

src/Main.hs

@@ -30,7 +30,7 @@ import System.FilePath ((</>))
 import Web.Spock hiding (head, get, text)
 import qualified Web.Spock as Spock
 import Web.Spock.Lucid
-import qualified Lucid
+import Lucid
 import Network.Wai.Middleware.Static
 -- Feeds
 import qualified Text.Feed.Types as Feed
@@ -230,15 +230,6 @@ addMethods = Spock.subcomponent "add" $ do
 
 otherMethods :: SpockM () () DB ()
 otherMethods = do
-  -- Javascript
-  Spock.get "js.js" $ do
-    setHeader "Content-Type" "application/javascript; charset=utf-8"
-    Spock.bytes $ T.encodeUtf8 (fromJS allJSFunctions)
-  -- CSS
-  Spock.get "highlight.css" $ do
-    setHeader "Content-Type" "text/css; charset=utf-8"
-    Spock.bytes $ T.encodeUtf8 (T.pack (styleToCss pygments))
-
   -- Moving things
   Spock.subcomponent "move" $ do
     -- Move item
@@ -260,7 +251,8 @@ otherMethods = do
       dbUpdate (DeleteTrait itemId traitId)
 
   -- Feeds
-  baseUrl <- fromMaybe "" <$> liftIO (lookupEnv "GUIDE_URL")
+  -- TODO: this link shouldn't be absolute [absolute-links]
+  baseUrl <- (</> "haskell") . fromMaybe "/" <$> liftIO (lookupEnv "GUIDE_URL")
   Spock.subcomponent "feed" $ do
     -- Feed for items in a category
     Spock.get categoryVar $ \catId -> do
@@ -344,38 +336,61 @@ main = do
     runSpock 8080 $ spock config $ do
       middleware (EKG.metrics waiMetrics)
       middleware (staticPolicy (addBase "static"))
+      -- Javascript
+      Spock.get "/js.js" $ do
+        setHeader "Content-Type" "application/javascript; charset=utf-8"
+        Spock.bytes $ T.encodeUtf8 (fromJS allJSFunctions)
+      -- CSS
+      Spock.get "/highlight.css" $ do
+        setHeader "Content-Type" "text/css; charset=utf-8"
+        Spock.bytes $ T.encodeUtf8 (T.pack (styleToCss pygments))
+      -- (css.css is a static file and so isn't handled here)
+
       -- Main page
-      Spock.get root $ do
+      Spock.get root $ lucidIO $ do
-        s <- dbQuery GetGlobalState
+        head_ $ do
-        q <- param "q"
+          title_ "Aelve Guide"
-        lucidIO $ renderRoot s q
+          includeCSS "/css.css"
+          renderTracking
+        body_ $ do
+          h1_ "Aelve Guide"
+          h2_ (a_ [href_ "/haskell"] "Haskell")
+
       -- Donation page
       Spock.get "donate" $ do
         lucidIO $ renderDonate
-      -- Category pages
+
-      Spock.get var $ \path -> do
+      -- Haskell
-        -- The links look like /generating-feeds-gao238b1 (because it's nice
+      Spock.subcomponent "haskell" $ do
-        -- when you can find out where a link leads just by looking at it)
+        Spock.get root $ do
-        let (_, catId) = T.breakOnEnd "-" path
+          s <- dbQuery GetGlobalState
-        when (T.null catId) $
+          q <- param "q"
-          Spock.jumpNext
+          lucidIO $ renderRoot s q
-        mbCategory <- dbQuery (GetCategoryMaybe (Uid catId))
+        -- Category pages
-        case mbCategory of
+        Spock.get var $ \path -> do
-          Nothing -> Spock.jumpNext
+          -- The links look like /parsers-gao238b1 (because it's nice when
-          Just category -> do
+          -- you can find out where a link leads just by looking at it)
-            -- If the slug in the url is old or something (i.e. if it doesn't
+          let (_, catId) = T.breakOnEnd "-" path
-            -- match the one we would've generated now), let's do a redirect
+          when (T.null catId) $
-            when (categorySlug category /= path) $
+            Spock.jumpNext
-              Spock.redirect ("/" <> categorySlug category)
+          mbCategory <- dbQuery (GetCategoryMaybe (Uid catId))
-            lucidIO $ renderCategoryPage category
+          case mbCategory of
-      -- The add/set methods return rendered parts of the structure (added
+            Nothing -> Spock.jumpNext
-      -- categories, changed items, etc) so that the Javascript part could
+            Just category -> do
-      -- take them and inject into the page. We don't want to duplicate
+              -- If the slug in the url is old (i.e. if it doesn't match the
-      -- rendering on server side and on client side.
+              -- one we would've generated now), let's do a redirect
-      renderMethods
+              when (categorySlug category /= path) $
-      setMethods
+                -- TODO: this link shouldn't be absolute [absolute-links]
-      addMethods
+                Spock.redirect ("/haskell/" <> categorySlug category)
-      otherMethods
+              lucidIO $ renderCategoryPage category
+        -- The add/set methods return rendered parts of the structure (added
+        -- categories, changed items, etc) so that the Javascript part could
+        -- take them and inject into the page. We don't want to duplicate
+        -- rendering on server side and on client side.
+        renderMethods
+        setMethods
+        addMethods
+        otherMethods
 
 -- TODO: when a category with the same name exists, show an error message and
 -- redirect to that other category

src/View.hs

@@ -254,7 +254,8 @@ renderCategoryTitle category = do
       this   = JS.selectId thisId
   h2_ [id_ thisId] $ do
     sectionSpan "normal" [shown, noScriptShown] $ do
-      a_ [href_ ("/" <> categorySlug category)] $
+      -- TODO: this link shouldn't be absolute [absolute-links]
+      a_ [href_ ("/haskell/" <> categorySlug category)] $
         toHtml (category^.title)
       emptySpan "1em"
       textButton "edit" $