From 00da04a0fd866e61b5381fcc94c09d6b40b8bc5f Mon Sep 17 00:00:00 2001
From: Case Duckworth
Date: Thu, 6 Jan 2022 18:01:27 -0600
Subject: Add +org-horizontal-rule

---
 lisp/+org.el | 11 +++++++++++
 1 file changed, 11 insertions(+)

diff --git a/lisp/+org.el b/lisp/+org.el
index 5631fed..fc1caea 100644
--- a/lisp/+org.el
+++ b/lisp/+org.el
@@ -398,5 +398,16 @@ the deletion might narrow the column."
   "Notify the user of what phone NUMBER to call."
   (message "Call: %s" number))
 
+;; Make a horizontal rule!
+
+(defun +org-horizontal-rule ()
+  "Make a horizontal rule after the current line."
+  (interactive nil org-mode)
+  (unless (eq (line-beginning-position) (line-end-position))
+    (end-of-line)
+    (newline))
+  (dotimes (_ fill-column)
+    (insert "-")))
+
 (provide '+org)
 ;;; +org.el ends here
-- 
cgit 1.4.1-21-gabe81