final font fixes and achievement fixes

desktop/src-common/advent/screens/title.clj

@@ -8,6 +8,7 @@
             [advent.utils :as utils]
             [advent.saves :as saves]
             [advent.tween :as tween]
+            [advent.steam :as steam]
             [advent.screens.scene :as scene]
             [advent.screens.dialogue :as dialogue]
             [clojure.tools.logging :as log]
@@ -405,6 +406,7 @@
 
   :on-render
   (fn [{:keys [^FitViewport viewport] :as screen} [entities]]
+    (steam/update)
     (.apply viewport)
     (clear!)
     (let [entities (utils/apply-tweens screen entities (:tweens entities))

desktop/src-common/advent/steam.clj

@@ -1,6 +1,8 @@
 (ns advent.steam
   (:require [play-clj.core :refer :all]
-            [clojure.edn :as edn])
+            [clojure.edn :as edn]
+           [clojure.tools.logging :as log]
+            )
   (:import [java.nio ByteBuffer CharBuffer]
            [java.io ByteArrayOutputStream]
            [com.badlogic.gdx.graphics PixmapIO$PNG]
@@ -22,8 +24,11 @@
 
 (defn init []
   (steamify
-   (if (not (SteamAPI/init))
-     (def has-steam? false))))
+   (if (SteamAPI/init) 
+     (log/info "Steam initialized")
+     (do
+       (log/info "Steam not initialized")  
+       (def has-steam? false)))))
 
 (defn update []
   (steamify
@@ -33,6 +38,7 @@
 (defn achievement-fn [f achievement]
   (steamify
    (let [stats (atom nil)]
+     (log/info "Getting stats...")
      (reset! stats (SteamUserStats. (reify SteamUserStatsCallback
                                        (onUserStatsReceived [_ _ _ _]
                                          (f @stats achievement)
@@ -43,15 +49,19 @@
 
 (def set-achievement (partial achievement-fn
                               (fn [stats achievement]
+                                (log/info "Setting achievement" achievement)
                                 (.setAchievement stats achievement)
-                                (.storeStats stats))))
+                                (.storeStats stats)
+                                (log/info "Done setting achievement" achievement))))
 
 (def clear-achievement (partial achievement-fn
                               (fn [stats achievement]
+                                (log/info "Clearing achievement" achievement)
                                 (.clearAchievement stats achievement)
-                                (.storeStats stats))))
+                                (.storeStats stats)
+                                (log/info "Done clearing achievement" achievement))))
 
-(def all-achievements ["MASTER_SLEUTH"])
+(def all-achievements ["PARDON" "EX_CON" "PRO_WRESTLER" "SHEEP_HORDER" "SAFE_AND_SOUND" "DESTINY" "WISE_UP" "BLOODCLOT" "KITTY_KISS"])
 
 (defn clear-all-achievements []
   (doall (map clear-achievement all-achievements)))