diff options
| author | Case Duckworth | 2022-01-06 18:01:27 -0600 |
|---|---|---|
| committer | Case Duckworth | 2022-01-06 18:01:27 -0600 |
| commit | 00da04a0fd866e61b5381fcc94c09d6b40b8bc5f (patch) | |
| tree | a61a766d8f1038fa915a04240e795cb2d999ef1d | |
| parent | Fix :setup and :setup-when (diff) | |
| download | emacs-00da04a0fd866e61b5381fcc94c09d6b40b8bc5f.tar.gz emacs-00da04a0fd866e61b5381fcc94c09d6b40b8bc5f.zip | |
Add +org-horizontal-rule
| -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 |