From 4e3d9dfcaa637ea7c4d59f8c62005141ec0cd120 Mon Sep 17 00:00:00 2001 From: Mike 'Fuzzy' Partin Date: Wed, 10 Jul 2024 02:18:27 -0700 Subject: [PATCH] success status messages for everyone!!! --- thwap/thwap-completion.el | 18 +++++++++++------- thwap/thwap-configuration.el | 1 + thwap/thwap-dashboard.el | 1 + thwap/thwap-defaults.el | 2 +- thwap/thwap-file-browser.el | 7 +++++-- thwap/thwap-helpers.el | 1 + thwap/thwap-interface.el | 28 +++++++++++++++++++--------- 7 files changed, 39 insertions(+), 19 deletions(-) diff --git a/thwap/thwap-completion.el b/thwap/thwap-completion.el index fc021a3..faee542 100644 --- a/thwap/thwap-completion.el +++ b/thwap/thwap-completion.el @@ -16,36 +16,40 @@ ;; Company and auto-complete configuration (when (and (eq 'companycomp thwap-completion) (not (eq 'helmcomp thwap-completion)) (not (eq 'ivycomp thwap-completion))) (straight-use-package 'company) - (add-hook 'after-init-hook 'global-company-mode)) + (add-hook 'after-init-hook 'global-company-mode) + (message "Company completion enabled.")) ;; If ivy is enabled, install and configure it (when (and (eq 'ivycomp thwap-completion) (not (eq 'companycomp thwap-completion)) (not (eq 'helmcomp thwap-completion))) (straight-use-package 'ivy) (ivy-mode 1) (setq ivy-use-virtual-buffers t) - (setq enable-recursive-minibuffers t)) + (setq enable-recursive-minibuffers t) + (message "Ivy completion enabled.")) ;; If helm is enabled, install and configure it (when (and (eq 'helmcomp thwap-completion) (not (eq 'companycomp thwap-completion)) (not (eq 'ivycomp thwap-completion))) (straight-use-package 'helm) - (helm-mode 1)) + (helm-mode 1) + (message "Helm completion enabled.")) ;; If all are enabled, choose company (when (or (and (eq 'companycomp thwap-completion) (eq 'helmcomp thwap-completion) (eq 'ivycomp thwap-completion)) (and (eq 'companycomp thwap-completion) (eq 'helmcomp thwap-completion) (not (eq 'ivycomp thwap-completion))) (and (eq 'companycomp thwap-completion) (eq 'ivycomp thwap-completion) (not (eq 'helmcomp thwap-completion)))) - (message "All completion frameworks are enabled. Choosing company.") (straight-use-package 'company) - (add-hook 'after-init-hook 'global-company-mode)) + (add-hook 'after-init-hook 'global-company-mode) + (message "There can be only one. Company completion picked.")) ;; if helm and ivy are enabled, choose ivy (when (and (eq 'helmcomp thwap-completion) (eq 'ivycomp thwap-completion) (not (eq 'companycomp thwap-completion))) - (message "Both helm and ivy are enabled. Choosing ivy.") (straight-use-package 'ivy) (ivy-mode 1) (setq ivy-use-virtual-buffers t) - (setq enable-recursive-minibuffers t)) + (setq enable-recursive-minibuffers t) + (message "There can be only one. Ivy completion picked.")) +(message "T.H.W.A.P. Completion configuration complete.") (provide 'thwap-completion) diff --git a/thwap/thwap-configuration.el b/thwap/thwap-configuration.el index 63d0d6b..40af1b9 100644 --- a/thwap/thwap-configuration.el +++ b/thwap/thwap-configuration.el @@ -8,4 +8,5 @@ :group 'convenience :prefix "thwap-") +(message "T.H.W.A.P. Loaded thwap-config group.") (provide 'thwap-configuration) diff --git a/thwap/thwap-dashboard.el b/thwap/thwap-dashboard.el index bc668d9..19f52e5 100644 --- a/thwap/thwap-dashboard.el +++ b/thwap/thwap-dashboard.el @@ -21,5 +21,6 @@ dashboard-insert-newline dashboard-insert-footer)) +(message "T.H.W.A.P. Dashboard loaded") (provide 'thwap-dashboard) ;;; thwap-dashboard.el ends here diff --git a/thwap/thwap-defaults.el b/thwap/thwap-defaults.el index b7394ad..de72327 100644 --- a/thwap/thwap-defaults.el +++ b/thwap/thwap-defaults.el @@ -65,6 +65,6 @@ ;; yasnippet stuff (thwap/add-key-binding "y n" 'yas-new-snippet "Create a new yasnippet") - +(message "T.H.W.A.P. Defaults Loaded") ;; our provide statement (provide 'thwap-defaults) diff --git a/thwap/thwap-file-browser.el b/thwap/thwap-file-browser.el index 8b1eae6..bcbc630 100644 --- a/thwap/thwap-file-browser.el +++ b/thwap/thwap-file-browser.el @@ -20,7 +20,8 @@ :straight t :config (global-set-key [f8] 'neotree-toggle) - (thwap/add-key-binding "C-n" 'neotree-toggle "Toggle Neotree"))) + (thwap/add-key-binding "C-n" 'neotree-toggle "Toggle Neotree")) + (message "neotree loaded")) (when (eq 'treemacs thwap-dirbrowser) @@ -45,6 +46,8 @@ treemacs-goto-tag-strategy 'refetch-index))) (thwap/add-key-binding "C-t" 'treemacs "Toggle Treemacs") (when (memq 'kaolinthemes thwap-ui-themes) - (kaolin-treemacs-theme))) + (kaolin-treemacs-theme)) + (message "treemacs loaded")) +(message "T.H.W.A.P. Directory browser configuration loaded.") (provide 'thwap-file-browser) diff --git a/thwap/thwap-helpers.el b/thwap/thwap-helpers.el index e5299ad..bada8bb 100644 --- a/thwap/thwap-helpers.el +++ b/thwap/thwap-helpers.el @@ -65,5 +65,6 @@ all `.org` files in the `~/.org-agenda` directory, and sets (setq org-timeblock-inbox-file "~/.org-agenda/tasks.org")) +(message "T.H.W.A.P. Loaded helper function library.") (provide 'thwap-helpers) ;;; thwap-helpers.el ends here diff --git a/thwap/thwap-interface.el b/thwap/thwap-interface.el index 0c4365f..3a943aa 100644 --- a/thwap/thwap-interface.el +++ b/thwap/thwap-interface.el @@ -32,29 +32,34 @@ (when (memq 'modusthemes thwap-ui-themes) (straight-use-package 'modus-themes) - (require 'modus-themes)) + (require 'modus-themes) + (message "Modus themes loaded.")) (when (memq 'doomthemes thwap-ui-themes) (straight-use-package 'doom-themes) - (require 'doom-themes)) + (require 'doom-themes) + (message "Doom themes loaded.")) (when (memq 'sublimethemes thwap-ui-themes) (straight-use-package 'sublime-themes) - (require 'sublime-themes)) + (require 'sublime-themes) + (message "Sublime themes loaded.")) (when (memq 'kaolinthemes thwap-ui-themes) (straight-use-package 'kaolin-themes) - (require 'kaolin-themes)) + (require 'kaolin-themes) + (message "Kaolin themes loaded.")) (when (memq 'alectthems thwap-ui-themes) (straight-use-package 'alect-themes) - (require 'alect-themes)) + (require 'alect-themes) + (message "Alect themes loaded.")) ;; load the theme specified in the config ;; if things look wonky, you probably either need to install the ;; theme or you need to check your spelling. (load-theme thwap-ui-theme :no-confirm) - +(message "Theme loaded: %s" thwap-ui-theme) ;; icon bits @@ -68,7 +73,8 @@ :straight t :defer :init - (all-the-icons-completion-mode 1))) + (all-the-icons-completion-mode 1)) + (message "All-the-icons loaded.")) (when (and (eq 'nerdicons thwap-ui-icons) (not (eq 'alltheicons thwap-ui-icons))) (use-package nerd-icons @@ -82,7 +88,8 @@ ;; "Symbols Nerd Font Mono" is the default and is recommended ;; but you can use any other Nerd Font if you want (nerd-icons-font-family "Symbols Nerd Font Mono") - )) + ) + (message "Nerd-icons loaded.")) (when (and (eq 'nerdicons thwap-ui-icons) (eq 'alltheicons thwap-ui-icons)) (message "Both all-the-icons and nerd-icons are enabled. Disabling nerd-icons.") @@ -95,6 +102,9 @@ :straight t :defer :init - (all-the-icons-completion-mode 1))) + (all-the-icons-completion-mode 1)) + (message "All-the-icons loaded.")) + +(message "T.H.W.A.P. Interface settings loaded.") (provide 'thwap-interface)