Start9/registry
2
0
Fork 0
mirror of https://github.com/Start9Labs/registry.git synced 2026-03-30 19:54:47 +00:00
Code Issues Packages Projects Releases Wiki Activity

rename from embassy-sdk to start-sdk and embassy-publish to registr-publish

Browse Source
This commit is contained in:
Lucy Cifferello
2023-08-01 11:40:30 -04:00
parent 8b7d461c21
commit 665b9dd04b
7 changed files with 24 additions and 23 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
.gitignore vendored
View File

@@ -30,6 +30,7 @@ version
**/*.s9pk **/*.s9pk
**/appmgr **/appmgr
0.3.0_features.md 0.3.0_features.md
**/start-sdk
**/embassy-sdk **/embassy-sdk
start9-registry.prof start9-registry.prof
start9-registry.hp start9-registry.hp

2
Makefile
View File

@@ -5,4 +5,4 @@ profile:
cabal: cabal:
cabal build cabal build
# this step is specific for m1 devices ie. aarch64-osx # this step is specific for m1 devices ie. aarch64-osx
sudo cp dist-newstyle/build/aarch64-osx/ghc-9.2.5/start9-registry-0.2.1/x/embassy-publish/build/embassy-publish/embassy-publish /usr/local/bin/ sudo cp dist-newstyle/build/aarch64-osx/ghc-9.2.5/start9-registry-0.2.1/x/registry-publish/build/registry-publish/registry-publish /usr/local/bin/

10
README.md
View File

