mirrors
/
ambevar-dotfiles
mirror of https://gitlab.com/ambrevar/dotfiles/
1
0
Fork 0
Code Issues Releases Wiki Activity

Helm/EXWM: Fix loss of focus

master
Pierre Neidhardt 2017-11-02 10:36:46 +01:00
parent 9ad4f9e26c
commit a4fca96b09
1 changed files with 23 additions and 25 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

48
.emacs.d/lisp/package-helm-exwm.el
View File

@ -18,13 +18,7 @@
;; TODO: Write a emacs-buffers helm source to filter out EXWM buffers from buffer list.
;; Write an all-exwm buffer source.
;; TODO: s-w s-w loses focus.
;; We don't get the expected error:
;; "helm: Error: Trying to run helm within a running helm session"
;; Instead, another s-w shows
;; "Aborting an helm session running in background"
;; TODO: Helm buffer does not die?
;; REVIEW: Helm buffer does not die? Seems to be fixed.
;; TODO: kill-persistent is not persistent.
@ -98,24 +92,28 @@ If there is none, start PROGRAM.
If PROGRAM is nil, it defaults to CLASS.
With prefix argument or if OTHER-WINDOW is non-nil, open in other window."
(setq program (or program class)
other-window (or other-window current-prefix-arg))
(if (and (eq major-mode 'exwm-mode)
(string= (downcase exwm-class-name) class))
(if (fboundp 'helm-exwm-buffers)
(helm-exwm-buffers class)
(when other-window (other-window 1))
(start-process-shell-command program nil program))
(let ((last (buffer-list)))
(while (and last
(not (with-current-buffer (car last)
(and (eq major-mode 'exwm-mode)
(string= (downcase exwm-class-name) class)))))
(setq last (cdr last)))
(if last
(funcall (if other-window 'switch-to-buffer-other-window 'switch-to-buffer) (car last))
(when other-window (select-window (split-window-sensibly)))
(start-process-shell-command program nil program)))))
;; If current window is not in `exwm-mode' we switch to it. Therefore we must
;; also make sure that current window is not a Helm buffer, otherwise calling
;; this function will lose focus in Helm.
(unless helm-alive-p
(setq program (or program class)
other-window (or other-window current-prefix-arg))
(if (and (eq major-mode 'exwm-mode)
(string= (downcase exwm-class-name) class))
(if (fboundp 'helm-exwm-buffers)
(helm-exwm-buffers class)
(when other-window (other-window 1))
(start-process-shell-command program nil program))
(let ((last (buffer-list)))
(while (and last
(not (with-current-buffer (car last)
(and (eq major-mode 'exwm-mode)
(string= (downcase exwm-class-name) class)))))
(setq last (cdr last)))
(if last
(funcall (if other-window 'switch-to-buffer-other-window 'switch-to-buffer) (car last))
(when other-window (select-window (split-window-sensibly)))
(start-process-shell-command program nil program))))))
(defun helm-exwm-switch-browser ()
"Switch to some `browse-url-generic-program' windows.