about summary refs log tree commit diff stats
diff options
context:
space:
mode:
-rw-r--r--lisp/+org.el11
-rw-r--r--lisp/acdw.el3
2 files changed, 13 insertions, 1 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
diff --git a/lisp/acdw.el b/lisp/acdw.el index ca0a9fa..8b9c7b9 100644 --- a/lisp/acdw.el +++ b/lisp/acdw.el
@@ -120,8 +120,9 @@ I keep forgetting how they differ."
120 (interactive "p\nP") 120 (interactive "p\nP")
121 (message "p: %S P: %S" p-arg P-arg)) 121 (message "p: %S P: %S" p-arg P-arg))
122 122
123(defmacro +defvar (var value _) 123(defmacro +defvar (var value &optional _)
124 "Quick way to `setq' a variable from a `defvar' form." 124 "Quick way to `setq' a variable from a `defvar' form."
125 (declare (doc-string 3))
125 `(setq ,var ,value)) 126 `(setq ,var ,value))
126 127
127(defmacro +with-message (message &rest body) 128(defmacro +with-message (message &rest body)