monomer-flatpak-example 0.0.8.0 → 0.0.9.0

raw patch · 3 files changed

+15/−3 lines, 3 filesdep +modern-uri

Dependencies added: modern-uri

Files

• app/Main.hs +12/−2
• assets/io.github.Dretch.MonomerFlatpakExample.metainfo.xml +1/−0
• monomer-flatpak-example.cabal +2/−1

@@ -1,3 +1,5 @@+{-# LANGUAGE QuasiQuotes #-}+ module Main (main) where  import Control.Exception (SomeException, catch)@@ -8,7 +10,7 @@ import Data.Sequence qualified as Seq import Data.Text (Text, intercalate, pack, unpack) import Data.Word (Word32)-import Desktop.Portal (AddNotificationOptions (..), Client, GetUserInformationOptions (..), GetUserInformationResults (..), NotificationButton (..), NotificationIcon (..), NotificationPriority (..), OpenFileResults (..), Request, addNotificationOptions)+import Desktop.Portal (AddNotificationOptions (..), Client, GetUserInformationOptions (..), GetUserInformationResults (..), NotificationButton (..), NotificationIcon (..), NotificationPriority (..), OpenFileResults (..), Request, addNotificationOptions, openURIOptions) import Desktop.Portal qualified as Portal import Desktop.Portal.Settings (ReadAllOptions (..), ReadAllResults) import Desktop.Portal.Settings qualified as Settings@@ -17,6 +19,7 @@ import Paths_monomer_flatpak_example (getDataFileName) import System.Directory (getCurrentDirectory, getHomeDirectory, listDirectory) import System.Environment (getEnvironment)+import Text.URI.QQ (uri) import Prelude hiding (unwords)  data AppModel = AppModel@@ -55,6 +58,7 @@   | AddNotification   | ReadSettings   | ReadSettingsFinish ReadAllResults+  | OpenURI   | RequestFailed Text   | CancelRequest   | CloseAlert@@ -103,7 +107,8 @@                   button "Get User Information" GetUserInformation,                   button "Open File" OpenFile,                   button "Add Notification" AddNotification,-                  button "Read Settings" ReadSettings+                  button "Read Settings" ReadSettings,+                  button "Open URI" OpenURI                 ]                 `styleBasic` [padding 5],               hagrid@@ -263,6 +268,11 @@     ]   ReadSettingsFinish results ->     [Model model {alertContents = AlertSettings results}]+  OpenURI ->+    [ Producer $ \emit ->+        catchRequestErrors emit $ do+          void (Portal.openURI model.portalClient (openURIOptions [uri|https://www.bbc.com/weather|]))+    ]   CancelRequest ->     let cancel = case model.alertContents of           AlertRequestingOpenFile res ->

@@ -23,6 +23,7 @@   </screenshots>    <releases>+    <release version="0.0.9.0" date="2023-06-03"/>     <release version="0.0.8.0" date="2023-05-26"/>     <release version="0.0.7.0" date="2023-05-03"/>     <release version="0.0.6.0" date="2023-04-22"/>

@@ -1,6 +1,6 @@ cabal-version: 1.12 name:          monomer-flatpak-example-version:       0.0.8.0+version:       0.0.9.0 license:       MIT license-file:  LICENSE maintainer:    garethdanielsmith@gmail.com@@ -47,6 +47,7 @@         dbus <1.3,         desktop-portal <0.3,         directory <1.4,+        modern-uri <0.4,         monomer <1.6,         monomer-hagrid <0.4,         random <1.3,