should allow steam achievements.

2015-11-10 19:57:22 -08:00
parent 061008c97b
commit 6e9ada941b
7 changed files with 35 additions and 3 deletions
--- a/desktop/src-common/advent/steam.clj
+++ b/desktop/src-common/advent/steam.clj
@@ -0,0 +1,20 @@
+(ns advent.steam)
+
+(def has-steam?
+  (try
+    (import '[com.codedisaster.steamworks SteamUserStats SteamUserStatsCallback SteamAPI])
+    true
+    (catch Exception e
+      false)))
+
+(defn init []
+  (when has-steam?
+    (eval `(SteamAPI/init))))
+
+(defn update []
+  (when (and has-steam? (eval `(SteamAPI/isSteamRunning)))
+    (eval `(SteamAPI/runCallbacks))))
+
+(defn set-achievement [achievement]
+  (when has-steam?
+    (eval `(.setAchievement (SteamUserStats. nil) ~achievement))))