;;; android-mode.el -- Minor mode for Android application development
;; Copyright (C) 2009 R.W van 't Veer
;;
;; This program is free software; you can redistribute it and/or
;; modify it under the terms of the GNU General Public License
;; as published by the Free Software Foundation; either version 3
;; of the License, or (at your option) any later version.
;;
;; This program is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
;; GNU General Public License for more details.
;;
;; You should have received a copy of the GNU General Public License
;; along with GNU Emacs; see the file COPYING. If not, write to the
;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
;; Boston, MA 02110-1301, USA.
(require 'cl)
(defgroup android-mode nil
"A minor mode for Android application development"
:prefix "android-mode-"
:group 'applications)
(defcustom android-mode-sdk-dir "~/Android/sdk"
"Set to the directory containing the Android SDK."
:type 'string
:group 'android-mode)
(defcustom android-mode-key-prefix "\C-c \C-c"
"Minor mode keys prefix."
:type 'string
:group 'android-mode)
(defcustom android-mode-avd ""
"Default AVD to use."
:type 'string
:group 'android-mode)
(defun android-list-avd ()
"List of Android Virtual Devices installed on local machine."
(let* ((command (concat android-mode-sdk-dir "/tools/android list avd"))
(output (shell-command-to-string command))
(result nil)
(offset 0))
(while (string-match "Name: \\(.*\\)" output offset)
(setq result (cons (match-string 1 output) result))
(setq offset (match-end 0)))
(reverse result)))
(defvar android-exclusive-processes ())
(defun android-start-exclusive-command (name command &rest args)
(and (not (find (intern name) android-exclusive-processes))
(set-process-sentinel (apply 'start-process-shell-command name name command args)
(lambda (proc msg)
(when (memq (process-status proc) '(exit signal))
(setq android-exclusive-processes
(delete (intern (process-name proc)) android-exclusive-processes)))))
(setq android-exclusive-processes (cons (intern name) android-exclusive-processes))))
(defun android-start-emulator ()
"Launch Android emulator."
(interactive)
(let ((avd (or (and (not (string= android-mode-avd "")) android-mode-avd)
(completing-read "Android Virtual Device: " (android-list-avd)))))
(unless (android-start-exclusive-command (concat "*android-emulator-" avd "*") (concat android-mode-sdk-dir "/tools/emulator -avd " avd))
(message (concat "emulator " avd " already running")))))
(defun android-start-ddms ()
"Launch Dalvik Debug Monitor Service tool."
(interactive)
(unless (android-start-exclusive-command "*android-ddms*" (concat android-mode-sdk-dir "/tools/ddms"))
(message "ddms already running")))
(defun android-logcat ()
"Switch to ADB logcat buffer, create it when it doesn't exists yet."
(interactive)
(android-start-exclusive-command "*android-logcat*" (concat android-mode-sdk-dir "/tools/adb") "logcat")
(switch-to-buffer "*android-logcat*"))
(defun android-root ()
"Look for AndroidManifest.xml file to find project root of android application."
(let ((cwd default-directory)
(found nil)
(max 10))
(while (and (not found) (> max 0))
(if (file-exists-p (concat cwd "AndroidManifest.xml"))
(setq found cwd)
(setq cwd (concat cwd "../") max (- max 1))))
(and found (expand-file-name found))))
(defmacro android-in-root (body)
`(let ((default-directory (android-root)))
,body))
(defun android-ant (task)
"Run ant task in the project root directory."
(interactive "sTask: ")
(android-in-root
(compile (concat "ant " task))))
(defmacro android-defun-ant-task (task)
`(defun ,(intern (concat "android-ant-" task)) ()
,(concat "Run 'ant " task "' in the project root directory.")
(interactive)
(android-ant ,task)))
(android-defun-ant-task "compile")
(android-defun-ant-task "install")
(android-defun-ant-task "reinstall")
(android-defun-ant-task "uninstall")
(defconst android-mode-keys
'(("d" . android-start-ddms)
("e" . android-start-emulator)
("l" . android-logcat)
("c" . android-ant-compile)
("i" . android-ant-install)
("r" . android-ant-reinstall)
("u" . android-ant-uninstall)))
(defvar android-mode-map (make-sparse-keymap))
(add-hook 'android-mode-hook
(lambda ()
(dolist (spec android-mode-keys)
(define-key
android-mode-map
(read-kbd-macro (concat android-mode-key-prefix " " (car spec)))
(cdr spec)))))
(define-minor-mode android-mode
"Android application development minor mode."
nil
" Android"
android-mode-map)
(add-hook 'dired-mode-hook (lambda () (when (android-root) (android-mode t))))
(add-hook 'find-file-hooks (lambda () (when (android-root) (android-mode t))))
(provide 'android-mode)
