emacs: Add org-table-insert-numbers.

1 files changed, 6 insertions, 0 deletions

diff --git a/.config/emacs/init.el b/.config/emacs/init.el
index b069d2b..3ab5d84 100644
--- a/.config/emacs/init.el
+++ b/.config/emacs/init.el
@@ -1354,6 +1354,12 @@ Create a temporary frame to execute BODY, which will then be deleted."
   (interactive)
   (password-store-copy-field "fastmail.com/[email protected]" "smtp"))
 
+(defun org-table-insert-numbers (str end)
+  "Used to insert numbers for verses in org tables."
+  (interactive "nStart: \nnEnd: ")
+  (dotimes (i (1+ (- end str)))
+    (insert (format "%s" (+ i str)))
+    (org-return)))
 (require 'server)
 (unless (server-running-p)
   (server-start))