From 6624f5f69b688741f31a8e8e5d0579853db6071a Mon Sep 17 00:00:00 2001
From: Morgan Astra <m@morganastra.me>
Date: Sat, 4 Nov 2017 16:05:47 -0700
Subject: A woman is not dead while her name is still spoken.

---
 src/pronouns/web.clj | 6 ++++++
 1 file changed, 6 insertions(+)

(limited to 'src/pronouns')

diff --git a/src/pronouns/web.clj b/src/pronouns/web.clj
index e57d7ec..bbbce82 100644
--- a/src/pronouns/web.clj
+++ b/src/pronouns/web.clj
@@ -47,6 +47,11 @@
   (ANY "*" []
        (route/not-found (slurp (io/resource "404.html")))))
 
+(defn wrap-gnu-natalie-nguyen [handler]
+  (fn [req]
+    (when-let [resp (handler req)]
+      (assoc-in resp [:headers "X-Clacks-Overhead"] "GNU Natalie Nguyen"))))
+
 (defn wrap-error-page [handler]
   (fn [req]
     (try (handler req)
@@ -60,6 +65,7 @@
   (-> app-routes
       logger/wrap-with-logger
       wrap-error-page
+      wrap-gnu-natalie-nguyen
       trace/wrap-stacktrace
       params/wrap-params))
 
-- 
cgit