summaryrefslogtreecommitdiff
path: root/app
diff options
context:
space:
mode:
Diffstat (limited to 'app')
-rw-r--r--app/Main.hs86
-rw-r--r--app/SlackBuilder/CommandLine.hs3
-rw-r--r--app/SlackBuilder/Download.hs1
-rw-r--r--app/SlackBuilder/Package.hs14
4 files changed, 95 insertions, 9 deletions
diff --git a/app/Main.hs b/app/Main.hs
index 76c985f..51681b5 100644
--- a/app/Main.hs
+++ b/app/Main.hs
@@ -2,7 +2,8 @@ module Main
( main
) where
-import qualified Data.Text.IO as Text.IO
+import Data.List.NonEmpty (NonEmpty(..))
+import Control.Monad.IO.Class (MonadIO(..))
import Data.Maybe (fromMaybe)
import Options.Applicative (execParser)
import SlackBuilder.CommandLine
@@ -10,10 +11,80 @@ import SlackBuilder.Config
import SlackBuilder.Trans
import SlackBuilder.Updater
import qualified Toml
+import Data.Text (Text)
import qualified Data.Text as Text
-import Control.Monad.Trans.Reader (ReaderT(..))
+import qualified Data.Text.IO as Text.IO
+import Control.Monad.Trans.Reader (ReaderT(..), asks)
import SlackBuilder.Download
-import Text.URI (mkURI)
+import qualified SlackBuilder.Package as Package
+import Text.URI (mkURI, URI)
+import Text.URI.QQ (uri)
+import Data.Foldable (for_)
+import qualified Text.URI as URI
+import GHC.Records (HasField(..))
+
+data Package = Package
+ { latest :: Package.Updater
+ , category :: Text
+ , name :: Text
+ , homepage :: Maybe URI
+ , requires :: [Text]
+ }
+
+autoUpdatable :: [Package]
+autoUpdatable =
+ [ Package
+ { latest =
+ let ghArguments = GhArguments{ owner = "universal-ctags", name = "ctags", transform = Nothing}
+ latest' = latestGitHub ghArguments pure
+ templateTail =
+ [ Package.StaticPlaceholder "/ctags-"
+ , Package.VersionPlaceholder
+ , Package.StaticPlaceholder ".tar.gz"
+ ]
+ template = Package.DownloadTemplate
+ $ Package.StaticPlaceholder "https://github.com/universal-ctags/ctags/archive/" :| templateTail
+ in Package.Updater latest' template
+ , category = "development"
+ , name = "universal-ctags"
+ , homepage = Just [uri|https://ctags.io/|]
+ , requires = pure "%README%"
+ }
+ ]
+
+up2Date :: SlackBuilderT ()
+up2Date = for_ autoUpdatable go
+ where
+ go package@Package{ latest = Package.Updater getLatest _ } =
+ getLatest >>= mapM_ (updatePackage package)
+
+updatePackage :: Package -> Text -> SlackBuilderT ()
+updatePackage Package{..} version = do
+ maintainer' <- SlackBuilderT $ asks maintainer
+ let packagePath = category <> "/" <> name
+ package' = Package.PackageInfo
+ { version = version
+ , requires = requires
+ , path = Text.unpack packagePath
+ , homepage = maybe "" URI.render homepage
+ , maintainer = Package.Maintainer
+ { name = getField @"name" maintainer'
+ , email = getField @"email" maintainer'
+ }
+ }
+ Package.Updater _ downloadTemplate = latest
+
+ uri' <- liftIO $ Package.renderDownloadWithVersion downloadTemplate version
+ let tarball = "slackbuilds/development/universal-ctags/ctags-#{version}.tar.gz"
+ checksum <- fromMaybe undefined <$> download uri' tarball
+ download' <- liftIO $ mkURI "https://download.dlackware.com/hosted-sources/universal-ctags/ctags-#{version}.tar.gz"
+
+ liftIO $ Text.IO.writeFile "slackbuilds/#{package.path}/#{package.name}.info"
+ $ Package.infoTemplate package' [Package.Download download' checksum False]
+ updateSlackBuildVersion packagePath version
+ uploadCommand (Text.pack tarball) "#{CONFIG[:remote_path]}/universal-ctags"
+
+ commit packagePath version
main :: IO ()
main = do
@@ -40,13 +111,14 @@ main = do
ArchiveCommand repo nameVersion tarball tagPrefix ->
cloneAndArchive repo nameVersion tarball tagPrefix >> pure Nothing
DownloadCommand url target
- | Just uri <- mkURI url -> fmap (Text.pack . show)
- <$> download uri target
+ | Just uri' <- mkURI url -> fmap (Text.pack . show)
+ <$> download uri' target
| otherwise -> pure Nothing
CloneCommand repo tarball tagPrefix -> fmap (Text.pack . show)
<$> clone repo tarball tagPrefix
- DownloadAndDeployCommand uri tarball -> fmap (Text.pack . show)
- <$> downloadAndDeploy uri tarball
+ DownloadAndDeployCommand uri' tarball -> fmap (Text.pack . show)
+ <$> downloadAndDeploy uri' tarball
+ Up2DateCommand -> up2Date >> pure Nothing
chooseTransformFunction (Just "php") = phpTransform
chooseTransformFunction (Just "rdiff-backup") = Text.stripPrefix "v"
chooseTransformFunction _ = stripPrefix "v"
diff --git a/app/SlackBuilder/CommandLine.hs b/app/SlackBuilder/CommandLine.hs
index 23bf840..48881e2 100644
--- a/app/SlackBuilder/CommandLine.hs
+++ b/app/SlackBuilder/CommandLine.hs
@@ -30,6 +30,7 @@ data SlackBuilderCommand
| DownloadCommand Text String
| CloneCommand Text Text Text
| DownloadAndDeployCommand Text Text
+ | Up2DateCommand
deriving (Eq, Show)
data PackagistArguments = PackagistArguments
@@ -75,6 +76,7 @@ slackBuilderCommand = subparser
<> command "download" (info downloadCommand mempty)
<> command "clone" (info cloneCommand mempty)
<> command "deploy" (info deployCommand mempty)
+ <> command "up2date" (info up2DateCommand mempty)
where
slackBuildCommand = SlackBuildCommand
<$> argument str (metavar "PATH")
@@ -98,3 +100,4 @@ slackBuilderCommand = subparser
deployCommand = DownloadAndDeployCommand
<$> argument str (metavar "URI")
<*> argument str (metavar "TARBALL")
+ up2DateCommand = pure Up2DateCommand
diff --git a/app/SlackBuilder/Download.hs b/app/SlackBuilder/Download.hs
index 2201c25..5d4cb8d 100644
--- a/app/SlackBuilder/Download.hs
+++ b/app/SlackBuilder/Download.hs
@@ -7,6 +7,7 @@ module SlackBuilder.Download
, hostedSources
, remoteFileExists
, updateSlackBuildVersion
+ , uploadCommand
) where
import Data.ByteString (ByteString)
diff --git a/app/SlackBuilder/Package.hs b/app/SlackBuilder/Package.hs
index cc07cc5..cc3ea42 100644
--- a/app/SlackBuilder/Package.hs
+++ b/app/SlackBuilder/Package.hs
@@ -1,13 +1,15 @@
module SlackBuilder.Package
( DownloadPlaceholder(..)
, Download(..)
+ , DownloadTemplate(..)
, PackageInfo(..)
, Maintainer(..)
, Updater(..)
, infoTemplate
+ , renderDownloadWithVersion
) where
-import Data.List.NonEmpty (NonEmpty)
+import Data.List.NonEmpty (NonEmpty(..))
import Data.Text (Text)
import qualified Data.Text as Text
import Text.URI (URI(..))
@@ -17,6 +19,7 @@ import GHC.Records (HasField(..))
import System.FilePath (takeBaseName)
import Data.List (partition)
import SlackBuilder.Trans
+import Control.Monad.Catch (MonadThrow)
-- | Download URI with the MD5 checksum of the target.
data Download = Download
@@ -60,8 +63,15 @@ instance Show DownloadTemplate
where
show (DownloadTemplate components) = concatMap show components
+renderDownloadWithVersion :: MonadThrow m => DownloadTemplate -> Text -> m URI
+renderDownloadWithVersion (DownloadTemplate components) version =
+ URI.mkURI $ foldr f "" components
+ where
+ f (StaticPlaceholder staticPlaceholder) accumulator = accumulator <> staticPlaceholder
+ f VersionPlaceholder accumulator = accumulator <> version
+
-- | Function used to get the latest version of a source.
-newtype Updater = Updater (SlackBuilderT (Maybe Text))
+data Updater = Updater (SlackBuilderT (Maybe Text)) DownloadTemplate
packageName :: PackageInfo -> Text
packageName PackageInfo{ path } = Text.pack $ takeBaseName path
generated by cgit v1.2.3 (git 2.26.2) at 2026-06-26 23:08:56 +0000