Skip to content

Commit

Permalink
Use ecukes-cli as an entry point for CLI functions.
Browse files Browse the repository at this point in the history
  • Loading branch information
rejeep committed Feb 23, 2013
1 parent 82e3b6d commit 0e78797
Show file tree
Hide file tree
Showing 3 changed files with 8 additions and 15 deletions.
13 changes: 6 additions & 7 deletions ecukes
Expand Up @@ -35,8 +35,7 @@

ECUKES_HOME=$(dirname $BASH_SOURCE)
ECUKES_CLI=$ECUKES_HOME/ecukes-cli.el
ECUKES_TERM_EL=$ECUKES_HOME/ecukes-term.el
ECUKES_NEW=$ECUKES_HOME/ecukes-new.el
ECUKES_TERM=$ECUKES_HOME/ecukes-term.el

if [ -z "$ECUKES_EMACS" ] ; then
if [ -z "$EMACS" ] ; then
Expand All @@ -51,16 +50,16 @@ if [ "$1" == "-h" -o "$1" == "--help" ] ; then
elif [ "$1" == "--list-steps" ] ; then
"$ECUKES_EMACS" --script "$ECUKES_CLI" -f ecukes-cli-print-steps "${@:2}"
elif [ "$1" == "--new" ] ; then
"$ECUKES_EMACS" --script "$ECUKES_NEW" --eval "(ecukes-new)"
"$ECUKES_EMACS" --script "$ECUKES_CLI" -f ecukes-new
elif [ "$1" == "--script" ] ; then
"$ECUKES_EMACS" --script "$ECUKES_TERM_EL" "${@:2}"
"$ECUKES_EMACS" --script "$ECUKES_TERM" "${@:2}"
else
export ECUKES_OUTFILE=$(mktemp /tmp/ecukes.XXX)

if [[ "$1" == "--win" ]]; then
"$ECUKES_EMACS" --load "$ECUKES_TERM_EL" -Q "$@"
"$ECUKES_EMACS" --load "$ECUKES_TERM" -Q "$@"
else
"$ECUKES_EMACS" -nw --load "$ECUKES_TERM_EL" -Q "$@"
"$ECUKES_EMACS" -nw --load "$ECUKES_TERM" -Q "$@"
fi

STATUS=$?
Expand Down
4 changes: 2 additions & 2 deletions ecukes-cli.el
Expand Up @@ -10,10 +10,10 @@
(require 'ecukes-setup)
(require 'ecukes-project)
(require 'ecukes-print)

(ecukes-setup)
(require 'ecukes-new)

(defun ecukes-cli-print-steps ()
(ecukes-setup)
(let ((has (lambda (flag)
(when (member flag command-line-args-left)
(setq command-line-args-left
Expand Down
6 changes: 0 additions & 6 deletions ecukes-new.el
@@ -1,11 +1,5 @@
;;; ecukes-new.el --- Setup up Ecukes for a project

(defvar ecukes-path
(file-name-directory load-file-name)
"Path to ecukes.")

(add-to-list 'load-path ecukes-path)

(require 's)
(require 'dash)
(require 'ansi)
Expand Down

0 comments on commit 0e78797

Please sign in to comment.