From b74155de3ee5fd723fd0efeaa144fd3f56089a8a Mon Sep 17 00:00:00 2001
From: nathaniel smith <nathanielksmith@gmail.com>
Date: Sun, 26 Jul 2015 00:01:25 -0700
Subject: [PATCH] add live_users key

---
 scripts/town_stats.hy | 17 ++++++++++-------
 1 file changed, 10 insertions(+), 7 deletions(-)

diff --git a/scripts/town_stats.hy b/scripts/town_stats.hy
index b640ce7..eb202de 100644
--- a/scripts/town_stats.hy
+++ b/scripts/town_stats.hy
@@ -46,13 +46,16 @@
                              (filter (fn [f] (and (not (= f "ubuntu")) (not (= f "poetry")))))))
 
 (if (= __name__ "__main__")
-  (let [[users (->> (user-generator)
-                    sort-user-list
-                    reversed
-                    (map (fn [un] {"username" un
-                                   "default" (default? un)}))
-                    list)]
-        [data {"users" users
+  (let [[all_users (->> (user-generator)
+                        sort-user-list
+                        reversed
+                        (map (fn [un] {"username" un
+                                       "default" (default? un)}))
+                        list)
+         [live_users (-> (filter (fn [u] (not (get u "default"))) all_users)
+                         list)]]
+        [data {"all_users" users
+               "live_users" live_users
                "active_user_count" (-> (. (facter "active_user_count") stdout)
                                        .strip
                                        int)