b1f1674109
Move check into function, and add to local-vars hook instead of the mode hook. This makes the variable changeable at runtime and also as part of local vars.
73 lines
2.1 KiB
EmacsLisp
73 lines
2.1 KiB
EmacsLisp
;;; funcs.el --- Ruby Layer functions File
|
||
;;
|
||
;; Copyright (c) 2012-2017 Sylvain Benner & Contributors
|
||
;;
|
||
;; Author: Sylvain Benner <sylvain.benner@gmail.com>
|
||
;; URL: https://github.com/syl20bnr/spacemacs
|
||
;;
|
||
;; This file is not part of GNU Emacs.
|
||
;;
|
||
;;; License: GPLv3
|
||
|
||
|
||
;; rbenv
|
||
|
||
(defun spacemacs//enable-rbenv ()
|
||
"Enable rbenv, use .ruby-version if exists."
|
||
(require 'rbenv)
|
||
(let ((version-file-path (rbenv--locate-file ".ruby-version")))
|
||
(global-rbenv-mode)
|
||
;; try to use the ruby defined in .ruby-version
|
||
(if version-file-path
|
||
(progn
|
||
(rbenv-use (rbenv--read-version-from-file
|
||
version-file-path))
|
||
(message (concat "[rbenv] Using ruby version "
|
||
"from .ruby-version file.")))
|
||
(message "[rbenv] Using the currently activated ruby."))))
|
||
|
||
|
||
;; rspec
|
||
|
||
(defun spacemacs//ruby-enable-rspec-mode ()
|
||
"Conditionally enable `rspec-mode'"
|
||
(when (eq 'rspec ruby-test-runner)
|
||
(rspec-enable-appropriate-mode)))
|
||
|
||
(defun ruby/rspec-verify-directory (dir)
|
||
"Launch tests in DIR directory.
|
||
Called interactively it prompts for a directory."
|
||
(interactive "Drspec directory: ")
|
||
(rspec-run-single-file dir (rspec-core-options)))
|
||
|
||
(defun spacemacs//inf-ruby-auto-enter ()
|
||
"Automatically enters inf-ruby-mode in ruby modes' debugger breakpoints."
|
||
(add-hook 'compilation-filter-hook 'inf-ruby-auto-enter nil t))
|
||
|
||
|
||
;; ruby-test
|
||
|
||
(defun spacemacs//ruby-enable-ruby-test-mode ()
|
||
"Conditionally enable `ruby-test-mode'"
|
||
(when (eq 'ruby-test ruby-test-runner)
|
||
(ruby-test-mode)))
|
||
|
||
|
||
;; minitest
|
||
|
||
(defun spacemacs//ruby-enable-minitest-mode ()
|
||
"Conditionally enable `minitest-mode'"
|
||
(when (eq 'minitest ruby-test-runner)
|
||
(minitest-enable-appropriate-mode)))
|
||
|
||
|
||
;; highlight debugger keywords
|
||
|
||
(defun spacemacs/ruby-maybe-highlight-debugger-keywords ()
|
||
"Highlight break point lines."
|
||
(interactive)
|
||
(when ruby-highlight-debugger-keywords
|
||
(highlight-lines-matching-regexp "byebug")
|
||
(highlight-lines-matching-regexp "binding.irb")
|
||
(highlight-lines-matching-regexp "binding.pry")))
|