From c0111fe313edf4b8bc13cd0f3702853f5b61b766 Mon Sep 17 00:00:00 2001 From: Franck Cuny Date: Mon, 22 Feb 2016 13:55:10 -0800 Subject: [emacs] move functions for pants to it's own file --- emacs.d/core/core-defun.el | 63 --------------------------------------- emacs.d/core/core-load-paths.el | 1 + emacs.d/core/core-pants.el | 65 +++++++++++++++++++++++++++++++++++++++++ 3 files changed, 66 insertions(+), 63 deletions(-) create mode 100644 emacs.d/core/core-pants.el (limited to 'emacs.d/core') diff --git a/emacs.d/core/core-defun.el b/emacs.d/core/core-defun.el index 855d17f..5180e68 100644 --- a/emacs.d/core/core-defun.el +++ b/emacs.d/core/core-defun.el @@ -39,67 +39,4 @@ (ansi-term (getenv "SHELL"))) (switch-to-buffer-other-window "*ansi-term*"))) -;; this functions are to make it easy to work with `pants' -(defvar fcuny/build-command "cd ~/src/source && ./pants --no-colors" - "Command to use to execute the target") - -(defvar fcuny/build-file "BUILD" - "Name of the file containing our build targets") - -(defun fcuny/--find-directory-containing-build-file (file) - "Find the directory containing the build file." - (let ((root nil) - try) - (while (not (or root - (null file) - (string-match locate-dominating-stop-dir-regexp file))) - (setq try (if (stringp fcuny/build-file) - (file-exists-p (expand-file-name fcuny/build-file file)))) - (cond (try (setq root file)) - ((equal file (setq file (file-name-directory - (directory-file-name file)))) - (setq file nil)))) - (and root (expand-file-name (file-name-as-directory root))))) - -(defun fcuny/--build-action (target) - (compile (format "%s binary %s" fcuny/build-command target))) - -(defun fcuny/--build-target-list (file) - "Generate a list of existing targets" - (let ((build-command (format "%s list %s:" fcuny/build-command file)) - targets target) - (with-temp-buffer - (insert - (shell-command-to-string build-command)) - (goto-char (point-min)) - (while (re-search-forward "^\\(.+\\)$" nil t) - (setq target (match-string 1)) - (unless (or (save-excursion - (goto-char (match-beginning 0)) - (forward-line -1) - (looking-at "^# Not a target:")) - (string-match "^\\." target)) - (push target targets)))) - (helm - (helm :sources - `((name . "Targets") - (candidates . ,targets) - (action . fcuny/build-action)))))) - -(defun fcuny/find-build-file () - "Find the build file and if it exists, open it." - (interactive) - (let ((build-file (fcuny/--find-directory-containing-build-file (file-name-directory (buffer-file-name))))) - (if build-file - (find-file (concat build-file fcuny/build-file)) - (error "Could not find %s" fcuny/build-file)))) - -(defun fcuny/build-run-target () - "List the targets for a BUILD file." - (interactive) - (let ((build-file (fcuny/--find-directory-containing-build-file (file-name-directory (buffer-file-name))))) - (if build-file - (fcuny/--build-target-list build-file) - (error "Could not find %s" fcuny/build-file)))) - (provide 'core-defun) diff --git a/emacs.d/core/core-load-paths.el b/emacs.d/core/core-load-paths.el index e7258cd..e3ae7ec 100644 --- a/emacs.d/core/core-load-paths.el +++ b/emacs.d/core/core-load-paths.el @@ -10,4 +10,5 @@ (require 'core-org) (require 'core-autocompletion) (require 'core-bindings) +(require 'core-pants) (require 'core-modes) diff --git a/emacs.d/core/core-pants.el b/emacs.d/core/core-pants.el new file mode 100644 index 0000000..af3b35d --- /dev/null +++ b/emacs.d/core/core-pants.el @@ -0,0 +1,65 @@ +;; this functions are to make it easy to work with `pants' + +(defvar fcuny/build-command "cd ~/src/source && ./pants --no-colors" + "Command to use to execute the target") + +(defvar fcuny/build-file "BUILD" + "Name of the file containing our build targets") + +(defun fcuny/--find-directory-containing-build-file (file) + "Find the directory containing the build file." + (let ((root nil) + try) + (while (not (or root + (null file) + (string-match locate-dominating-stop-dir-regexp file))) + (setq try (if (stringp fcuny/build-file) + (file-exists-p (expand-file-name fcuny/build-file file)))) + (cond (try (setq root file)) + ((equal file (setq file (file-name-directory + (directory-file-name file)))) + (setq file nil)))) + (and root (expand-file-name (file-name-as-directory root))))) + +(defun fcuny/--build-action (target) + (compile (format "%s binary %s" fcuny/build-command target))) + +(defun fcuny/--build-target-list (file) + "Generate a list of existing targets" + (let ((build-command (format "%s list %s:" fcuny/build-command file)) + targets target) + (with-temp-buffer + (insert + (shell-command-to-string build-command)) + (goto-char (point-min)) + (while (re-search-forward "^\\(.+\\)$" nil t) + (setq target (match-string 1)) + (unless (or (save-excursion + (goto-char (match-beginning 0)) + (forward-line -1) + (looking-at "^# Not a target:")) + (string-match "^\\." target)) + (push target targets)))) + (helm + (helm :sources + `((name . "Targets") + (candidates . ,targets) + (action . fcuny/--build-action)))))) + +(defun fcuny/find-build-file () + "Find the build file and if it exists, open it." + (interactive) + (let ((build-file (fcuny/--find-directory-containing-build-file (file-name-directory (buffer-file-name))))) + (if build-file + (find-file (concat build-file fcuny/build-file)) + (error "Could not find %s" fcuny/build-file)))) + +(defun fcuny/build-run-target () + "List the targets for a BUILD file." + (interactive) + (let ((build-file (fcuny/--find-directory-containing-build-file (file-name-directory (buffer-file-name))))) + (if build-file + (fcuny/--build-target-list build-file) + (error "Could not find %s" fcuny/build-file)))) + +(provide 'core-pants) -- cgit 1.4.1