From 5a3f184f25bc4230d4d95d81e203f328839f8737 Mon Sep 17 00:00:00 2001
From: jao <jao@gnu.org>
Date: Mon, 4 Oct 2021 00:29:17 +0100
Subject: misc nits

---
 exwm.org | 37 +++++++++++++++++++++++++++----------
 1 file changed, 27 insertions(+), 10 deletions(-)

(limited to 'exwm.org')

diff --git a/exwm.org b/exwm.org
index 5c25d7b..9f6fae9 100644
--- a/exwm.org
+++ b/exwm.org
@@ -166,22 +166,29 @@
     (defvar jao-exwm--current-name nil)
 
     (defun jao-exwm--check-name (name)
-      (or (equalp jao-exwm--name name)
-          (equalp (buffer-name) name)
-          (equalp exwm-class-name name)
-          (equalp exwm-title name)))
+      (or (string= jao-exwm--name name)
+          (string= (buffer-name) name)
+          (string= exwm-class-name name)
+          (string= exwm-title name)))
+
+    (defun jao-exwm-find-class-buffer (cln)
+      (if (jao-exwm--check-name cln)
+          (current-buffer)
+        (let* ((cur-buff (current-buffer))
+               (bfs (seq-filter (lambda (b)
+                                  (and (not (eq b cur-buff))
+                                       (with-current-buffer b
+                                         (jao-exwm--check-name cln))))
+                                (buffer-list))))
+          (when (car bfs) (car (reverse bfs))))))
 
     (defun jao-exwm-switch-to-class/title (cln)
       (interactive)
       (when cln
         (if (jao-exwm--check-name cln)
             (current-buffer)
-          (let ((bfs (seq-filter `(lambda (b)
-                                    (and (not (eq b ,(current-buffer)))
-                                         (with-current-buffer b
-                                           (jao-exwm--check-name ,cln))))
-                                 (buffer-list))))
-            (when (car bfs) (pop-to-buffer (car (reverse bfs))))))))
+          (when-let ((b (jao-exwm-find-class-buffer cln)))
+            (pop-to-buffer b)))))
 
     (defun jao-exwm-switch-to-next-class ()
       (interactive)
@@ -412,6 +419,16 @@
         (pop-to-buffer b)))
 
   #+end_src
+* Firefox helpers
+  #+begin_src emacs-lisp
+    (defun jao-exwm-kill-firefox-url ()
+      (interactive)
+      (when-let (b (jao-exwm-find-class-buffer "Firefox"))
+        (let ((cb (current-buffer)))
+          (switch-to-buffer b)
+          (jao-exwm--send-str "yy")
+          (switch-to-buffer cb))))
+  #+end_src
 * Hydras
   #+begin_src emacs-lisp
     (major-mode-hydra-define+ (doc-view-mode pdf-view-mode) nil
-- 
cgit v1.2.3