Browse code

Add basic footer with version information

Joseph Weston authored on 08/12/2021 03:48:39
Showing 2 changed files
... ...
@@ -73,6 +73,9 @@
73 73
 (defclass main-panel []
74 74
     {:width :88ch})
75 75
 
76
+(defclass footer []
77
+    {:font-size :0.75rem})
78
+
76 79
 (defclass history-style []
77 80
   {:list-style-type :none
78 81
    :padding 0}
... ...
@@ -3,6 +3,7 @@
3 3
    [re-frame.core :as re-frame]
4 4
    [clojure.string :as string]
5 5
    [goog.string :as gstr]
6
+   [dmr.config :as config]
6 7
    [dmr.styles :as styles]
7 8
    [dmr.subs :as subs]
8 9
    [dmr.events :as events]))
... ...
@@ -284,7 +285,11 @@
284 285
       (for [[index item] (enumerated @history)]
285 286
         ^{:key index} [:li [input (item :input)] [output (item :output)]])]))
286 287
 
288
+(defn footer []
289
+  [:footer {:class (styles/footer)}
290
+   [:span.version (spaced "version:" config/version)]])
291
+
287 292
 (defn main-panel []
288 293
   [:div {:class (styles/screen)}
289 294
    [:div {:class (styles/main-panel)}
290
-    [title] [history] [prompt]]])
295
+    [title] [history] [prompt] [footer]]])