Morning

ClojureD videos are up

Link?

Morning

Ah, here https://clojurians.slack.com/archives/C8NUSGWG6/p1585296503004700

(:clojureD Lightning Talks are yet to come...)

@ramart Super nice job with the intros 🙂

moin!

I did find the use of use a little triggering

And the REPL didn't respond nil. Must be a fake.

hmm... anyone know how to go from a BufferedImage to a byte[]? I'm having brain fail (I found some examples, but my head isn't screwed together enough to go from Java to clojure)

https://mkyong.com/java/how-to-convert-bufferedimage-to-byte-in-java/ You’ll need the ImageIO libs though

Interop heaven

hmm... this give me most of what I want, but I'll have to round trip it from the file system https://github.com/Clojure2D/clojure2d/blob/master/src/clojure2d/core.clj#L2182

a bit blutak, baling wire, and bubble gum, but this works:

(defn ->workbook [comparison-defs]
  (let [wb-data (into []
                      (mapcat (fn [cd]
                                [(:title cd)
                                 (:table cd)]))
                      comparison-defs)
        wb-charts (into []
                        (map (fn [cd]
                               [(:title cd)
                                (-> cd :chart :chart-image :buffer ->byte-array)]))
                        comparison-defs)
        wb (apply xl/create-workbook wb-data)]
    (run! (fn [[sheet-name img]]
            (let [;; int pictureIdx = wb.addPicture(bytes, Workbook.PICTURE_TYPE_JPEG);
                  pic-idx (.addPicture wb img Workbook/PICTURE_TYPE_PNG)
                  sheet (xl/select-sheet sheet-name wb)
                  helper (.getCreationHelper wb)
                  drawing (.createDrawingPatriarch sheet)
                  anchor (.createClientAnchor helper)
                  _ (.setCol1 anchor 14)
                  _ (.setRow1 anchor 2)
                  ;; Picture pict = drawing.createPicture(anchor, pictureIdx);
                  ;; pict.resize();
                  pict (.createPicture drawing anchor pic-idx)]
              (.resize pict)))
          wb-charts)
    
    wb))

thx @jasonbell

this will all be in witan.send.vis soon

I wasn’t a huge amount of help to be honest.

(defn ->byte-array [^BufferedImage image]
  (with-open [out (.ByteArrayOutputStream.)]
    (ImageIO/write image "png" out)
    (.toByteArray out)))

nice

you pointed me back to what I'd found before and made me look at it

and there is always this: https://www.youtube.com/watch?v=Mh85R-S-dh8

😄

I’m having a wrestling match with Avro, and a dead letter queue 🙂

lol

Quite a noticeable jump in Covid19 figures yesterday in the UK, from the governments own data https://www.arcgis.com/apps/opsdashboard/index.html#/f94c3c90da5b4e9f9a0b19484dd4bb14

hmm... need the time series on deaths really. Number of cases is a bad figure

Scotland is doubling every 3 days now https://github.com/watty62/Scot_covid19/blob/master/data/processed/regional_deaths.csv

The data point of how many tests are done is important to understand the number of cases. It’s missing from most sets I’ve seen.

Yeah, number of tests to positives is important. Scotland reports on that (and it is captured in other files in that repo)