Update for some useful changes

.gitignore

@@ -8,7 +8,7 @@ whomp.d/*.el
 org-roam.db
 scratch
 .emacs.desktop
-emacs-custom.el
+custom-*.el
 recentf
 .cache*
 .lsp*

README.org

@@ -12,7 +12,7 @@ As it turns out, yeah, he admitted to being wrong. The result of rolling my own
 
 Furthermore, most of the major changes in W.H.O.M.P. are highly experimental and haven't been suggested for T.H.W.A.P. just yet. Enjoy!
 
-From the original developer of T.H.W.A.P.:
+From the original developer of T.H.W.A.P.(https://github.com/fuzzy/thwapmacs/):
 
 No doubt I've been helped along that journey by much reading and worthy YouTube Emacs content. And in that spirit I am
 publishing this configuration, and endeavoring to ensure that it is well commented and documented. If you have questions,
@@ -25,7 +25,7 @@ Simply clone this repository as your ~/.emacs.d directory and start emacs.
 
 #+BEGIN_SRC
 $ test -d ~/.emacs.d && mv ~/.emacs.d ~/emacs.d
-$ git clone https://github.com/caranmegil/whompmacs ~/.emacs.d
+$ git clone https://rezrov.xyz/caranmegil/whompmacs ~/.emacs.d
 $ emacs # start up emacs in the normal way and let it bootstrap
 #+END_SRC
 

early-init.el

@@ -39,7 +39,10 @@
   (load bootstrap-file nil 'nomessage))
 
 ;; Set up straight.el to use use-package
-(straight-use-package '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"

init.el

@@ -1,3 +1,7 @@
+(unless (file-exists-p "~/.emacs.d/custom-init.el")
+  (shell-command (concat "touch " "~/.emacs.d/custom-init.el")))
+(load-file "~/.emacs.d/custom-init.el")
+
 ;; custom set stuff
 (custom-set-variables
  ;; custom-set-variables was added by Custom.
@@ -5,13 +9,15 @@
  ;; Your init file should contain only one such instance.
  ;; If there is more than one, they won't work right.
  '(desktop-save-mode t)
- '(mouse-autoselect-window t)
  '(mouse-drag-and-drop-region t)
  '(mouse-drag-and-drop-region-cross-program t)
  '(tool-bar-mode nil)
  '(visible-bell 1))
 
-(setq custom-file "~/.emacs.d/emacs-custom.el")
+(setq custom-file "~/.emacs.d/custom-config.el")
+
+(unless (file-exists-p custom-file)
+  (shell-command (concat "touch " custom-file)))
 (load custom-file)
 
 ;; whomp helpers
@@ -36,9 +42,11 @@
 (require 'whomp-dashboard)
 
 ;; now that everything is loaded, let's load all the user configurations
+
 (let ((user-config (whomp/list-files-with-extension "~/.emacs.d/whomp.d" "el")))
 	(dolist (config user-config)
 	  (load-file config)))
+
 (custom-set-faces
  ;; custom-set-faces was added by Custom.
  ;; If you edit it by hand, you could mess it up, so be careful.

whomp/whomp-defaults.el

@@ -51,20 +51,6 @@
 ;; eval buffer is also very useful
 (whomp/add-key-binding "e b" 'eval-buffer "Eval buffer")
 
-(straight-use-package 'yasnippet)
-(require 'yasnippet)
-(setq yas-snippet-dirs '("~/.emacs.d/snippets"))
-(message "Yasnippet loaded")
-
-(straight-use-package 'yasnippet-snippets)
-(require 'yasnippet-snippets)
-(yas-reload-all)
-(yas-global-mode 1)
-(message "Yasnippet-Snippets loaded")
-
-;; yasnippet stuff
-(whomp/add-key-binding "y n" 'yas-new-snippet "Create a new yasnippet")
-
 (message "W.H.O.M.P. Defaults Loaded")
 ;; our provide statement
 (provide 'whomp-defaults)

whomp/whomp-interface.el

@@ -36,9 +36,12 @@
 	(message "Modus themes loaded."))
 
 (when (memq 'doomthemes whomp-ui-themes)
-	(straight-use-package 'doom-themes)
+	(use-package doom-themes
+		:straight t
+		:defer t
+		:config
 		(require 'doom-themes)
-	(message "Doom themes loaded."))
+		(message "Doom themes loaded.")))
 
 (when (memq 'sublimethemes whomp-ui-themes)
 	(straight-use-package 'sublime-themes)

whomp/whomp-orgmode.el

@@ -29,7 +29,10 @@
 
 ;; base
 (when (memq 'orgmode whomp-orgmode)
-	(straight-use-package 'org)
+	(use-package org
+		:straight t
+		:defer t
+		:config
 		(whomp/ensure-directory-exists "~/org")
 		(setq browse-url-browser-function 'browse-url-generic
 					browse-url-generic-program "firefox-esr"
@@ -80,29 +83,41 @@
 		(whomp/add-key-binding "o c r" 'org-clock-report "Generate a clock report.")
 		(whomp/add-key-binding "o r" 'org-refile "Refile the current task.")
 		(whomp/add-key-binding "o e" 'org-export-dispatch "Export the current buffer.")
-	(message "org-mode loaded"))
+		(message "org-mode loaded")))
 
 ;; org-bullets
 (when (and (memq 'orgmode whomp-orgmode) (memq 'orgbullets whomp-orgmode))
-	(straight-use-package 'org-bullets)
+	(use-package org-bullets
+		:straight t
+		:defer t
+		:config
 		(add-hook 'org-mode-hook (lambda () (org-bullets-mode 1)))
-	(message "org-bullets loaded"))
+		(message "org-bullets loaded")))
 
 ;; org-super-agenda
 (when (and (memq 'orgmode whomp-orgmode) (memq 'orgsuperagenda whomp-orgmode))
-	(straight-use-package 'org-super-agenda)
+	(use-package org-super-agenda
+		:straight t
+		:defer t
+		:config
 		(add-hook 'org-agenda-mode-hook 'org-super-agenda-mode)
-	(message "org-super-agenda loaded"))
+		(message "org-super-agenda loaded")))
 
 ;; org-modern
 (when (and (memq 'orgmode whomp-orgmode) (memq 'orgmodern whomp-orgmode))
-	(straight-use-package 'org-modern)
+	(use-package org-modern
-	(message "org-modern loaded"))
+		:straight t
+		:defer t
+		:config
+		(message "org-modern loaded")))
 
 ;; org-timeblock
 (when (and (memq 'orgmode whomp-orgmode) (memq 'orgtimeblock whomp-orgmode))
-	(straight-use-package 'org-timeblock)
+	(use-package org-timeblock
-	(message "org-timeblock loaded"))
+		:straight t
+		:defer t
+		:config
+		(message "org-timeblock loaded")))
 
 ;; org-download
 (when (and (memq 'orgmode whomp-orgmode) (memq 'orgdownload whomp-orgmode))
@@ -111,7 +126,10 @@
 
 ;; org-roam
 (when (and (memq 'orgmode whomp-orgmode) (memq 'orgroam whomp-orgmode))
-	(straight-use-package 'org-roam)
+	(use-package org-roam
+		:straight t
+		:defer t
+		:config
 		(org-roam-db-autosync-mode)
 		(setq org-roam-v2-ack t)
 		(setq org-roam-directory "~/org-roam")
@@ -120,8 +138,9 @@
 		(setq org-roam-capture-templates
 					'(("d" "default" plain "%?"
 						 :if-new (file+head "%<%Y%m%d%H%M%S>-${slug}.org" "#+title: ${title}\n")
-					 :unnarrowed t))))
+						 :unnarrowed t)))))
 
+;; org-publish
 (when (and (memq 'orgmode whomp-orgmode) (memq 'orgpublish whomp-orgmode))
 	(require 'ox-publish)
 	(setq org-publish-project-alist