在emacs中向上或向下移动选定区域或线路(如果没有选择)的最简单方法是什么？我正在寻找与eclipse相同的功能(限制为M-up,M-down).
san*_*inc 49
更新:move-text从Marmalade或MELPA安装包以获取以下代码.
这是我使用的,适用于区域和单独的线路:
(defun move-text-internal (arg)
(cond
((and mark-active transient-mark-mode)
(if (> (point) (mark))
(exchange-point-and-mark))
(let ((column (current-column))
(text (delete-and-extract-region (point) (mark))))
(forward-line arg)
(move-to-column column t)
(set-mark (point))
(insert text)
(exchange-point-and-mark)
(setq deactivate-mark nil)))
(t
(let ((column (current-column)))
(beginning-of-line)
(when (or (> arg 0) (not (bobp)))
(forward-line)
(when (or (< arg 0) (not (eobp)))
(transpose-lines arg)
(when (and (eval-when-compile
'(and (>= emacs-major-version 24)
(>= emacs-minor-version 3)))
(< arg 0))
(forward-line -1)))
(forward-line -1))
(move-to-column column t)))))
(defun move-text-down (arg)
"Move region (transient-mark-mode active) or current line
arg lines down."
(interactive "*p")
(move-text-internal arg))
(defun move-text-up (arg)
"Move region (transient-mark-mode active) or current line
arg lines up."
(interactive "*p")
(move-text-internal (- arg)))
(global-set-key [M-S-up] 'move-text-up)
(global-set-key [M-S-down] 'move-text-down)
Mar*_*man 42
可以使用绑定到的转置线移动一条线C-x C-t.关于地区的Dunno虽然.
我发现这个 elisp片段可以做你想要的,除了你需要改变绑定.
(defun move-text-internal (arg)
(cond
((and mark-active transient-mark-mode)
(if (> (point) (mark))
(exchange-point-and-mark))
(let ((column (current-column))
(text (delete-and-extract-region (point) (mark))))
(forward-line arg)
(move-to-column column t)
(set-mark (point))
(insert text)
(exchange-point-and-mark)
(setq deactivate-mark nil)))
(t
(beginning-of-line)
(when (or (> arg 0) (not (bobp)))
(forward-line)
(when (or (< arg 0) (not (eobp)))
(transpose-lines arg))
(forward-line -1)))))
(defun move-text-down (arg)
"Move region (transient-mark-mode active) or current line
arg lines down."
(interactive "*p")
(move-text-internal arg))
(defun move-text-up (arg)
"Move region (transient-mark-mode active) or current line
arg lines up."
(interactive "*p")
(move-text-internal (- arg)))
(global-set-key [\M-\S-up] 'move-text-up)
(global-set-key [\M-\S-down] 'move-text-down)
Ale*_*-A. 30
你应该试试drag-stuff!
它的工作原理与eclipse Alt+ Up/ Down单行,以及选定的区域行完全相同!
除此之外,它允许你用Alt+ Left/ 移动单词.Right
这正是你正在寻找的!它甚至可以从ELPA回购中获得!
其他解决方案从未对我有用.它们中的一些是有缺陷的(在改变它们的顺序时转换线,wtf？)并且其中一些正在移动精确选择的区域,在它们的位置留下未选择的线部分.但drag-stuff就像在日食中一样!
还有更多!您可以尝试选择一个区域并使用Alt+ Left/ Right!这会将所选区域向左或向右移调一个字符.惊人!
要全局启用它,只需运行以下命令:
(drag-stuff-global-mode)
我已经写了几个用于上下移动线的交互式功能:
;; move line up
(defun move-line-up ()
(interactive)
(transpose-lines 1)
(previous-line 2))
(global-set-key [(control shift up)] 'move-line-up)
;; move line down
(defun move-line-down ()
(interactive)
(next-line 1)
(transpose-lines 1)
(previous-line 1))
(global-set-key [(control shift down)] 'move-line-down)
键绑定是IntelliJ IDEA风格,但您可以使用任何您想要的.我应该实现一些在区域上运行的函数.
小智 6
这是我的代码片段，用于移动当前行或活动区域跨越的行。它尊重光标位置和突出显示的区域。当该区域不在线边界处开始/结束时，它不会断线。（它的灵感来自日食；我发现日食方式比“转置线”更方便。）
;; move the line(s) spanned by the active region up/down (line transposing)
;; {{{
(defun move-lines (n)
(let ((beg) (end) (keep))
(if mark-active
(save-excursion
(setq keep t)
(setq beg (region-beginning)
end (region-end))
(goto-char beg)
(setq beg (line-beginning-position))
(goto-char end)
(setq end (line-beginning-position 2)))
(setq beg (line-beginning-position)
end (line-beginning-position 2)))
(let ((offset (if (and (mark t)
(and (>= (mark t) beg)
(< (mark t) end)))
(- (point) (mark t))))
(rewind (- end (point))))
(goto-char (if (< n 0) beg end))
(forward-line n)
(insert (delete-and-extract-region beg end))
(backward-char rewind)
(if offset (set-mark (- (point) offset))))
(if keep
(setq mark-active t
deactivate-mark nil))))
(defun move-lines-up (n)
"move the line(s) spanned by the active region up by N lines."
(interactive "*p")
(move-lines (- (or n 1))))
(defun move-lines-down (n)
"move the line(s) spanned by the active region down by N lines."
(interactive "*p")
(move-lines (or n 1)))