[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/window-commander 444873d9bd 114/170: Fix names of some
From: |
ELPA Syncer |
Subject: |
[elpa] externals/window-commander 444873d9bd 114/170: Fix names of some internal and some external functions |
Date: |
Wed, 28 Jun 2023 19:00:31 -0400 (EDT) |
branch: externals/window-commander
commit 444873d9bd4bd8dad08f5f18cbd91edeba286e3a
Author: Daniel Semyonov <daniel@dsemy.com>
Commit: Daniel Semyonov <daniel@dsemy.com>
Fix names of some internal and some external functions
* swsw.el (swsw-id-chars, swsw-scope, swsw--update, swsw-mode): Rename
'swsw-update' to 'swsw--update'.
(swsw--update-window, swsw--update): Rename 'swsw-update-window' to
'swsw--update-window'.
(swsw-run-window-command, swsw-select, swsw-delete):
* swsw.texi (Window Commands): Rename 'swsw--run-window-command' to
'swsw-run-window-command'.
---
swsw.el | 38 +++++++++++++++++++-------------------
swsw.texi | 2 +-
2 files changed, 20 insertions(+), 20 deletions(-)
diff --git a/swsw.el b/swsw.el
index 60e056bf5f..c223610a75 100644
--- a/swsw.el
+++ b/swsw.el
@@ -88,8 +88,8 @@ This list should contain at least two characters."
(user-error
"`swsw-id-chars' should contain at least two characters"))
(set-default sym chars)
- (when (fboundp 'swsw-update)
- (swsw-update)))
+ (when (fboundp 'swsw--update)
+ (swsw--update)))
:risky t
:package-version '(swsw . 1.0))
@@ -110,8 +110,8 @@ t means consider all windows on all existing frames.
current))
:set (lambda (sym scope)
(set-default sym scope)
- (when (fboundp 'swsw-update)
- (swsw-update)))
+ (when (fboundp 'swsw--update)
+ (swsw--update)))
:risky t
:package-version '(swsw . 1.1))
@@ -182,7 +182,7 @@ If set to `lighter', use a mode line lighter."
swsw--id-counter))
id))
-(defun swsw-update-window (window)
+(defun swsw--update-window (window)
"Update information for WINDOW."
(let ((id (if (window-minibuffer-p window)
(progn
@@ -203,7 +203,7 @@ If set to `lighter', use a mode line lighter."
(set-window-parameter window 'swsw-id id)
(setq swsw-window-count (1+ swsw-window-count)))))
-(defun swsw-update (&optional _frame)
+(defun swsw--update (&optional _frame)
"Update information for all windows."
(setq swsw--id-map (make-sparse-keymap))
(set-keymap-parent swsw--id-map swsw-command-map)
@@ -212,7 +212,7 @@ If set to `lighter', use a mode line lighter."
;; Clear and resize `swsw--id-counter' according to the ID length.
(dotimes (_var (swsw--get-id-length))
(push 0 swsw--id-counter))
- (walk-windows #'swsw-update-window nil (swsw--get-scope)))
+ (walk-windows #'swsw--update-window nil (swsw--get-scope)))
;;;; Display functions:
@@ -265,7 +265,7 @@ This display function respects `swsw-id-format'."
;;;; Window commands:
-(defun swsw--run-window-command (fun)
+(defun swsw-run-window-command (fun)
"Run FUN as a window command.
Run `swsw-before-command-hook', set `this-command' to FUN and set a
transient map for ID selection which runs `swsw-after-command-hook' on
@@ -287,7 +287,7 @@ is enabled."
(interactive)
(if (< swsw-window-count 3)
(select-window (next-window))
- (swsw--run-window-command #'select-window)))
+ (swsw-run-window-command #'select-window)))
(defun swsw-select-minibuffer ()
"Select the active minibuffer window (if it exists).
@@ -312,7 +312,7 @@ is enabled."
(unless (or (minibufferp (window-buffer window))
(minibufferp)) ; Selected window.
(delete-window window)))
- (swsw--run-window-command #'delete-window)))
+ (swsw-run-window-command #'delete-window)))
(defvar swsw-command-map (let ((map (make-sparse-keymap)))
(define-key map [?o] #'swsw-select)
@@ -340,19 +340,19 @@ selection:
:keymap '(keymap (?\C-x . (keymap (?o . swsw-select))))
(if swsw-mode
(progn
- (swsw-update)
+ (swsw--update)
(unless (eq swsw-display-function 'lighter)
(funcall swsw-display-function t))
- (add-hook 'window-configuration-change-hook #'swsw-update)
- (add-hook 'minibuffer-setup-hook #'swsw-update)
- (add-hook 'minibuffer-exit-hook #'swsw-update)
- (add-hook 'after-delete-frame-functions #'swsw-update))
+ (add-hook 'window-configuration-change-hook #'swsw--update)
+ (add-hook 'minibuffer-setup-hook #'swsw--update)
+ (add-hook 'minibuffer-exit-hook #'swsw--update)
+ (add-hook 'after-delete-frame-functions #'swsw--update))
(unless (eq swsw-display-function 'lighter)
(funcall swsw-display-function nil))
- (remove-hook 'window-configuration-change-hook #'swsw-update)
- (remove-hook 'minibuffer-setup-hook #'swsw-update)
- (remove-hook 'minibuffer-exit-hook #'swsw-update)
- (remove-hook 'after-delete-frame-functions #'swsw-update)))
+ (remove-hook 'window-configuration-change-hook #'swsw--update)
+ (remove-hook 'minibuffer-setup-hook #'swsw--update)
+ (remove-hook 'minibuffer-exit-hook #'swsw--update)
+ (remove-hook 'after-delete-frame-functions #'swsw--update)))
(provide 'swsw)
diff --git a/swsw.texi b/swsw.texi
index dad3d0d331..3dbe1ed2e9 100644
--- a/swsw.texi
+++ b/swsw.texi
@@ -262,7 +262,7 @@ Amount of windows currently tracked. This variable can be
used to
conditionally run window commands.
@end defvar
-@defun swsw--run-window-command fun
+@defun swsw-run-window-command fun
Run FUN as a window command. Run @code{swsw-before-command-hook}, set
@code{this-command} to FUN, and set @code{swsw--id-map} as a transient
map which runs @code{swsw-after-command-hook} on exit. This function
- [elpa] externals/window-commander dc4595546a 094/170: ; Change a message to a (more fitting in this context) user-error, (continued)
- [elpa] externals/window-commander dc4595546a 094/170: ; Change a message to a (more fitting in this context) user-error, ELPA Syncer, 2023/06/28
- [elpa] externals/window-commander 1411a6314c 116/170: * swsw.el (swsw--update-window): Use 'when-let' instead of 'let' and 'when', ELPA Syncer, 2023/06/28
- [elpa] externals/window-commander 4b308b978a 113/170: ; Move a comment slightly, ELPA Syncer, 2023/06/28
- [elpa] externals/window-commander e774ead908 104/170: ; Update mail address, ELPA Syncer, 2023/06/28
- [elpa] externals/window-commander af99790728 123/170: ; Various cosmetic changes to NEWS, ELPA Syncer, 2023/06/28
- [elpa] externals/window-commander c620c3028c 160/170: ; swsw.text: Fix typos and update information, ELPA Syncer, 2023/06/28
- [elpa] externals/window-commander f41a366777 159/170: ; Bump version to 2.3, ELPA Syncer, 2023/06/28
- [elpa] externals/window-commander 95c25ee03c 022/170: ; Bump version to 1.0 and update README, ELPA Syncer, 2023/06/28
- [elpa] externals/window-commander 51b8c1eb7c 080/170: ; Update documentation according to latest changes, ELPA Syncer, 2023/06/28
- [elpa] externals/window-commander c378be9bae 130/170: ; Load 'subr-x' when compiling, ELPA Syncer, 2023/06/28
- [elpa] externals/window-commander 444873d9bd 114/170: Fix names of some internal and some external functions,
ELPA Syncer <=
- [elpa] externals/window-commander 8a9686e0fe 111/170: ; Change required Emacs version according to package-lint, ELPA Syncer, 2023/06/28
- [elpa] externals/window-commander 85d9c690b1 102/170: ; Add key binding to swsw-mode's docstring, ELPA Syncer, 2023/06/28
- [elpa] externals/window-commander b5ebc9e08a 106/170: Use lambdas for ':set' functions, ELPA Syncer, 2023/06/28
- [elpa] externals/window-commander b2dcc60dab 136/170: ; Explain 'swsw--id-counter' more thoroughly, ELPA Syncer, 2023/06/28
- [elpa] externals/window-commander bbe31e347c 146/170: ; Bump version to 2.1.1, ELPA Syncer, 2023/06/28
- [elpa] externals/window-commander 0d361df85e 148/170: ; Use 'kbd' notation in the README, ELPA Syncer, 2023/06/28
- [elpa] externals/window-commander c5f85632d9 156/170: Rework display functions, ELPA Syncer, 2023/06/28
- [elpa] externals/window-commander ae9876b2c6 163/170: Rename to Window Commander and simplify project, ELPA Syncer, 2023/06/28
- [elpa] externals/window-commander 43d93402a8 167/170: ; Small fix, ELPA Syncer, 2023/06/28
- [elpa] externals/window-commander ff30079d41 075/170: ; Remove trailing period in a tag string of 'swsw-scope', ELPA Syncer, 2023/06/28