You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
175 lines
6.7 KiB
175 lines
6.7 KiB
;;; alchemist-eval.el --- Elixir code inline evaluation functionality
|
|
|
|
;; Copyright © 2014-2015 Samuel Tonini
|
|
|
|
;; Author: Samuel Tonini <tonini.samuel@gmail.com
|
|
|
|
;; This file is not part of GNU Emacs.
|
|
|
|
;; This program is free software: you can redistribute it and/or modify
|
|
;; it under the terms of the GNU General Public License as published by
|
|
;; the Free Software Foundation, either version 3 of the License, or
|
|
;; (at your option) any later version.
|
|
|
|
;; This program is distributed in the hope that it will be useful,
|
|
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
;; GNU General Public License for more details.
|
|
|
|
;; You should have received a copy of the GNU General Public License
|
|
;; along with this program. If not, see <http://www.gnu.org/licenses/>.
|
|
|
|
;;; Commentary:
|
|
|
|
;; Elixir code inline evaluation functionality
|
|
|
|
;;; Code:
|
|
|
|
(defgroup alchemist-eval nil
|
|
"Elixir code inline evaluation functionality."
|
|
:prefix "alchemist-eval-"
|
|
:group 'alchemist)
|
|
|
|
(defun alchemist-eval--insert (string)
|
|
(let ((lines (split-string string "\n")))
|
|
(if (> (length lines) 1)
|
|
(progn
|
|
(save-excursion
|
|
(end-of-line)
|
|
(mapc (lambda (s)
|
|
(newline)
|
|
(insert (format "# => %s" s)))
|
|
lines)))
|
|
(save-excursion
|
|
(end-of-line)
|
|
(insert (format " # => %s" string))))))
|
|
|
|
(defun alchemist-eval--evaluate-code (string)
|
|
(let ((tmp-file ".alchemist-eval.exs")
|
|
(old-directory default-directory))
|
|
(when (alchemist-project-p)
|
|
(alchemist-project--establish-root-directory))
|
|
(with-temp-file tmp-file
|
|
(insert string))
|
|
(let ((output (shell-command-to-string
|
|
(alchemist-eval--build-code-evaluation-command tmp-file))))
|
|
(delete-file tmp-file)
|
|
(cd old-directory)
|
|
(alchemist-utils--remove-newline-at-end output))))
|
|
|
|
(defun alchemist-eval--evaluate-code-as-quoted (string)
|
|
(let ((tmp-file ".alchemist-eval.exs")
|
|
(old-directory default-directory))
|
|
(when (alchemist-project-p)
|
|
(alchemist-project--establish-root-directory))
|
|
(with-temp-file tmp-file
|
|
(insert string))
|
|
(let ((output (shell-command-to-string
|
|
(alchemist-eval--build-code-evaluation-as-quoted-command tmp-file))))
|
|
(delete-file tmp-file)
|
|
(cd old-directory)
|
|
(alchemist-utils--remove-newline-at-end output))))
|
|
|
|
(defun alchemist-eval--build-code-evaluation-command (file)
|
|
(format "%s -e 'IO.inspect(elem(Code.eval_string(File.read!(\"%s\")), 0))'"
|
|
(alchemist-eval--runner)
|
|
file))
|
|
|
|
(defun alchemist-eval--build-code-evaluation-as-quoted-command (file)
|
|
(format "%s -e 'IO.puts inspect(elem(Code.string_to_quoted(File.read!(\"%s\")), 1), pretty: true)'"
|
|
(alchemist-eval--runner)
|
|
file))
|
|
|
|
(defun alchemist-eval--runner ()
|
|
(if (alchemist-project-p)
|
|
(format "%s run --no-compile" alchemist-mix-command)
|
|
alchemist-execute-command))
|
|
|
|
(defun alchemist-eval-current-line ()
|
|
"Evaluate the Elixir code on the current line."
|
|
(interactive)
|
|
(let ((current-line (thing-at-point 'line)))
|
|
(message (alchemist-eval--evaluate-code current-line))))
|
|
|
|
(defun alchemist-eval-print-current-line ()
|
|
"Evaluate the Elixir code on the current line and insert the result."
|
|
(interactive)
|
|
(let ((current-line (thing-at-point 'line)))
|
|
(alchemist-eval--insert (alchemist-eval--evaluate-code current-line))))
|
|
|
|
(defun alchemist-eval-quoted-current-line ()
|
|
"Get the Elixir code representation of the expression on the current line."
|
|
(interactive)
|
|
(let ((current-line (thing-at-point 'line)))
|
|
(message (alchemist-eval--evaluate-code-as-quoted current-line))))
|
|
|
|
(defun alchemist-eval-print-quoted-current-line ()
|
|
"Get the Elixir code representation of the expression on the current line and insert the result."
|
|
(interactive)
|
|
(let ((current-line (thing-at-point 'line)))
|
|
(alchemist-eval--insert (alchemist-eval--evaluate-code-as-quoted current-line))))
|
|
|
|
(defun alchemist-eval-region (beg end)
|
|
"Evaluate the Elixir code on marked region."
|
|
(interactive (list (point) (mark)))
|
|
(unless (and beg end)
|
|
(error "The mark is not set now, so there is no region"))
|
|
(let ((string (buffer-substring-no-properties beg end)))
|
|
(message (alchemist-eval--evaluate-code string))))
|
|
|
|
(defun alchemist-eval-print-region (beg end)
|
|
"Evaluate the Elixir code on marked region and insert the result."
|
|
(interactive (list (point) (mark)))
|
|
(unless (and beg end)
|
|
(error "The mark is not set now, so there is no region"))
|
|
(let ((string (buffer-substring-no-properties beg end)))
|
|
(when (> end beg)
|
|
(exchange-point-and-mark))
|
|
(alchemist-eval--insert (alchemist-eval--evaluate-code string))))
|
|
|
|
(defun alchemist-eval-quoted-region (beg end)
|
|
"Get the Elixir code representation of the expression on marked region."
|
|
(interactive (list (point) (mark)))
|
|
(unless (and beg end)
|
|
(error "The mark is not set now, so there is no region"))
|
|
(let ((string (buffer-substring-no-properties beg end)))
|
|
(message (alchemist-eval--evaluate-code-as-quoted string))))
|
|
|
|
(defun alchemist-eval-print-quoted-region (beg end)
|
|
"Get the Elixir code representation of the expression on marked region and insert the result."
|
|
(interactive (list (point) (mark)))
|
|
(unless (and beg end)
|
|
(error "The mark is not set now, so there is no region"))
|
|
(let ((string (buffer-substring-no-properties beg end)))
|
|
(when (> end beg)
|
|
(exchange-point-and-mark))
|
|
(alchemist-eval--insert (alchemist-eval--evaluate-code-as-quoted string))))
|
|
|
|
(defun alchemist-eval-buffer ()
|
|
"Evaluate the Elixir code in the current buffer."
|
|
(interactive)
|
|
(let ((string (buffer-substring-no-properties (point-min) (point-max))))
|
|
(message (alchemist-eval--evaluate-code string))))
|
|
|
|
(defun alchemist-eval-print-buffer ()
|
|
"Evaluate the Elixir code in the current buffer and insert the result."
|
|
(interactive)
|
|
(let ((string (buffer-substring-no-properties (point-min) (point-max))))
|
|
(end-of-buffer)
|
|
(alchemist-eval--insert (alchemist-eval--evaluate-code string))))
|
|
|
|
(defun alchemist-eval-quoted-buffer ()
|
|
"Get the Elixir code representation of the expression in the current buffer."
|
|
(interactive)
|
|
(let ((string (buffer-substring-no-properties (point-min) (point-max))))
|
|
(message (alchemist-eval--evaluate-code-as-quoted string))))
|
|
|
|
(defun alchemist-eval-print-quoted-buffer ()
|
|
"Get the Elixir code representation of the expression in the current buffer and insert result."
|
|
(interactive)
|
|
(let ((string (buffer-substring-no-properties (point-min) (point-max))))
|
|
(alchemist-eval--insert (alchemist-eval--evaluate-code-as-quoted string))))
|
|
|
|
(provide 'alchemist-eval)
|
|
|
|
;;; alchemist-eval.el ends here
|