在emacs实现VIM和textmate的两个特色功能。。。
来源:互联网 发布:淘宝手机助手 登录失败 编辑:程序博客网 时间:2024/05/29 08:19
不知道你有没有碰到过这样的需要,就是在用两个窗口(在emacs或者vi中的window)编写两个文件时 ,忽然觉得应该把两个窗体的内容(buffer)互换一下,方便查看,这在gvim中,使用Ctrl-w r就可以完成。
---号称无敌的emacs没有这个内置的功能~~
还有一个功能在textmate(macOS和ruby扇子的最爱) 和eclipse的编辑器中有有,就是选定一些文本行,再按alt + up或者alt+down,被选中的文本就会在buffer中逐行穿梭。这在修改程序时相当实用。
---诶,号称无敌的emacs又没有这个内置的功能~~
不过emacs之所以号称无敌就是因为我们可以很轻松实现这两个功能——在emacs lisp中。
(defun circle-windows ()
"旋转当前frame中的所有windows"
(interactive)
(let ((owindow (selected-window))
(obuffer (current-buffer))
)
(while (not (equal owindow (next-window)))
(set-window-buffer (selected-window) (window-buffer (next-window)))
(select-window (next-window)))
(set-window-buffer (selected-window) obuffer)
(select-window owindow)))
(defun move-region-around (direction beg end)
(let (real-beg
real-end
target-beg
deactivate-mark
text)
(save-excursion
(goto-char beg)
(setq real-beg (line-beginning-position))
(when (equal direction 'up)
(setq target-beg (line-beginning-position 0)))
(goto-char end)
(setq real-end (line-beginning-position 2))
(when (equal direction 'down)
(setq target-beg (copy-marker (line-beginning-position 3)))) ;must use marker
(setq text (buffer-substring-no-properties real-beg real-end))
(delete-region real-beg real-end)
(goto-char target-beg)
(insert text)
)
(set-mark (+ target-beg (- real-end real-beg 1)))
(goto-char target-beg)
(setq transient-mark-mode 'only)))
(defun move-region-up (beg end)
(interactive "r")
(move-region-around 'up beg end))
(defun move-region-down (beg end)
(interactive "r")
(move-region-around 'down beg end))
(global-set-key (quote [M-up]) (quote move-region-up))
(global-set-key (quote [M-down]) (quote move-region-down))
(global-set-key "/C-c2" 'circle-windows)
注:alt+up/down的使用和textmate是一样的,在区区的办公室PC上,还把alt+left/right也实现了,同事说过于华丽不实用,所以就不贴;
窗体互换的热键是ctrl-c 2,这并不是一个很好的设定,不过ctrl-w是区区用惯的backward-delete-word不能改~
---号称无敌的emacs没有这个内置的功能~~
还有一个功能在textmate(macOS和ruby扇子的最爱) 和eclipse的编辑器中有有,就是选定一些文本行,再按alt + up或者alt+down,被选中的文本就会在buffer中逐行穿梭。这在修改程序时相当实用。
---诶,号称无敌的emacs又没有这个内置的功能~~
不过emacs之所以号称无敌就是因为我们可以很轻松实现这两个功能——在emacs lisp中。
(defun circle-windows ()
"旋转当前frame中的所有windows"
(interactive)
(let ((owindow (selected-window))
(obuffer (current-buffer))
)
(while (not (equal owindow (next-window)))
(set-window-buffer (selected-window) (window-buffer (next-window)))
(select-window (next-window)))
(set-window-buffer (selected-window) obuffer)
(select-window owindow)))
(defun move-region-around (direction beg end)
(let (real-beg
real-end
target-beg
deactivate-mark
text)
(save-excursion
(goto-char beg)
(setq real-beg (line-beginning-position))
(when (equal direction 'up)
(setq target-beg (line-beginning-position 0)))
(goto-char end)
(setq real-end (line-beginning-position 2))
(when (equal direction 'down)
(setq target-beg (copy-marker (line-beginning-position 3)))) ;must use marker
(setq text (buffer-substring-no-properties real-beg real-end))
(delete-region real-beg real-end)
(goto-char target-beg)
(insert text)
)
(set-mark (+ target-beg (- real-end real-beg 1)))
(goto-char target-beg)
(setq transient-mark-mode 'only)))
(defun move-region-up (beg end)
(interactive "r")
(move-region-around 'up beg end))
(defun move-region-down (beg end)
(interactive "r")
(move-region-around 'down beg end))
(global-set-key (quote [M-up]) (quote move-region-up))
(global-set-key (quote [M-down]) (quote move-region-down))
(global-set-key "/C-c2" 'circle-windows)
注:alt+up/down的使用和textmate是一样的,在区区的办公室PC上,还把alt+left/right也实现了,同事说过于华丽不实用,所以就不贴;
窗体互换的热键是ctrl-c 2,这并不是一个很好的设定,不过ctrl-w是区区用惯的backward-delete-word不能改~
- 在emacs实现VIM和textmate的两个特色功能。。。
- Vim 和 emacs的区别
- emacs和Vim的体验
- vi、emacs或者textmate?
- 界面的功能特色---菜单栏和工具栏
- 徘徊在EMACS和VIM之间(三)
- Emacs Lisp编写类似vim中跳转到上一个空行和下一个空行的功能
- emacs下实现像vim的taglist
- 电子书的功能特色
- 关于emacs和vim
- Vim 和 Emacs
- IE 浏览器中“另存为”功能的特色和应用
- 用两个栈实现队列的功能和用两个队列实现栈的功能
- TextMate-style snippets for Vim
- Emacs和Vim:神的编辑器和编辑器之神
- Emacs和Vim:神的编辑器和编辑器之神
- Emacs和Vim:神的编辑器和编辑器之神
- Emacs和Vim:神的编辑器和编辑器之神
- 任务的详细分配
- 通过 .NET Compact Framework 优化 Pocket PC 开发
- C++ Primer学习笔记-转载荣耀先生写的CL编译选项
- 操作系统学习常见疑惑问与答(不断添加中...)http://purec.hit.edu.cn/viewthread.php?tid=613&extra=page%3D1&page=1
- 操作系统学习常见疑惑问与答[接口规范部分]—问题1-4 http://blog.csdn.net/yxin1322/archive/2006/04/04/650898.aspx
- 在emacs实现VIM和textmate的两个特色功能。。。
- 使用Haskell编写的Yi-义编辑器
- 敏捷软件开发
- 用PrintWriter解决proxool servlet的中文输出问题
- 计算理论研习资料搜集一——自动机与形式语言
- 配置EditPlus为汇编的编辑工具
- AT&T汇编语言与GCC内嵌汇编简介
- 好长时间没有更新了。。。
- [转贴]init进程如何从内核态切换到用户态