1 files changed, 9 insertions, 53 deletions

diff --git a/modules/local-repository.el b/modules/local-repository.el
index e3c7a227..0f2c981c 100644
--- a/modules/local-repository.el
+++ b/modules/local-repository.el
@@ -6,72 +6,28 @@
 ;; Layer: 4 (Optional).
 ;; Category: O/D/P.
 ;; Load shape: eager.
-;; Eager reason: none; local package mirror commands can autoload.
+;; Eager reason: none; the mirror-refresh command can autoload.
 ;; Top-level side effects: none.
 ;; Runtime requires: elpa-mirror when updating the mirror.
 ;; Direct test load: yes.
 ;;
-;; Adds the checked-in local package archive to package-archives with high
-;; priority, and provides a command to refresh that archive from installed
-;; packages via elpa-mirror.
+;; Provides a command to refresh the checked-in local package archive from the
+;; installed packages via elpa-mirror.  Adding that archive to package-archives
+;; is owned by early-init.el (see `localrepo-location'); this module only
+;; refreshes it.
 
 ;;; Code:
 
 (require 'elpa-mirror nil t)  ;; optional; cj/update-localrepo-repository fails at call-time if absent
 
 (declare-function elpamr-create-mirror-for-installed "elpa-mirror")
-
-;; ------------------------------ Utility Function -----------------------------
-
-
-(defun localrepo--car-member (value list)
-  "Check if VALUE exists as the car of any cons cell in LIST."
-  (member value (mapcar #'car list)))
-
-;; ------------------------------- Customizations ------------------------------
-
-(defgroup localrepo nil
-  "Local last-known-good package repository."
-  :group 'package)
-
-(defcustom localrepo-repository-id "localrepo"
-  "The name used to identify the local repository internally.
-
-Used for the package-archive and package-archive-priorities lists."
-  :type 'string
-  :group 'localrepo)
-
-(defcustom localrepo-repository-priority 100
-  "The value for the local repository in the package-archive-priority list.
-
-A higher value means higher priority. If you want your local packages to be
-preferred, this must be a higher number than any other repositories."
-  :type 'integer
-  :group 'localrepo)
-
-(defcustom localrepo-repository-location
-  (concat user-emacs-directory "/.localrepo")
-  "The location of the local repository.
-
-It's a good idea to keep this with the rest of your configuration files and
-keep them in source control."
-  :type 'directory
-  :group 'localrepo)
+(defvar localrepo-location)  ;; defconst in early-init.el: the archive path
 
 (defun cj/update-localrepo-repository ()
-  "Update the local repository with currently installed packages."
+  "Update the local repository with currently installed packages.
+Targets `localrepo-location', the archive path early-init.el sets up."
   (interactive)
-  (elpamr-create-mirror-for-installed localrepo-repository-location t))
-
-(defun localrepo-initialize ()
-"Add the repository to the package archives, then gives it a high priority."
-  (unless (localrepo--car-member localrepo-repository-id package-archives)
-	(add-to-list 'package-archives
-				 (cons localrepo-repository-id localrepo-repository-location)))
-
-  (unless (localrepo--car-member localrepo-repository-id package-archive-priorities)
-	(add-to-list 'package-archive-priorities
-				 (cons localrepo-repository-id localrepo-repository-priority))))
+  (elpamr-create-mirror-for-installed localrepo-location t))
 
 (provide 'local-repository)
 ;;; local-repository.el ends here.