GA_TAG_ID in config, check if empty

Author: kdmoreira

shadow-cljs.edn

@@ -17,7 +17,7 @@
                                    :closure-defines {codes.clj.docs.frontend.config/BASE_URL #shadow/env ["BASE_URL"]
                                                      codes.clj.docs.frontend.config/CLIENT_ID #shadow/env ["CLIENT_ID"]
                                                      codes.clj.docs.frontend.config/REDIRECT_URI #shadow/env ["REDIRECT_URI"]
-                                                     codes.clj.docs.frontend.infra.analytics/GA_TAG_ID #shadow/env ["GA_TAG_ID"]}}
+                                                     codes.clj.docs.frontend.config/GA_TAG_ID #shadow/env ["GA_TAG_ID"]}}
                 :build-hooks      [(codes.clj.docs.frontend.dev.shadow.hooks/hashed-files
                                     ["resources/public/css/app.css"
                                      "resources/public/js/core.js"])

src/codes/clj/docs/frontend/config.cljs

@@ -20,10 +20,14 @@
 (goog-define BASE_URL "https://docs-backend.fly.dev/api/")
 (goog-define CLIENT_ID "46d86692f00ed9c613a1")
 (goog-define REDIRECT_URI "https://docs.clj.codes/github-callback")
+(goog-define GA_TAG_ID "")
 
 (def config
   (let [debug? goog.DEBUG]
     {:debug? debug?
+     :ga-tag-id (if debug?
+                  ""
+                  GA_TAG_ID)
      :base-url (if debug?
                  "http://localhost:3001/api/"
                  BASE_URL)

src/codes/clj/docs/frontend/infra/analytics.cljs

@@ -1,6 +1,5 @@
-(ns codes.clj.docs.frontend.infra.analytics)
-
-(goog-define GA_TAG_ID "G-0123456789")
+(ns codes.clj.docs.frontend.infra.analytics
+  (:require [codes.clj.docs.frontend.infra.system.state :as system.state]))
 
 (defn google-tag-manager
   [ga-tag-id]
@@ -22,5 +21,7 @@
     (js/document.head.insertBefore script (.-nextSibling gtm-script))))
 
 (defn google-analytics []
-  (let [gtm-script (google-tag-manager GA_TAG_ID)]
-    (google-tag GA_TAG_ID gtm-script)))
+  (let [ga-tag-id (-> @system.state/components :config :ga-tag-id)]
+    (when (seq ga-tag-id)
+      (let [gtm-script (google-tag-manager ga-tag-id)]
+        (google-tag ga-tag-id gtm-script)))))