Display app version somewhere

resolves #77
futrnostr · Feb 20, 2025 · 422eab8 · 422eab8
1 parent 6db2a72
commit 422eab8
Show file tree

Hide file tree

Showing 4 changed files with 38 additions and 0 deletions.
diff --git a/resources/qml/content/HomeScreen.ui.qml b/resources/qml/content/HomeScreen.ui.qml
@@ -70,6 +70,28 @@ Item {
                 }
             }
         }
+
+        Rectangle {
+            Layout.fillWidth: true
+            height: 30
+            color: Material.backgroundColor
+
+            Rectangle {
+                width: parent.width
+                height: 1
+                color: Material.dividerColor
+                anchors.top: parent.top
+            }
+
+            Text {
+                anchors.right: parent.right
+                anchors.bottom: parent.bottom
+                anchors.margins: 10
+                text: version
+                font: Constants.smallFont
+                color: Material.secondaryTextColor
+            }
+        }
     }
 
     RelayMgmtDialog {

diff --git a/resources/qml/content/KeyMgmtScreen.ui.qml b/resources/qml/content/KeyMgmtScreen.ui.qml
@@ -176,4 +176,13 @@ Rectangle {
     ImportSuccessDialog {
         id: importSuccessDialog
     }
+
+    Text {
+        anchors.right: parent.right
+        anchors.bottom: parent.bottom
+        anchors.margins: 10
+        text: version
+        font: Constants.smallFont
+        color: Material.secondaryTextColor
+    }
 }
diff --git a/src/Types.hs b/src/Types.hs
@@ -137,6 +137,7 @@ data AppState = AppState
   , currentContact :: (Maybe PubKeyXO, Maybe SubscriptionId)
   , currentProfile :: Maybe PubKeyXO
   , currentPost :: Maybe EventId
+  , version :: Text
   }
 
 
@@ -169,4 +170,5 @@ initialState = AppState
   , currentContact = (Nothing, Nothing)
   , currentProfile = Nothing
   , currentPost = Nothing
+  , version = "v0.2.3-dev"
   }
diff --git a/src/UI.hs b/src/UI.hs
@@ -356,6 +356,11 @@ runUI = interpret $ \_ -> \case
     chatPool <- newFactoryPool (newObject postClass)
 
     rootClass <- newClass [
+        defPropertyConst' "version" (\_ -> do
+          st <- runE $ get @AppState
+          return $ version st
+        ),
+
         defPropertyConst' "ctxKeyMgmt" (\_ -> return keyMgmtObj),
 
         defPropertyConst' "ctxRelayMgmt" (\_ -> return relayMgmtObj),