注册 登录  
 加关注
   显示下一条  |  关闭
温馨提示!由于新浪微博认证机制调整,您的新浪微博帐号绑定已过期,请重新绑定!立即重新绑定新浪微博》  |  关闭

zevan的博客

悟以往之不谏,知来者之可追

 
 
 

日志

 
 
关于我

Debian GNU/Linux user Vegetarian Seventh-Day Adventist

网易考拉推荐

emacs配置文件备份  

2007-06-22 21:52:07|  分类: 默认分类 |  标签: |举报 |字号 订阅

  下载LOFTER 我的照片书  |
;;如何让emacs启动后就最大化?
(setq initial-frame-alist '((top . 30) (left . 3) (width . 97) (height . 36)))

;;设置背景颜色
(setq default-frame-alist
 '(
    (foreground-color . "green")
    (background-color . "black")
    (cursor-color     . "#DDDDDD")
   )
)

;;语法高亮
(global-font-lock-mode 1)

;;显示行号
(setq column-number-mode t)

;;关闭铃声
(setq visible-bell t)

;;关闭初始信息
(setq inhibit-startup-message t)

;;设置一个很大的kill-ring
(setq kill-ring-max 200)

;;显示图像
(auto-image-file-mode)

;;在行尾上下移动的光标,始终保持在行尾
(setq track-eol t)

;;在行首 C-k 时,同时删除该行
(setq-default kill-whole-line t)

;;show the buffer name instead of emacs@zevan.com
(setq frame-title-format "emacs@%b")

