objc, java modules

Author: Graham Lee

init.el

@@ -5,4 +5,6 @@
 (when (and (>= emacs-major-version 23) (window-system))    ; frame
   (load "~/.emacs.d/modules/window.el"))
 (load "~/.emacs.d/modules/theme.el")                       ; color theme
+(load "~/.emacs.d/modules/objc.el")                        ; objc
+(load "~/.emacs.d/modules/java.el")                        ; java
 (load "~/.emacs.d/modules/python.el")                      ; python

modules/java.el

@@ -0,0 +1,13 @@
+(add-hook 'java-mode-hook
+	  (lambda ()
+	    "Treat Java 1.5 @-style annotations as comments."
+	    (setq c-comment-start-regexp "(@|/(/|[*][*]?))")
+	    (modify-syntax-entry ?@ "< b" java-mode-syntax-table)))
+
+(add-hook 'java-mode-hook (lambda ()
+			    (setq c-basic-offset 2)))
+
+(add-hook 'java-mode-hook (lambda ()
+			    (setq c-basic-offset 2
+				  tab-width 2
+				  indent-tabs-mode t)))

modules/objc.el

@@ -0,0 +1,37 @@
+(add-to-list 'auto-mode-alist '("\\.mm\\'" . objc-mode))
+(add-to-list 'magic-mode-alist
+	     `(,(lambda ()
+		  (and (string= (file-name-extension buffer-file-name) "h")
+		       (re-search-forward "@\\<interface\\>"
+					  magic-mode-regexp-match-limit t)))
+	       . objc-mode))
+
+(require 'find-file) ;; for the "cc-other-file-alist" variable
+(nconc (cadr (assoc "\\.h\\'" cc-other-file-alist)) '(".m" ".mm"))
+
+(defadvice ff-get-file-name (around ff-get-file-name-framework
+				    (search-dirs
+				     fname-stub
+				     &optional suffix-list))
+  "Search for Mac framework headers as well as POSIX headers."
+  (or
+   (if (string-match "\\(.*?\\)/\\(.*\\)" fname-stub)
+       (let* ((framework (match-string 1 fname-stub))
+	      (header (match-string 2 fname-stub))
+	      (fname-stub (concat framework ".framework/Headers/" header)))
+	 ad-do-it))
+   ad-do-it))
+(ad-enable-advice 'ff-get-file-name 'around 'ff-get-file-name-framework)
+(ad-activate 'ff-get-file-name)
+
+(setq cc-search-directories '("." "../include" "/usr/include" "/usr/local/include/*"
+			      "/System/Library/Frameworks" "/Library/Frameworks"))
+
+
+(add-hook 'objc-mode-hook (lambda ()
+			    (setq c-basic-offset 2)))
+
+(add-hook 'objc-mode-hook (lambda ()
+			    (setq c-basic-offset 2
+				  tab-width 2
+				  indent-tabs-mode t)))