add a redirect if using old URL

build.boot

@@ -2,23 +2,27 @@
  :source-paths #{"src"}
  :resource-paths #{"content"}
  :dependencies '[[perun "0.5.0-SNAPSHOT" :scope "test"]
+                 [org.clojure/clojurescript "1.11.4"]
+                 [adzerk/boot-cljs "2.1.5" :scope "test"]
                  [hiccup "2.0.0-alpha2" :exclusions [org.clojure/clojure]]
                  [garden "1.3.10"]
                  [org.martinklepsch/boot-garden "1.3.2-0"]
                  [pandeiro/boot-http "0.8.3" :exclusions [org.clojure/clojure]]])
 
 (require '[io.perun :as perun]
+         '[adzerk.boot-cljs :refer [cljs]]
          '[pandeiro.boot-http :refer [serve]]
          '[org.martinklepsch.boot-garden :refer [garden]]
          '[site.core])
 
-(deftask build []
+(deftask build [o optimize? bool "Optimize css & js output"]
   (comp (perun/draft)
         (perun/pandoc :cmd-opts ["-f" "markdown" "-t" "html5"])
         (sift :to-resource #{#"^img/(.*)"})
         (sift :to-resource #{#"^extra/(.*)"})
         (sift :to-resource #{#"^CNAME"})
-        (garden :styles-var 'site.styles/base :output-to "main.css")
+        (garden :styles-var 'site.styles/base :output-to "main.css" :pretty-print (if optimize? false true))
+        (cljs :optimizations (if optimize? :advanced :none) :source-map (if optimize? false true))
         (perun/ttr)  ;; Time to read
         (perun/word-count)
         (perun/render :renderer 'site.core/page)
@@ -29,14 +33,14 @@
                           :page "blog/index.html" :out-dir "")
         (perun/sitemap :filename "sitemap.xml")
         (sift :move {#"^public/(.*)" "$1"}))) ; perun/render ignores out-dir for some reason
-        
+
 
 
 (deftask dev []
   (comp (watch)
-        (build)
+        (build :optimize? false)
         (serve :port 8000 :resource-root "")))
 
 (deftask publish []
-  (comp (build)
+  (comp (build :optimize? true)
         (target :dir #{"docs"})))

src/scripts/redirect.cljs

@@ -0,0 +1,5 @@
+(ns scripts.redirect)
+
+;; Redirect to bgenc.net if it's using kaangenc.me
+(let [location js/location] (when (= (.toLowerCase location.hostname) "kaangenc.me")
+                              (location.replace (.join #js[location.protocol "//bgenc.net" location.pathname location.hash] ""))))

src/site/core.clj

@@ -10,6 +10,7 @@
    [:meta {:charset "utf-8"}]
    [:link {:rel "stylesheet" :href "/main.css"}]
    [:link {:rel "stylesheet" :href "/extra/emacs.css"}]
+   [:script {:src "/main.js"}]
    [:title (when title (str title " - ")) "Homepage of Kaan Genç"]
    [:link {:href
            "https://fonts.googleapis.com/css2?family=Ubuntu+Mono&family=Ubuntu:ital,wght@0,400;0,700;1,400;1,700&display=swap"