Added Dave Thompson's 'delete-current-tile' command.

module/guile-wm/module/tiling.scm

@@ -593,3 +593,24 @@ them both with one tile containing the selected tile's contents"
               (else (set-frame-content! super new-tile)))
         (set-tile-container! new-tile super)
         (place-window! selected-window new-tile #t))))
+
+(define-command (delete-tile)
+  "Delete the currently selected tile and replace the containing split
+with the other tile's contents."
+  (let* ((split (tile-container selected-tile))
+         (super (container-of split))
+         (window (tile-window
+                  (if (split? split)
+                      (other-element split selected-tile)
+                      selected-tile)))
+         (tile (make-tile (height-of super) (width-of super))))
+    (for-each-tile hide-tile-window! split)
+    (cond
+     ((and (split? super) (eq? (split-element1 super) split))
+      (set-split-element1! super tile))
+     ((and (split? super) (eq? (split-element2 super) split))
+      (set-split-element2! super tile))
+     (else
+      (set-frame-content! super tile)))
+    (set-tile-container! tile super)
+    (place-window! window tile #t)))