Include SCM revision in the logs

project.clj

@@ -1,4 +1,4 @@
-(defproject nl.epij/google-cloud-function-background-adapter "0.1.0-alpha1"
+(defproject nl.epij/google-cloud-function-background-adapter "0.1.0-alpha2"
   :description "A Clojure adapter for background functions on GCP's Cloud Function Java Runtime"
   :url "https://github.com/pepijn/google-cloud-function-background-adapter"
   :license {:name "MIT"

src/clojure/nl/epij/gcp/gcf/log.clj

@@ -1,7 +1,8 @@
 (ns nl.epij.gcp.gcf.log
   (:require [clojure.walk :as walk]
             [cheshire.core :as json]
-            [cheshire.generate :refer [add-encoder encode-str]])
+            [cheshire.generate :refer [add-encoder encode-str]]
+            [clojure.java.io :as io])
   (:import [org.slf4j LoggerFactory Logger]
            [net.logstash.logback.argument StructuredArguments]
            [com.fasterxml.jackson.core JsonGenerationException]
@@ -10,14 +11,20 @@
 (def ^Logger logger
   (LoggerFactory/getLogger ^String (.toString *ns*)))
 
+(def revision
+  (-> (io/resource "metadata.json")
+      (slurp)
+      (json/parse-string)
+      (get "revision")))
+
 (add-encoder HttpRequestImpl encode-str)
 (add-encoder HttpClientFacade encode-str)
 
 (defn log
   [level ^String message data]
   (let [data'                (-> (walk/stringify-keys data)
                                  (assoc "severity" level)
-                                 (assoc "revision" "TODO"))
+                                 (assoc "revision" revision))
         structured-arguments (mapcat (fn [[k v]]
                                        (cond (nil? v)
                                              []