From a730279f230a4fe6ec29376b8106fa9292a79333 Mon Sep 17 00:00:00 2001
From: Gerard Vermeulen <gerard.vermeulen@posteo.net>
Date: Fri, 27 Oct 2023 14:59:52 +0200
Subject: [PATCH] Add `defun-name-to-org-commit' helper function

---
 README.org | 21 +++++++++++++++++++++
 1 file changed, 21 insertions(+)

diff --git a/README.org b/README.org
index 751fd56..0d08df4 100644
--- a/README.org
+++ b/README.org
@@ -6149,6 +6149,27 @@ instance [[https://github.com/Fanael/rainbow-delimiters#readme][rainbow-delimite
   (show-smartparens-global-mode +1))
 #+end_src
 
+#+caption[=Org= commit message helper]:
+#+caption: =Org= commit message helper.
+#+name: lst:org-commit-message-helper
+#+begin_src emacs-lisp -n :results silent
+(with-eval-after-load 'smartparens-config
+  (defun defun-name-to-org-commit ()
+    "Copy and wrap the defun name for Org commit messages to the kill-ring.
+
+BUG: `beginning-of-defun' may find any (`with-eval-after-load') toplevel sexp."
+    (interactive)
+    (save-excursion
+      (beginning-of-defun)
+      (sp-forward-symbol)
+      (sp-copy-sexp))
+    (with-temp-buffer
+      (insert "(")
+      (yank)
+      (insert "):")
+      (kill-region 1 (point)))))
+#+end_src
+
 ** [[https://github.com/davidshepherd7/electric-operator#readme][Electric operators]]
 :PROPERTIES:
 :CUSTOM_ID: sec:electric-operators