diff options
| author | jao <jao@gnu.org> | 2021-10-04 00:29:17 +0100 |
|---|---|---|
| committer | jao <jao@gnu.org> | 2021-10-04 00:29:17 +0100 |
| commit | 5a3f184f25bc4230d4d95d81e203f328839f8737 (patch) | |
| tree | 1abee80d656374c50b1cdf9b9ae9e95a0ab6addc /exwm.org | |
| parent | 069d6132f3c7415a22d9f00e533ad14d55d95e15 (diff) | |
| download | elibs-5a3f184f25bc4230d4d95d81e203f328839f8737.tar.gz elibs-5a3f184f25bc4230d4d95d81e203f328839f8737.tar.bz2 | |
misc nits
Diffstat (limited to 'exwm.org')
| -rw-r--r-- | exwm.org | 37 |
1 files changed, 27 insertions, 10 deletions
@@ -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 |