caranmegil/whompmacs
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

success status messages for everyone!!!

Browse Source
This commit is contained in:
Mike 'Fuzzy' Partin 2024-07-10 02:18:27 -07:00
parent d94f547584
commit 4e3d9dfcaa
7 changed files with 39 additions and 19 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
thwap/thwap-completion.el
View File

@ -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)

1
thwap/thwap-configuration.el
View File

@ -8,4 +8,5 @@
:group 'convenience
:prefix "thwap-")
(message "T.H.W.A.P. Loaded thwap-config group.")
(provide 'thwap-configuration)

1
thwap/thwap-dashboard.el
View File

@ -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

2
thwap/thwap-defaults.el
View File

@ -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)

7
thwap/thwap-file-browser.el
View File

@ -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)

1
thwap/thwap-helpers.el
View File

@ -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

28
thwap/thwap-interface.el
View File

@ -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)