emenel/doomemacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Declare ruby-mode & js2-mode emr refactor defuns

Browse source
This commit is contained in:
Henrik Lissner 2015-09-13 23:30:08 -04:00
parent 5203f4b5ac
commit 44a9c00e18
2 changed files with 58 additions and 25 deletions
Download patch file Download diff file Expand all files Collapse all files

41
modules/module-ruby.el
View file

@ -76,30 +76,23 @@
:after emr
:init (add-hook! ruby-mode 'emr-initialize)
:config
(emr-declare-command 'ruby-toggle-block
:title "toggle block"
:modes 'enh-ruby-mode
:predicate (lambda () (not (use-region-p))))
(emr-declare-command 'ruby-refactor-extract-to-method
:title "extract method"
:modes 'enh-ruby-mode
:predicate (lambda () (use-region-p)))
(emr-declare-command 'ruby-refactor-extract-local-variable
:title "extract local variable"
:modes 'enh-ruby-mode
:predicate (lambda () (use-region-p)))
(emr-declare-command 'ruby-refactor-extract-constant
:title "extract constant"
:modes 'enh-ruby-mode
:predicate (lambda () (use-region-p)))
(emr-declare-command 'ruby-refactor-add-parameter
:title "add parameter"
:modes 'enh-ruby-mode
:predicate (lambda () (not (use-region-p))))
(emr-declare-command 'ruby-refactor-extract-to-let
:title "extract to let"
:modes 'enh-ruby-mode
:predicate (lambda () (use-region-p))))
(mapc (lambda (x)
(let ((command-name (car x))
(title (cadr x))
(region-p (caddr x))
predicate)
(setq predicate (cond ((eq region-p 'both) nil)
(t (if region-p
(lambda () (use-region-p))
(lambda () (not (use-region-p)))))))
(emr-declare-command (intern (format "ruby-%s" (symbol-name command-name)))
:title title :modes 'ruby-mode :predicate predicate)))
'((toggle-block "toggle block" nil)
(refactor-extract-to-method "extract method" t)
(refactor-extract-local-variable "extract local variable" t)
(refactor-extract-constant "extract constant" t)
(refactor-add-parameter "add parameter" nil)
(refactor-extract-to-let "extract to let" t))))
(provide 'module-ruby)
;;; module-ruby.el ends here