erlang-sinan.el

   1 ;; erlang-sinan.el --- Functions for launching sinan commands.
   2
   3 ;; Author:   Dave Peticolas
   4 ;; Version:  0.1
   5 ;; Keywords: erlang, sinan, erlware
   6 ;; Created:  2007-09-18
   7 ;; Date:     2008-01-01
   8
   9
  10 (require 'compile)
  11
  12
  13 (defun erlang-sinan-run-command (&optional args)
  14   "Run sinan with the command given as an argument. Runs sinan
  15 in a separate process asynchronously with output going to the
  16 buffer `*sinan*'."
  17   (interactive)
  18   (save-some-buffers)
  19   (let ((cmd (string-join " " (cons "sinan" args))))
  20     (compile-internal cmd "No more errors." "sinan")))
  21
  22 (defun erlang-sinan-build ()
  23   (interactive)
  24   (erlang-sinan-run-command))
  25
  26 (defun erlang-sinan-clean ()
  27   (interactive)
  28   (erlang-sinan-run-command '("clean")))
  29
  30 (defun string-join (joiner strings)
  31   (string-join-accum joiner strings ""))
  32
  33 (defun string-join-accum (joiner strings accum)
  34   (cond ((not strings) accum)
  35         ((not (cdr strings)) (concat accum (car strings)))
  36         (t (string-join-accum joiner (cdr strings)
  37                               (concat accum (car strings) joiner)))))