Skip to content

Commit

Permalink
Use aliases for :exordium-vc-checkout use-package integration
Browse files Browse the repository at this point in the history
  • Loading branch information
pkryger committed Dec 12, 2024
1 parent 27cd805 commit 588e7fe
Showing 1 changed file with 8 additions and 2 deletions.
10 changes: 8 additions & 2 deletions init-vc-checkout.el
Original file line number Diff line number Diff line change
Expand Up @@ -139,7 +139,7 @@ or when `use-package' form is evaluated with `eval-buffer',
:autoload (use-package-process-keywords))


(defun use-package-normalize/:exordium-vc-checkout (name keyword args)
(defun exordium--vc-checkout-use-package-normalize (name keyword args)
; checkdoc-params: (name keyword args)
"Normalize possible arguments to the :exordium-vc-checkout."
(cond
Expand Down Expand Up @@ -219,7 +219,7 @@ with checkout in %s"
(unless installed
(package-vc-install-from-checkout dir (symbol-name name))))))

(defun use-package-handler/:exordium-vc-checkout (name _keyword arg rest state)
(defun exordium--vc-checkout-use-package-handler (name _keyword arg rest state)
"Generate code to install package NAME from a VC checkout, or do so directly.
When the `use-package' declaration is part of a byte-compiled
file, install the package during compilation; otherwise, add it
Expand Down Expand Up @@ -251,6 +251,12 @@ Also see the Info node `(use-package) Creating an extension'."
body))) ; runtime
body))

(defalias 'use-package-normalize/:exordium-vc-checkout
#'exordium--vc-checkout-use-package-normalize)

(defalias 'use-package-handler/:exordium-vc-checkout
#'exordium--vc-checkout-use-package-handler)

(eval-after-load 'use-package-core
'(progn
(setf (alist-get :exordium-vc-checkout use-package-defaults)
Expand Down

0 comments on commit 588e7fe

Please sign in to comment.