about summary refs log tree commit diff stats
path: root/lisp
diff options
context:
space:
mode:
authorCase Duckworth2022-01-06 18:01:27 -0600
committerCase Duckworth2022-01-06 18:01:27 -0600
commit00da04a0fd866e61b5381fcc94c09d6b40b8bc5f (patch)
treea61a766d8f1038fa915a04240e795cb2d999ef1d /lisp
parentFix :setup and :setup-when (diff)
downloademacs-00da04a0fd866e61b5381fcc94c09d6b40b8bc5f.tar.gz
emacs-00da04a0fd866e61b5381fcc94c09d6b40b8bc5f.zip
Add +org-horizontal-rule
Diffstat (limited to 'lisp')
-rw-r--r--lisp/+org.el11
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