[nongnu] elpa/rubocop 192d976 02/64: An extremely basic RuboCop interface

[ELPA Syncer]

branch: elpa/rubocop
commit 192d9763f628d915ec6fd0da03c3dac273c6be12
Author: Bozhidar Batsov <bozhidar@tradeo.com>
Commit: Bozhidar Batsov <bozhidar@tradeo.com>

    An extremely basic RuboCop interface
---
 rubocop.el | 86 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 86 insertions(+)

diff --git a/rubocop.el b/rubocop.el
new file mode 100644
index 0000000..4472b61
--- /dev/null
+++ b/rubocop.el
@@ -0,0 +1,86 @@
+;;; rubocop.el --- An Emacs interface for RuboCop
+
+;; Copyright © 2011-2013 Bozhidar Batsov
+
+;; Author: Bozhidar Batsov
+;; URL: https://github.com/bbatsov/rubocop-emacs
+;; Version: 0.1
+;; Keywords: project, convenience
+;; Package-Requires: ((dash "1.0.0"))
+
+;; This file is NOT part of GNU Emacs.
+
+;;; License:
+
+;; This program is free software; you can redistribute it and/or modify
+;; it under the terms of the GNU General Public License as published by
+;; the Free Software Foundation; either version 3, or (at your option)
+;; any later version.
+;;
+;; This program is distributed in the hope that it will be useful,
+;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+;; GNU General Public License for more details.
+;;
+;; You should have received a copy of the GNU General Public License
+;; along with GNU Emacs; see the file COPYING.  If not, write to the
+;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
+;; Boston, MA 02110-1301, USA.
+
+;;; Commentary:
+;;
+;; This library provides easy project management and navigation.  The
+;; concept of a project is pretty basic - just a folder containing
+;; special file.  Currently git, mercurial and bazaar repos are
+;; considered projects by default.  If you want to mark a folder
+;; manually as a project just create an empty .projectile file in
+;; it.  See the README for more details.
+;;
+;;; Code:
+
+(require 'dash)
+
+(defgroup rubocop nil
+  "An Emacs interface for RuboCop."
+  :group 'tools
+  :group 'convenience)
+
+(defvar rubocop-project-root-files
+  '(".projectile" ".git" ".hg" ".bzr" "_darcs" "Gemfile")
+  "A list of files considered to mark the root of a project.")
+
+(defun rubocop-project-root ()
+  "Retrieves the root directory of a project if available.
+The current directory is assumed to be the project's root otherwise."
+  (or (->> rubocop-project-root-files
+        (--map (locate-dominating-file default-directory it))
+        (-remove #'null)
+        (car))
+      (error "You're not into a project")))
+
+(defun rubocop-buffer-name (file-or-dir)
+  "Generate a name for the RuboCop buffer from FILE-OR-DIR."
+  (concat "*RuboCop " file-or-dir "*"))
+
+(defun rubocop-run-on-project ()
+  "Run on current project."
+  (interactive)
+  (compilation-start
+   (concat "rubocop -es " (rubocop-project-root))
+   'compilation-mode
+   (lambda (arg) (message arg) (rubocop-buffer-name (rubocop-project-root)))))
+
+(defun rubocop-run-on-current-file ()
+  "Run on current file."
+  (interactive)
+  (let ((file-name (buffer-file-name (current-buffer))))
+    (if file-name
+        (compilation-start
+         (concat "rubocop -es " file-name)
+         'compilation-mode
+         (lambda (arg) (rubocop-buffer-name file-name)))
+      (error "Buffer is not visiting a file"))))
+
+(provide 'rubocop)
+
+;;; rubocop.el ends here