バッファ内に書いてある数式を計算して答えを挿入 #xyzzy

gistfile1.lisp

;;
;; バッファ内に書いてある数式を計算して答えを挿入
;;
;; 例
;;   1 + 1 ってバッファに書いておいてリージョンで囲って M-x eval-calc-region
;;

(require "calc")

(defun eval-calc-region (s e)
  (interactive "*r")
  (if (< e s) (rotatef s e))
  (progn
    (goto-char e)
    (let ((skip-equal (skip-chars-backward "[ =]"))
          (expr (buffer-substring s (point))))
      (let ((ans (ed::calc-string expr)))
        (goto-char e)
        (unless skip-equal
          (insert "="))
        (insert (format nil "~A" ans))))))