Make badge indicate that there is a problem if last build failed

[martinklepsch]

Sometimes builds fail and it would be useful to indicate that within the cljdoc badge. Could look something like this:

![](https://badgen.now.sh/badge/cljdoc/1.1.1-problem/red)

Since the URL will still link to the regular documentation page some link to the most recent build (if it failed) needs to be integrated into the documentation pages. Maybe similar to the link to more recent versions:

Pointers

• Badge rendering code:
  

  cljdoc/src/cljdoc/server/pedestal.clj

  Lines 206 to 208 in 139a5a6

  	(defn badge-interceptor []
  	{:name ::badge
  	:enter (fn badge [ctx]

  • This will require the build-tracker system component to retrieve the latest build for the requested version.

• To include information about the last build we could add a new interceptor that adds the last build to the context.

  • Currently most rendering code only gets the cache-bundle but I started to fade that out and it might make sense to loosen this up further.
  • Here's an example of an interceptor loading some data into the context:
    

    cljdoc/src/cljdoc/server/pedestal.clj

    Lines 95 to 106 in 139a5a6

    	(defn artifact-data-loader
    	"Return an interceptor that loads all data from `store` that is
    	relevant for the artifact identified via the entity map in `:path-params`."
    	[store]
    	{:name ::artifact-data-loader
    	:enter (fn artifact-data-loader-inner [ctx]
    	(let [params (-> ctx :request :path-params)]
    	(d/measure! "cljdoc.storage.read_time" {}
    	(log/info "Loading artifact cache bundle for" params)
    	(if (storage/exists? store params)
    	(assoc ctx :cache-bundle (storage/bundle-docs store params))
    	ctx))))})