diff options
-rw-r--r-- | lisp/+org.el | 11 |
1 files changed, 11 insertions, 0 deletions
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." | |||
398 | "Notify the user of what phone NUMBER to call." | 398 | "Notify the user of what phone NUMBER to call." |
399 | (message "Call: %s" number)) | 399 | (message "Call: %s" number)) |
400 | 400 | ||
401 | ;; Make a horizontal rule! | ||
402 | |||
403 | (defun +org-horizontal-rule () | ||
404 | "Make a horizontal rule after the current line." | ||
405 | (interactive nil org-mode) | ||
406 | (unless (eq (line-beginning-position) (line-end-position)) | ||
407 | (end-of-line) | ||
408 | (newline)) | ||
409 | (dotimes (_ fill-column) | ||
410 | (insert "-"))) | ||
411 | |||
401 | (provide '+org) | 412 | (provide '+org) |
402 | ;;; +org.el ends here | 413 | ;;; +org.el ends here |