Question

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

为了近似我习惯看到的行为，有必要将光标放在前一个单词的末尾，以删除后面的单词（这样在完成后两个单词之间只剩下一个空格）。

是否已经内置了Sublime的另一个键盘快捷键，可以完成我最习惯的行为？

Answer 1

解决方案＃1 - Sublime Text 2：

无论出于何种原因，super+d又名⌘+d又名find_under_expand 不使用宏。 find_under_expand似乎不是插件。所以，这是一个示例select-whole-word插件，可以使用宏：

 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))))

ST2和Emacs：删除右边的整个/整个Word +空格

1 个答案: