Statistics display

Signed-off-by: Jiri Podivin <[email protected]>

backend/api.py

@@ -310,3 +310,9 @@ def iter_large_file(file_name: Path):
             "Content-Length": str(_tar_path.stat().st_size),
         },
     )
+
+
+@app.get("/stats")
+def get_report_stats() -> dict:
+
+    return Storator3000.get_stats()

backend/store.py

@@ -68,3 +68,21 @@ def get_random(cls) -> Path:
         files = cls.get_logs()
 
         return Path(random.choice(files))
+
+    @classmethod
+    def get_stats(cls) -> dict:
+        """Retrieve basic statistics about submitted reports.
+        """
+        files = cls.get_logs()
+        stats = {
+            "total_reports" : len(files),
+            "avg_snippets" : 0.0
+        }
+        for path in files:
+            with open(path, encoding='utf-8') as f:
+                report = json.load(f)
+                stats['avg_snippets'] += sum([len(e['snippets']) for e in report['logs'].values()])
+        if stats['total_reports'] > 0:
+            stats['avg_snippets'] /= stats['total_reports']
+
+        return stats

frontend/public/css/style.css

@@ -275,3 +275,18 @@ a:hover {
   --bs-spinner-width: 80px;
   --bs-spinner-height: 80px;
 }
+
+#progressbar {
+  width: 100%;
+  background-color: var(--gray-5);
+}
+
+#progress {
+  height: 30px;
+  background-color: var(--newblue);
+  text-align: center;
+  line-height: 30px;
+  font-weight: 500;
+  color: var(--darkblue);
+  overflow-wrap: normal;
+}

frontend/src/app/core.cljs

@@ -1,7 +1,7 @@
 (ns app.core
   "This namespace contains your application and is the entrypoint for 'yarn start'."
   (:require [reagent.core :as r]
-            [app.homepage :refer [homepage]]
+            [app.homepage :refer [homepage fetch-stats-backend]]
             [app.contribute :refer [contribute init-data]]
             [app.review.core :refer [review init-data-review]]))
 
@@ -12,7 +12,10 @@
   ;; This is not the standard way of doing this, we should probably use some
   ;; router. But it is good enough for now.
   (cond (.getElementById js/document "app-homepage")
-        (r/render [homepage] (.getElementById js/document "app-homepage"))
+        (do
+          (fetch-stats-backend)
+          (r/render [homepage] (.getElementById js/document "app-homepage"))
+          )
 
         (.getElementById js/document "app-contribute")
         (do

frontend/src/app/homepage.cljs

@@ -3,17 +3,31 @@
             [clojure.string :as str]
             [cljs.source-map.base64 :as base64 :refer [encode]]
             [cljs.core.match :refer-macros [match]]
-            [app.homepage-validation :refer [validate]]))
+            [app.homepage-validation :refer [validate]]
+            [lambdaisland.fetch :as fetch]
+            [app.helpers :refer
+              [current-path
+              fontawesome-icon
+              remove-trailing-slash]]))
 
 
 (def input-values (r/atom nil))
 (def input-errors (r/atom []))
 (def current-hash-atom (r/atom nil))
-
+(def backend-stats (r/atom nil))
+(def report-target (r/atom 1000))
 
 (defn current-hash []
   (. (. js/document -location) -hash))
 
+(defn fetch-stats-backend []
+  (let [url (remove-trailing-slash (str "/stats" (current-path)))]
+    (-> (fetch/get url {:accept :json :content-type :json})
+        (.then (fn [resp]
+                 (-> resp :body (js->clj :keywordize-keys true))))
+        (.then (fn [resp]
+                   (reset! backend-stats resp))))))
+
 (defn on-submit [event]
   (.preventDefault event)
   (validate current-hash-atom input-values input-errors)
@@ -79,6 +93,29 @@
      (render-navigation-item "Upload" "#upload")
      (render-navigation-item "Container" "#container")]])
 
+(defn progress-width []
+  (min
+    (*
+      (float
+        (/
+          (:total_reports @backend-stats)
+    @report-target)) 100) 100)
+)
+
+(defn render-stats []
+  [:div {:id "progressbar"}
+    [:div
+      [:h5 "Are we there yet?"]
+    ]
+    [:div {
+      :id "progress"
+      :style {:width (str (progress-width) "%")}
+      }
+      [:p (progress-width) "%"]
+    ]
+  ]
+)
+
 (defn render-card [provider url title img text inputs]
   [:div {:class "card-body"}
    [:div {:class "row"}
@@ -200,6 +237,8 @@
 (defn homepage []
   (reset! current-hash-atom
           (if (str/blank? (current-hash)) "#copr" (current-hash)))
-  [:div {:class "card text-center"}
-   (render-navigation)
-   (render-cards)])
+    [:div {:class "card text-center"}
+      (render-stats)
+      (render-navigation)
+      (render-cards)]
+ )