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

;;;; Commentary:
;; Provide support for Rake(Ruby)

;;;; 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--narrow-to-line "ext:taskrunner")
(declare-function taskrunner--make-task-buff-name "ext:taskrunner")

(defun taskrunner--retrieve-rake-tasks-from-buffer ()
  "Retrieve the rake tasks from the current buffer.
This function returns a list of the form:
\(\"RAKE TASK1\" \"RAKE TASK2\"...)"
  (goto-char (point-min))
  (let ((rake-tasks '()))
    (while (search-forward-regexp "^rake[[:space:]]+" nil t)
      (taskrunner--narrow-to-line)
      (push (concat "RAKE" " " (cadr (split-string (buffer-string) " " t))) rake-tasks)
      (widen))
    (kill-current-buffer)
    rake-tasks))


(defun taskrunner-get-rake-tasks (DIR)
  "Retrieve the ant tasks for the project in directory DIR.
This function returns a list of the form:
\(\"RAKE TASK1\" \"RAKE TASK2\"...)"
  (let ((default-directory DIR))
    (call-process "rake"  nil (taskrunner--make-task-buff-name "rake")  nil "-AT")
    (with-temp-buffer
      (set-buffer (taskrunner--make-task-buff-name "rake"))
      (taskrunner--retrieve-rake-tasks-from-buffer))))

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