Home | History | Annotate | Download | only in emacs 
      1 ;;; android-host.el --- Module to use host binaries from an Android dev tree.
      2 ;;
      3 ;; Copyright (C) 2009 The Android Open Source Project
      4 ;;
      5 ;; Licensed under the Apache License, Version 2.0 (the "License");
      6 ;; you may not use this file except in compliance with the License.
      7 ;; You may obtain a copy of the License at
      8 ;;
      9 ;;      http://www.apache.org/licenses/LICENSE-2.0
     10 ;;
     11 ;; Unless required by applicable law or agreed to in writing, software
     12 ;; distributed under the License is distributed on an "AS IS" BASIS,
     13 ;; WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
     14 ;; See the License for the specific language governing permissions and
     15 ;; limitations under the License.
     16 
     17 ;;; Commentary:
     18 ;;
     19 ;; This module defines interactive functions to send the most common
     20 ;; commands to a device.
     21 ;;
     22 ;; Currently only one device is supported.
     23 ;;
     24 ;; In your .emacs load this file (e.g (require 'android-host)) then
     25 ;; you can either create new shortcuts e.g:
     26 ;;
     27 ;;   (global-set-key [f8] 'android-adb-sync)
     28 ;;
     29 ;; or rely on autocompletion M-x and-sync will expand to
     30 ;; M-x  android-adb-sync
     31 ;;
     32 ;; By default the following key bindings are active:
     33 ;; C-x a a android-adb-root
     34 ;; C-x a r android-adb-remount
     35 ;; C-x a s android-adb-sync
     36 ;; C-x a b android-adb-shell-reboot-bootloader
     37 ;; C-x a f android-fastboot-flashall
     38 ;;
     39 ;; android-fastboot-flashall is still work in progress, check the
     40 ;; associated buffer (*Android Output*) for errors when you use it.
     41 
     42 ;;; Code:
     43 
     44 (require 'android-common)
     45 
     46 (defvar android-host-command-map (make-sparse-keymap))
     47 
     48 (defun android-host-key-prefix-set (var val)
     49   "Bind the keys shortcuts to the functions.i"
     50   ;; TODO: This should go in a minor mode keymap instead of
     51   ;; messing with the global one.
     52   (define-key global-map (read-kbd-macro val) android-host-command-map)
     53   (custom-set-default var val))
     54 
     55 (let ((map android-host-command-map))
     56   (define-key map (kbd "a") 'android-adb-root)
     57   (define-key map (kbd "r") 'android-adb-remount)
     58   (define-key map (kbd "s") 'android-adb-sync)
     59   (define-key map (kbd "b") 'android-adb-shell-reboot-bootloader)
     60   (define-key map (kbd "f") 'android-fastboot-flashall))
     61 
     62 (defcustom android-host-key-prefix "C-x a"
     63   "Prefix keystrokes for Android commands."
     64   :group 'android
     65   :type 'string
     66   :set 'android-host-key-prefix-set)
     67 
     68 (defun android-adb-remount ()
     69   "Execute 'adb remount'."
     70   (interactive)
     71   (android-adb-command "remount"))
     72 
     73 (defun android-adb-root ()
     74   "Execute 'adb root'."
     75   (interactive)
     76   (android-adb-command "root"))
     77 
     78 (defun android-adb-shell-reboot-bootloader ()
     79   "Execute 'adb shell reboot bootloader'."
     80   (interactive)
     81   (android-adb-shell-command "reboot bootloader"))
     82 
     83 (defun android-adb-sync ()
     84   "Execute 'adb sync'."
     85   (interactive)
     86   ;; Always force root and remount, this way sync always works even on
     87   ;; a device that has just rebooted or that runs a userdebug build.
     88   (android-adb-root)
     89   (android-adb-remount)
     90   (android-adb-command "sync" 'p))
     91 
     92 (defun android-fastboot-sentinel (process event)
     93   "Called when the fastboot process is done."
     94   ;; TODO: Should barf if the last lines are not:
     95   ;;   OKAY
     96   ;;   rebooting...
     97   (princ
     98    (format "Process: %s had the event `%s'" process event)))
     99 
    100 (defun android-fastboot-flashall (arg)
    101   "Execute 'fastboot -p <product> flashall'.
    102 
    103 With no ARG, don't wipe the user data.
    104 With ARG, wipe the user data."
    105   (interactive "P")
    106   (when (get-buffer android-output-buffer-name)
    107     (with-current-buffer android-output-buffer-name
    108       (erase-buffer)))
    109   (let ((proc
    110          (if arg
    111              (start-process-shell-command
    112               "fastboot"
    113               android-output-buffer-name
    114               (concat (android-fastboot) " flashall -w"))
    115            (start-process-shell-command
    116             "fastboot" android-output-buffer-name
    117             (concat (android-fastboot) " flashall")))))
    118     (set-process-sentinel proc 'android-fastboot-sentinel)))
    119 
    120 
    121 (provide 'android-host)
    122 ;;; android-host.el ends here
    123