view unixSoft/bin/apply-patchbomb @ 276:46979cef73b6

emacs: require and configure company mode
author Augie Fackler <raf@durin42.com>
date Fri, 27 Apr 2012 16:48:48 -0500
parents e8170eba88cd
children 4b661cede8ad
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 email
import subprocess
import sys

import ScriptingBridge

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'
            return 2
    return 0

if __name__ == '__main__':
    sys.exit(main())