[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/window-commander dd9520bf53 149/170: Change some instan
From: |
ELPA Syncer |
Subject: |
[elpa] externals/window-commander dd9520bf53 149/170: Change some instances of 'if' and 'let' to use 'if-let' |
Date: |
Wed, 28 Jun 2023 19:00:34 -0400 (EDT) |
branch: externals/window-commander
commit dd9520bf53c5a45a67dbddf877da2ba217fb9b18
Author: Daniel Semyonov <daniel@dsemy.com>
Commit: Daniel Semyonov <daniel@dsemy.com>
Change some instances of 'if' and 'let' to use 'if-let'
* swsw.el (swsw--get-id-length, swsw--next-id, swsw-delete): Replace
'if' and 'let' combination with 'if-let'.
---
swsw.el | 23 ++++++++++++-----------
1 file changed, 12 insertions(+), 11 deletions(-)
diff --git a/swsw.el b/swsw.el
index 1739b79751..71ddc5bb06 100644
--- a/swsw.el
+++ b/swsw.el
@@ -167,9 +167,10 @@ If set to `lighter', use a mode line lighter."
(defun swsw--get-id-length ()
"Return the current length of a window ID."
- (let ((windows (length (window-list-1 nil nil (swsw--get-scope)))))
- (if (= windows 1) 1 ; If there is only one window, return 1.
- (ceiling (log windows (length swsw-id-chars))))))
+ (if-let ((windows (length (window-list-1 nil nil (swsw--get-scope))))
+ ((= windows 1)))
+ 1 ; If there is only one window, return 1.
+ (ceiling (log windows (length swsw-id-chars)))))
(defun swsw--next-id ()
"Get the next available ID."
@@ -315,9 +316,9 @@ This command is intended to be used only when swsw mode is
enabled."
(declare (modes swsw-mode)
(interactive-only t))
(interactive)
- (let ((window (active-minibuffer-window)))
- (if window (select-window window)
- (user-error "There is no active minibuffer window"))))
+ (if-let ((window (active-minibuffer-window)))
+ (select-window window)
+ (user-error "There is no active minibuffer window")))
(defun swsw-delete ()
"Start window deletion.
@@ -329,11 +330,11 @@ This command is intended to be used only when swsw mode
is enabled."
(declare (modes swsw-mode)
(interactive-only t))
(interactive)
- (if (< swsw-window-count 3)
- (let ((window (next-window nil nil (swsw--get-scope))))
- (unless (or (minibufferp (window-buffer window))
- (minibufferp)) ; Selected window.
- (delete-window window)))
+ (if-let (((< swsw-window-count 3))
+ (window (next-window nil nil (swsw--get-scope))))
+ (unless (or (minibufferp (window-buffer window))
+ (minibufferp)) ; Selected window.
+ (delete-window window))
(swsw-run-window-command #'delete-window)))
(defvar swsw-command-map
- [elpa] externals/window-commander db5cd237a7 125/170: ; Documentation improvements, (continued)
- [elpa] externals/window-commander db5cd237a7 125/170: ; Documentation improvements, ELPA Syncer, 2023/06/28
- [elpa] externals/window-commander 13c92db0de 138/170: ; Fix build manifest, ELPA Syncer, 2023/06/28
- [elpa] externals/window-commander dd65e7c8af 139/170: ; Update copyright years, ELPA Syncer, 2023/06/28
- [elpa] externals/window-commander 8b8c353938 143/170: ; Generate swsw-pkg.el' automatically, ELPA Syncer, 2023/06/28
- [elpa] externals/window-commander 57e9986858 141/170: ; Small documentation fixes, ELPA Syncer, 2023/06/28
- [elpa] externals/window-commander 9f3b010d65 147/170: ; Indicate ELPA installation is now possible in the README, ELPA Syncer, 2023/06/28
- [elpa] externals/window-commander 0d7bf97dbb 142/170: ; Prepare for NonGNU ELPA inclusion, ELPA Syncer, 2023/06/28
- [elpa] externals/window-commander 2b43f66c82 145/170: ; Use 'kbd' instead of vector notation for 'define-key' example, ELPA Syncer, 2023/06/28
- [elpa] externals/window-commander c864e6d524 144/170: ; Add change log for version 2.1.1, ELPA Syncer, 2023/06/28
- [elpa] externals/window-commander 57a040f4be 140/170: ; Indicate the mailing list is the "maintainer" of the package, ELPA Syncer, 2023/06/28
- [elpa] externals/window-commander dd9520bf53 149/170: Change some instances of 'if' and 'let' to use 'if-let',
ELPA Syncer <=
- [elpa] externals/window-commander 9767e52e8c 150/170: ; Replace (unnecessary) backticks with normal quotes, ELPA Syncer, 2023/06/28
- [elpa] externals/window-commander d46309a7a8 151/170: Rework display functions, ELPA Syncer, 2023/06/28
- [elpa] externals/window-commander 385c2f9602 166/170: ; Fix remaining wrong references to swsw, ELPA Syncer, 2023/06/28
- [elpa] externals/window-commander c4c77ddf34 161/170: ; Update introduction, ELPA Syncer, 2023/06/28
- [elpa] externals/window-commander 366972729f 162/170: Improve user option error checking and updating, ELPA Syncer, 2023/06/28
- [elpa] externals/window-commander b1cf47530d 155/170: ; Small change and fix to README and commentary, ELPA Syncer, 2023/06/28
- [elpa] externals/window-commander 447e7c18b9 165/170: ; Clean .gitignore, ELPA Syncer, 2023/06/28
- [elpa] externals/window-commander 76b11d7b76 154/170: ; Add a space between the name of the manual and a section name, ELPA Syncer, 2023/06/28
- [elpa] externals/window-commander f1693950a9 169/170: ; Bump version to 3.0, ELPA Syncer, 2023/06/28
- [elpa] externals/window-commander 93814ae925 158/170: ; Fix swsw-pkg.el generation on OpenBSD, ELPA Syncer, 2023/06/28