making rpgdm work

This commit is contained in:
Chris Cochrun 2024-08-22 05:32:36 -05:00
parent 2db1fd2e09
commit 48ec2024a6
3 changed files with 35 additions and 11 deletions

View file

@ -62,6 +62,7 @@ Date: Sat, 27 Apr 2024 22:36:33 -0500
- [[#languagetool][LanguageTool]] - [[#languagetool][LanguageTool]]
- [[#qrencode][qrencode]] - [[#qrencode][qrencode]]
- [[#org-bible][Org Bible]] - [[#org-bible][Org Bible]]
- [[#emacs-as-rpg][Emacs as RPG]]
- [[#performance][Performance]] - [[#performance][Performance]]
- [[#logging][Logging]] - [[#logging][Logging]]
- [[#early-init][Early Init]] - [[#early-init][Early Init]]
@ -705,7 +706,7 @@ This evil-collection package includes a lot of other evil based things.
"xx" '(guix :which-key "guix") "xx" '(guix :which-key "guix")
"sp" '(:ignore t :which-key "passwords") "sp" '(:ignore t :which-key "passwords")
"bs" '(consult-buffer :which-key "buffer search") "bs" '(consult-buffer :which-key "buffer search")
"bd" '(kill-this-buffer :which-key "kill buffer") "bd" '(kill-current-buffer :which-key "kill buffer")
"bi" '(ibuffer :which-key "ibuffer") "bi" '(ibuffer :which-key "ibuffer")
"tt" '(consult-theme :which-key "choose theme") "tt" '(consult-theme :which-key "choose theme")
"tl" '(toggle-truncate-lines :which-key "truncate lines") "tl" '(toggle-truncate-lines :which-key "truncate lines")
@ -3230,7 +3231,7 @@ Since I like to make my window manager handle a lot of the window management, I
(defun chris/kill-buffer-frame () (defun chris/kill-buffer-frame ()
"Kills the active buffer and frame" "Kills the active buffer and frame"
(interactive) (interactive)
(kill-this-buffer) (kill-current-buffer)
(delete-frame)) (delete-frame))
#+end_src #+end_src
@ -3961,7 +3962,7 @@ I'm making a small function in here to open files in the appropriate program usi
:keymaps 'override :keymaps 'override
"sF" '(fd-dired :which-key "search in directory with fd")) "sF" '(fd-dired :which-key "search in directory with fd"))
('normal dired-mode-map ('normal dired-mode-map
"q" 'kill-this-buffer "q" 'kill-current-buffer
"C-<return>" 'chris/dired-open-xdg "C-<return>" 'chris/dired-open-xdg
"M-<return>" 'ffap-other-window "M-<return>" 'ffap-other-window
"h" 'dired-up-directory "h" 'dired-up-directory
@ -4404,7 +4405,7 @@ Let's add org-msg to write emails in org-mode
:keymaps 'override :keymaps 'override
"oc" 'chris/calfw-calendar-open) "oc" 'chris/calfw-calendar-open)
(general-def cfw:calendar-mode-map (general-def cfw:calendar-mode-map
"q" 'kill-this-buffer "q" 'kill-current-buffer
"RET" 'cfw:show-details-command) "RET" 'cfw:show-details-command)
(general-def 'normal cfw:details-mode-map (general-def 'normal cfw:details-mode-map
"q" 'cfw:details-kill-buffer-command)) "q" 'cfw:details-kill-buffer-command))
@ -4821,7 +4822,7 @@ With empv we can perhaps control mpv much more fine grainly and even search yout
(general-def (general-def
:states 'normal :states 'normal
:keymaps 'empv-youtube-results-mode-map :keymaps 'empv-youtube-results-mode-map
"q" 'kill-this-buffer "q" 'kill-current-buffer
"RET" 'empv-youtube-results-play-or-enqueue-current "RET" 'empv-youtube-results-play-or-enqueue-current
"i" 'empv-youtube-results-inspect "i" 'empv-youtube-results-inspect
"d" 'chris/empv-yt-dlp "d" 'chris/empv-yt-dlp
@ -5444,6 +5445,19 @@ Org Bible is going to be set of functions for creating and using a bible app wit
#+begin_src emacs-lisp #+begin_src emacs-lisp
(load (concat user-emacs-directory "bible.el")) (load (concat user-emacs-directory "bible.el"))
#+end_src #+end_src
** Emacs as RPG
Using emacs to run rpg things
#+begin_src emacs-lisp
(add-to-list 'load-path "/home/chris/dev/emacs-rpgdm/")
(use-package rpgdm
:general
(chris/leader-keys
:states 'normal
:keymaps 'override
"a" '(:ignore t :which-key "RPGDM")
"ar" '(rpgdm-roll :which-key "roll")
"aa" '(hydra-rpgdm/body :which-key "hydra")))
#+end_src
** Performance ** Performance
Here we have a bunch of performance tweaks Here we have a bunch of performance tweaks

20
init.el
View file

@ -438,7 +438,7 @@
"xx" '(guix :which-key "guix") "xx" '(guix :which-key "guix")
"sp" '(:ignore t :which-key "passwords") "sp" '(:ignore t :which-key "passwords")
"bs" '(consult-buffer :which-key "buffer search") "bs" '(consult-buffer :which-key "buffer search")
"bd" '(kill-this-buffer :which-key "kill buffer") "bd" '(kill-current-buffer :which-key "kill buffer")
"bi" '(ibuffer :which-key "ibuffer") "bi" '(ibuffer :which-key "ibuffer")
"tt" '(consult-theme :which-key "choose theme") "tt" '(consult-theme :which-key "choose theme")
"tl" '(toggle-truncate-lines :which-key "truncate lines") "tl" '(toggle-truncate-lines :which-key "truncate lines")
@ -2398,7 +2398,7 @@ targets."
(defun chris/kill-buffer-frame () (defun chris/kill-buffer-frame ()
"Kills the active buffer and frame" "Kills the active buffer and frame"
(interactive) (interactive)
(kill-this-buffer) (kill-current-buffer)
(delete-frame)) (delete-frame))
(use-package ace-window (use-package ace-window
@ -2920,7 +2920,7 @@ targets."
:keymaps 'override :keymaps 'override
"sF" '(fd-dired :which-key "search in directory with fd")) "sF" '(fd-dired :which-key "search in directory with fd"))
('normal dired-mode-map ('normal dired-mode-map
"q" 'kill-this-buffer "q" 'kill-current-buffer
"C-<return>" 'chris/dired-open-xdg "C-<return>" 'chris/dired-open-xdg
"M-<return>" 'ffap-other-window "M-<return>" 'ffap-other-window
"h" 'dired-up-directory "h" 'dired-up-directory
@ -3245,7 +3245,7 @@ targets."
:keymaps 'override :keymaps 'override
"oc" 'chris/calfw-calendar-open) "oc" 'chris/calfw-calendar-open)
(general-def cfw:calendar-mode-map (general-def cfw:calendar-mode-map
"q" 'kill-this-buffer "q" 'kill-current-buffer
"RET" 'cfw:show-details-command) "RET" 'cfw:show-details-command)
(general-def 'normal cfw:details-mode-map (general-def 'normal cfw:details-mode-map
"q" 'cfw:details-kill-buffer-command)) "q" 'cfw:details-kill-buffer-command))
@ -3572,7 +3572,7 @@ targets."
(general-def (general-def
:states 'normal :states 'normal
:keymaps 'empv-youtube-results-mode-map :keymaps 'empv-youtube-results-mode-map
"q" 'kill-this-buffer "q" 'kill-current-buffer
"RET" 'empv-youtube-results-play-or-enqueue-current "RET" 'empv-youtube-results-play-or-enqueue-current
"i" 'empv-youtube-results-inspect "i" 'empv-youtube-results-inspect
"d" 'chris/empv-yt-dlp "d" 'chris/empv-yt-dlp
@ -4013,6 +4013,16 @@ interfere with the default `bongo-playlist-buffer'."
(load (concat user-emacs-directory "bible.el")) (load (concat user-emacs-directory "bible.el"))
(add-to-list 'load-path "/home/chris/dev/emacs-rpgdm/")
(use-package rpgdm
:general
(chris/leader-keys
:states 'normal
:keymaps 'override
"a" '(:ignore t :which-key "RPGDM")
"ar" '(rpgdm-roll :which-key "roll")
"aa" '(hydra-rpgdm/body :which-key "hydra")))
;; Reduce rendering/line scan work for Emacs by not rendering cursors or regions ;; Reduce rendering/line scan work for Emacs by not rendering cursors or regions
;; in non-focused windows. ;; in non-focused windows.
(setq-default cursor-in-non-selected-windows nil) (setq-default cursor-in-non-selected-windows nil)

View file

@ -1,4 +1,4 @@
;;; Automatically generated by recentf on Wed Feb 21 13:54:13 2024. ;;; Automatically generated by recentf on Wed Aug 21 11:42:22 2024.
(setq recentf-list (setq recentf-list
'( '(