require 'formula'

class Emacs < Formula
  homepage 'http://www.gnu.org/software/emacs/'
  url 'http://ftp.gnu.org/pub/gnu/emacs/emacs-24.1.tar.gz'
  md5 '97b78dece2b4fd617dfab26b7db2d4bc'

  depends_on "autoconf" => :build

  if ARGV.include? "--use-git-head"
    head 'http://git.sv.gnu.org/r/emacs.git'
  else
    head 'bzr://http://bzr.savannah.gnu.org/r/emacs/trunk'
  end

  # Stripping on Xcode 4 causes malformed object errors.
  # Just skip everything.
  skip_clean :all

  fails_with :llvm do
    build 2334
    cause "Duplicate symbol errors while linking."
  end

  fails_with :clang do
    build 318
    cause <<-EOS.undent
      Non-void functions should return values.
      http://lists.gnu.org/archive/html/emacs-devel/2010-11/msg00133.html
      EOS
  end unless ARGV.build_head?

  def options
    [
     ["--cocoa", "Build a Cocoa version of emacs"],
     ["--srgb", "Enable sRGB colors in the Cocoa version of emacs"],
     ["--with-x", "Include X11 support"],
     ["--use-git-head", "Use Savannah git mirror for HEAD builds"],
     ["--inline", "Apply a inline patch for JP users"]
    ]
  end

  def patches
    p = []
    p0 = []

    if ARGV.include? "--cocoa"
      # Fullscreen patch, works against 23.3 and HEAD.
      p << "https://raw.github.com/gist/1746342/702dfe9e2dd79fddd536aa90d561efdeec2ba716"
    end

    if ARGV.include? "--inline"
      p0 << "http://svn.sourceforge.jp/svnroot/macemacsjp/inline_patch/trunk/emacs-inline.patch"
      p0 << DATA
    end

    return { :p1=>p, :p0=>p0 }
  end

  def install
    # HEAD builds are currently blowing up when built in parallel
    # as of April 20 2012
    ENV.j1 if ARGV.build_head?

    args = ["--prefix=#{prefix}",
            "--without-dbus",
            "--enable-locallisppath=#{HOMEBREW_PREFIX}/share/emacs/site-lisp",
            "--infodir=#{info}/emacs"]

    if ARGV.build_head? and File.exists? "./autogen/copy_autogen"
      opoo "Using copy_autogen"
      puts "See https://github.com/mxcl/homebrew/issues/4852"
      system "autogen/copy_autogen"
    end

    if ARGV.include? "--cocoa"
      # Patch for color issues described here:
      # http://debbugs.gnu.org/cgi/bugreport.cgi?bug=8402
      if ARGV.include? "--srgb"
        inreplace "src/nsterm.m",
          "*col = [NSColor colorWithCalibratedRed: r green: g blue: b alpha: 1.0];",
          "*col = [NSColor colorWithDeviceRed: r green: g blue: b alpha: 1.0];"
      end

      args << "--with-ns" << "--disable-ns-self-contained"
      system "./configure", *args
      system "make bootstrap"
      system "make install"
      prefix.install "nextstep/Emacs.app"


    else
      if ARGV.include? "--with-x"
        ENV.x11
        # These libs are not specified in xft's .pc. See:
        # https://trac.macports.org/browser/trunk/dports/editors/emacs/Portfile#L74
        # https://github.com/mxcl/homebrew/issues/8156
        ENV.append 'LDFLAGS', '-lfreetype -lfontconfig'
        args << "--with-x"
        args << "--with-gif=no" << "--with-tiff=no" << "--with-jpeg=no"
      else
        args << "--without-x"
      end

      system "./configure", *args
      system "make"
      system "make install"
    end
  end

  def caveats
    s = ""
    if ARGV.include? "--cocoa"
      s += <<-EOS.undent
        Emacs.app was installed to:
          #{prefix}

        Command-line emacs can be used by setting up an alias:
          alias emacs="#{prefix}/Emacs.app/Contents/MacOS/Emacs -nw"

         To link the application to a normal Mac OS X location:
           brew linkapps
         or:
           ln -s #{prefix}/Emacs.app /Applications

      EOS
    end

    s += <<-EOS.undent
      Because the official bazaar repository might be slow, we include an option for
      pulling HEAD from an unofficial Git mirror:

        brew install emacs --HEAD --use-git-head

      There is inevitably some lag between checkins made to the official Emacs bazaar
      repository and their appearance on the Savannah mirror. See
      http://git.savannah.gnu.org/cgit/emacs.git for the mirror's status. The Emacs
      devs do not provide support for the git mirror, and they might reject bug
      reports filed with git version information. Use it at your own risk.
    EOS

    return s
  end
end

__END__
# Fix for inline patch
diff --git a/src/nsterm.m b/src/nsterm.m
index 635f737..4aade4a 100644
--- src.orig/nsterm.m
+++ src/nsterm.m
@@ -4278,6 +4279,8 @@ ns_term_shutdown (int sig)

   if (mac_store_change_input_method_event())
     {
+      if (!emacs_event)
+       return;
       emacs_event->kind = NS_NONKEY_EVENT;
       emacs_event->code = KEY_MAC_CHANGE_INPUT_METHOD;
         emacs_event->modifiers = 0;
--- src.orig/macim.m    2011-10-05 22:36:20.000000000 +0900
+++ src/macim.m 2011-10-05 22:36:40.000000000 +0900
@@ -99,7 +99,14 @@
     }
   else
     {
-      NSString *locale = [[NSLocale currentLocale] localeIdentifier];
+      NSString *locale;
+      NSArray *languages = [NSLocale preferredLanguages];
+      if (languages != nil) {
+          locale = [languages objectAtIndex:0];
+      } else {
+          locale = [[NSLocale currentLocale]
+                       objectForKey:NSLocaleLanguageCode];
+      }
       is = TISCopyInputSourceForLanguage((CFStringRef)locale);
     }
   if (is) TISSelectInputSource(is);