whompmacs/early-init.el

48 lines
1.3 KiB
EmacsLisp
Raw Normal View History

2024-07-06 09:23:11 +00:00
;;
;; Load paths
;;
;; Add the lib directory to the load path
(add-to-list 'load-path (expand-file-name "lib" user-emacs-directory))
;; Add the thwap.d directory to the load path
(add-to-list 'load-path (expand-file-name "thwap.d" user-emacs-directory))
;;
;; Package management dependencies
;;
2024-07-05 05:48:54 +00:00
;; And disable package at startup
(setq package-enable-at-startup nil)
2024-07-06 09:23:11 +00:00
;;
;; 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)
(defun thwap/add-key-binding (key command help-text)
"Add a key binding to the T.H.W.A.P. keymap"
(define-key thwap-map (kbd key) command)
(add-to-list 'thwap-help-lines (format "%-12s: %s" (concat "C-c t " key) help-text)))