whompmacs/early-init.el

;;
;; Load paths
;;

;; Add the lib directory to the load path
(add-to-list 'load-path (expand-file-name "whomp" user-emacs-directory))

;; Add the thwap.d directory to the load path
(add-to-list 'load-path (expand-file-name "whomp.d" user-emacs-directory))


;;
;; Package management dependencies
;;

;; And disable package at startup
(setq package-enable-at-startup nil)


;;
;; Bootstrap package management with straight.el and use-package
;;

;; Bootstrap straight.el
(defvar bootstrap-version)
(let ((bootstrap-file
       (expand-file-name
        "straight/repos/straight.el/bootstrap.el"
        (or (bound-and-true-p straight-base-dir)
            user-emacs-directory)))
      (bootstrap-version 7))
  (unless (file-exists-p bootstrap-file)
    (with-current-buffer
        (url-retrieve-synchronously
         "https://raw.githubusercontent.com/radian-software/straight.el/develop/install.el"
         'silent 'inhibit-cookies)
      (goto-char (point-max))
      (eval-print-last-sexp)))
  (load bootstrap-file nil 'nomessage))

;; Set up straight.el to use use-package
;; (straight-use-package 'use-package)
(use-package use-package
	:straight t
	:defer t)

(defun whomp/add-key-binding (key command help-text)
	"Add a key binding to the W.H.O.M.P. keymap"
	(define-key whomp-map (kbd key) command)
	(add-to-list 'whomp-help-lines (format "%-12s: %s" (concat "C-c w " key) help-text)))