Drop current configuration from the stack

Author: mehw

readme.md

@@ -45,6 +45,7 @@ panes. Use `W` to cycle in the opposite direction.
 - `3`: Split the window vertically.
 - `0`: Delete the current window.
 - `k`: Delete other windows and save the state on the stack.
+- `x`: Drop the current saved state. Switch to another one.
 - `s`: Save the state on the stack so you may restore it later.
 - `>`: Restore to a previous saved state. Use `<` to restore in the
 opposite direction.

resize-window.el

@@ -53,6 +53,7 @@
 ;;   3 : Split the window vertically.
 ;;   0 : Delete the current window.
 ;;   k : Delete other windows and save the state on the stack.
+;;   x : Drop the current saved state. Switch to another one.
 ;;   s : Save the state on the stack so you may restore it later.
 ;;   > : Restore to a previous saved state.
 ;;        <  Restore in the opposite direction.
@@ -160,6 +161,7 @@ should return the fine adjustment (default 1)."
     (?3 resize-window--split-window-right    "Split right (save state)" nil)
     (?0 resize-window--delete-window         "Delete window (save state)" nil)
     (?k resize-window--kill-other-windows    "Delete other windows (save state)" nil)
+    (?x resize-window--window-drop           "Drop state" nil)
     (?s resize-window--window-save           "Save state" nil)
     (?> resize-window--restore-head          "Restore succeding (save state)" nil)
     (?< resize-window--restore-tail          "Restore preceding (save state)" nil)
@@ -366,7 +368,10 @@ CHOICE is a \(key function documentation allows-capitals\).
 If SCALED, then call action with the `resize-window-uppercase-argument'."
   (let ((action (resize-window--choice-lambda choice))
         (description (resize-window--choice-documentation choice)))
-    (resize-window--notify "%s" description)
+    (if (resize-window--keys-equal
+         (resize-window--choice-keybinding choice) [?x])
+        (resize-window--cancel-notify)
+      (resize-window--notify "%s" description))
     (condition-case nil
         (if scaled
             (funcall action (resize-window-uppercase-argument))
@@ -870,6 +875,32 @@ Return the removed stack members."
                   (delq old-member resize-window--window-stack))))
         oldest-members))))
 
+(defun resize-window--window-drop ()
+  "Drop the current window configuration from the stack.
+
+Silently quit if the current window configuration is not saved.
+Ask the user confirmation before dropping the state then switch
+to another one in respect to `resize-window--restore-forward'."
+  (if (or resize-window--config-modified
+          (not (let ((query-replace-map (copy-keymap query-replace-map)))
+                 (define-key query-replace-map [? ] 'skip)
+                 (y-or-n-p "Drop state? "))))
+      (resize-window--notify-status)
+    (resize-window--pop-stack-member)
+    (unless resize-window--restore-forward
+      (resize-window--push-stack-member
+       (resize-window--pop-stack-member t)))
+    (let* ((curr-member (resize-window--get-stack-member))
+           (curr-config (car curr-member)))
+      (when curr-config
+        (resize-window--restore-config curr-config)
+        (setq curr-config (resize-window--window-config))
+        (resize-window--stack-member-config curr-config)
+        (resize-window--stack-member-svtime (current-time))))
+    (setq resize-window--config-modified
+          (resize-window--stack-config-modified))
+    (resize-window--notify "Drop state")))
+
 (defun resize-window--window-save ()
   "Save the current window configuration in the stack.
 Return its stack member if the configuration is saved.