87 lines
2.7 KiB
EmacsLisp
87 lines
2.7 KiB
EmacsLisp
(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" . "Makefile"))
|
|
(make-variable-buffer-local 'my-build-command)
|
|
|
|
(defun set-build-command (command &optional file)
|
|
(when (or (null file)
|
|
(project-has-files file))
|
|
(setq my-build-command `(,command . ,file))))
|
|
|
|
(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>")
|
|
(when (null my-build-command)
|
|
(user-error "No build command was set"))
|
|
(let ((build-file (cdr my-build-command))
|
|
(build-cmd (car my-build-command)))
|
|
(if (project-has-files build-file)
|
|
(compile (format "cd '%s' && %s" build-file (format build-cmd (or arg ""))))
|
|
(error "Could not find Makefile"))))
|
|
|
|
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
;; Code running
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
|
|
(evil-define-operator my:eval-region (beg end)
|
|
:move-point nil
|
|
(interactive "<r>")
|
|
(cond ((eq major-mode 'emacs-lisp-mode)
|
|
(eval-region beg end))
|
|
(t
|
|
(let ((interp (my--get-interpreter))
|
|
(max-mini-window-height 1))
|
|
(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))
|
|
(max-mini-window-height 1))
|
|
(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
|