ST2和Emacs:删除整字/整字+右边的空白

Question

来自文字处理背景，我已经习惯看到delete word的行为如下:删除整个单词加上单词后面的所有空白。我假设插件delete_word.py(在/Packages/Default内)为具有编程背景的人保留空白。

为了接近我习惯看到的行为，有必要将光标放在前一个单词的末尾，删除下一个单词(这样两个单词之间只剩下一个空白)。

是否有另一个键盘快捷键已经内置到Sublime来完成我最习惯的行为?

Answer 1

解决方案# 1—Sublime Text 2:

无论出于什么原因，super+d、⌘+d、find_under_expand都不能使用宏。find_under_expand似乎不是一个插件。因此，这里有一个示例选择整个单词插件，它可以与宏一起工作:

 import sublime, sublime_plugin
 class Expand(sublime_plugin.TextCommand):
     def run(self, edit):
         regions = []
         for s in self.view.sel():
             word = self.view.word(sublime.Region(s.begin(), s.end()))
             if word.end() == s.end():
             # to deal with an end of line issue
                 word = self.view.word(sublime.Region(s.end(), s.end() + 1))
             regions.append(word)
         for r in regions:
             self.view.sel().add(r)

接下来，安装由dacap编写的Shrink-Whitespaces插件:

https://github.com/dacap/sublime-shrink-whitespaces。

然后，创建这个宏。将空格缩小两(2)次处理存在制表符或制表符+空格的情况。

[
 {
      "args": null,
      "command": "expand"
 },
 {
      "args": null,
      "command": "right_delete"
 },
 {
      "args": null,
      "command": "shrink_whitespaces"
 },
 {
      "args": null,
      "command": "shrink_whitespaces"
 },
 {
      "args":
      {
           "characters": " "
      },
      "command": "insert"
 }
]

---

解决方案# 2—Sublime Text 2:

安装:https://github.com/bits/ExpandSelectionToWhitespace-SublimeText

创建一个宏并将其绑定到您最喜欢的键盘快捷键:

[
    {
        "args": null,
        "command": "expand_selection_to_whitespace"
    },
    {
        "args":
        {
            "by": "wordends",
            "extend": true,
            "forward": true
        },
        "command": "move"
    },
    {
        "args":
        {
            "by": "words",
            "extend": true,
            "forward": false
        },
        "command": "move"
    },
    {
        "args": null,
        "command": "left_delete"
    }
]

---

解决方案# 1——Emacs——定义两个函数，创建一个宏:

(fset 'lawlist-kill-word [?C-= kp-delete ?C-+])
(global-set-key (kbd "C-=") 'lawlist-mark-word)
(global-set-key (kbd "C-+") 'delete-horizontal-space-forward)
(defun lawlist-mark-word ()
  "Mark the entire symbol around or in front of point."
  (interactive)
  (let ((symbol-regexp "\s_\|\sw"))
    (when (or (looking-at symbol-regexp)
              (looking-back symbol-regexp))
      (skip-syntax-forward "_w")
      (set-mark (point))
      (while (looking-back symbol-regexp)
        (backward-char)))))
(defun delete-horizontal-space-forward () ; adapted from `delete-horizontal-space'
      "*Delete all spaces and tabs after point."
      (interactive "*")
      (delete-region (point) (progn (skip-chars-forward " t") (point))))