feat: add support for base tag

elm-land · Nov 18, 2023 · 564dc00 · 564dc00
1 parent fcbf45b
commit 564dc00
Show file tree

Hide file tree

Showing 2 changed files with 57 additions and 0 deletions.
diff --git a/docs/reference/elm-land-json.md b/docs/reference/elm-land-json.md
@@ -162,6 +162,7 @@ If you ever need to audit which variables are exposed to your frontend, this one
 , meta : List (Dict String String)
 , link : List (Dict String String)
 , script : List (Dict String String)
+, base : List (Dict String String)
 }
 ```
 :::
@@ -180,6 +181,7 @@ Here is the general shape of that HTML template to give you an overview:
     {{ meta tags }}
     {{ link tags }}
     {{ script tags }}
+    {{ base tag }}
   </head>
   <body>
     <!-- Elm Land's entrypoint -->
@@ -476,6 +478,52 @@ __Output__: `dist/index.html`
 
 :::
 
+### app.html.base
+
+::: info TYPE
+```elm
+List (Dict String String)
+```
+:::
+
+For each item in the list, an attribute will be rendered within the `<base>` tag.
+
+::: tip EXAMPLE
+
+__Input__: `elm-land.json`
+
+```jsonc {7}
+{
+  "app": {
+    // ...
+    "html": {
+      // ...
+      "base": [
+        {
+          "href": "https://href.example.elm.land" ,
+            "target": "fun"
+        }
+      ]
+    }
+  }
+}
+```
+
+__Output__: `dist/index.html`
+
+```html {5}
+<!DOCTYPE html>
+<html>
+  <head>
+    <!-- ... -->
+    <base href="https://href.example.elm.land" target="fun">
+  </head>
+  <!-- ... -->
+</html>
+```
+
+:::
+
 ## app.router
 
 ::: info TYPE

diff --git a/projects/cli/src/effects.js b/projects/cli/src/effects.js
@@ -564,7 +564,16 @@ const generateHtml = async (config) => {
   let linkTags = toSelfClosingHtmlTags('link', attempt(_ => config.app.html.link))
   let scriptTags = toHtmlTags('script', attempt(_ => config.app.html.script))
 
+  let baseTagsAttributes = toAttributeString(attempt(() =>  config.app.html.base ))
+  let baseTag = ''
+  if(baseTagsAttributes.length > 0){
+    baseTag = `<base${baseTagsAttributes}>`
+  }
+
   let combinedTags = [...titleTags, ...metaTags, ...linkTags, ...scriptTags]
+  if(baseTag !== ''){
+    combinedTags.push(baseTag)
+  }
   let headTags = combinedTags.length > 0
     ? '\n    ' + combinedTags.join('\n    ') + '\n  '
     : ''