[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[nongnu] elpa/xah-fly-keys 2f079562d1 1/4: Xah-reformat-lines now first
From: |
ELPA Syncer |
Subject: |
[nongnu] elpa/xah-fly-keys 2f079562d1 1/4: Xah-reformat-lines now first change to short lines. Also, default to to 66 not 70. xah-upcase-sentence now move cursor to next paragraph. |
Date: |
Mon, 16 May 2022 21:58:47 -0400 (EDT) |
branch: elpa/xah-fly-keys
commit 2f079562d1b7275f4e5dad30799a38d8d8c84d02
Author: Xah Lee <xah@xahlee.org>
Commit: Xah Lee <xah@xahlee.org>
Xah-reformat-lines now first change to short lines. Also, default to to 66
not 70. xah-upcase-sentence now move cursor to next paragraph.
---
xah-fly-keys.el | 77 +++++++++++++++++++++++++++++----------------------------
1 file changed, 39 insertions(+), 38 deletions(-)
diff --git a/xah-fly-keys.el b/xah-fly-keys.el
index d18f1c59d0..b8f12ccbeb 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: 17.7.20220429090059
+;; Version: 17.8.20220516180308
;; Created: 10 Sep 2013
;; Package-Requires: ((emacs "24.1"))
;; Keywords: convenience, emulations, vim, ergoemacs
@@ -894,38 +894,39 @@ Version: 2015-12-22"
"Upcase first letters of sentences of current block or selection.
URL `http://xahlee.info/emacs/emacs/emacs_upcase_sentence.html'
-Version: 2020-12-08 2020-12-24 2021-08-13"
+Version: 2020-12-08 2020-12-24 2021-08-13 2022-05-16"
(interactive)
(let ($p1 $p2)
(let (($bds (xah-get-bounds-of-block-or-region))) (setq $p1 (car $bds) $p2
(cdr $bds)))
- (save-excursion
- (save-restriction
- (narrow-to-region $p1 $p2)
- (let ((case-fold-search nil))
- ;; after period or question mark or exclamation
- (goto-char (point-min))
- (while (re-search-forward "\\(\\.\\|\\?\\|!\\)[ \n]+ *\\([a-z]\\)"
nil 1)
- (upcase-region (match-beginning 2) (match-end 2))
- (overlay-put (make-overlay (match-beginning 2) (match-end 2))
'face 'highlight))
- ;; after a blank line, after a bullet, or beginning of buffer
+ (save-restriction
+ (narrow-to-region $p1 $p2)
+ (let ((case-fold-search nil))
+ ;; after period or question mark or exclamation
+ (goto-char (point-min))
+ (while (re-search-forward "\\(\\.\\|\\?\\|!\\)[ \n]+ *\\([a-z]\\)" nil
1)
+ (upcase-region (match-beginning 2) (match-end 2))
+ (overlay-put (make-overlay (match-beginning 2) (match-end 2)) 'face
'highlight))
+ ;; after a blank line, after a bullet, or beginning of buffer
+ (goto-char (point-min))
+ (while (re-search-forward "\\(\\`\\|• \\|\n\n\\)\\([a-z]\\)" nil 1)
+ (upcase-region (match-beginning 2) (match-end 2))
+ (overlay-put (make-overlay (match-beginning 2) (match-end 2)) 'face
'highlight))
+ ;; for HTML. first letter after tag
+ (when
+ (or
+ (eq major-mode 'xah-html-mode)
+ (eq major-mode 'html-mode)
+ (eq major-mode 'sgml-mode)
+ (eq major-mode 'nxml-mode)
+ (eq major-mode 'xml-mode)
+ (eq major-mode 'mhtml-mode))
(goto-char (point-min))
- (while (re-search-forward "\\(\\`\\|• \\|\n\n\\)\\([a-z]\\)" nil 1)
+ (while
+ (re-search-forward "\\(<h[1-6]>[ \n]?\\|<p>[ \n]?\\|<li>[
\n]?\\|<dd>[ \n]?\\|<td>[ \n]?\\|<br ?/?>[ \n]?\\|<figcaption>[
\n]?\\)\\([a-z]\\)" nil 1)
(upcase-region (match-beginning 2) (match-end 2))
- (overlay-put (make-overlay (match-beginning 2) (match-end 2))
'face 'highlight))
- ;; for HTML. first letter after tag
- (when
- (or
- (eq major-mode 'xah-html-mode)
- (eq major-mode 'html-mode)
- (eq major-mode 'sgml-mode)
- (eq major-mode 'nxml-mode)
- (eq major-mode 'xml-mode)
- (eq major-mode 'mhtml-mode))
- (goto-char (point-min))
- (while
- (re-search-forward "\\(<h[1-6]>[ \n]?\\|<p>[ \n]?\\|<li>[
\n]?\\|<dd>[ \n]?\\|<td>[ \n]?\\|<br ?/?>[ \n]?\\|<figcaption>[
\n]?\\)\\([a-z]\\)" nil 1)
- (upcase-region (match-beginning 2) (match-end 2))
- (overlay-put (make-overlay (match-beginning 2) (match-end 2))
'face 'highlight))))))))
+ (overlay-put (make-overlay (match-beginning 2) (match-end 2))
'face 'highlight))))
+ (goto-char (point-max)))
+ (skip-chars-forward " \n\t")))
(defun xah-title-case-region-or-line (&optional Begin End)
"Title case text between nearest brackets, or current line or selection.
@@ -1194,21 +1195,21 @@ Version: 2018-12-16 2021-07-06 2021-08-12"
(replace-match "\n" )))))))
(defun xah-reformat-lines (&optional Width)
- "Reformat current block or selection into 1 long line or short lines.
-When called for the first time, change to one long line. Second call change it
to short lines. Repeated call toggles.
+ "Reformat current block or selection into short lines or 1 long line.
+When called for the first time, change to short lines. Second call change it
to one long line. Repeated call toggles.
If `universal-argument' is called first, ask user to type max length of line.
By default, it is 70.
-Note: this command is different from emacs `fill-region' and related commands.
-This command, never adds or delete chars. It only exchange whitespaces.
+Note: this command is different from emacs `fill-region' or `fill-paragraph'.
+This command never adds or delete non-whitespace chars. It only exchange
whitespace sequence.
URL `http://xahlee.info/emacs/emacs/emacs_reformat_lines.html'
Created 2016 or before.
-Version: 2021-07-05 2021-08-13 2022-03-12 2022-04-05"
+Version: 2021-07-05 2021-08-13 2022-03-12 2022-05-16"
(interactive)
- ;; This command symbol has a property 'is-long-p, the possible values are t
and nil. This property is used to easily determine whether to compact or
uncompact, when this command is called again
+ ;; This symbol has a property 'is-long-p, the possible values are t and nil.
This property is used to easily determine whether to compact or uncompact, when
this command is called again
(let ($isLong $width $p1 $p2)
- (setq $width (if Width Width (if current-prefix-arg (prefix-numeric-value
current-prefix-arg) 70)))
- (setq $isLong (if (eq last-command this-command) (get this-command
'is-long-p) nil))
+ (setq $width (if Width Width (if current-prefix-arg (prefix-numeric-value
current-prefix-arg) 66)))
+ (setq $isLong (if (eq last-command this-command) (get this-command
'is-long-p) t))
(let (($bds (xah-get-bounds-of-block-or-region))) (setq $p1 (car $bds) $p2
(cdr $bds)))
(if current-prefix-arg
(xah-reformat-to-multi-lines $p1 $p2 $width)
@@ -2205,7 +2206,7 @@ Version: 2017-11-01 2022-04-05"
$buf
))
-(defvar xah-recently-closed-buffers nil "a Alist of recently closed buffers.
Each element is (buffer name, file path). The max number to track is controlled
by the variable `xah-recently-closed-buffers-max'.")
+(defvar xah-recently-closed-buffers nil "a Alist of recently closed buffers.
Each element is (bufferName . filePath). The max number to track is controlled
by the variable `xah-recently-closed-buffers-max'.")
(defcustom xah-recently-closed-buffers-max 40 "The maximum length for
`xah-recently-closed-buffers'."
:type 'integer
@@ -2224,7 +2225,7 @@ Similar to `kill-buffer', with the following addition:
• If the buffer is a file, add the path to the list
`xah-recently-closed-buffers'.
URL `http://xahlee.info/emacs/emacs/elisp_close_buffer_open_last_closed.html'
-Version: 2018-06-11 2021-07-01 2022-03-22"
+Version: 2016-06-19 2021-07-01 2022-03-22 2022-05-13"
(interactive)
(let (($isOrgMode (string-match "^*Org Src" (buffer-name))))
(if (active-minibuffer-window) ; if the buffer is minibuffer