taskrunner-mix.el

;;; taskrunner-mix.el --- Provide functions to retrieve elixir tasks via mix -*- lexical-binding: t; -*-
;; Copyright (C) 2019 Yavor Konstantinov

;;;; Commentary:
;; Provide support for Mix(elixir)

;;;; Code:

(require 'cl-lib)

;;;; Functions
;; These are here just to silence the bytecompiler. They are defined in
;; `taskrunner.el' and will be loaded later on but due to these files being
;; required before the function being loaded, a warning is emitted.
(declare-function taskrunner--make-task-buff-name "ext:taskrunner")

(defun taskrunner--get-elixir-tasks-from-buffer ()
  "Retrieve all mix tasks from the currently visited buffer."
  (cl-map 'list (lambda (elem)
                  (let ((split-task-line (split-string elem " ")))
                    (cond
                     ;; Match the last line of mix 'iex -S mix'
                     ((string-match "^iex" elem)
                      (concat "MIX" " " (car (split-string elem "#"))))
                     ;; Match the first line 'mix #some_comment'
                     ;; This is presented as MIX mix in the output
                     ((string-match "^mix[[:space:]]+#" elem)
                      (concat "MIX" " " "mix"))
                     ;; Match all other regular lines
                     (t
                      (concat "MIX" " " (cadr split-task-line)))
                     )
                    )
                  )
          (split-string (buffer-string) "\n")))


(defun taskrunner-get-mix-tasks (DIR)
  "Retrieve the mix tasks for the project in directory DIR.
This function returns a list of the form:
\(\"MIX TASK1\" \"MIX TASK2\"...)"
  (let ((default-directory DIR)
        (elixir-tasks) ;; Store the elixir tasks retrieved
        )
    (call-process "mix" nil (taskrunner--make-task-buff-name "mix") nil "help")
    (with-temp-buffer
      (set-buffer (taskrunner--make-task-buff-name "mix"))
      (goto-char (point-min))
      ;; Use regexp to find start of region since 'mix help' can sometimes show
      ;; errors in the output and we do not want to match those
      (search-forward-regexp "^mix[[:space:]]+" nil t)
      (narrow-to-region (progn
                          (beginning-of-line)
                          (point))
                        ;; Find last line
                        (progn
                          (goto-char (point-max))
                          (beginning-of-line)
                          (point)))
      (setq elixir-tasks (taskrunner--get-elixir-tasks-from-buffer))
      (kill-current-buffer))
    ;; Return the tasks explicitly. Cannot do it any other way since the buffer
    ;; used must be killed before returning from this function
    elixir-tasks))

(provide 'taskrunner-mix)
;;; taskrunner-mix.el ends here