Skip to content

Instantly share code, notes, and snippets.

@emidln

emidln/generic-eval.el

Created March 21, 2016 01:30
Show Gist options
  • Star 1 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save emidln/a46f9d2476f0548808ba to your computer and use it in GitHub Desktop.
Save emidln/a46f9d2476f0548808ba to your computer and use it in GitHub Desktop.
Download ZIP
Raw
generic-eval.el
(defun spacemacs//emacs-lisp-eval-region-and-print (beg end)
(interactive)
(eval-sexp-fu-flash (cons beg end))
(let* ((raw-result (with-output-to-string
(eval-region beg end standard-output)))
(result (when (>= (length raw-result) 1)
(substring raw-result 1 -1))))
(when result
(cider--display-interactive-eval-result result end))))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment