12 lines
433 B
EmacsLisp
12 lines
433 B
EmacsLisp
;;; +org.el -*- lexical-binding: t; -*-
|
|
|
|
(defun org-babel-execute:diff (body params)
|
|
"Applies diff patches. Use with care.
|
|
See https://emacs.stackexchange.com/questions/63517/org-mode-evaluate-diff-code-block"
|
|
(with-temp-buffer
|
|
(insert body "\n")
|
|
(shell-command-on-region (point-min) (point-max) "patch --strip=1" "*patch*")
|
|
(prog1
|
|
(with-current-buffer "*patch*" (buffer-string))
|
|
(kill-buffer "*patch*"))))
|