xwidget-webkit isearch

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")))