- (eval-when-compile
- (package-initialize)
- (unless (package-installed-p 'use-package)
- (package-refresh-contents)
- (package-install 'use-package))
- (setq use-package-always-ensure t)
- (let ((package-user-dir-real (file-truename package-user-dir)))
- ;; The reverse is necessary, because outside we mapc
- ;; add-to-list element-by-element, which reverses.
- (nreverse (apply #'nconc
- ;; Only keep package.el provided loadpaths.
- (mapcar #'(lambda (path)
- (if (string-prefix-p package-user-dir-real path)
- (list path)
- nil))
- load-path))))))
+ (eval-when-compile
+ (package-initialize)
+ (unless (package-installed-p 'use-package)
+ (package-refresh-contents)
+ (package-install 'use-package))
+ (let ((package-user-dir-real (file-truename package-user-dir)))
+ ;; The reverse is necessary, because outside we mapc
+ ;; add-to-list element-by-element, which reverses.
+ (nreverse (apply #'nconc
+ ;; Only keep package.el provided loadpaths.
+ (mapcar #'(lambda (path)
+ (if (string-prefix-p package-user-dir-real path)
+ (list path)
+ nil))
+ load-path))))))