105 lines
3.9 KiB
EmacsLisp
105 lines
3.9 KiB
EmacsLisp
;;; defuns-quickrun.el
|
|
|
|
;;;; Code building ;;;;;;;;;;;;;;;;;;;;;;
|
|
;;;###autoload
|
|
(defvar narf--build-command '("make %s" . "Makefile"))
|
|
(make-variable-buffer-local 'narf--build-command)
|
|
|
|
;;;###autoload
|
|
(defun narf/set-build-command (command &optional file)
|
|
(when (or (null file)
|
|
(narf/project-has-files file))
|
|
(setq narf--build-command `(,command . ,file))))
|
|
|
|
;;;###autoload (autoload 'narf:build "defuns-quickrun" nil t)
|
|
(evil-define-command narf: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 narf--build-command)
|
|
(user-error "No build command was set"))
|
|
(let ((build-file (cdr narf--build-command))
|
|
(build-cmd (car narf--build-command)))
|
|
(if (or (null build-file) (narf/project-has-files build-file))
|
|
(compile (format "cd '%s' && %s" (narf/project-root) (format build-cmd (or arg ""))))
|
|
(error "Could not find Makefile"))))
|
|
|
|
;;;; Code running ;;;;;;;;;;;;;;;;;;;;;;
|
|
;;;###autoload (autoload 'narf:eval-buffer "defuns-quickrun" nil t)
|
|
(evil-define-command narf:eval-buffer ()
|
|
:move-point nil
|
|
:repeat nil
|
|
(interactive)
|
|
(cond ((eq major-mode 'emacs-lisp-mode)
|
|
(narf:eval-region (point-min) (point-max)))
|
|
(t (quickrun))))
|
|
|
|
;;;###autoload (autoload 'narf:eval-region "defuns-quickrun" nil t)
|
|
(evil-define-operator narf:eval-region (beg end)
|
|
:move-point nil
|
|
:repeat nil
|
|
(interactive "<r>")
|
|
(cond ((eq major-mode 'emacs-lisp-mode)
|
|
(let* ((pp-escape-newlines nil)
|
|
(out (s-trim (pp-to-string (eval (read (buffer-substring-no-properties beg end))))))
|
|
(lines (length (s-lines out))))
|
|
(if (< lines 5)
|
|
(princ out t)
|
|
(let ((buf (get-buffer-create "*eval*")))
|
|
(with-current-buffer buf
|
|
(read-only-mode -1)
|
|
(emacs-lisp-mode)
|
|
(setq-local scroll-margin 0)
|
|
(erase-buffer)
|
|
(insert out)
|
|
(goto-char (point-min))
|
|
(read-only-mode 1)
|
|
(narf/popup-open buf))))))
|
|
(t (quickrun-region beg end))))
|
|
|
|
;;;###autoload (autoload 'narf:eval-region-and-replace "defuns-quickrun" nil t)
|
|
(evil-define-operator narf:eval-region-and-replace (beg end)
|
|
(interactive "<r>")
|
|
(cond ((eq major-mode 'emacs-lisp-mode)
|
|
(kill-region beg end)
|
|
(condition-case nil
|
|
(prin1 (eval (read (current-kill 0)))
|
|
(current-buffer))
|
|
(error (message "Invalid expression")
|
|
(insert (current-kill 0)))))
|
|
(t (quickrun-replace-region beg end))))
|
|
|
|
(defvar narf--repl-buffer nil)
|
|
;;;###autoload (autoload 'narf:repl "defuns-quickrun" nil t)
|
|
(evil-define-command narf:repl (&optional bang)
|
|
:repeat nil
|
|
(interactive "<!>")
|
|
(if (and narf--repl-buffer (buffer-live-p narf--repl-buffer))
|
|
(if (popwin:popup-window-live-p)
|
|
(popwin:select-popup-window)
|
|
(popwin:pop-to-buffer narf--repl-buffer))
|
|
(rtog/toggle-repl (if (use-region-p) 4))
|
|
(setq narf--repl-buffer (current-buffer))))
|
|
|
|
;;;###autoload (autoload 'narf:repl-eval "defuns-quickrun" nil t)
|
|
(evil-define-operator narf:repl-eval (&optional beg end bang)
|
|
:type inclusive
|
|
:repeat nil
|
|
(interactive "<r><!>")
|
|
(let ((region-p (use-region-p))
|
|
(selection (s-trim (buffer-substring-no-properties beg end))))
|
|
(narf:repl bang)
|
|
(when (and region-p beg end)
|
|
(let* ((buf narf--repl-buffer)
|
|
(win (get-buffer-window buf)))
|
|
(unless (eq buf popwin:popup-buffer)
|
|
(popwin:pop-to-buffer buf nil t))
|
|
(when (and narf--repl-buffer (buffer-live-p narf--repl-buffer))
|
|
(with-current-buffer narf--repl-buffer
|
|
(goto-char (point-max))
|
|
(insert selection)))))))
|
|
|
|
(provide 'defuns-quickrun)
|
|
;;; defuns-quickrun.el ends here
|