再一次，写一个最简单的.emacs

最新推荐文章于 2021-02-06 18:22:19 发布
最新推荐文章于 2021-02-06 18:22:19 发布
阅读量5.5k 收藏 1
点赞数 1
CC 4.0 BY-SA版权
分类专栏： 编辑器/emacs 个人 文章标签： lambda emacs insert file hook up
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.youkuaiyun.com/DelphiNew/article/details/6732295
本文介绍如何在Ubuntu系统上个性化配置Linux开发环境，通过一系列关键设置优化编程体验，包括快捷键定制、界面美化、模式切换、代码高亮及主题背景设置等，旨在提升开发效率。

 

新装一个特殊的linux开发机器，使用的是ubuntu。默认还是用emacs开发，这两天尝试做尽可能少的定制，最终的.emacs是我觉得非加不可的一些设置。


;;;must key
(global-set-key (kbd "M-h") (lambda () (interactive) (find-file "~/.emacs")))
(global-set-key (kbd "M-SPC") 'set-mark-command)
(global-set-key (kbd "C-x k") (lambda () (interactive) (kill-buffer (current-buffer))))
(global-set-key (kbd "C-x C-b") 'ibuffer)
(global-set-key (kbd "C-x C-3") 'server-edit)
(global-set-key (kbd "C-'") 'server-edit)
(global-set-key (kbd "C-c o") 'occur)
(global-set-key (kbd "<f7>") 'compile)
(global-set-key (kbd "M-o") 'jr-find-alt-buf-or-file)

;;;must mode
(ido-mode)
(transient-mark-mode 0)
(require 'uniquify)
(setq uniquify-buffer-name-style 'reverse)

;;;must UI
(when (fboundp 'tool-bar-mode)
  (tool-bar-mode -1))
(when (fboundp 'scroll-bar-mode)
  (scroll-bar-mode -1))
(when (fboundp 'menu-bar-mode)
  (menu-bar-mode -1))
(set-default-font "Source Code Variable 10")
(add-to-list 'default-frame-alist (cons 'font "Source Code Variable 10"))
(defun cc-font (font)
  (ignore-errors
    (dolist (charset '(kana han symbol cjk-misc bopomofo))
      (set-fontset-font (frame-parameter nil 'font)
			charset
			(font-spec :family font :size 12)))))
;; (cc-font "Source Han Sans")
;; (cc-font "PingFang SC")
;; (cc-font "STHeiTi")
;; (cc-font "Microsoft YaHei")
(cc-font "Hiragino Sans GB")

;;;;;;;;;;;;;;;;;;;;;;;;must jr code
(defun jr-flip-file-name (fn)
  (cond ((string-match ".*\\.cpp" fn)
         (replace-regexp-in-string "\\.cpp" ".h" fn))
        ((string-match ".*\\.h" fn)
         (replace-regexp-in-string "\\.h" ".cpp" fn))
        (t "")))
(defun jr-find-alt-buf-or-file ()
  "switch between .h .cpp"
  (interactive)
  (let* ((fn (buffer-name))
         (ffn (buffer-file-name))
         (fn-new (jr-flip-file-name fn))
         (ffn-new (jr-flip-file-name ffn)))
    (cond ((memq (get-buffer fn-new)
                 (buffer-list))
           (switch-to-buffer (get-buffer fn-new)))
          ((and (> (length ffn-new) 0) (file-exists-p ffn-new))
           (find-file ffn-new)))))
;;;;;;;;;;;;;;;;;;;;;;;;jr code end

;;;must hook
(defun my-c-mode-hook ()
  (c-set-style "stroustrup"))
(add-hook 'c-mode-hook 'my-c-mode-hook)
(add-hook 'c++-mode-hook 'my-c-mode-hook)
(setq jr-customize-bg-color "black")
(when window-system
  (setq jr-customize-bg-color "#314f4f"))
;(server-start)

(custom-set-variables
  ;; custom-set-variables was added by Custom.
  ;; If you edit it by hand, you could mess it up, so be careful.
  ;; Your init file should contain only one such instance.
  ;; If there is more than one, they won't work right.
 '(default-tab-width 4 t)
 '(frame-title-format (quote ("%b || Emacs ||" (:eval (current-time-string)))) t)
 '(inhibit-startup-screen t)
 '(truncate-lines t))
(custom-set-faces
  ;; custom-set-faces was added by Custom.
  ;; If you edit it by hand, you could mess it up, so be careful.
  ;; Your init file should contain only one such instance.
  ;; If there is more than one, they won't work right.
 '(default ((t (:background "#314f4f")))))


(when (not window-system)
  (custom-set-faces
 '(default ((t (:background "black"))))))

 

 

更新了使用global和.cr_root文件的版本~已经不算简了。

 

;;;must key
(global-set-key (kbd "M-h") (lambda () (interactive) (find-file "~/.emacs")))
(global-set-key (kbd "M-SPC") 'set-mark-command)
(global-set-key (kbd "M-[") 'set-mark-command)
(global-set-key (kbd "C-x k") (lambda () (interactive) (kill-buffer (current-buffer))))
(global-set-key (kbd "C-x C-b") 'ibuffer)
(global-set-key (kbd "C-x C-3") 'server-edit)
(global-set-key (kbd "C-'") 'server-edit)
(global-set-key (kbd "C-c o") 'occur)
(global-set-key (kbd "C-c g") 'jr-global-tag)
(global-set-key (kbd "C-c r") 'jr-global-root-file)
(global-set-key (kbd "<f7>") 'compile)
(global-set-key (kbd "M-o") 'jr-find-alt-buf-or-file)

;;;must mode
(ido-mode)
(transient-mark-mode 0)
(require 'uniquify)
(setq uniquify-buffer-name-style 'reverse)

;;;must UI
(when (fboundp 'tool-bar-mode)
  (tool-bar-mode -1))
(when (fboundp 'scroll-bar-mode)
  (scroll-bar-mode -1))
(when (fboundp 'menu-bar-mode)
  (menu-bar-mode -1))


;;;;;;;;;;;;;;;;;;;;;;;;must jr code
(defun jr-global-tag ()
  (interactive)
  (ignore-errors (kill-buffer "*GTAGS*"))
  (save-excursion
	(let ((buf)
		  (tag (read-string "Tag:")))
	  (setq buf (pop-to-buffer "*GTAGS*"))
	  (setq tag (replace-regexp-in-string "\\*" ".*" tag))
	  (make-local-variable 'compilation-error-regexp-alist)
	  (compilation-minor-mode)
	  (add-to-list 'compilation-error-regexp-alist
				   '("\\sw+\\s +\\([0-9]+\\)\\s +\\([^ ]+\\)" 2 1))
	  (start-process "GTAG" buf "global" "-x" "-i" tag)
	  (set-process-sentinel (get-buffer-process (current-buffer))
							(lambda (process event)
							  (when (string-match "finished" event)
								(goto-char (point-max))
								(insert
								 (format "Process: %s had finished" process))
								(goto-char (point-min))
								(font-lock-mode)))))))

(defun jr-global-root-file ()
  (interactive)
  (ignore-errors (kill-buffer "*GROOT*"))
  (save-excursion
	(let ((buf)
		  (name (read-string "Name:")))
	  (setq buf (pop-to-buffer "*GROOT*"))
	  (setq name (replace-regexp-in-string "\\*" ".*" name))
	  (make-local-variable 'compilation-error-regexp-alist)
	  (while (or (not (file-exists-p ".cr_root"))
				 (not (string-match "/\\|\\(.:/\\)" default-directory)))
		(cd ".."))
	  (when (not (file-exists-p ".cr_root"))
		(message "no .cr_root founded"))
	  (compilation-minor-mode)
	  (add-to-list 'compilation-error-regexp-alist
				   '("\\([^\n ]+\\)" 1))
	  (start-process "GROOT" buf "grep" "-i" name ".cr_root")
	  (set-process-sentinel (get-buffer-process (current-buffer))
							(lambda (process event)
							  (when (string-match "finished" event)
								(goto-char (point-max))
								(insert
								 (format "Process: %s had finished" process))
								(goto-char (point-min))
								(font-lock-mode)))))))

(defun jr-flip-file-name (fn)
  (cond ((string-match ".*\\.cpp" fn)
		 (replace-regexp-in-string "\\.cpp" ".h" fn))
		((string-match ".*\\.h" fn)
		 (if (replace-regexp-in-string "\\.h" ".cpp" fn)
			 (replace-regexp-in-string "\\.h" ".cpp" fn)
		   (replace-regexp-in-string "\\.h" ".c" fn)))
		(t "")))
(defun jr-find-alt-buf-or-file ()
  "switch between .h .cpp"
  (interactive)
  (let* ((fn (buffer-name))
		 (ffn (buffer-file-name))
		 (fn-new (jr-flip-file-name fn))
		 (ffn-new (jr-flip-file-name ffn)))
	(cond ((memq (get-buffer fn-new)
				 (buffer-list))
		   (switch-to-buffer (get-buffer fn-new)))
		  ((and (> (length ffn-new) 0) (file-exists-p ffn-new))
		   (find-file ffn-new)))))
(defun eshell/clear ()
  "04Dec2001 - sailor, to clear the eshell buffer."
  (interactive)
  (let ((inhibit-read-only t))
    (erase-buffer)))
(defalias 'e/c 'eshell/clear)
;;;;;;;;;;;;;;;;;;;;;;;;jr code end

;;;must hook
(defun my-c-mode-hook ()
  (c-set-style "stroustrup"))
(add-hook 'c-mode-hook 'my-c-mode-hook)
(add-hook 'c++-mode-hook 'my-c-mode-hook)
(setq jr-customize-bg-color "black")
(when window-system
  (setq jr-customize-bg-color "#314f4f"))
(server-start)

(custom-set-variables
  ;; custom-set-variables was added by Custom.
  ;; If you edit it by hand, you could mess it up, so be careful.
  ;; Your init file should contain only one such instance.
  ;; If there is more than one, they won't work right.
 '(default-tab-width 4 t)
 '(frame-title-format (quote ("%b || Emacs ||" (:eval (current-time-string)))) t)
 '(inhibit-startup-screen t)
 '(truncate-lines t))
(custom-set-faces
  ;; custom-set-faces was added by Custom.
  ;; If you edit it by hand, you could mess it up, so be careful.
  ;; Your init file should contain only one such instance.
  ;; If there is more than one, they won't work right.
 '(default ((t (:background "#314f4f")))))


(when (not window-system)
  (custom-set-faces
 '(default ((t (:background "black"))))))
(put 'dired-find-alternate-file 'disabled nil)

 

 

 

 

 

 

Emacs查看日志常用命令
暗日
11-22 1567
Table of Contents 1. Tramp 2. read-only-mode 3. keep-lines/flush-lines 4. Highlights 5. auto-revertTrampEmacs提供了tramp可以让你直接访问远程主机上的日志文件. 使用Tramp打开远程主机文件与打开本地主机文件一样的操作,只不过选择文件时使用一种特殊的语法格式来标示文件就行了. tramp
Emacs 键映射(keymap)
joans123的专栏
05-13 6895
Emacs 键映射(keymap)    一个键序列是由一些键值单元组成的。键值包括字符，功能键和鼠标按钮以及所有你能发送到电脑的输入。 在elisp中键序列要么是字符串，要么就是向量。 控制字符以 "\C-" 串打头，Meta字符以"\M-"打头。 另外,,,这些事件与"\t", "\r", "\e"和"\d"相对应。 键序列和函数绑定记录在keymap的结构体当中。    全局的key
用 emacs org-mode 写日志
节奏胜于思想的专栏
06-13 1178
用时间换改变 一个人要将目标达成，必然需要花费时间。因而，一个目标能不能达成，关键因素就是，是否将达成目标的过程安排了必要的时间。人的目标是将一个无转化为有，这个从无到有的过程，就是变化的过程，是时间发生效果的过程。 因而如果说人能够为达成目标做些什么的话，就是规划好时间。只要让特定的时间发生特定的 事件 ，目标就能够达成。 人的记忆是有限的，要让一个人，将所有的 事件 对应
emacs按键绑定详解
liweigao01的专栏
11-25 1687
从本期开始，我会试图整合专栏之前零零散散的内容，产出更有概览性和指导性的文章。要做到这一点，一方面需尽力保证结构清晰，文字精炼，文风统一，另一方面也会给出历史文章分类目录及超链接，方便大家查阅。以后的文章中，也将视情况给出有必要的配图。 本人的配置文件Github地址一并放在最后，暂时还没写什么注释，后面会跟进改善。 这一期先对键绑定的内容做一下总结。 概述：Emacs的键绑定方式看起来花样繁多，其本质上都是同一个机制 (define-key keymap key def) 这里的key.
用emacs的org-mode写日记
记录本
09-24 5614
首先在配置文件中加
一年成为Emacs高手 (像神一样使用编辑器)
digitalkee的博客
12-19 2077
简介 成为高手很容易. 我初学Emacs时常忘记”退出”的快捷键, 一年后我完全掌握了Emacs. 一些文章强调Emacs有多牛, 但关于”如何做”则语焉不详. 即使涉及到”如何做”, 谈细节多而方法论少. 很多人花了大量时间”学习”Emacs却最终放弃,就是过于拘泥细节,而方法论上出了问题. 例如,背很少用到的快捷键会让初学者有很大的挫折感.花太多的时间,好不容易记住的快捷键很容易忘记.一个月勉强记住50个快捷键后算很厉害了.但是Emacs可以配置快捷键的命令近7000个.如果记住所有快捷键等同于掌握Em
emacs python jupyter_Emacs：最好的Python编辑器？
weixin_42150341的博客
02-06 663
本文是realpython.com继《将Sublime Text 3打造为Python全栈开发环境及》和《Vim与Python真乃天作之合》，又一篇关于如何配置Python IDE的文章。这一次，主角变成了与Vim同样享有神器之称的Emacs编辑器。译者之前没有接触过Emacs，但是看完这篇文章之后，觉得与Vim和Sublime Text 3相比，最出彩的一个地方就是可以和IPython与Jupy...
Emacs指北(做一个搬运工好累)
Tham 在思索中前行！
07-18 1843
从一个简单的emacs入门教程说起： 一个不知道怎么描述的emacs教程 一个简单的介绍 emacs[/ˈiːmæks/]是地球上的编辑器中最像操作系统，操作系统中最像编辑器的编辑器，按照elisp intro的说法，emacs 是一个可拓展计算环境(extensible computing environment)，这一点，如果 学过elisp，可以深刻的体会到。
安装Emacs for windows
drakedog1的博客
06-28 652
作为一个计算机小白, 在今天之前我甚至都不知道Emacs是个啥东西. 今天换了个新的非系统硬盘, 想着重新安装一个Notepad++, 于是上百度搜索安装程序, 结果这一搜蹦出来个知乎的文章<为什么你不应该用Notepad++>… 进而推荐了Vim和Emacs. 装X的冲动蒙蔽了我的双眼, 完全忽略了人家文章面向的对象是开发者… 1. 下载安装 从GNU Emacs网站选择适合自己系统的版本, 压缩包zip形式. win平台版本的下载页面上主要有两类, 一类是文件名包含no-deps的, 另一类
Emacs基本操作
unforgivenhg的博客
05-20 453
Emacs基本操作引子序Emacs中的基本文字编辑Emacs中的光标移动Emacs中的删除Emacs的剪贴板以及Undo/RedoEmacs中的查找和替换Emacs中的文件操作 引子 人们都说Emacs是神器，安装看看，这个神器确实够神：没有萌萌的图标，没有帅气的界面，没有性感的代码地图（SublimeText的mini map）。刚安装好的Emacs，就是一个呆到爆、土掉渣、傻到顶的“白痴”编辑器。 “就评这也能说是神器？在如今的编辑器大战中，Emacs也就是当作一个老古董任人凭吊了吧”。 好吧，其实刚刚
[笔记]Emacs笔记：一，Windows下配置Emacs来开发Python
alfred_yr的专栏
06-16 2792
Windows下配置Emacs来开发Python去年在网上偶然的一个机会知道了Emacs的存在，在周围前辈们都在夸赞Sublime好用的时候，喜欢跟大众唱反调的我，突然觉得如果能用Emacs来编代码，也许是个很牛的技能。 但是在看了一次Tutorial后，就因为复杂的快捷键和不同于一般编辑器的操作方式放弃了这个想法。 今年开始工作以后，公司还没有给我发配项目，让我有时间学了些Python入门。在
怎样写一个解释器——王垠
ViVivan1992的博客
02-24 1877
怎样写一个解释器写一个解释器，通常是设计和实现程序语言的第一步。解释器是简单却又深奥的东西，以至于好多人都不会写，所以我决定写一篇这方面的入门读物。虽然我试图从最基本的原理讲起，尽量不依赖于其它知识，但这并不是一本编程入门教材。我假设你已经理解 Scheme 语言，以及基本的编程技巧（比如递归）。如果你完全不了解这些，那我建议你读一下SICP的第一，...
用emacs玩转图形学的光线追踪
Joyer的日志
07-18 2855
编写光线追踪渲染器是图形程序员的一个仪式，所以区区编写了一个emacs版本，顺便把一直想写的 ppm-gen功能完成。
用GCC输出带C源代码注释的汇编列表文件
Joyer的日志
09-08 8879
 我们都知道gcc的-S开关可以用来生成汇编代码，但有时候，单有汇编文件是不够的，我们希望的是将C语言程序的源代码和汇编语言文本交错在一起查看，这是LISTING功能，在gcc中并没有专门的FAQ说明，区区在网上查了很多资料才知道怎么实现，所以特此记下。 gcc -c -g -Wa,-adlhn ee.c >  ee.anno.s 由此生成的ee.anno.
关于emacs和键盘
Joyer的日志
12-07 8672
大约四年前淘汰自己的神舟学生本后，我就很讨厌使用笔记本了。因为那别扭的小键盘实在没有码字的快感。 我算是一个emacs中毒已深的用户，所以对键盘这个外设有自己的特别要求。 当使用笔记本时，除了外接键盘外，只能使用Caps代替Ctrl才能减少自己的旦腾次数。 重度使用emacs约有五年了，我一直希望像jwz一样把自己的手指用残，同时实现经济自足，开个酒吧之类的。 后来发现jwz是少数
让windows的GNU emacs默认shell启动cygwin bash
Joyer的日志
09-21 7237
区区的好友Victor告知说他打算转用cygwin版的emacs了，为了更加方便的集成他开发MTK时的bash环境。 于我这也google了一下cygwin emacs等主题。。结果在这时（http://www.khngai.com/emacs/cygwin.php）找到一些非常用的定制。。  (add-hook eshell-mode-hook   (lamb
今天和emacs的ido-mode较劲了
Joyer的日志
05-11 7089
 emacs无疑是最强大的编辑器，最近她又升级到23.2了，内置了强大的cedet。没有不升级一下的道理。 升级后主要是把.emacs中关于cedet加载的配置关掉即可。但是我日常使用的ido-mode居然出现了问题。 因为在做symbian手机应用开发，所以随大流把所有工程放到了C:/Symbian/Source目录当中，并且用emacs修改，用abld编译。fine，一
让自己也惊叹的#emacs##gdb#联动，这才是最好的emacs-gdb
Joyer的日志
03-26 6566
由于最近在做比较深入的android ndk开发，又不得不和命令行gdb打交道了——eclipse连gdb太慢了！ 我觉得在emacs中用gud来操控ndk-gdb一直不妥。所以退而改用命令行方式。 对于bt(backtrace)命令打出来的call stack，一直都是再次从terminal中copy到emacs中查看的。 这天多花了点心思，想用define命令把这个call stac
最近开始认真(I mean serious)用Go语言，并加入42区^_
Joyer的日志
12-13 6502
go和emacs是区区在42区的标签之一。
paste file1.txt file2.txt 简单讲一下
最新发布
07-31
<think>我们正在讨论如何合并两个文本文件 file1.txt 和 file2.txt 的内容。 在Linux中，合并文件内容有多种方法，常用的命令有 `cat`、`paste` 等，具体取决于合并方式（纵向追加还是横向并列）。 根据问题描述，用户没有指定合并方式，但通常有两种情况： 1. 纵向合并（追加）：将file2的内容追加到file1的末尾。 2. 横向合并（并列）：将两个文件的内容并排显示（按行对应合并）。 由于用户没有明确，我们将分别介绍两种方式，并给出具体命令。 注意：如果文件很大，需要考虑命令的效率。 步骤： 1. 明确用户需求（纵向还是横向？） 2. 提供两种方式的命令及解释。 然而，由于用户直接要求合并，且没有明确方式，我们可以先提供最常用的纵向合并（追加），再补充横向合并。 但根据问题描述，用户上一次的问题是关于文本编辑器的，而这次是文件合并，所以没有直接关联。因此，我们直接回答合并问题。 具体方法： 一、纵向合并（追加） 使用 `cat` 命令将 file2.txt 的内容追加到 file1.txt 的末尾，并将结果输出到新文件或覆盖原文件。 示例： cat file1.txt file2.txt > merged.txt # 将两个文件内容合并到新文件merged.txt cat file1.txt file2.txt >> file1.txt # 注意：这样会导致循环追加，错误！因为追加前file1.txt已经被清空 正确做法是如果要追加到file1.txt，应该使用临时文件： cat file1.txt file2.txt > temp && mv temp file1.txt # 安全做法 二、横向合并（并列） 使用 `paste` 命令将两个文件按行合并，默认用制表符分隔。 示例： paste file1.txt file2.txt > merged.txt 也可以指定分隔符，例如用逗号： paste -d ',' file1.txt file2.txt > merged.csv 三、其他方法 使用循环逐行处理（适用于需要复杂处理的情况），但效率较低。 因此，根据用户需求选择合适的方法。 由于用户没有指定方式，我们可以建议： 如果想将两个文件的内容连在一起，用第一种（cat）； 如果想将两个文件的内容并排在一起（例如每行是file1的一行和file2的一行），用第二种（paste）。 最后，生成相关问题。 注意：我们不需要使用文本编辑器（如nano, vi, emacs）来合并，因为命令行更高效。</think>### 合并 file1.txt 和 file2.txt 文件的方法 #### 方法 1：纵向追加合并（常用） 将 file2.txt 的内容追加到 file1.txt 末尾： ```bash cat file1.txt file2.txt > merged.txt ``` - **效果**： file1.txt 内容 → 换行 → file2.txt 内容 ``` [file1内容] [file2内容] ``` - **特点**： 保留原文件格式，适合合并日志、文本数据[^1] #### 方法 2：横向并列合并 按行合并两个文件（行数需一致）： ```bash paste file1.txt file2.txt > merged.txt ``` - **效果**： 默认用制表符分隔： ``` file1第1行内容[TAB]file2第1行内容 file1第2行内容[TAB]file2第2行内容 ``` - **自定义分隔符**（如逗号）： ```bash paste -d ',' file1.txt file2.txt > merged.csv ``` #### 方法 3：追加到现有文件 将 file2.txt 追加到 file1.txt 末尾（直接修改原文件）： ```bash cat file2.txt >> file1.txt ``` > ⚠️ **注意**：`>>` 是追加，`>` 会覆盖原文件[^2] --- ### 验证合并结果 ```bash # 查看合并后的行数 wc -l merged.txt # 查看前5行内容 head -n 5 merged.txt # 比较差异（确保无数据丢失） diff <(cat file1.txt file2.txt) merged.txt ``` --- ### 相关问题 1. 如何合并多个文件（如 `file*.txt`）？ 2. 合并时如何自动跳过空行？ 3. 如何合并 CSV 文件并保持表头唯一？ 4. 文件太大无法直接合并时如何处理？ > [^1]: 纵向合并适合日志文件等顺序敏感数据 > [^2]: `>` 和 `>>` 的重定向区别是文件操作的基础知识
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值