mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions
git-annex/Command/Commit.hs

33 lines
811 B
Haskell
Raw Normal View History

add git-annex-shell commit Eventually, git-annex might try running this after making changes to a remote. I have not yet thought of a good way for it to tell which remotes it needs to run it on though. It can't just do it when shutting down a cached ssh connection, because ssh connection caching is optional, and that would not handle local remotes not accessed over ssh either.
2012-02-25 20:31:38 +00:00
{- git-annex command
-
update my email address and homepage url
2015-01-21 16:50:09 +00:00
- Copyright 2012 Joey Hess <id@joeyh.name>
add git-annex-shell commit Eventually, git-annex might try running this after making changes to a remote. I have not yet thought of a good way for it to tell which remotes it needs to run it on though. It can't just do it when shutting down a cached ssh connection, because ssh connection caching is optional, and that would not handle local remotes not accessed over ssh either.
2012-02-25 20:31:38 +00:00
-
update licenses from GPL to AGPL This does not change the overall license of the git-annex program, which was already AGPL due to a number of sources files being AGPL already. Legally speaking, I'm adding a new license under which these files are now available; I already released their current contents under the GPL license. Now they're dual licensed GPL and AGPL. However, I intend for all my future changes to these files to only be released under the AGPL license, and I won't be tracking the dual licensing status, so I'm simply changing the license statement to say it's AGPL. (In some cases, others wrote parts of the code of a file and released it under the GPL; but in all cases I have contributed a significant portion of the code in each file and it's that code that is getting the AGPL license; the GPL license of other contributors allows combining with AGPL code.)
2019-03-13 19:48:14 +00:00
- Licensed under the GNU AGPL version 3 or higher.
add git-annex-shell commit Eventually, git-annex might try running this after making changes to a remote. I have not yet thought of a good way for it to tell which remotes it needs to run it on though. It can't just do it when shutting down a cached ssh connection, because ssh connection caching is optional, and that would not handle local remotes not accessed over ssh either.
2012-02-25 20:31:38 +00:00
-}
module Command.Commit where
import Command
import qualified Annex.Branch
git-annex-shell: Runs hooks/annex-content after content is received or dropped.
2012-03-14 16:01:56 +00:00
import qualified Git
use Branch.name instead of hard coding the branch name Makes much more clear why ActionItemOther is being passed "git-annex".
2020-09-15 19:44:37 +00:00
import Git.Types
add git-annex-shell commit Eventually, git-annex might try running this after making changes to a remote. I have not yet thought of a good way for it to tell which remotes it needs to run it on though. It can't just do it when shutting down a cached ssh connection, because ssh connection caching is optional, and that would not handle local remotes not accessed over ssh either.
2012-02-25 20:31:38 +00:00
started converting to use optparse-applicative This is a work in progress. It compiles and is able to do basic command dispatch, including git autocorrection, while using optparse-applicative for the core commandline parsing. * Many commands are temporarily disabled before conversion. * Options are not wired in yet. * cmdnorepo actions don't work yet. Also, removed the [Command] list, which was only used in one place.
2015-07-08 16:33:27 +00:00
cmd :: Command
convert all commands to work with optparse-applicative Still no options though.
2015-07-08 19:08:02 +00:00
cmd = command "commit" SectionPlumbing
"commits any staged changes to the git-annex branch"
paramNothing (withParams seek)
add git-annex-shell commit Eventually, git-annex might try running this after making changes to a remote. I have not yet thought of a good way for it to tell which remotes it needs to run it on though. It can't just do it when shutting down a cached ssh connection, because ssh connection caching is optional, and that would not handle local remotes not accessed over ssh either.
2012-02-25 20:31:38 +00:00
started converting to use optparse-applicative This is a work in progress. It compiles and is able to do basic command dispatch, including git autocorrection, while using optparse-applicative for the core commandline parsing. * Many commands are temporarily disabled before conversion. * Options are not wired in yet. * cmdnorepo actions don't work yet. Also, removed the [Command] list, which was only used in one place.
2015-07-08 16:33:27 +00:00
seek :: CmdParams -> CommandSeek
move commandAction out of CmdLine.Seek This is groundwork for nested seek loops, eg seeking over all files and then performing commandActions on a list of remotes, which can be done concurrently. This commit was sponsored by Boyd Stephen Smith Jr. on Patreon.
2018-10-01 18:12:06 +00:00
seek = withNothing (commandAction start)
add git-annex-shell commit Eventually, git-annex might try running this after making changes to a remote. I have not yet thought of a good way for it to tell which remotes it needs to run it on though. It can't just do it when shutting down a cached ssh connection, because ssh connection caching is optional, and that would not handle local remotes not accessed over ssh either.
2012-02-25 20:31:38 +00:00
start :: CommandStart
use Branch.name instead of hard coding the branch name Makes much more clear why ActionItemOther is being passed "git-annex".
2020-09-15 19:44:37 +00:00
start = starting "commit" ai si $ do
Annex.Branch.commit =<< Annex.Branch.commitMessage
_ <- runhook <=< inRepo $ Git.hookPath "annex-content"
next $ return True
where indentation
2012-11-12 05:05:04 +00:00
where
runhook (Just hook) = liftIO $ boolSystem hook []
runhook Nothing = return True
use Branch.name instead of hard coding the branch name Makes much more clear why ActionItemOther is being passed "git-annex".
2020-09-15 19:44:37 +00:00
ai = ActionItemOther (Just (fromRef Annex.Branch.name))
si = SeekInput []
Reference in a new issue Copy permalink