doomemacs/init/init-dev.el

(use-package hl-todo
  :defer t
  :init (add-hook 'after-change-major-mode-hook 'hl-todo-mode))

(use-package dash-at-point
  :if is-mac
  :commands (dash-at-point dash-at-point-with-docset))

(use-package rainbow-delimiters
  :commands rainbow-delimiters-mode
  :config
  (progn
    (setq rainbow-delimiters-outermost-only-face-count 1)
    (set-face-attribute 'rainbow-delimiters-depth-1-face nil
                        :foreground 'unspecified
                        :inherit 'my-outermost-paren-face))
  :init
  (progn
    (add-hook 'emacs-lisp-mode-hook 'rainbow-delimiters-mode)
    (add-hook 'js2-mode-hook        'rainbow-delimiters-mode)
    (add-hook 'scss-mode-hook       'rainbow-delimiters-mode)))

;;; Config modes
(use-package yaml-mode
  :defer t
  :config (add-hook 'yaml-mode-hook 'enable-tab-width-2))

(use-package emr
  :commands (emr-initialize emr-show-refactor-menu)
  :init     (add-hook 'prog-mode-hook 'emr-initialize)
  :config   (bind popup-menu-keymap [escape] 'keyboard-quit))


;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Code building
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(defvar my-build-command "make %s")
(make-variable-buffer-local 'my-build-command)
(add-hook! 'enh-ruby-mode-hook (setq my-build-command "rake %s"))

(evil-define-command my:build (arg)
  "Call a build command in the current directory.
If ARG is nil this function calls `recompile', otherwise it calls
`compile' passing ARG as build command."
  (interactive "<sh>")
  (let ((makepath (f-traverse-upwards
                   (lambda (path)
                     (f-exists? (f-expand "Makefile" path)))
                   default-directory)))
    (if makepath
        (compile (format "cd '%s' && %s" makepath (format my-build-command (or arg ""))))
      (error "Could not find Makefile"))))


;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Code running
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(evil-define-operator my:eval-region (beg end)
  :keep-visual t
  :move-point nil
  (interactive "<r>")
  (cond ((eq major-mode 'emacs-lisp-mode)
         (eval-region beg end))
        (t
         (let ((interp (my--get-interpreter)))
           (when interp (shell-command-on-region beg end interp))))))

(evil-define-command my:eval-buffer ()
  (interactive)
  (cond ((eq major-mode 'emacs-lisp-mode)
         (eval-buffer))
        (t
         (let ((interp (my--get-interpreter)))
           (when interp (shell-command-on-region (point-min) (point-max) interp))))))

(defun my--get-interpreter ()
  (car (--first (eq (cdr it) major-mode) interpreter-mode-alist)))

(provide 'init-dev)
;;; init-dev.el ends here