2 files changed, 13 insertions, 1 deletions

@@ -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
@@ -120,8 +120,9 @@ I keep forgetting how they differ."
   (interactive "p\nP")
   (message "p: %S       P: %S" p-arg P-arg))
 
-(defmacro +defvar (var value _)
+(defmacro +defvar (var value &optional _)
   "Quick way to `setq' a variable from a `defvar' form."
+  (declare (doc-string 3))
   `(setq ,var ,value))
 
 (defmacro +with-message (message &rest body)