git-annex-shell mostly done now, only needs 2 more subcommands
This commit is contained in:
parent
7a52b34e06
commit
a5a302b77d
6 changed files with 130 additions and 55 deletions
27
Command/ConfigList.hs
Normal file
27
Command/ConfigList.hs
Normal file
|
@ -0,0 +1,27 @@
|
|||
{- git-annex command
|
||||
-
|
||||
- Copyright 2010 Joey Hess <joey@kitenet.net>
|
||||
-
|
||||
- Licensed under the GNU GPL version 3 or higher.
|
||||
-}
|
||||
|
||||
module Command.ConfigList where
|
||||
|
||||
import Control.Monad.State (liftIO)
|
||||
|
||||
import Annex
|
||||
import Command
|
||||
import qualified GitRepo as Git
|
||||
|
||||
command :: [Command]
|
||||
command = [Command "configlist" paramNothing seek
|
||||
"outputs relevant git configuration"]
|
||||
|
||||
seek :: [CommandSeek]
|
||||
seek = [withNothing start]
|
||||
|
||||
start :: CommandStartNothing
|
||||
start = do
|
||||
g <- Annex.gitRepo
|
||||
liftIO $ Git.run g ["config", "--list"]
|
||||
return Nothing
|
32
Command/InAnnex.hs
Normal file
32
Command/InAnnex.hs
Normal file
|
@ -0,0 +1,32 @@
|
|||
{- git-annex command
|
||||
-
|
||||
- Copyright 2010 Joey Hess <joey@kitenet.net>
|
||||
-
|
||||
- Licensed under the GNU GPL version 3 or higher.
|
||||
-}
|
||||
|
||||
module Command.InAnnex where
|
||||
|
||||
import Control.Monad.State (liftIO)
|
||||
import System.Exit
|
||||
|
||||
import Command
|
||||
import Types
|
||||
import Core
|
||||
import qualified Backend
|
||||
|
||||
command :: [Command]
|
||||
command = [Command "inannex" (paramRepeating paramKey) seek
|
||||
"checks if keys are present in the annex"]
|
||||
|
||||
seek :: [CommandSeek]
|
||||
seek = [withKeys start]
|
||||
|
||||
start :: CommandStartString
|
||||
start keyname = do
|
||||
backends <- Backend.list
|
||||
let key = genKey (head backends) keyname
|
||||
present <- inAnnex key
|
||||
if present
|
||||
then return Nothing
|
||||
else liftIO $ exitFailure
|
Loading…
Add table
Add a link
Reference in a new issue