making rpgdm work

init.el

@@ -438,7 +438,7 @@
     "xx" '(guix :which-key "guix")
     "sp" '(:ignore t :which-key "passwords")
     "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")
     "tt" '(consult-theme :which-key "choose theme")
     "tl" '(toggle-truncate-lines :which-key "truncate lines")
@@ -2398,7 +2398,7 @@ targets."
 (defun chris/kill-buffer-frame ()
   "Kills the active buffer and frame"
   (interactive)
-  (kill-this-buffer)
+  (kill-current-buffer)
   (delete-frame))
 
 (use-package ace-window
@@ -2920,7 +2920,7 @@ targets."
     :keymaps 'override
     "sF" '(fd-dired :which-key "search in directory with fd"))
   ('normal dired-mode-map
-    "q" 'kill-this-buffer
+    "q" 'kill-current-buffer
     "C-<return>" 'chris/dired-open-xdg
     "M-<return>" 'ffap-other-window
     "h" 'dired-up-directory
@@ -3245,7 +3245,7 @@ targets."
     :keymaps 'override
     "oc" 'chris/calfw-calendar-open)
   (general-def cfw:calendar-mode-map
-    "q" 'kill-this-buffer
+    "q" 'kill-current-buffer
     "RET" 'cfw:show-details-command)
   (general-def 'normal cfw:details-mode-map
     "q" 'cfw:details-kill-buffer-command))
@@ -3572,7 +3572,7 @@ targets."
   (general-def
     :states 'normal
     :keymaps 'empv-youtube-results-mode-map
-    "q" 'kill-this-buffer
+    "q" 'kill-current-buffer
     "RET" 'empv-youtube-results-play-or-enqueue-current
     "i" 'empv-youtube-results-inspect
     "d" 'chris/empv-yt-dlp
@@ -4013,6 +4013,16 @@ interfere with the default `bongo-playlist-buffer'."
 
 (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
 ;; in non-focused windows.
 (setq-default cursor-in-non-selected-windows nil)