pop-up graphical frame

1 files changed, 11 insertions, 0 deletions

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