Allow looking on the text page for the latest version

1 files changed, 21 insertions, 0 deletions

diff --git a/app/Main.hs b/app/Main.hs
index 99be344..27ae118 100644
--- a/app/Main.hs
+++ b/app/Main.hs
@@ -2,6 +2,8 @@ module Main
     ( main
     ) where
 
+import Data.Char (isNumber)
+import Control.Applicative (Applicative(liftA2))
 import Data.List.NonEmpty (NonEmpty(..))
 import qualified Data.List.NonEmpty as NonEmpty
 import Control.Monad.IO.Class (MonadIO(..))
@@ -147,6 +149,25 @@ autoUpdatable =
         , name = "rdiff-backup"
         , reupload = Just mempty
         }
+    , Package
+        { latest =
+            let needle = "Linux—"
+                textArguments = TextArguments
+                    { textURL = "https://help.webex.com/en-us/article/mqkve8/Webex-App-%7C-Release-notes"
+                    , versionPicker = Text.takeWhile (liftA2 (||) (== '.') isNumber)
+                        . Text.drop (Text.length needle)
+                        . snd
+                        . Text.breakOn needle
+                    }
+                latest' = latestText textArguments
+                template = Package.DownloadTemplate $ pure
+                    $ Package.StaticPlaceholder
+                        "https://binaries.webex.com/WebexDesktop-Ubuntu-Official-Package/Webex.deb"
+             in Package.Updater latest' template
+        , category = "network"
+        , name = "webex"
+        , reupload = Nothing
+        }
     ]
 
 up2Date :: SlackBuilderT ()