Rename functions in acdw-org.el

1 files changed, 6 insertions, 7 deletions

@@ -20,7 +20,7 @@
 
 ;;; unpackaged.el: https://github.com/alphapapa/unpackaged.el
 
-(defun unpackaged/org-element-descendant-of (type element)
+(defun acdw-org/element-descendant-of (type element)
   "Return non-nil if ELEMENT is a descendant of TYPE.
 TYPE should be an element type, like `item' or `paragraph'.
 ELEMENT should be a list like that returned by `org-element-context'."
@@ -29,8 +29,7 @@ ELEMENT should be a list like that returned by `org-element-context'."
     (or (eq type (car parent))
         (unpackaged/org-element-descendant-of type parent))))
 
-;;;###autoload
-(defun unpackaged/org-return-dwim (&optional default)
+(defun acdw-org/return-dwim (&optional default)
   "A helpful replacement for `org-return'.  With prefix, call `org-return'.
 
 On headings, move point to position after entry content.  In
@@ -92,7 +91,7 @@ appropriate.  In tables, insert a new row or end the table."
              (emptyp (eq (org-element-property :contents-begin context)
                          (org-element-property :contents-end context)))
              (item-child-p
-              (unpackaged/org-element-descendant-of 'item context)))
+              (acdw-org/element-descendant-of 'item context)))
         ;; The original function from unpackaged just tested the (or ...) test
         ;; in this cond, in an if.  However, that doesn't auto-end nested
         ;; lists.  So I made this form a cond and added the (and...) test in
@@ -133,7 +132,7 @@ appropriate.  In tables, insert a new row or end the table."
       ;; All other cases: call `org-return'.
       (org-return)))))
 
-(defun unpackaged/org-fix-blank-lines (&optional prefix)
+(defun acdw-org/fix-blank-lines (&optional prefix)
   "Ensure that blank lines exist between headings and
  between headings and their contents.  With prefix, operate on
  whole buffer. Ensures that blank lines exist after each
@@ -171,10 +170,10 @@ appropriate.  In tables, insert a new row or end the table."
                          nil
                        'tree)))
 
-(defun acdw/hook--org-mode-fix-blank-lines ()
+(defun acdw-org/fix-blanks-in-buffer ()
   (when (eq major-mode 'org-mode)
     (let ((current-prefix-arg 4))
-      (call-interactively #'unpackaged/org-fix-blank-lines))))
+      (call-interactively #'acdw-org/fix-blank-lines))))
 
 
 ;;; Generate custom IDs: