[nongnu] elpa/meow b47d1fa88f: Add shim for realgud (#512)

[ELPA Syncer]

branch: elpa/meow
commit b47d1fa88fc3b06b9f70e4c8657a8f10f216a226
Author: ententent <119666897+ententent@users.noreply.github.com>
Commit: GitHub <noreply@github.com>

    Add shim for realgud (#512)
---
 meow-shims.el | 20 ++++++++++++++++++++
 1 file changed, 20 insertions(+)

diff --git a/meow-shims.el b/meow-shims.el
index 3d8a429032..caf4264bf6 100644
--- a/meow-shims.el
+++ b/meow-shims.el
@@ -250,6 +250,25 @@ Argument ENABLE non-nil means turn on."
       (add-hook 'sly-db-hook 'meow--sly-debug-hook-function)
     (remove-hook 'sly-db-hook 'meow--sly-debug-hook-function)))
 
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;; realgud (debug)
+
+(defvar meow--realgud-setup nil)
+
+(defun meow--realgud-debug-hook-function ()
+  "Switch meow state when entering/leaving realgud-short-key-mode."
+  (if (bound-and-true-p realgud-short-key-mode)
+      (meow--switch-to-motion)
+    (meow--switch-to-normal)))
+
+(defun meow--setup-realgud (enable)
+  "Setup realgud.
+Argument ENABLE non-nil means turn on."
+  (setq meow--realgud-setup enable)
+  (if enable
+      (add-hook 'realgud-short-key-mode-hook 
'meow--realgud-debug-hook-function)
+    (remove-hook 'realgud-short-key-mode-hook 
'meow--realgud-debug-hook-function)))
+
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;; which-key
 
@@ -325,6 +344,7 @@ Argument ENABLE non-nil means turn on."
   (eval-after-load "polymode" (lambda () (meow--setup-polymode t)))
   (eval-after-load "cider" (lambda () (meow--setup-cider t)))
   (eval-after-load "sly" (lambda () (meow--setup-sly t)))
+  (eval-after-load "realgud" (lambda () (meow--setup-realgud t)))
   (eval-after-load "which-key" (lambda () (meow--setup-which-key t)))
   (eval-after-load "undo-tree" (lambda () (meow--setup-undo-tree t)))
   (eval-after-load "diff-hl" (lambda () (meow--setup-diff-hl t)))