单词反向转大写
Jiacai Liu tags: text
文章目录
输入大写字母的方式主要有以下两种:
- 按住
Shift
的同时,依次输入字母是一种, - 当字母比较多时,可以先按下
CapsLock
,然后键入字母
但相信对大多数人来说,大写字母的单词更难读,有相关研究做证明:
Lowercase letters have a more distinctive shape than capital letters, therefore they can be perceived more quickly than uppercase letters. Because readers are frequently exposed to a word, they no longer have to "read" the word, but instantly recognize the meaning by the familiar shape of the group of letters.
因此很多人采用下面的方式输入大写字母的方式:
- 先输入小写字母,之后选中改成大写
这样的好处是便于识别是否有拼写错误,对于 Emacs 来说就是 M-u(upcase-word)
,但是有一点麻烦的地方在于:在转化前,需要先 M-b
移动到字母开始处,然后再按 M-u
一次,如果有连字符,那么移动、转大写都需要按多次,显得有些麻烦。
(upcase-word ARG)
支持传入负数向后移动,但是遇到字母中有连字符时只会转化最后一个单词,而且光标不会移动,如果想继续转化,还是需要 M-b
,因此无法胜任,只能自己写代码解决:
(defun my/upcase-backwards ()
"Upcase word in reverse direction, back until the first space char or beginning-of-line"
(interactive)
(save-excursion
;; move to first non-space char
(skip-syntax-backward " " (line-beginning-position))
(push-mark)
(let ((beginning (or (re-search-backward "[[:space:]]" (line-beginning-position) t)
(line-beginning-position)))
(end (mark)))
(unless (= beginning end)
(upcase-region beginning end)))))
(global-set-key (kbd "M-o") 'my/upcase-backwards)
上面的函数用空格作为单词的边界,这样就能一次性处理 a-b-c
这种用连字符串起来的单词了。此外,还处理了以下几个 corner case:
- 只在同一行内操作
- 当光标所在处为空格时,向后回溯,直到找到非空格字母
示例演示
- 处理前(
|
为光标)
abc |abc abc-abc|
- 处理后
ABC |abc ABC-ABC|
收听方式
反馈
- 对节目有想法或发现内容错误?欢迎来信交流️