zedhugh
b5d9ce18a7
- replace "add-pkg-in-pkg-dir" (recursive load-path scanning) with a central "creature/pkgs" registry that handles load path, autoloads, info dirs and dependencies - adapt all init-*.el files to the new activation function - add a top-level Makefile to byte-compile site-lisp packages - remove unused "emacs-kv" and "emacs-db" submodules
124 lines
5.1 KiB
EmacsLisp
124 lines
5.1 KiB
EmacsLisp
;; -*- coding: utf-8; lexical-binding: t; -*-
|
|
|
|
(require 'cl-lib)
|
|
(require 'subr-x)
|
|
(require 'info)
|
|
|
|
(defconst creature/pkg-dir
|
|
(expand-file-name
|
|
"../site-lisp"
|
|
(file-name-directory(or load-file-name buffer-file-name)))
|
|
"Package directory.")
|
|
|
|
(defconst creature/pkgs
|
|
'((magit . ( :load "magit/lisp" :autoload "magit-autoloads" :info "magit/docs"
|
|
:deps (compat cond-let llama transient with-editor)))
|
|
(compat . (:load "compat" :info "compat"))
|
|
(cond-let . (:load "cond-let" :autoload "cond-let-autoloads"))
|
|
(llama . ( :load "llama" :autoload "llama-autoloads"
|
|
:deps (compat)))
|
|
(transient . ( :load "transient/lisp" :autoload "transient-autoloads"
|
|
:info "transient/docs" :deps (compat cond-let)))
|
|
(with-editor . ( :load "with-editor/lisp" :autoload "with-editor-autoloads"
|
|
:info "with-editor/docs" :deps (compat cond-let)))
|
|
(git-modes . ( :load "git-modes" :autoload "git-modes-autoloads"
|
|
:deps (compat)))
|
|
(pinentry . (:load "pinentry" :autoload "pinentry"))
|
|
(lazy-load . (:load "lazy-load" :autoload "lazy-load"))
|
|
(awesome-pair . (:load "awesome-pair"))
|
|
(editorconfig . (:load "editorconfig-emacs"))
|
|
(emmet-mode . (:load "emmet-mode"))
|
|
(eslint-disable-rule . (:load "eslint-disable-rule"))
|
|
(eslint . (:load "eslint/lisp"))
|
|
(gptel . (:load "gptel" :deps (compat transient)))
|
|
(expand-region . (:load "expand-region"))
|
|
(rg . (:load "rg" :info "rg" :deps (transient wgrep)))
|
|
(wgrep . (:load "Emacs-wgrep"))
|
|
(avy . (:load "avy"))
|
|
(mwim . (:load "mwim"))
|
|
(symbol-overlay . (:load "symbol-overlay"))
|
|
(markdown-mode . (:load "markdown-mode" :deps (edit-indirect)))
|
|
(edit-indirect . (:load "edit-indirect"))
|
|
(emms . (:load "emms" :autoload "emms-auto" :info "emms/doc"))
|
|
(nov . (:load "nov" :deps (esxml)))
|
|
(esxml . (:load "esxml"))
|
|
(org-pomodoro . (:load "org-pomodoro" :deps (alert)))
|
|
(alert . (:load "alert" :deps (gntp)))
|
|
(gntp . (:load "gntp"))
|
|
(ox-hugo . (:load "ox-hugo" :autoload "ox-hugo-autoloads" :deps (tomelr)))
|
|
(tomelr . (:load "tomelr"))
|
|
(plantuml-mode . (:load "plantuml-mode" :deps (dash deflate)))
|
|
(dash . (:load "dash"))
|
|
(deflate . (:load "deflate" :deps (dash)))
|
|
(prettier . (:load "prettier" :info "prettier" :deps (iter2 nvm)))
|
|
(iter2 . (:load "iter2"))
|
|
(nvm . (:load "nvm" :deps (s dash f)))
|
|
(s . (:load "s"))
|
|
(f . (:load "f" :deps (s dash)))
|
|
(prisma-ts-mode . (:load "prisma-ts-mode"))
|
|
(rime . (:load "emacs-rime" :deps (dash posframe)))
|
|
(posframe . (:load "posframe"))
|
|
(sdcv . (:load "sdcv" :deps (posframe)))
|
|
(which-key . (:load "emacs-which-key"))
|
|
(yasnippet . (:load "yasnippet"))
|
|
(yasnippet-snippets . (:load "yasnippet-snippets" :deps (yasnippet)))
|
|
(auto-yasnippet . (:load "auto-yasnippet" :deps (yasnippet)))
|
|
(vimrc-mode . (:load "vimrc-mode"))
|
|
(yaml-mode . (:load "yaml-mode"))
|
|
(lua-mode . (:load "lua-mode"))
|
|
(nginx-mode . (:load "nginx-mode"))
|
|
(pdf-tools . ( :load "pdf-tools/lisp" :autoload "pdf-tools-autoloads"
|
|
:deps (tablist)))
|
|
(tablist . (:load "tablist"))
|
|
(saveplace-pdf-view . (:load "saveplace-pdf-view"))
|
|
(graphviz-dot-mode . (:load "graphviz-dot-mode"))
|
|
(meson-mode . (:load "meson-mode"))
|
|
(crontab-mode . (:load "crontab-mode"))
|
|
(marginalia . (:load "marginalia" :deps (compat)))
|
|
(vertico . (:load ("vertico" "vertico/extensions") :deps (compat)))
|
|
(corfu . (:load ("corfu" "corfu/extensions") :deps (compat)))
|
|
(orderless . (:load "orderless" :deps (compat)))
|
|
(cape . (:load "cape" :deps (compat)))
|
|
(consult . (:load "consult" :deps (compat)))
|
|
(corfu-terminal . (:load "emacs-corfu-terminal" :deps (corfu popon)))
|
|
(popon . (:load "emacs-popon"))
|
|
(embark . (:load "embark"))
|
|
)
|
|
"Package name and config pair.")
|
|
|
|
(defvar creature/pkgs-actived nil
|
|
"Actived packages.
|
|
This is temporary variable for function `creature/pkg-active'.")
|
|
|
|
(cl-defun creature/pkg-active (pkg)
|
|
"Setup package."
|
|
(when (member pkg creature/pkgs-actived)
|
|
(cl-return-from creature/pkg-active creature/pkgs-actived))
|
|
|
|
(let* ((pkg-config (alist-get pkg creature/pkgs))
|
|
(pkg-load-path (plist-get pkg-config :load))
|
|
(pkg-autoload (plist-get pkg-config :autoload))
|
|
(pkg-info-dir (plist-get pkg-config :info))
|
|
(pkg-deps (plist-get pkg-config :deps)))
|
|
(unless pkg-config (error "package(%s) not in `creature/pkgs'." pkg))
|
|
|
|
(dolist (dep pkg-deps) (creature/pkg-active dep))
|
|
(if (stringp pkg-load-path)
|
|
(add-to-list 'load-path (file-name-concat creature/pkg-dir pkg-load-path))
|
|
(dolist (path pkg-load-path)
|
|
(add-to-list 'load-path (file-name-concat creature/pkg-dir path))))
|
|
(when pkg-autoload (load pkg-autoload t t))
|
|
(when pkg-info-dir
|
|
(add-to-list 'Info-additional-directory-list
|
|
(file-name-concat creature/pkg-dir pkg-info-dir))))
|
|
|
|
(add-to-list 'creature/pkgs-actived pkg))
|
|
|
|
(add-to-list 'Info-additional-directory-list
|
|
(file-truename (file-name-concat creature/pkg-dir "../.cache")))
|
|
|
|
(add-to-list 'load-path creature/pkg-dir)
|
|
|
|
|
|
(provide 'init-package)
|