diff options
| author | Raul Benencia <raul@thousandeyes.com> | 2026-08-07 11:03:09 -0700 |
|---|---|---|
| committer | Raul Benencia <raul@thousandeyes.com> | 2026-08-07 11:03:09 -0700 |
| commit | 7d7c80b8cf8d8d222c0187afb38f5e7719c4e31a (patch) | |
| tree | 1528769e83b59080fd87d63fdbc898311d64ce18 | |
| parent | efc06234ff4ccdd571de77f92aa9f3227d1f13d6 (diff) | |
| -rw-r--r-- | .emacs.d/rul-lisp/packages/rul-wm.el | 10 |
1 files changed, 7 insertions, 3 deletions
diff --git a/.emacs.d/rul-lisp/packages/rul-wm.el b/.emacs.d/rul-lisp/packages/rul-wm.el index f33ad8f..ba2aca8 100644 --- a/.emacs.d/rul-lisp/packages/rul-wm.el +++ b/.emacs.d/rul-lisp/packages/rul-wm.el @@ -43,13 +43,17 @@ Use this function via a hook." (defmacro rul-window-define-with-popup-frame (command) "Define interactive function which calls COMMAND in a new frame. -Make the new frame have the `rul-window-popup-frame' parameter." +Name the frame after COMMAND and give it the `rul-window-popup-frame' parameter." `(defun ,(intern (format "rul-window-popup-%s" command)) () ,(format "Run `%s' in a popup frame with `rul-window-popup-frame' parameter. Also see `rul-window-delete-popup-frame'." command) (interactive) - (let ((frame (make-frame '((rul-window-popup-frame . t))))) - (select-frame frame) + (let* ((frame-name ,(symbol-name command)) + (frame (make-frame `((name . ,frame-name) + (title . ,frame-name) + (rul-window-popup-frame . t))))) + ;; Ask the wm for keyboard focus as well + (select-frame-set-input-focus frame) ;; Placeholder for frame, otherwise it'll get autoclosed. (switch-to-buffer " rul-window-hidden-buffer-for-popup-frame") (condition-case nil |