forked from wimleers/dotfiles
/
android-mode.elc
91 lines (86 loc) · 9.92 KB
/
android-mode.elc
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
;ELC
;;; Compiled by andre@alex.local on Tue Jun 5 09:15:44 2012
;;; from file /Users/andre/.emacs.d/elpa/android-mode-0.1/android-mode.el
;;; in Emacs version 24.1.50.1
;;; with all optimizations.
;;; This file uses dynamic docstrings, first added in Emacs 19.29.
;;; This file does not contain utf-8 non-ASCII characters,
;;; and so can be loaded in Emacs versions earlier than 23.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(byte-code "\300\301\302\303\304\305\306\307&\210\310\311\312\313\314\315\306\301&\210\310\316\317\320\314\321\306\301&\210\310\322\323\324\314\325\306\301&\210\310\326\327\330\314\315\306\301&\210\310\331\332\333\314\315\306\301&\207" [custom-declare-group android-mode nil "A minor mode for Android application development" :prefix "android-mode-" :group applications custom-declare-variable android-mode-sdk-dir "~/Android/sdk" "Set to the directory containing the Android SDK." :type string android-mode-sdk-tool-subdirs '("tools" "platform-tools") "List of subdirectors in the SDK containing commandline tools." (repeat string) android-mode-sdk-tool-extensions '(#1="" ".bat" ".exe") "List of possible extensions for commandline tools." (repeat string) android-mode-key-prefix " " "Minor mode keys prefix." android-mode-avd #1# "Default AVD to use."] 8)
#@80 Look for AndroidManifest.xml file to find project root of android application.
(defalias 'android-root #[nil "\301\302\"\207" [default-directory locate-dominating-file "AndroidManifest.xml"] 3 (#$ . 1402)])
(defalias 'android-in-root '(macro . #[(body) "\301\302E\207" [body let ((default-directory (android-root)))] 3]))
#@267 Try to find android sdk directory through the local.properties
file in the android project base directory. If local.properties
doesn't exist, it does not contain the sdk-dir property or the
referred directory does not exist, return `android-mode-sdk-dir'
variable.
(defalias 'android-local-sdk-dir #[nil "\305 \306\307\310
!\2058 \311 !r q\210\312 \210\313
!\210eb\210\314\315\316\317#\2057 \320\321!\322 !\210\310 !\2056 )*+\206= \207" [default-directory buffer local-properties sdk-dir android-mode-sdk-dir android-root "local.properties" "*android-mode*/local.properties" file-exists-p get-buffer-create erase-buffer insert-file-contents re-search-forward "^sdk.dir=\\(.*\\)" nil t match-string 1 kill-buffer] 4 (#$ . 1733)])
#@136 Find path to SDK tool. Calls `android-local-sdk-dir' to try to find locally
defined sdk directory. Defaults to `android-mode-sdk-dir'.
(defalias 'android-tool-path #[(name) "\302\303\304\305\306\307\"\"\"\206 \310\311 \"\207" [android-mode-sdk-tool-subdirs name find-if file-exists-p apply append mapcar #[(path) "\301\302\"\207" [android-mode-sdk-tool-extensions mapcar #[(ext) "\303\304\305
PE\306#\207" [path name ext mapconcat identity android-local-sdk-dir "/"] 6]] 3] error "can't find SDK tool: %s"] 7 (#$ . 2477)])
(defvar android-exclusive-processes nil)
(defalias 'android-start-exclusive-command #[(name command &rest args) "\304\305! \"?\205 \306\307\310\211
%\311\"\205 \305! B\211\207" [name android-exclusive-processes command args find intern set-process-sentinel apply start-process-shell-command #[(proc msg) "\302!\303>\205 \304\305\306!! \"\211\207" [proc android-exclusive-processes process-status (exit signal) delete intern process-name] 4]] 7])
#@61 List of Android Virtual Devices installed on local machine.
(defalias 'android-list-avd #[nil "\304\305!\306P\307!\310\311\312\313 #\203# \314\315 \"
B\311\225\202
\203- \316
!\2020 \317\320!,\207" [command output result offset android-tool-path "android" " list avd" shell-command-to-string nil 0 string-match "Name: \\(.*\\)" match-string 1 reverse error "no Android Virtual Devices found"] 4 (#$ . 3469)])
#@26 Launch Android emulator.
(defalias 'android-start-emulator #[nil "\302\230\204
\206 \303\304\305 \"\306\307 \310Q\311\312!\313 Q\"?\205& \314\315 \316Q!)\207" [android-mode-avd avd "" completing-read "Android Virtual Device: " android-list-avd android-start-exclusive-command "*android-emulator-" "*" android-tool-path "emulator" " -avd " message "emulator " " already running"] 5 (#$ . 3894) nil])
#@43 Launch Dalvik Debug Monitor Service tool.
(defalias 'android-start-ddms #[nil "\300\301\302\303!\"?\205 \304\305!\207" [android-start-exclusive-command "*android-ddms*" android-tool-path "ddms" message "ddms already running"] 4 (#$ . 4304) nil])
#@47 Name for the buffer where logcat output goes.
(custom-declare-variable 'android-logcat-buffer "*android-logcat*" '(#$ . 4557) :type 'string :group 'android-mode)
(defalias 'android-logcat-find-file #[nil "\302`\301\"\302`\300\"\211\205 \303\304 \305 Q!\210\306!*\207" [linenr filename get-text-property find-file android-root "/src/" goto-line] 5 nil nil])
(defalias 'android-logcat-find-file-mouse #[(event) "\305\211\211\212 \211:\203 \306 8:\203 \306\202 \307 8\202% \310 `\311\312F)\211 @) \211:\203C \306 8:\203= \306\202> \307 8\202I \310 `\311\312F) \313 8\206b A@:\203_ A@@\202b A@)\314
!q\210 b\210\315 ,\207" [file pos window event position nil 2 1 selected-window (0 . 0) 0 5 window-buffer android-logcat-find-file] 5 nil "e"])
(defvar android-logcat-map (byte-code "\301 \302\303\304#\210\302\305\306#\210)\207" [map make-sparse-keymap define-key "" android-logcat-find-file [mouse-2] android-logcat-find-file-mouse] 4))
(defalias 'android-logcat-prepare-msg #[(msg) "\306\307\"\203G \310\311\"\310\312\"\310\313\"\314\315\316 #\316\310\317\"Q \310\320\" \321\322 \323 Q!\203D \324\325\326\327\330\304 \305\331!\332\333& \202E -\207\207" [msg package class method filename linenr string-match "\\bat \\(.+\\)\\.\\([^.]+\\)\\.\\([^.]+\\)(\\(.+\\):\\([0-9]+\\))" match-string 1 2 3 replace-regexp-in-string "\\." "/" 4 5 file-exists-p android-root "/src/" propertize face underline mouse-face highlight string-to-number follow-link t] 12])
(defvar android-logcat-pending-output "")
#@46 Process filter for displaying logcat output.
(defalias 'android-logcat-process-filter #[(process output) "rq\210d`U\306\307 \310\311\312
#P \212\313\314
#\203\214
\307\224O \307\225db\210\313\315 \"\203} \316\317 \"\310\320\312\316\321 \"#\316\322 \"\316\323 \" ! \"\324\"\325\326#c\210\327 \210\324!\325\330#c\210\324\331 \332Q\325\333#c\210\327 \210\334 !c\210,\202\205 \324 \325\335#c\210\314c\210)\202
\306O)\205\230 db-\207" [android-logcat-buffer android-logcat-pending-output output pos buffer-read-only following nil 0 replace-regexp-in-string "" "" string-match "
" "^\\(.\\)/\\(.*\\)( *\\([0-9]+\\)): \\(.*\\)$" match-string 1 " *$" 2 3 4 propertize font-lock-face font-lock-comment-face tab-to-tab-stop font-lock-function-name-face "(" ")" font-lock-constant-face android-logcat-prepare-msg font-lock-warning-face line msg pid tag level] 8 (#$ . 6090)])
#@68 Switch to ADB logcat buffer, create it when it doesn't exists yet.
(defalias 'android-logcat #[nil "\304\305\306!\307#\203* \310\311!\312\"\210rq\210\313\314\302!\210\315\316 !\210\317\313!\210\320\313!\210)\321!\210db\207" [android-logcat-buffer buffer-read-only tab-stop-list android-logcat-map android-start-exclusive-command android-tool-path "adb" "logcat" set-process-filter get-buffer-process android-logcat-process-filter t make-local-variable (2 30) use-local-map font-lock-mode android-mode switch-to-buffer] 4 (#$ . 6990) nil])
#@45 Run ant TASK in the project root directory.
(defalias 'android-ant #[(task) "\302 \303\304 P!)\207" [default-directory task android-root compile "ant "] 3 (#$ . 7541) "sTask: "])
(defalias 'android-defun-ant-task '(macro . #[(task) "\301\302\303P!\304\305\306Q\307\310D\257\207" [task defun intern "android-ant-" nil "Run 'ant " "' in the project root directory." (interactive) android-ant] 7]))
#@48 Run 'ant clean' in the project root directory.
(defalias 'android-ant-clean #[nil "\300\301!\207" [android-ant "clean"] 2 (#$ . 7948) nil])
#@50 Run 'ant compile' in the project root directory.
(defalias 'android-ant-compile #[nil "\300\301!\207" [android-ant "compile"] 2 (#$ . 8094) nil])
#@50 Run 'ant install' in the project root directory.
(defalias 'android-ant-install #[nil "\300\301!\207" [android-ant "install"] 2 (#$ . 8246) nil])
#@52 Run 'ant uninstall' in the project root directory.
(defalias 'android-ant-uninstall #[nil "\300\301!\207" [android-ant "uninstall"] 2 (#$ . 8398) nil])
(defconst android-mode-keys '(("d" . android-start-ddms) ("e" . android-start-emulator) ("l" . android-logcat) ("C" . android-ant-clean) ("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 #[nil "\305\211\205 \n@\306 \307\f\310 @Q! A#\210\nA\211\204 \305*\207" [android-mode-keys spec #:--cl-dolist-temp-- android-mode-map android-mode-key-prefix nil define-key read-kbd-macro " "] 7])
#@93 Non-nil if Android mode is enabled.
Use the command `android-mode' to change this variable.
(defvar android-mode nil (#$ . 9091))
(make-variable-buffer-local 'android-mode)
#@45 Android application development minor mode.
(defalias 'android-mode #[(&optional arg) "\303 \304=\203
?\202 \305 !\306V\307\310
\203 \311\202 \312\"\210\313\314!\203@ \303 \2033 \303 \232\203@ \315\316
\203= \317\202> \320\"\210)\321 \210
\207" [last-message arg android-mode current-message toggle prefix-numeric-value 0 run-hooks android-mode-hook android-mode-on-hook android-mode-off-hook called-interactively-p any message "Android mode %sabled" "en" "dis" force-mode-line-update] 3 (#$ . 9270) (list (or current-prefix-arg (quote toggle)))])
(byte-code "\301\302\303\304\211%\210\305\306\307\"\210\305\310\311\"\210\312\302!\207" [android-mode-map add-minor-mode android-mode " Android" nil add-hook dired-mode-hook #[nil "\300 \205 \301\302!\207" [android-root android-mode t] 2] find-file-hook #[nil "\300 \205 \301\302!\207" [android-root android-mode t] 2] provide] 6)