;;; taskrunner-shell.el --- Provide functions to retrieve shell script targets -*- lexical-binding: t; -*-

;; Copyright (C) 2019 Yavor Konstantinov

;; TODO: Find a way to reliably run tasks in the shell where they must

;; run(powershell scripts in powershell, bash in bash...)

;;;; Commentary:

;; Support for:

;; - Bash

;; - Powershell

;; - Zsh

;;;; Code:

(require 'cl-lib)

;;;; Functions

(defun taskrunner--get-scripts (DIR FILETYPE-REGEXP PREFIX)

"Return a list of all scripts matching regexp FILETYPE-REGEXP in DIR.

All names are prefixed with the string provided by PREFIX."

(if (directory-name-p DIR)

(progn

(let ((shell-scripts (directory-files DIR nil FILETYPE-REGEXP)))

(cl-map 'list (lambda (elem)

(concat PREFIX " " elem))

shell-scripts)))))

(defun taskrunner-get-bash-scripts (DIR)

"Retrieve the rake tasks for the project in directory DIR.

This function returns a list of the form:

\(\"BASH TASK1\" \"BASH TASK2\"...)"

(taskrunner--get-scripts DIR "\\.sh$" "BASH"))

(defun taskrunner-get-powershell-scripts (DIR)

"Retrieve the rake tasks for the project in directory DIR.

This function returns a list of the form:

\(\"POWERSHELL TASK1\" \"POWERSHELL TASK2\"...)"

(taskrunner--get-scripts DIR "\\.ps1$" "POWERSHELL"))

(defun taskrunner-get-zsh-scripts (DIR)

"Retrieve the rake tasks for the project in directory DIR.

This function returns a list of the form:

\(\"ZSH TASK1\" \"ZSH TASK2\"...)"

(taskrunner--get-scripts DIR "\\.zsh$" "ZSH"))

(defun taskrunner-get-fish-scripts (DIR)

"Retrieve the rake tasks for the project in directory DIR.

This function returns a list of the form:

\(\"FISH TASK1\" \"FISH TASK2\"...)"

(taskrunner--get-scripts DIR "\\.fish$" "FISH"))

(provide 'taskrunner-shell)

;;; taskrunner-shell.el ends here