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

Updates including bugs and removing AI gen image

Browse Source
This commit is contained in:
William Moore 2025-01-04 19:38:44 -06:00
parent 06b9abaf6f
commit a524eea303
4 changed files with 20 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
README.org
View File

@ -2,7 +2,16 @@
#+CAPTION: WhompMacs: W.H.O.M.P. GNU Emacs Configuration
#+NAME: logo
#+ATTR_HTML: align: center
[[./logos/logo1.png]]
#+BEGIN_SRC
____ __ ____ __ __ ______ .___ ___. .______
\ \ / \ / / | | | | / __ \ | \/ | | _ \
\ \/ \/ / | |__| | | | | | | \ / | | |_) |
\ / | __ | | | | | | |\/| | | ___/
\ /\ / __ | | | | __| `--' | __| | | | __| | __
\__/ \__/ (__)|__| |__| (__)\______/ (__)__| |__| (__) _| (__)
#+END_SRC
#+END_CENTER
* W.H.O.M.P. Emacs Configuration

4
init.el
View File

@ -5,9 +5,6 @@
;; \ /\ / __ | | | | __| `--' | __| | | | __| | __
;; \__/ \__/ (__)|__| |__| (__)\______/ (__)__| |__| (__) _| (__)
(when (string= system-type "darwin")
(setq dired-use-ls-dired nil))
(global-ede-mode t)
(global-font-lock-mode t)
@ -42,6 +39,7 @@
:straight t
:defer t)
(require 'exec-path-from-shell) ;; if not using the ELPA package
(setq exec-path-from-shell-arguments nil)
(exec-path-from-shell-initialize)
(setq browse-url-browser-function 'browse-url)

11
whomp/whomp-dashboard.el
View File

@ -4,7 +4,7 @@
:config
(dashboard-setup-startup-hook)
(setq dashboard-banner-logo-title (mapconcat 'identity '("____ __ ____ __ __ ______ .___ ___. .______ "
(setq whomp-banner-logo-title '("____ __ ____ __ __ ______ .___ ___. .______ "
"\\ \\ / \\ / / | | | | / __ \\ | \\/ | | _ \\"
" \\ \\/ \\/ / | |__| | | | | | | \\ / | | |_) |"
" \\ / | __ | | | | | | |\\/| | | ___/ "
@ -14,15 +14,18 @@
"It was created by Fuzzy and extended by William Moore"
""
"All W.H.O.M.P. commands will start with 'C-c w'"
"--------------")
"\n"))
"--------------"))
(setq whomp-banner-logo-title (append whomp-banner-logo-title whomp-help-lines))
(setq dashboard-banner-logo-title (mapconcat 'identity whomp-banner-logo-title "\n"))
(setq dashboard-startup-banner 'logo)
(setq initial-buffer-choice (lambda () (get-buffer-create dashboard-buffer-name)))
(setq dashboard-center-content t)
(setq dashboard-vertically-center-content t)
(setq dashboard-show-shortcuts t)
(setq dashboard-items '((recents . 5)
(agenda . 5)))
(agenda . 5)
(bookmarks . 5)))
(setq dashboard-startupify-list '(dashboard-insert-banner
dashboard-insert-newline
dashboard-insert-banner-title

2
whomp/whomp-defaults.el
View File

@ -18,6 +18,8 @@
;; Set up the W.H.O.M.P. keybindings
;;
(setq whomp-help-lines '())
;; The W.H.O.M.P. Map
;; This is the base starting point for the W.H.O.M.P. keybindings
(define-prefix-command 'whomp-map)