diff options
| -rw-r--r-- | .config/emacs/init.el | 26 |
1 files changed, 13 insertions, 13 deletions
diff --git a/.config/emacs/init.el b/.config/emacs/init.el index d0ba477..a1468c1 100644 --- a/.config/emacs/init.el +++ b/.config/emacs/init.el @@ -1387,19 +1387,19 @@ Useful if you write in langs like Greek :)." (apply #'call-process `(,(car command-parts) nil 0 nil ,@(cdr command-parts))))) (defmacro thanos/make-frame (name &rest body) - "Create temporary frame as NAME. - -Create a temporary frame to execute BODY, which will then be deleted." - `(unwind-protect - (with-selected-frame - (make-frame '((name . ,name) - (fullscreen . 0) - (undecorated . t) - (minibuffer . only) - (width . 70) - (height . 15))) - ,@body - (delete-frame)))) + "Execute BODY in a temporary frame named NAME. +Frame is automatically deleted after BODY execution." + (declare (indent 1)) + `(let ((frame (make-frame '((name . ,name) + (fullscreen . 0) + (undecorated . t) + (minibuffer . only) + (width . 70) + (height . 15))))) + (unwind-protect + (with-selected-frame frame + ,@body) + (delete-frame frame)))) (defun create-text-scratch () "Create a scratch buffer." |