@@ -23,13 +23,13 @@ cd registry
``` ```
- run `make` - run `make`
### Set up embassy-publish tool ### Set up registry-publish tool
- run `apt install libgmp-dev zlib1g-dev libtinfo-dev libpq-dev` (on macOS `brew install libmpd zlib-ng libtiff`) - run `apt install libgmp-dev zlib1g-dev libtinfo-dev libpq-dev` (on macOS `brew install libmpd zlib-ng libtiff`)
- run `stack install` (recommended: include the installation path in your $PATH after running this command) - run `stack install` (recommended: include the installation path in your $PATH after running this command)
- update your shell to include the installation path of the copied executables from `stack install`. i.e. `nano ~./zshrc` add `export PATH=$PATH:/your/path/here` to zshrc; save and exit nano. Run `source ~/.zshrc` - update your shell to include the installation path of the copied executables from `stack install`. i.e. `nano ~./zshrc` add `export PATH=$PATH:/your/path/here` to zshrc; save and exit nano. Run `source ~/.zshrc`
- run `embassy-publish init --bash` (or --zsh / --fish depending on your preferred shell) - run `registry-publish init --bash` (or --zsh / --fish depending on your preferred shell)
- run `embassy-publish reg add -l <URL> -n <NAME> -u <USER> -p <PASS>` (include https:// in your URL) - run `registry-publish reg add -l <URL> -n <NAME> -u <USER> -p <PASS>` (include https:// in your URL)
- take the hash that is emitted by this command and submit it to the registry owner - take the hash that is emitted by this command and submit it to the registry owner
### Setting up a registry dev environment ### Setting up a registry dev environment
@@ -40,8 +40,8 @@ cd registry
- set PG_PASSWORD to the password for that user - set PG_PASSWORD to the password for that user
- set SSL_AUTO to false - set SSL_AUTO to false
- set RESOURCES_PATH to an empty directory you wish to use as your package repository - set RESOURCES_PATH to an empty directory you wish to use as your package repository
- install `embassy-sdk` - install `start-sdk`
- set STATIC_BIN to the path that contains `embassy-sdk` - set STATIC_BIN to the path that contains `start-sdk`
## APIs ## APIs

2
hie.yaml
View File

@@ -7,4 +7,4 @@ cradle:
- path: "./test" - path: "./test"
component: "start9-registry:test:start9-registry-test" component: "start9-registry:test:start9-registry-test"
- path: "./cli" - path: "./cli"
component: "start9-registry:exe:embassy-publish" component: "start9-registry:exe:registry-publish"

2
package.yaml
View File

@@ -111,7 +111,7 @@ executables:
when: when:
- condition: flag(library-only) - condition: flag(library-only)
buildable: false buildable: false
embassy-publish: registry-publish:
source-dirs: cli source-dirs: cli
main: Main.hs main: Main.hs
ghc-options: ghc-options:

10
src/Cli/Cli.hs
View File

@@ -270,7 +270,7 @@ cfgLocation = getHomeDirectory <&> \d -> d </> ".embassy/publish.dhall"
parseInit :: Parser (Maybe Shell) parseInit :: Parser (Maybe Shell)
parseInit = subparser $ command "init" (info go $ progDesc "Initializes embassy-publish config") <> metavar "init" parseInit = subparser $ command "init" (info go $ progDesc "Initializes registry-publish config") <> metavar "init"
where where
shells = [Bash, Fish, Zsh] shells = [Bash, Fish, Zsh]
go = headMay . fmap fst . filter snd . zip shells <$> for shells (switch . long . toS . toLower . show) go = headMay . fmap fst . filter snd . zip shells <$> for shells (switch . long . toS . toLower . show)
@@ -461,13 +461,13 @@ init sh = do
for_ sh $ \case for_ sh $ \case
Bash -> do Bash -> do
let bashrc = home </> ".bashrc" let bashrc = home </> ".bashrc"
appendFile bashrc "source <(embassy-publish --bash-completion-script `which embassy-publish`)\n" appendFile bashrc "source <(registry-publish --bash-completion-script `which registry-publish`)\n"
Fish -> do Fish -> do
let fishrc = home </> ".config" </> "fish" </> "config.fish" let fishrc = home </> ".config" </> "fish" </> "config.fish"
appendFile fishrc "source <(embassy-publish --fish-completion-script `which embassy-publish`)\n" appendFile fishrc "source <(registry-publish --fish-completion-script `which registry-publish`)\n"
Zsh -> do Zsh -> do
let zshcompleter = "/usr/local/share/zsh/site-functions/_embassy-publish" let zshcompleter = "/usr/local/share/zsh/site-functions/_registry-publish"
res <- readProcess "embassy-publish" ["--zsh-completion-script", "`which embassy-publish`"] "" res <- readProcess "registry-publish" ["--zsh-completion-script", "`which registry-publish`"] ""
writeFile zshcompleter (toS res) writeFile zshcompleter (toS res)

20
src/Lib/External/AppMgr.hs vendored
View File

@@ -105,23 +105,23 @@ sourceManifest ::
(ConduitT () ByteString m () -> m r) -> (ConduitT () ByteString m () -> m r) ->
m r m r
sourceManifest appmgrPath pkgFile sink = do sourceManifest appmgrPath pkgFile sink = do
let appmgr = readProcessInheritStderr (appmgrPath </> "embassy-sdk") ["inspect", "manifest", pkgFile] "" let appmgr = readProcessInheritStderr (appmgrPath </> "start-sdk") ["inspect", "manifest", pkgFile] ""
appmgr sink `catch` \ece -> appmgr sink `catch` \ece ->
$logErrorSH ece *> throwIO (AppMgrE [i|embassy-sdk inspect manifest #{pkgFile}|] (eceExitCode ece)) $logErrorSH ece *> throwIO (AppMgrE [i|start-sdk inspect manifest #{pkgFile}|] (eceExitCode ece))
sourceIcon :: (MonadUnliftIO m, MonadLoggerIO m) => FilePath -> FilePath -> (ConduitT () ByteString m () -> m r) -> m r sourceIcon :: (MonadUnliftIO m, MonadLoggerIO m) => FilePath -> FilePath -> (ConduitT () ByteString m () -> m r) -> m r
sourceIcon appmgrPath pkgFile sink = do sourceIcon appmgrPath pkgFile sink = do
let appmgr = readProcessInheritStderr (appmgrPath </> "embassy-sdk") ["inspect", "icon", pkgFile] "" let appmgr = readProcessInheritStderr (appmgrPath </> "start-sdk") ["inspect", "icon", pkgFile] ""
appmgr sink `catch` \ece -> appmgr sink `catch` \ece ->
$logErrorSH ece *> throwIO (AppMgrE [i|embassy-sdk inspect icon #{pkgFile}|] (eceExitCode ece)) $logErrorSH ece *> throwIO (AppMgrE [i|start-sdk inspect icon #{pkgFile}|] (eceExitCode ece))
getPackageHash :: (MonadUnliftIO m, MonadLoggerIO m) => FilePath -> FilePath -> m ByteString getPackageHash :: (MonadUnliftIO m, MonadLoggerIO m) => FilePath -> FilePath -> m ByteString
getPackageHash appmgrPath pkgFile = do getPackageHash appmgrPath pkgFile = do
let appmgr = readProcessInheritStderr (appmgrPath </> "embassy-sdk") ["inspect", "hash", pkgFile] "" let appmgr = readProcessInheritStderr (appmgrPath </> "start-sdk") ["inspect", "hash", pkgFile] ""
appmgr (\bsSource -> runConduit $ bsSource .| CL.foldMap id) `catch` \ece -> appmgr (\bsSource -> runConduit $ bsSource .| CL.foldMap id) `catch` \ece ->
$logErrorSH ece *> throwIO (AppMgrE [i|embassy-sdk inspect hash #{pkgFile}|] (eceExitCode ece)) $logErrorSH ece *> throwIO (AppMgrE [i|start-sdk inspect hash #{pkgFile}|] (eceExitCode ece))
sourceInstructions :: sourceInstructions ::
@@ -131,9 +131,9 @@ sourceInstructions ::
(ConduitT () ByteString m () -> m r) -> (ConduitT () ByteString m () -> m r) ->
m r m r
sourceInstructions appmgrPath pkgFile sink = do sourceInstructions appmgrPath pkgFile sink = do
let appmgr = readProcessInheritStderr (appmgrPath </> "embassy-sdk") ["inspect", "instructions", pkgFile] "" let appmgr = readProcessInheritStderr (appmgrPath </> "start-sdk") ["inspect", "instructions", pkgFile] ""
appmgr sink `catch` \ece -> appmgr sink `catch` \ece ->
$logErrorSH ece *> throwIO (AppMgrE [i|embassy-sdk inspect instructions #{pkgFile}|] (eceExitCode ece)) $logErrorSH ece *> throwIO (AppMgrE [i|start-sdk inspect instructions #{pkgFile}|] (eceExitCode ece))
sourceLicense :: sourceLicense ::
@@ -143,6 +143,6 @@ sourceLicense ::
(ConduitT () ByteString m () -> m r) -> (ConduitT () ByteString m () -> m r) ->
m r m r
sourceLicense appmgrPath pkgFile sink = do sourceLicense appmgrPath pkgFile sink = do
let appmgr = readProcessInheritStderr (appmgrPath </> "embassy-sdk") ["inspect", "license", pkgFile] "" let appmgr = readProcessInheritStderr (appmgrPath </> "start-sdk") ["inspect", "license", pkgFile] ""
appmgr sink `catch` \ece -> appmgr sink `catch` \ece ->
$logErrorSH ece *> throwIO (AppMgrE [i|embassy-sdk inspect license #{pkgFile}|] (eceExitCode ece)) $logErrorSH ece *> throwIO (AppMgrE [i|start-sdk inspect license #{pkgFile}|] (eceExitCode ece))