From b276cb7c9b0a87332641a85c19e313ef59212978 Mon Sep 17 00:00:00 2001
From: MitchMarq42 <dr.m.perseos@gmail.com>
Date: Thu, 12 Jan 2023 16:30:47 -0900
Subject: [PATCH] xwidget-webkit isearch

---
 lisp/mitch-packages.el | 28 ++++++++++++++++++++++++++++
 1 file changed, 28 insertions(+)

diff --git a/lisp/mitch-packages.el b/lisp/mitch-packages.el
index 1346174..d6de4dd 100644
--- a/lisp/mitch-packages.el
+++ b/lisp/mitch-packages.el
@@ -897,6 +897,34 @@ Return nil if DIR is not in a hugo project at all."
 ;;   ;; (require 'exwm-config)
 ;;   ;; (exwm-config-example))
 
+(elpaca nil
+  (use-package xwidget
+    :ensure nil
+    :commands xwidget-webkit-browse-url
+    :config
+    (defun mitch/webkit-isearch ()
+      (interactive)
+      (xwidget-webkit-search
+       (setq isearch-string
+	     (read-from-minibuffer "Find in page: "))
+       (car xwidget-list)
+       'insensitive nil t))
+    (defun mitch/webkit-isearch-next ()
+      (interactive)
+      (xwidget-webkit-search isearch-string
+			     (car xwidget-list) 'insensitive nil t))
+    (defun mitch/webkit-isearch-prev ()
+      (interactive)
+      (xwidget-webkit-search isearch-string
+			     (car xwidget-list) 'insensitive t t))
+    ;; (posframe-show ) ;; need posframe package
+    :general (general-define-key
+	      :states 'normal
+	      :keymaps 'xwidget-webkit-mode-map
+	      "/" 'mitch/webkit-isearch
+	      "n" 'mitch/webkit-isearch-next
+	      "N" 'mitch/webkit-isearch-prev)))
+
 (elpaca-use-package (ani-el
 		     :repo "https://git.mitchmarq42.xyz/mitch/ani-el"
 		     :files ("ani-el.el" "lib")))