Clojurians Log v2

Mrn

Morn

morn 🙂

Morn

Mr. N.

"stupid effects, intentful actions" har romstert i hodet mitt i juleferien. Første gangen Christian snakket om det, skjønte jeg hva han mente, men ikke hvorfor. "vi ønsker å ha effektene våre så dumme at de ikke trenger testing". Og at vi gjør det mange nok ganger til at det er helt tydelig at det ikke funker når det ikke funker. I kontrast, når vi modellerer hva en person ønsker å få gjort, gå i motsatt retning: finn intensjonen bak handlingen. Unngå all "tolkning", bare send intensjonen videre. Uten tolkning av effekter ("dumme") og actions ("bare intensjon"), blir effekter og actions mer stabile over tid. Fordi "tolkningen vår" ikke fører til endringer. Logikken for å oversette intensjon (action) til effekter kan vi derimot endre så mye vi vil. Og den logikken kan testes, den transformerer action-data til effekt-data. Sitter og kjenner på at jeg har gjort dette litt dumt akkurat nå. Problemet jeg løser: vi har dårlig komprimerte bilder på Mikrobloggeriet. JPEG-er rett ut av mobilkamera, og PNG for skjermbilde. Fordi jeg ikke har skilt på intensjon og effekter, har jeg endt opp med dupliserting! Jeg skrev først funksjonen som konverterer,

(defn autoconvert
  "Convert to webp, and update references to converted files"
  [{:as conversion :keys [image referencing-files]}]
  (let [quality (compression-quality image)
        compressed (str (fs/strip-ext image) ".webp")
        image-url (str (fs/relativize "public" image))
        new-image-url (str (fs/relativize "public" compressed))]
    (try
      (convert! image compressed quality)
      (doseq [f referencing-files]
        (spit f (str/replace (slurp f) image-url new-image-url)))
      (assoc conversion
             :compressed compressed
             :quality quality
             :factor (size-factor image compressed))
      (finally (fs/delete image)))))

(defn probe
  "How much would we gain by compressing this file?"
  [{:as conversion :keys [image referencing-files]}]
  (let [quality (compression-quality image)
        compressed (str (fs/strip-ext image) ".webp")]
    (try
      (convert! image compressed quality)
      (assoc conversion
             :compressed compressed
             :quality quality
             :factor (size-factor image compressed))
      (finally (fs/delete compressed)))))

i dag ble jeg AI pilled, gitt. Junie i IntelliJ driver og refactorer og gjør diverse småtteri på laptopen, mens jeg sitter og jobber med "ordentlige" ting på desktopen. Har fått ryddet opp i noen gamle klasser som finnes i en versjon 2, lagt til noen custom linter-regler, og diverse "hjernedøde" ting. Har snart brukt opp alle 10 inkluderte credits i planen til JetBrains. Here we go!