[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/window-commander b10ff98f3d 079/170: Add a window delet
From: |
ELPA Syncer |
Subject: |
[elpa] externals/window-commander b10ff98f3d 079/170: Add a window deletion command |
Date: |
Wed, 28 Jun 2023 19:00:28 -0400 (EDT) |
branch: externals/window-commander
commit b10ff98f3d02a469d78b005d1aecb0e1315de288
Author: Daniel Semyonov <cmstr@dsemy.com>
Commit: Daniel Semyonov <cmstr@dsemy.com>
Add a window deletion command
* swsw.el (swsw-delete): New window command which deletes a window.
(swsw-command-map): Bind 'swsw-delete' to '0' by default.
---
swsw.el | 13 +++++++++++++
1 file changed, 13 insertions(+)
diff --git a/swsw.el b/swsw.el
index a60120c3d1..b900245eb5 100644
--- a/swsw.el
+++ b/swsw.el
@@ -236,9 +236,22 @@ This command is intended to be used only when ‘swsw-mode’
is enabled."
(if window (select-window window)
(message "There is no active minibuffer window"))))
+(defun swsw-delete ()
+ "Start window deletion.
+If less than three windows have been assigned an ID, delete the window
+returned by ‘next-window’.
+Otherwise, window deletion allows either choosing a window by its ID
+\(deleting it), or using a window manipulation command.
+This command is intended to be used only when ‘swsw-mode’ is enabled."
+ (interactive)
+ (if (< swsw-window-count 3)
+ (delete-window (next-window))
+ (swsw--run-window-command #'delete-window)))
+
(defvar swsw-command-map (let ((map (make-sparse-keymap)))
(define-key map [?o] #'swsw-select)
(define-key map [?m] #'swsw-select-minibuffer)
+ (define-key map [?0] #'swsw-delete)
map)
"Key map for window commands.
This key map is set as the parent of ‘swsw--id-map’ during ID
- [elpa] externals/window-commander 5937f8bc6e 043/170: ; Update .gitignore to ignore some build artifacts, (continued)
- [elpa] externals/window-commander 5937f8bc6e 043/170: ; Update .gitignore to ignore some build artifacts, ELPA Syncer, 2023/06/28
- [elpa] externals/window-commander d5ab98b9db 044/170: ; Bump version to 1.1, ELPA Syncer, 2023/06/28
- [elpa] externals/window-commander 04ace20d03 063/170: ; Fix indentation and compact structure in some places, ELPA Syncer, 2023/06/28
- [elpa] externals/window-commander eba70478e0 065/170: Update window information after 'swsw-scope' is customized, ELPA Syncer, 2023/06/28
- [elpa] externals/window-commander d195e574c0 066/170: ; Add latest changes to the news file, ELPA Syncer, 2023/06/28
- [elpa] externals/window-commander cf70d1d22c 071/170: ; Make an if statement more readable, ELPA Syncer, 2023/06/28
- [elpa] externals/window-commander b3e00165f2 073/170: ; Add latest changes to the NEWS file and indicate that 1.1.2 is WIP, ELPA Syncer, 2023/06/28
- [elpa] externals/window-commander 522bfb2da0 074/170: ; Add versioning scheme information to the NEWS file, ELPA Syncer, 2023/06/28
- [elpa] externals/window-commander 3261f323e9 077/170: ; Bump version to 1.1.2, ELPA Syncer, 2023/06/28
- [elpa] externals/window-commander ccf0d780a5 078/170: Add support for custom window commands, ELPA Syncer, 2023/06/28
- [elpa] externals/window-commander b10ff98f3d 079/170: Add a window deletion command,
ELPA Syncer <=
- [elpa] externals/window-commander 51fcc776bd 081/170: ; Reorganize swsw.el, ELPA Syncer, 2023/06/28
- [elpa] externals/window-commander 69dfbd08de 083/170: ; Bump version to 2.0, ELPA Syncer, 2023/06/28
- [elpa] externals/window-commander 8febd864f9 085/170: ; Remove old reference to 'swsw-minibuffer-id', ELPA Syncer, 2023/06/28
- [elpa] externals/window-commander 220c023a2a 088/170: ; Update copyright years, ELPA Syncer, 2023/06/28
- [elpa] externals/window-commander c884983ae2 090/170: ; Fix makefile for OpenBSD, ELPA Syncer, 2023/06/28
- [elpa] externals/window-commander 3882424448 099/170: ; Bump to version 2.0.2, ELPA Syncer, 2023/06/28
- [elpa] externals/window-commander 09bb140ee3 096/170: * swsw.el (swsw-update): Use 'dotimes' instead of 'while', ELPA Syncer, 2023/06/28
- [elpa] externals/window-commander 7db205a145 105/170: ; Change all instances of "‘" and "’" to "`" and "'" respectively, ELPA Syncer, 2023/06/28
- [elpa] externals/window-commander 384dae5d45 128/170: ; Move local mode declaration to the top of NEWS, ELPA Syncer, 2023/06/28
- [elpa] externals/window-commander a0c339fbb4 118/170: ; Small documentation change, ELPA Syncer, 2023/06/28