Improve env

src/env.lisp

@@ -0,0 +1,14 @@
+(defpackage #:hp/env
+  (:use #:cl)
+  (:import-from #:cl-dotenv
+                #:load-env)
+  (:export #:hp-env))
+(in-package #:hp/env)
+
+(load-env (merge-pathnames "./.env"))
+
+(defmacro env-var (name var)
+  `(defun ,name ()
+     (or (uiop:getenv ,var) "")))
+
+(env-var hp-env "HP_ENV")

src/middlewares/recoverer.lisp

@@ -3,6 +3,8 @@
         #:hsx)
   (:import-from #:trivial-backtrace
                 #:print-backtrace)
+  (:import-from #:hp/env
+                #:hp-env)
   (:export #:*recoverer*))
 (in-package #:hp/middlewares/recoverer)
 
@@ -14,7 +16,7 @@
      (body
        (main
          (h1 "500 Internal Server Error")
-         (when (string= (uiop:getenv "HP_ENV") "dev")
+         (when (string= (hp-env) "dev")
            (hsx
             (pre
               (code (print-backtrace condition :output nil))))))))))

src/renderer.lisp

@@ -4,11 +4,15 @@
         #:trivia)
   (:import-from :jingle)
   (:import-from #:hsx/element
-                #:element))
+                #:element)
+  (:import-from #:hp/env
+                #:hp-env))
 (in-package #:hp/renderer)
 
 (defun bust-cache (url)
-  (format nil "~a?v=~a" url (get-universal-time)))
+  (format nil "~a?v=~a" url (if (string= (hp-env) "dev")
+                                (get-universal-time)
+                                #.(get-universal-time))))
 
 (defparameter *metadata-template*
   (list :title (lambda (title)
@@ -70,7 +74,7 @@
 
 (defmethod jingle:process-response ((app jingle:app) result)
   (jingle:set-response-header :content-type "text/html; charset=utf-8")
-  (when (string= (uiop:getenv "HP_ENV") "dev")
+  (when (string= (hp-env) "dev")
     (jingle:set-response-header :cache-control "no-store, no-cache, must-revalidate")
     (jingle:set-response-header :pragma "no-cache")
     (jingle:set-response-header :expires "0"))