Mercurial > dotfiles
view unixSoft/bin/apply-patchbomb @ 207:c965d5dbd868
emacs localfuncs: add list rotation and string-joining functions I sometimes use
author | Augie Fackler <durin42@gmail.com> |
---|---|
date | Tue, 11 May 2010 15:32:19 -0500 |
parents | b5d71972aa72 |
children | e8170eba88cd |
line wrap: on
line source
#!/usr/bin/python # shebang for system python explicitly so we're sure to have pyobjc and # the scripting bridge. """apply-patchbomb: apply selected messages in Mail.app to an hg repo in pwd. This uses the scripting bridge to talk to Mail and subprocess to pass the patch to Mercurial on stdin. """ import ScriptingBridge import subprocess def main(): mail = ScriptingBridge.SBApplication.applicationWithBundleIdentifier_( 'com.apple.Mail') messages = list(sorted(mail.selection(), cmp=lambda x,y: cmp(x.subject(), y.subject()))) for m in messages: print 'Applying', m.subject() p = subprocess.Popen(['hg', 'import', '-'], stdin=subprocess.PIPE) p.stdin.write(m.source()) p.stdin.close() if p.wait() != 0: print 'hg import failed, bailing' break if __name__ == '__main__': main()