36 lines
1.1 KiB
EmacsLisp
36 lines
1.1 KiB
EmacsLisp
;;; defuns-java.el ---
|
|
|
|
;; yasnippet defuns
|
|
;;;###autoload
|
|
(defun narf/java-android-mode-is-layout-file ()
|
|
(and android-mode
|
|
(eq major-mode 'nxml-mode)
|
|
(string-equal (file-name-base (directory-file-name default-directory)) "layout")))
|
|
|
|
;;;###autoload
|
|
(defun narf/java-android-mode-in-tags (&rest tags)
|
|
(-contains? tags (android-mode-tag-name)))
|
|
|
|
;;;###autoload
|
|
(defun narf/java-android-mode-tag-name ()
|
|
(save-excursion
|
|
(let (beg end)
|
|
(nxml-backward-up-element)
|
|
(evil-forward-word-begin)
|
|
(setq beg (point))
|
|
(evil-forward-WORD-end)
|
|
(setq end (1+ (point)))
|
|
(buffer-substring-no-properties beg end))))
|
|
|
|
;;;###autoload
|
|
(defun narf|android-mode-enable-maybe ()
|
|
(let ((root (narf/project-root)))
|
|
(when (or (narf/project-has-files "local.properties" root)
|
|
(narf/project-has-files "AndroidManifest.xml" root)
|
|
(narf/project-has-files "src/main/AndroidManifest.xml" root))
|
|
(android-mode +1)
|
|
(narf/set-build-command "./gradlew %s" "build.gradle"))))
|
|
|
|
(provide 'defuns-java)
|
|
;;; defuns-java.el ends here
|