Teach some operations to avoid mutating buffer during org-capture

lisp/org-capture-detect.el

@@ -0,0 +1,37 @@
+;;; org-capture-detect.el --- Detect whether we're currently in an org-capture context  -*- lexical-binding: t; -*-
+
+;; Copyright (C) 2023  Chris Barrett
+
+;; Author: Chris Barrett <chris@walrus.cool>
+
+;; 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:
+;;; Code:
+
+(require 'org-capture)
+
+(defvar org-capture-detect--in-org-capture-p nil)
+
+(defun org-capture-detect ()
+  (or (bound-and-true-p org-capture-mode)
+      org-capture-detect--in-org-capture-p))
+
+(define-advice org-capture (:around (fn &rest args) detect-capture)
+  (let ((org-capture-detect--in-org-capture-p t))
+    (apply fn args)))
+
+(provide 'org-capture-detect)
+
+;;; org-capture-detect.el ends here