emacs.d/modules/module-pants.el


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

(require 'config-package)

(use-package pants
  :load-path (lambda () (expand-file-name  "github.com/fcuny/pants.el/" fcuny/workspace))

  :config
  (setq pants-completion-system 'ivy
        pants-source-tree-root (expand-file-name "git.twitter.biz/source" fcuny/workspace)
        pants-bury-compilation-buffer t
        pants-extra-args "-q")

  :bind (("C-c b" . pants-find-build-file)
         ("C-c r" . pants-run-binary)
         ("C-c t" . pants-run-test)))

(defhydra hydra-pants (:hint nil :exit t)
"
^Command^
_g_: go to build
_b_: build a binary
_t_: run the tests
"
  ("g" pants-find-build-file)
  ("b" pants-run-binary)
  ("t" pants-run-test))

(provide 'module-pants)