view unixSoft/bin/apply-patchbomb @ 212:4716b238db2e

emacs: add compilation-mode regexp for hg test tracebacks
author Augie Fackler <durin42@gmail.com>
date Thu, 13 May 2010 09:30:46 -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()