org-modeの中でEmacs Calcを使う(主にインラインで)

1～4を足すと $1+2+3+4$ になります。

1～4を足すと $10$ になります。

$1+2+3+4=>$

$1 + 2 + 3 + 4 => 10$

$x:=256$

$x^2=>$

$x^2 => 65536$

;; マクロ {{{calc(式)}}} を定義する
;;   {{{calc(左辺=>結果)}}}       => 結果のみエクスポート
;;   {{{calc(変数:=右辺=>結果)}}} => 結果のみエクスポート
;;   {{{calc(変数:=右辺)}}}       => 右辺のみ (空にして => を必須にしても良いが)
;;   {{{calc(式)}}}               => 式のみ (評価結果にしても良いが)
(defun my-org-macro-calc (expr)
  (cond
   ((string-match "=> *" expr) ;; Include x := y + 3 => 20
    (substring expr (match-end 0)))
   ((string-match ":= *" expr)
    (substring expr (match-end 0)))
   (t expr)))

(setf (alist-get "calc" org-export-global-macros nil nil #'equal)
      "(eval (my-org-macro-calc $1))")

;; org-modeでのCalc式の区切りパターンを追加。
;; 新しいマクロ表記({{{calc()}}})の他に$や\[等の従来のものも一応残す。
(setf (alist-get 'org-mode calc-embedded-open-close-formula-alist)
      (list (concat
             "\\`\\|^\n\\|\\$\\$?\\|\\\\\\[\\|^\\\\begin[^{].*\n\\|^\\\\begin{.*[^x]}.*\n\\|\\\\("
             "\\|{{{[a-zA-Z][-a-zA-Z0-9_]*(" ;;マクロ
             "\\|\\<src_[^ \t\n[{]+\\(\\[[^]]*\\]\\)?{" ;;インラインソース
             "\\|^#\\+begin[_:][^\n]*\n" ;;ブロック
             "\\|[[:nonascii:]]:? ?" ;;ASCII以外(お好みで)
             )
            (concat
             "\\'\\|\n$\\|\\$\\$?\\|\\\\]\\|^\\\\end[^{].*\n\\|^\\\\end{.*[^x]}.*\n\\|\\\\)"
             "\\|)}}}" ;;マクロ
             "\\|}" ;;インラインソース
             "\\|^#\\+end[_:][^\n]*\n" ;;ブロック
             "\\| ?[[:nonascii:]]"
             )))
;; C-x * a (`calc-embedded-activate')で検索するパターンを追加
;; 設定しなくても := や => は検索するので必要なのかどうか分からないが一応
(setf (alist-get 'org-mode calc-embedded-announce-formula-alist)
      (concat
       "# Embed\n\\(# .*\n\\)*\\|"
       "{{{calc(.*)}}}"))
;; d p (`calc-show-plain')を使ったときに出力されるコメントの構文
;; 一応他のメジャーモードの時と同じように設定しておく
(setf (alist-get 'org-mode calc-embedded-open-close-plain-alist)
      '("# %% " " %%\n"))
;; C-x * f (`calc-embedded-new-formula') で数式を作るときに挿入する区切り
;; 設定しない方がいい？　余計かも
(setf (alist-get 'org-mode calc-embedded-open-close-new-formula-alist)
      '("{{{calc(" ")}}}"))

# 杯数: $ servings := 3 $

# [calc-mode: float-format: (fix 3)]
{{{calc(servings => 3)}}}杯分を作るには、水を{{{calc(water := 250 servings => 750 )}}}ml、レモン果汁を{{{calc(lemon := 125 servings => 375)}}}ml使います。合わせると{{{calc(water + lemon => 1125)}}}mlとなり、果汁{{{calc(100 lemon / (lemon + water) => 33.333)}}}%のレモン水になります。

2026年10月1日の為替レートはrate_before := 148.170円/ドルだった。10月10日はrate_after := 153.090円/ドル。実に100 (rate_after / rate_before - 1) => 3.320パーセント上がったことになる。

1～4を足すと src_calc[:eval no-export]{1+2+3+4} {{{results(=10=)}}} になります。

1～4を足すと src_calc[:eval no-export :wrap t]{1+2+3+4} {{{results(10)}}}になります。

1～4を足す式は src_calc[:exports code]{1+2+3+4} と書きます。

#+NAME: drink-params
| servings |   3 |
| water    | 750 |
| lemon    | 375 |
#+TBLFM: @2$2=250*@1$2::@3$2=125*@1$2

src_calc[:eval no-export :wrap t :var params=drink-params]{params_1_2} {{{results(3)}}}杯分を作るには、水を src_calc[:eval no-export :wrap t :var params=drink-params]{params_2_2} {{{results(750)}}}ml、レモン果汁を src_calc[:eval no-export :wrap t :var params=drink-params]{params_3_2} {{{results(375)}}}ml使います。合わせると src_calc[:eval no-export :wrap t :var params=drink-params]{params_2_2+params_3_2} {{{results(1125)}}}mlとなり、果汁src_calc[:eval no-export :wrap t :var params=drink-params]{100 params_3_2/(params_2_2+params_3_2)} {{{results(33.333)}}}%のレモン水になります。