[nongnu] elpa/xah-fly-keys 728a8da594: New extra keys for delete-other-windows (qwerty =) and split-window-below (qwerty /; ) (dvorak right/left square bracket)

[ELPA Syncer]

branch: elpa/xah-fly-keys
commit 728a8da5940ca4bf129b4bd608c2f14c88f6dc28
Author: Xah Lee <xah@xahlee.org>
Commit: Xah Lee <xah@xahlee.org>

    New extra keys for delete-other-windows (qwerty =) and split-window-below 
(qwerty /;) (dvorak right/left square bracket)
    Reason: the delete-other-windows is most frequently used. It has a key 3.
    The key 3 is on number row. And on concave surface keyboards (e.g. kinesis 
glove80) , it's not easy to press, and in fact got me serious Repetitive Strain 
Injury around 2016 to 2020 for pressing that key. (see Xah Lee Emacs Pinky 2020 
http://xahlee.info/emacs/emacs/emacs_pinky_2020.html)
    So now, new duplicate keys to relief the problem, which i've been using 
personally since 2020.
    On normal flat keyboards, this is less a issue, because people tend to 
press 3 by moving whole hand, not extending index finger.
    
    removed xah-forward-punct, xah-backward-punct. i think rarely used. use 
isearch instead.
---
 xah-fly-keys.el | 34 +++++++---------------------------
 1 file changed, 7 insertions(+), 27 deletions(-)

diff --git a/xah-fly-keys.el b/xah-fly-keys.el
index d2bcc57bf4..f4841fe2e6 100644
--- a/xah-fly-keys.el
+++ b/xah-fly-keys.el
@@ -4,7 +4,7 @@
 
 ;; Author: Xah Lee ( http://xahlee.info/ )
 ;; Maintainer: Xah Lee <xah@xahlee.org>
-;; Version: 24.15.20231105091131
+;; Version: 24.16.20231111103752
 ;; Created: 2013-09-10
 ;; Package-Requires: ((emacs "27"))
 ;; Keywords: convenience, vi, vim, ergoemacs, keybinding
@@ -265,25 +265,6 @@ Version: 2023-07-31")
   (mapcar (lambda (x) (substring x 1 2)) xah-brackets)
   "List of right bracket chars. Each element is a string.")
 
-(defconst xah-punctuation-regex "[\"=]+"
- "A regex string for the purpose of moving cursor to a punctuation, used by 
`xah-forward-punct'.")
-
-(defun xah-forward-punct (&optional n)
-  "Move cursor to the next occurrence of `xah-punctuation-regex'.
-
-URL `http://xahlee.info/emacs/emacs/emacs_jump_to_punctuations.html'
-Version: 2017-06-26 2023-07-25"
-  (interactive "p")
-  (re-search-forward xah-punctuation-regex nil t n))
-
-(defun xah-backward-punct (&optional n)
-  "Move cursor to the previous occurrence of punctuation.
-See `xah-forward-punct'
-URL `http://xahlee.info/emacs/emacs/emacs_jump_to_punctuations.html'
-Version: 2017-06-26"
-  (interactive "p")
-  (re-search-backward xah-punctuation-regex nil t n))
-
 (defun xah-backward-left-bracket ()
   "Move cursor to the previous occurrence of left bracket.
 The list of brackets to jump to is defined by `xah-left-brackets'.
@@ -1301,15 +1282,15 @@ Move cursor to the beginning of next text block.
 After this command is called, press `xah-repeat-key' to repeat it.
 
 URL `http://xahlee.info/emacs/emacs/elisp_reformat_to_sentence_lines.html'
-Version: 2020-12-02 2023-03-22 2023-05-25"
+Version: 2020-12-02 2023-05-25 2023-11-09"
   (interactive)
   (let (xp1 xp2)
     (let ((xbds (xah-get-bounds-of-block-or-region))) (setq xp1 (car xbds) xp2 
(cdr xbds)))
     (save-restriction
       (narrow-to-region xp1 xp2)
       (goto-char (point-min)) (while (search-forward "。" nil t) (replace-match 
"。\n"))
-      (goto-char (point-min)) (while (search-forward " <a " nil t) 
(replace-match "\n<a "))
-      (goto-char (point-min)) (while (search-forward "</a> " nil t) 
(replace-match "</a>\n"))
+      ;; (goto-char (point-min)) (while (search-forward " <a " nil t) 
(replace-match "\n<a "))
+      ;; (goto-char (point-min)) (while (search-forward "</a> " nil t) 
(replace-match "</a>\n"))
       (goto-char (point-min))
       (while (re-search-forward "\\([A-Za-z0-9]+\\)[ \t]*\n[ 
\t]*\\([A-Za-z0-9]+\\)" nil t)
         (replace-match "\\1 \\2"))
@@ -3437,12 +3418,11 @@ Version: 2022-10-31"
        (";" . xah-comment-dwim)
        ("/" . hippie-expand)
 
-       ("[" . xah-backward-punct)
-       ("]" . xah-forward-punct)
+       ("[" . split-window-below)
+       ("]" . delete-other-windows)
+       ;; \\
        ("`" . other-frame)
 
-       ;; ("$" . xah-forward-punct)
-
        ("1" . undefined)
        ("2" . undefined)
        ("3" . delete-other-windows)