在~下建立目录emacsConfig,里面建立一些自己写的el脚本,下面是名字随便,我的

emacsConfig/ui-setting.el

 ;关闭Emacs的默认启动界面
(setq inhibit-startup-message t) ;关闭scratch消息提示
(setq initial-scratch-message nil) ;语法高亮
(global-font-lock-mode t) ;以y/n代表yes/no
(fset 'yes-or-no-p 'y-or-n-p) ;显示括号匹配
(show-paren-mode t)
(setq show-paren-style 'parentheses) ;禁止自动保存
(auto-save-mode ) ;显示日期
(setq display-time-day-and-date t) ;显示时间
(display-time) ;时间为24小时制
(setq display-time-24hr-format t) ;设置时间戳,标识出最后一次保存文件的时间。
(setq time-stamp-active t)
(setq time-stamp-warn-inactive t)
(setq time-stamp-format "%:y-%02m-%02d %3a %02H:%02M:%02S K.T") ;关闭出错时的提示声
(setq visible-bell t) ;设置标题栏显示文件的完整路径名
(setq frame-title-format
'("%s" (buffer-file-name "%f"
(dired-directory dired-directory "%b")))) ;一打开就起用 text 模式。
(setq default-major-mode 'text-mode) ;打开图片显示功能
(auto-image-file-mode t) ;显示列号
(column-number-mode t) ;显示行号
(global-linum-mode ) ;支持中键粘贴
(setq mouse-yank-at-point t) ;高亮显示要拷贝的区域
(transient-mark-mode t) ;支持emacs和外部程序的粘贴
(setq x-select-enable-clipboard t) ;不生成#F#文件
(setq auto-save-default nil) ;不要生成临时文件
(setq-default make-backup-files nil) ;防止页面滚动时跳动
(setq scroll-margin
scroll-conservatively ) ;设置颜色在单独的脚本里面,模仿sublime的风格 ;设置字体
(if (eq system-type 'darwin)
(set-default-font "Monaco-11")) (if (eq system-type 'gnu/linux)
(set-default-font "Monaco-10")) ;设置菜单栏
(if (eq system-type 'darwin)
(menu-bar-mode )) (if (eq system-type 'gnu/linux)
(menu-bar-mode )) ;去掉工具栏
(tool-bar-mode ) ;不显示滚动条
(scroll-bar-mode ) ;在状态条上显示当前光标在哪个函数体内部
(which-function-mode t) ; 用一个很大的kill ring. 这样防止我不小心删掉重要的东西
(setq kill-ring-max )
(setq max-lisp-eval-depth ) ;lisp最大执行深度
(setq max-specpdl-size ) ;最大容量
(setq undo-outer-limit ) ;撤销限制
(setq message-log-max t) ;设置message记录全部消息, 而不用截去
(setq eval-expression-print-length nil) ;设置执行表达式的长度没有限制
(setq eval-expression-print-level nil) ;设置执行表达式的深度没有限制
(setq global-mark-ring-max ) ;设置最大的全局标记容量
(setq history-delete-duplicates t) ;删除minibuffer的重复历史
05-11 15:50