From c9e8be1f60165e6fdd608b0f33c497a06b3673d2 Mon Sep 17 00:00:00 2001
From: Henrik Lissner <henrik@lissner.net>
Date: Thu, 1 Feb 2018 17:42:39 -0500
Subject: [PATCH] Improve doom/toggle-fullscreen #397

---
 core/autoload/ui.el | 17 ++++++++++++-----
 1 file changed, 12 insertions(+), 5 deletions(-)

diff --git a/core/autoload/ui.el b/core/autoload/ui.el
index 0d7476e29..080ce05fd 100644
--- a/core/autoload/ui.el
+++ b/core/autoload/ui.el
@@ -2,12 +2,19 @@
 
 ;;;###autoload
 (defun doom/toggle-fullscreen ()
-  "Toggle fullscreen Emacs (non-native on MacOS)."
+  "Toggle fullscreen for the current frame using non-native fullscreen. If you
+prefer native fullscreen, use `toggle-frame-fullscreen' instead."
   (interactive)
-  (set-frame-parameter
-   nil 'fullscreen
-   (unless (frame-parameter nil 'fullscreen)
-     'fullboth)))
+  (modify-frame-parameters
+   nil
+   `((maximized
+      . ,(unless (memq (frame-parameter nil 'fullscreen) '(fullscreen fullboth))
+           (frame-parameter nil 'fullscreen)))
+     (fullscreen
+      . ,(if (memq (frame-parameter nil 'fullscreen) '(fullscreen fullboth))
+             (when (eq (frame-parameter nil 'maximized) 'maximized)
+               'maximized)
+           'fullboth)))))
 
 (defvar doom--line-number-style doom-line-numbers-style)
 ;;;###autoload