;;show the next } or )
(show-paren-mode t)
(setq show-paren-style 'parentheses)

;;防止光标与鼠标重叠
(mouse-avoidance-mode 'animate)

;;turn on some disabled fuctions
(put 'set-goal-column 'disabled nil)
(put 'narrow-to-region 'disabled nil)
(put 'upcase-region 'disabled nil)
(put 'downcase-region 'disabled nil)
(put 'LaTeX-hide-environment 'disabled nil)

;;version control
(setq version-control t)
(setq kept-new-versions 3)
(setq delete-old-versions t)
(setq kept-old-versions 2)
(setq dired-kept-versions 1)

;; 自动存盘
(setq auto-save-mode t)

;;delete directory recursively
(setq dired-recursive-copies 'top)
(setq dired-recursive-deletes 'top)

;;set up chinese environment设置中文系统
;;(set-file-name-coding-system 'chinese-gbk)
;;(set-file-name-coding-system 'cn-gb-2312)
;;(set-keyboard-coding-system 'cn-gb-2312)
;;(set-selection-coding-system 'cn-gb-2312)
;;(set-terminal-coding-system  'cn-gb-2312)
;;(set-buffer-file-coding-system 'gb2312)
;;(setq default-buffer-file-coding-system 'gb2312)
;;(setq locale-coding-system 'gb2312)
;;(set-language-environment-coding-systems "chinese-gb"  nil)

;;高亮显示选中的区域
(transient-mark-mode t)

;;窗口最大化
;;(w32-maximize-frame)

;;与剪贴板互相传递内容
;;(set-selection-coding-system 'gb2312)
;;(set-clipboard-coding-system 'ctext)

;; emacs ispell 拼写检查
(setq-default ispell-program-name "aspell")
(setq-default ispell-local-dictionary "american")
(global-set-key (kbd "") 'ispell-complete-word)

;;防止页面滚动时跳动
(setq scroll-step 1
      scroll-margin 3
      scroll-conservatively 10000)

;;显示时间   
(setq display-time-24hr-format t)
(setq display-time-day-and-date t)
(display-time)

(setq chinese-calendar-celestial-stem
["甲" "乙" "丙" "丁" "戊" "已" "庚" "辛" "壬" "癸"])
(setq chinese-calendar-terrestrial-branch
["子" "丑" "寅" "卯" "辰" "巳" "午" "未" "申" "酉" "戌" "亥"])

;; 改变 Emacs 固执的要你回答 yes 的行为。按 y 或空格键表示 yes,n 表示 no。
(fset 'yes-or-no-p 'y-or-n-p)

;;分别针对字符终端模式和X11模式设置背景色,鼠标滚轮,光标的颜色等属性。
(cond ((not window-system)
      ;;以X11方式运行Emacs的时候激活鼠标滚轮
       (xterm-mouse-mode t)
)
      ((equal window-system 'x)

;;以X11方式运行Emacs的时候激活鼠标滚轮。
(mouse-wheel-mode t)
))

;;C++编程时,自动添加时间标记
(setq time-stamp-active t)
(setq time-stamp-warn-inactive t)
(setq time-stamp-format "%:u %02m/%02d/%04y %02H:%02M:%02S")
(add-hook 'write-file-hooks 'time-stamp)

;;自动折叠代码
;;(global-set-key "\C-x\C-j" 'hs-hide-block))
(setq hs-minor-mode t)
;;(setq abbrev-mode t)
;;(load-library "hideshow")
(add-hook 'c-mode-hook 'hs-minor-mode)
(add-hook 'c++-mode-hook 'hs-minor-mode)
(global-set-key [f7] 'hs-hide-block)
(global-set-key [f8] 'hs-show-block)
(global-set-key [f11] 'hs-hide-all)
(global-set-key [f12] 'hs-show-all)
(global-set-key [f5] 'hs-hide-level)

;;自动补齐
;;(define-key c-mode-base-map [(meta ?/)] 'semantic-ia-complete-symbol-menu)
(global-set-key [(meta ?/)] 'semantic-ia-complete-symbol-menu)


;;设置日记文件
(setq diary-file "~/Personal/diary/")

;;让emacs自己计算当地的日落时间
(setq calendar-latitude +39.54)
(setq calendar-longitude +116.28)
(setq calendar-location-name "北京")

;;使用emacs-wiki
;;(load ``emacs-wiki'')

;;LaTeX设置
(load "auctex.el" nil t t)
(setq TeX-auto-save t)
(setq TeX-parse-self t)
(setq-default TeX-master nil)

;;设置一些文件的默认打开方式
(require 'dired-x)
(setq dired-guess-shell-alist-user
      (list
       (list "\\.chm$" "xchm")
       (list "\\.rm$" "mplayer")
       (list "\\.rmvb$" "mplayer")
       (list "\\.avi$" "mplayer")  
       (list "\\.mp3$" "mplayer")
       (list "\\.asf$" "mplayer")
       (list "\\.wmv$" "mplayer")
       (list "\\.pdf$" "acroread")
       (list "\\.htm$" "w3m")
       (list "\\.html$" "w3m")
       (list "\\.mpg$" "mplayer")
       (list "\\.tar.bz2$" "tar jxvf")
       (list "\\.tar.gz$" "tar zxvf")
       (list "\\.tgz$" "tar zxvf")
       (list "\\.rar$" "unrar x")
       )p
      )

;;;;;这个东西必须放在最后
;;;;;desktop.el是一个可以保存你上次emacs关闭时的状态,下一次启动时恢复为上次关闭的状态。就和vmware的suspend一样。
;;;;;因为我要使用sawfish-mode,wiki-mode,html-helper-mode,放在这里才能保证下次启动时能正确辨认文件需要的模式。
(load "desktop")
(desktop-load-default)
(desktop-read)
  评论这张
 
阅读(232)| 评论(0)
推荐 转载

历史上的今天

在LOFTER的更多文章

评论

<#--最新日志,群博日志--> <#--推荐日志--> <#--引用记录--> <#--博主推荐--> <#--随机阅读--> <#--首页推荐--> <#--历史上的今天--> <#--被推荐日志--> <#--上一篇,下一篇--> <#-- 热度 --> <#-- 网易新闻广告 --> <#--右边模块结构--> <#--评论模块结构--> <#--引用模块结构--> <#--博主发起的投票-->
 
 
 
 
 
 
 
 
 
 
 
 
 
 

页脚

网易公司版权所有 ©1997-2018