From b4859427fea14ef670c54d5efa33521c272052be Mon Sep 17 00:00:00 2001
From: jao <jao@gnu.org>
Date: Fri, 3 Jun 2022 21:47:34 +0100
Subject: pop-up graphical frame

---
 init.org | 11 +++++++++++
 1 file changed, 11 insertions(+)

(limited to 'init.org')

diff --git a/init.org b/init.org
index 2b78ec4..f63c579 100644
--- a/init.org
+++ b/init.org
@@ -648,6 +648,16 @@
             select-enable-primary t
             selection-timeout 100)
     #+END_SRC
+*** pop-up frames
+    #+begin_src emacs-lisp
+      (defun jao-open-in-x-frame (&optional width height)
+        (interactive)
+        (make-frame `((window-system . x)
+                      (name . "emacs popup")
+                      (width . ,(or width (window-width)))
+                      (height . ,(or height (window-height)))))
+        (define-key (current-local-map) "q" #'delete-frame))
+    #+end_src
 *** xmobar
     #+begin_src emacs-lisp
       (defun jao-xmobar-kill ()
@@ -3367,6 +3377,7 @@
     (global-set-key "\C-xr\M-w" #'kill-rectangle-save)
     (global-set-key "\C-c\C-z" #'comment-or-uncomment-region)
     (global-set-key "\C-z" #'comment-or-uncomment-region)
+    (global-set-key (kbd "C-c W") #'jao-open-in-x-frame)
   #+end_src
 * Last minute (post.el)
   #+begin_src emacs-lisp
-- 
cgit v1.2.3