[nongnu] elpa/inf-ruby 164f2dda53 065/265: Add commands to launch different types of consoles

[ELPA Syncer]

branch: elpa/inf-ruby
commit 164f2dda530d242c0dac91cc9922360ccdbceaa6
Author: Dmitry Gutov <dgutov@yandex.ru>
Commit: Dmitry Gutov <dgutov@yandex.ru>

    Add commands to launch different types of consoles
    
    Bump the version
    
    Close #16
---
 inf-ruby.el | 79 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++-
 1 file changed, 78 insertions(+), 1 deletion(-)

diff --git a/inf-ruby.el b/inf-ruby.el
index ec3f9278a7..fbe3510905 100755
--- a/inf-ruby.el
+++ b/inf-ruby.el
@@ -10,7 +10,7 @@
 ;; URL: http://github.com/nonsequitur/inf-ruby
 ;; Created: 8 April 1998
 ;; Keywords: languages ruby
-;; Version: 2.2.7
+;; Version: 2.3.0
 
 ;;; Commentary:
 ;;
@@ -458,6 +458,83 @@ keymaps to bind `inf-ruby-switch-from-compilation' to `С-x 
C-q'."
     '(define-key ruby-compilation-mode-map (kbd "C-x C-q")
        'inf-ruby-switch-from-compilation)))
 
+(defvar inf-ruby-console-patterns-alist
+  '(("config/application.rb" . rails)
+    ("*.gemspec" . gem)
+    ("Gemfile" . default))
+  "Mapping from file name patterns to name symbols.
+`inf-ruby-console-auto' walks up from the current directory until
+one of the patterns matches, then calls `inf-ruby-console-NAME',
+passing it the found directory.")
+
+(defun inf-ruby-console-match (dir)
+  (catch 'type
+    (dolist (pair inf-ruby-console-patterns-alist)
+      (let ((default-directory dir))
+        (when (file-expand-wildcards (car pair))
+          (throw 'type (cdr pair)))))))
+
+;;;###autoload
+(defun inf-ruby-console-auto ()
+  "Automatically determine the appropriate Ruby console command
+and the directory to run it from."
+  (interactive)
+  (let* ((dir (locate-dominating-file default-directory
+                                      #'inf-ruby-console-match))
+         (type (inf-ruby-console-match dir))
+         (fun (intern (format "inf-ruby-console-%s" type))))
+    (unless type (error "No matching directory found"))
+    (funcall fun dir)))
+
+;;;###autoload
+(defun inf-ruby-console-rails (dir)
+  "Run Rails console in DIR."
+  (interactive "D")
+  (let ((default-directory dir))
+    (run-ruby "rails console" "rails")))
+
+;;;###autoload
+(defun inf-ruby-console-gem (dir)
+  "Run IRB console for the gem in DIR.
+The main module should be loaded automatically. If DIR contains a
+Gemfile, it should use the `gemspec' instruction."
+  (interactive "D")
+  (let ((default-directory dir))
+    (if (file-exists-p "Gemfile")
+        (run-ruby "bundle exec irb" "gem")
+      (unless (file-exists-p "lib")
+        (error "The directory must contain a 'lib' subdirectory"))
+      (let (files)
+        (dolist (item (directory-files "lib"))
+          (unless (file-directory-p item)
+            (setq files (cons item files))))
+        (run-ruby (concat "irb -I lib"
+                          ;; If there are several files under 'lib'
+                          ;; (unlikely), load them all.
+                          (mapconcat
+                           (lambda (file)
+                             (concat " -r " (file-name-sans-extension file)))
+                           files
+                           ""))
+                  "gem")))))
+
+;;;###autoload
+(defun inf-ruby-console-default (dir)
+  "Run racksh, custom console.rb, or just IRB, in DIR."
+  (interactive "D")
+  (let ((default-directory dir))
+    (unless (file-exists-p "Gemfile")
+      (error "The directory must contain a Gemfile"))
+    (cond
+     ((with-temp-buffer
+        (insert-file-contents "Gemfile")
+        (re-search-forward "[\"']racksh[\"']" nil t))
+      (run-ruby "bundle exec racksh" "racksh"))
+     ((file-exists-p "console.rb")
+      (run-ruby "ruby console.rb" "console.rb"))
+     (t
+      (run-ruby "bundle exec irb")))))
+
 ;;;###autoload (inf-ruby-setup-keybindings)
 
 (provide 'inf-ruby)