mirror of
http://github.com/JaeUs3792/dotfiles
synced 2025-12-14 08:01:35 +09:00
67 lines
2.4 KiB
EmacsLisp
67 lines
2.4 KiB
EmacsLisp
;;;; crafted-package.el --- Configuration to use `package.el'. -*- lexical-binding: t; -*-
|
|
|
|
;; Copyright (C) 2022
|
|
;; SPDX-License-Identifier: MIT
|
|
|
|
;; Author: System Crafters Community
|
|
|
|
;;; Commentary:
|
|
|
|
;; This library provides a package related interface for
|
|
;; `crafted-emacs'.
|
|
|
|
;; So far, it has two backends:
|
|
;; - `package.el' -- The default.
|
|
;; - `straight.el' -- A popular option.
|
|
|
|
;; Other backends could be added. To add a backend, add the name to
|
|
;; the list above, provide a bootstrap file (the name must match
|
|
;; `crafted-%s-bootstrap.el' or it will fail to be loaded with this
|
|
;; code), and make sure to implement the following macros (at a
|
|
;; minimum):
|
|
;;
|
|
;; `crafted-package-install-package' which should receive a package to
|
|
;; install and perform the appropriate operations to install that
|
|
;; package.
|
|
;;
|
|
;; `crafted-package-installed-p' which should identify if a package is
|
|
;; installed (ie, it should return `t' if the package is installed and
|
|
;; `nil' otherwise)
|
|
;;
|
|
;; See the bootstrap files in this directory for examples. The macros
|
|
;; mentioned above are intended to provide a consistent interface for
|
|
;; the modules to use when installing packages. The user is not
|
|
;; expected to use them in their own configuration, but they may if
|
|
;; they choose. Or they may choose a different interface, like
|
|
;; `use-package' or `leaf'.
|
|
|
|
;;; Code:
|
|
|
|
(defvar crafted-package-system 'package
|
|
"What package system to use.
|
|
|
|
By default, it uses 'package for `package.el'. Another option is
|
|
'straight for `straight.el'.")
|
|
|
|
(defun crafted-package-bootstrap (&optional system)
|
|
"Load the configuration and defaults to the selected package.
|
|
|
|
This will check for the value of the variable
|
|
`crafted-package-system', but could be overriden with the
|
|
optional parameter SYSTEM.
|
|
|
|
This is called when `early-init.el' runs."
|
|
(let* ((module (make-symbol (format "crafted-%s-bootstrap.el"
|
|
(symbol-name (or system
|
|
crafted-package-system
|
|
;; In case both above are nil
|
|
'package)))))
|
|
(module-path (expand-file-name (symbol-name module) crafted-bootstrap-directory)))
|
|
(if (file-exists-p module-path)
|
|
(load module-path)
|
|
(error "Could not find module %s" module))))
|
|
|
|
(provide 'crafted-package)
|
|
|
|
;;; crafted-package.el ends here
|