git-annex/Command/Init.hs

{- git-annex command
 -
 - Copyright 2010 Joey Hess <joey@kitenet.net>
 -
 - Licensed under the GNU GPL version 3 or higher.
 -}

module Command.Init where

import Common.Annex
import Command
import Init
	
def :: [Command]
def = [dontCheck repoExists $
	command "init" paramDesc seek SectionSetup "initialize git-annex"]

seek :: [CommandSeek]
seek = [withWords start]

start :: [String] -> CommandStart
start ws = do
	showStart "init" description
	next $ perform description
  where
	description = unwords ws

perform :: String -> CommandPerform
perform description = do
	initialize $ if null description then Nothing else Just description
	next $ return True
broke subcommands out into separate modules 2010-11-02 23:04:24 +00:00			`{- git-annex command`
			`-`
			`- Copyright 2010 Joey Hess <joey@kitenet.net>`
			`-`
			`- Licensed under the GNU GPL version 3 or higher.`
			`-}`

			`module Command.Init where`

rename 2011-10-05 20:02:51 +00:00			`import Common.Annex`
broke subcommands out into separate modules 2010-11-02 23:04:24 +00:00			`import Command`
Now "git annex init" only has to be run once when a git repository is first being created. Clones will automatically notice that git-annex is in use and automatically perform a basic initalization. It's still recommended to run "git annex init" in any clones, to describe them. 2011-08-17 18:14:43 +00:00			`import Init`
refactor in preparation for adding a git-annex-shell command 2010-12-30 19:06:26 +00:00
clean up check selection code This new approach allows filtering out checks from the default set that are not appropriate for a command, rather than having to list every check that is appropriate. It also reduces some boilerplate. Haskell does not define Eq for functions, so I had to go a long way around with each check having a unique id. Meh. 2011-10-29 19:19:05 +00:00			`def :: [Command]`
			`def = [dontCheck repoExists $`
add section metadata to all commands Not yet used .. mindless train work. 2013-03-24 22:28:21 +00:00			`command "init" paramDesc seek SectionSetup "initialize git-annex"]`
broke subcommands out into separate modules 2010-11-02 23:04:24 +00:00
rename some stuff and prepare to break out more into Command/* 2010-12-30 18:19:16 +00:00			`seek :: [CommandSeek]`
better multiword parameter handling This way, individual words as entered on the command line are available to commands. 2011-05-16 16:25:54 +00:00			`seek = [withWords start]`
refactor param seeking 2010-11-11 22:54:52 +00:00
remove command type definitions These were a mistake, they make the type signatures harder to read and less flexible. The CommandSeek, CommandStart, CommandPerform, and CommandCleanup types were a good idea, but composing them with the parameters expected is going too far. 2011-09-15 20:50:49 +00:00			`start :: [String] -> CommandStart`
better multiword parameter handling This way, individual words as entered on the command line are available to commands. 2011-05-16 16:25:54 +00:00			`start ws = do`
broke subcommands out into separate modules 2010-11-02 23:04:24 +00:00			`showStart "init" description`
refactor some boilerplate 2011-05-15 06:02:46 +00:00			`next $ perform description`
where indentation 2012-11-12 05:05:04 +00:00			`where`
			`description = unwords ws`
broke subcommands out into separate modules 2010-11-02 23:04:24 +00:00
rename some stuff and prepare to break out more into Command/* 2010-12-30 18:19:16 +00:00			`perform :: String -> CommandPerform`
broke subcommands out into separate modules 2010-11-02 23:04:24 +00:00			`perform description = do`
init: When run in an already initalized repository, and without a description specified, don't delete the old description. 2011-11-12 19:42:52 +00:00			`initialize $ if null description then Nothing else Just description`
update for git-annex branch stop changing gitattributes on init create git-annex branch on init ugly special case for init in a bare repository goes away, yay! git annex init is also faster, at least in a large existing repo, as it does not need to run the slow 'git add' 2011-06-22 20:03:26 +00:00			`next $ return True`