Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Fetching contributors…

Cannot retrieve contributors at this time

38 lines (28 sloc) 1.055 kB
;; erlang-sinan.el --- Functions for launching sinan commands.
;; Author: Dave Peticolas
;; Version: 0.1
;; Keywords: erlang, sinan, erlware
;; Created: 2007-09-18
;; Date: 2008-01-01
(require 'compile)
(defun erlang-sinan-run-command (&optional args)
"Run sinan with the command given as an argument. Runs sinan
in a separate process asynchronously with output going to the
buffer `*sinan*'."
(interactive)
(save-some-buffers)
(let ((cmd (string-join " " (cons "sinan" args))))
(compile-internal cmd "No more errors." "sinan")))
(defun erlang-sinan-build ()
(interactive)
(erlang-sinan-run-command))
(defun erlang-sinan-clean ()
(interactive)
(erlang-sinan-run-command '("clean")))
(defun string-join (joiner strings)
(string-join-accum joiner strings ""))
(defun string-join-accum (joiner strings accum)
(cond ((not strings) accum)
((not (cdr strings)) (concat accum (car strings)))
(t (string-join-accum joiner (cdr strings)
(concat accum (car strings) joiner)))))
Jump to Line
Something went wrong with that request. Please try again.