calc-embedded keep equation

calc-embedded keep equation

[henry atting]

Say I have an expression like

 2 + 2

I let calcutate it with calc-embedded

 4

The expression is replaced by the solution.

Is it possible to keep the whole equation, something like

 2 + 2 = 4

? 

 henry

Re: calc-embedded keep equation

[Tim Visher]

On Wed, Feb 5, 2014 at 4:27 AM, henry atting <snd@online.de> wrote:
> Say I have an expression like
>
>  2 + 2
>
> I let calcutate it with calc-embedded
>
>  4
>
> The expression is replaced by the solution.
>
> Is it possible to keep the whole equation, something like
>
>  2 + 2 = 4
>
> ?

(defun replace-with-solved-equation (start-of-equation end-of-equation)
  (interactive "r")
  (if (not (region-active-p))
      (error "Requires an active region"))

  (let ((equation-string (buffer-substring start-of-equation end-of-equation)))
    (calc-embedded nil)
    (calc-embedded nil)
    (save-excursion
      (goto-char start-of-equation)
      (insert equation-string " = "))))

--

In Christ,

Timmy V.

http://blog.twonegatives.com/
http://five.sentenc.es/ -- Spend less time on mail

Re: calc-embedded keep equation

[henry atting]

> (defun replace-with-solved-equation (start-of-equation end-of-equation)
>   (interactive "r")
>   (if (not (region-active-p))
>       (error "Requires an active region"))
>
>   (let ((equation-string (buffer-substring start-of-equation end-of-equation)))
>     (calc-embedded nil)
>     (calc-embedded nil)
>     (save-excursion
>       (goto-char start-of-equation)
>       (insert equation-string " = "))))

This is great! Tim, thanks.

henry