IT博客-游世集-随笔分类-Emacs

xlmo 2005-09-04 19:30 发表评论

]]>我的dotEmacs文件（2005－9－03）http://www.cnitblog.com/xlmo/archive/2005/09/03/2478.htmlxlmoxlmoSat, 03 Sep 2005 05:38:00 GMThttp://www.cnitblog.com/xlmo/archive/2005/09/03/2478.htmlhttp://www.cnitblog.com/xlmo/comments/2478.htmlhttp://www.cnitblog.com/xlmo/archive/2005/09/03/2478.html#Feedback0http://www.cnitblog.com/xlmo/comments/commentRss/2478.htmlhttp://www.cnitblog.com/xlmo/services/trackbacks/2478.html ;;;load-path;;;;设置默认的load目录，以后emacs首先从这个目录搜索。
(setq load-path (append load-path (list "/home/xlmo/myelfiles/")))
;(setq load-path (cons "/home/xlmo/myelfiles/" load-path)
;;;;;;;;;;;;;;;;;;;

;;;;default mode;;;;;;;;
(setq default-major-mode 'text-mode)
(add-hook 'text-mode-hook 'turn-on-auto-fill)
;;;;;;;;;;;;;;;;;;;;;

;;tabbar-mode;;;
;; (require 'tabbar)
;; (tabbar-mode)
;;;;;;;;;;;;;;;;

;;;;;ido-mode;;;;;;;;;;由于每次退出的时候都要求选择编码，所以在找到解决办法之前暂时不用。
;; (require 'ido)
;; (ido-mode t)
;;;;;;;;;;;;;;;

;;;ibuffer;;;;;;;;;;
(require 'ibuffer)
;;;;;;;;;;;;;;;

;;;setnu;;;;;;;;显示行号。
(require 'setnu)
;(add-hook 'text-mode-hook 'turn-on-setnu-mode)
;;;;;;;;;;;;;;;

;;;;;thumbs;;;;;;;;;;
;; (require 'thumbs)
;; (thumbs-mode)
;;;;;;;;;;;;;;;

;;;;;table;;;;
(require 'table)
;;;;;;;;;;;;;;

;;;;;display-time;;;;
(setq display-time-24hr-format t)
(setq display-time-day-and-date t)
(display-time)
;;;;;;;;;;;;;;;;;;;

;;; uncomment this line to disable loading of "default.el" at startup
;; (setq inhibit-default-init t)

;; turn on font-lock mode
(when (fboundp 'global-font-lock-mode)
(global-font-lock-mode t))
;;;;;;;;;;;;;;;;;

;; enable visual feedback on selections
;(setq transient-mark-mode t)

;; default to better frame titles
;(setq frame-title-format
;      (concat "%b - emacs@" system-name))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;; default to unified diffs
(setq diff-switches "-u")

(custom-set-variables
;; custom-set-variables was added by Custom -- don't edit or cut/paste it!
;; Your init file should contain only one such instance.
'(auto-compression-mode t nil (jka-compr))
'(case-fold-search t)
'(current-language-environment "Chinese-GB")
'(default-input-method "chinese-py-punct")
'(global-font-lock-mode t nil (font-lock))
'(show-paren-mode t nil (paren))
'(transient-mark-mode t))

(custom-set-faces
;; custom-set-faces was added by Custom -- don't edit or cut/paste it!
;; Your init file should contain only one such instance.
)

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;;page jump 页面跳转。
(setq scroll-margin 3
      scroll-conservatively 10000)
;;;;;;;;;;;;;;;

;;mouse leave from cursor 当光标移动到鼠标指针所在位置时，鼠标指针自动移开。
(mouse-avoidance-mode 'animate)
;;;;;;;;;;;;;

;;buffer name in title 设置buffer的name显示在标题栏。
(setq frame-title-format "emacs@%b")
;;;;;;;;;;;;;;;;;;;;;;

;;display pictours direct
(auto-image-file-mode)
;;;;;;;;;;;;;;;;;

;;My information;;;;;;;;;;;;
(setq user-full-name "Mo Xiaolong")
(setq user-mail-address "moxiaolong@gmail.com")
;;;;;;;;;;;;;;;;;;;;;;;

;;recursion copy in dired-mode ,make dired can copy and delete directory在dired模式中时允许递归的拷贝和删除目录。
(setq dired-recursive-copies 'top)
(setq dired-recursive-deletes 'top)
;;;;;;;;;;;;;;;;;;;;;;;;

;;;disable the welcome screen;;;;;;;关闭“开机”画面。
;(setq inhibit-startup-message t)
;;;;;;;;;;;;;;;;;;;

;;;;;;;pop mail;;;;;;;;;
(setenv "pop.gmail.com")
(setq rmail-primary-inbox-list'("po:moxiaolong@gmail.com"))
(setq rmail-pop-password-required t)
;;;;;;;;;;;;;;;;;;;

;;;;;;;un-display the tool bar and menu bar;;;;;;;;对菜单条，工具栏，滚动条的可见设置。
;(menu-bar-mode nil)
(tool-bar-mode nil)
;(scroll-bar-mode nil)
;;;;;;;;;;;;;;;;;;;;;;;;;;;

;;;;;;;;;ecb+cedet;;;;;;;;;;;
;;(load-file "/home/xlmo/myelfiles/cedet-1.0pre3/common/cedet.el")
;; (semantic-load-enable-code-helpers)
;; (add-to-list 'load-path
;;          "/home/xlmo/myelfiles/ecb-2.32")
;; (require 'ecb-autoloads)
;;;;;;;;;;;;;;;;;;;;;;

;;;;;;;;;;;;;color-theme;;;;;;;;;;;;;;
(require 'color-theme)
;(color-theme-classic)
(color-theme-gnome2)
;;;;;;;;;;;;;;;;;;;;;

;;;;;;;;;;;mmm-mode;;;;;;;;;;;;;;;;;;
;(require 'mmm-auto)
;;;;;;;;;;;;;;;;;;;;;;

;;;;;;;;;;backup files;;;;;;;;;;;;;;;;

;; (setq kept-old-versions 2)
;; (setq kept-new-versions 5)
;; (setq delete-old-versions t)
;; (setq backup-directory-alist '(("." . "~/mybackupfiles")))
;; (setq backup-by-copying t)
(setq make-backup-files t)
(setq version-control t)
(setq kept-old-versions 2)
(setq kept-new-versions 5)
(setq delete-old-versions t)
(setq backup-directory-alist '(("" . "~/mybackupfiles")))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;;;;Setting for Chineses;;;;;;;;;;;;;;;;
(set-language-environment 'Chinese-GB)
;(create-fontset-from-fontset-spec
; "-isas-fangsong ti-medium-r-normal-*-*-160-*-*-c-*-gb2312.1980-0" t)
(set-keyboard-coding-system 'chinese-iso-8bit)
(set-clipboard-coding-system 'chinese-iso-8bit)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;;;;;;;;;emacs-wiki;;;;;;;;;;;;;;;
(require 'emacs-wiki)
(setq emacs-wiki-directories '("~/wiki/source/webpage"))
(setq emacs-wiki-publishing-directory "~/wiki/publish/webpage")
(setq emacs-wiki-maintainer "mailto:moxiaolong@gmail.com")
(setq emacs-wiki-charset-default "GBK")
(setq emacs-wiki-coding-default "GBK")
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;;;;;;;;;;mpg123;;;;;;;;;;;;;;;;;
;(autoload 'mpg123 "mpg123" "A Front-end to mpg123" t)
;(setq mpg123-default-dir "~/music")
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;;;;;;;;;;Emacs-w3m;;;;;;;;;;;;;;
;(require 'w3m-load)
;;;;;;;;;;;;;;;;;;;;;;;

;;;;;;;;;mpg321;;;;;
(setq mp3play-dirlist '("~/music")
      ;; I want to see the remaining time
      mp3play-show-timing 1
      ;; This because I use a patched mpg321 to control the gain
      mp3play-use-remote-gain t
      ;; Initially, set the gain to 50%
      mp3play-initial-gain 50
      ;; Where to store the info about the song playing to resume later
      mp3play-resume-file "~/.mp3play-resume")
(load "mp3play")
;; M-\ go to the mp3play buffer
(define-key global-map [(meta \\)] 'mp3play)

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

xlmo 2005-09-03 13:38 发表评论

]]>Emacs Tips(2005-7-16)http://www.cnitblog.com/xlmo/archive/2005/07/08/816.htmlxlmoxlmoFri, 08 Jul 2005 03:33:00 GMThttp://www.cnitblog.com/xlmo/archive/2005/07/08/816.htmlhttp://www.cnitblog.com/xlmo/comments/816.htmlhttp://www.cnitblog.com/xlmo/archive/2005/07/08/816.html#Feedback0http://www.cnitblog.com/xlmo/comments/commentRss/816.htmlhttp://www.cnitblog.com/xlmo/services/trackbacks/816.html如何设置emacs的初始目录？
(setq default-directory "/workspace/")

emacs中如何改变一个emacs的变量
(setq comment-multi-line nil)

怎么让emacs可以和别的程序互相复制粘贴文本？
看mule-gbk的安装说明，是这么一句：
(mule-gbk-selection-setup)

emacs 怎样设置行号?
M-x setnu-mode

想要知道您可以使用哪些输入法
您可以键入 C-x RET C-\ SPC ，接著 Emacs 会出现一个所有多国语文的输入法列表窗格。然后您就可以在其中键入您所使用的输入法名称了。设定预设的输入法，将下面这一行加入到 ~/.emacs 档案中：
(custom-set-variables '(default-input-method "chinese-array30"))
这样子在启动 Emacs 后，您就可以直接以 C-\ 指令在英文输入和行列输入法之间切换了。

在装了w3m的情况下怎么在Emacs中运行？

将下列代码加入 ~/.emacs 中, 就应该可以了.

;; w3m
(require 'w3m)
(setq w3m-use-mule-ucs t)
(setq w3m-use-toolbar t)
(setq w3m-use-cookies t)
(setq w3m-display-inline-image t)
(setq w3m-bookmark-file-coding-system 'chinese-iso-8bit)
(setq w3m-coding-system 'chinese-iso-8bit)
(setq w3m-default-coding-system 'chinese-iso-8bit)
(setq w3m-file-coding-system 'chinese-iso-8bit)
(setq w3m-file-name-coding-system 'chinese-iso-8bit)
(setq w3m-terminal-coding-system 'chinese-iso-8bit)
(setq w3m-input-coding-system 'chinese-iso-8bit)
(setq w3m-output-coding-system 'chinese-iso-8bit)
(setq w3m-tab-width 8)
;(setq w3m-home-page "Your homepage")
(setq w3m-view-this-url-new-session-in-background t)
;(require 'mime-w3m)
(add-hook 'w3m-fontify-after-hook 'remove-w3m-output-garbages)
(defun remove-w3m-output-garbages ()
(interactive)
(let ((buffer-read-only))
(setf (point) (point-min))
(while (re-search-forward "[\200-\240]" nil t)
(replace-match " "))
(set-buffer-multibyte t))
(set-buffer-modified-p nil))

将Emacs的备份文件放置到一个特定目录

(setq backup-directory-alist (quote (("." . "~/.backups"))))

不产生备份文件

(setq make-backup-files nil)

一般我的emacs启动后都是去/usr/share/emacs/site-lisp下面找扩展程序
请问这个目录是否可以指定？

在.emacs最前头加一条

(setq load-path (cons "/home/bleem1998/.emacs-site-lisp/" load-path))

然后把所有的扩展包都丢去
"/home/bleem1998/.emacs-site-lisp/"
就可以了

如何设置Emacs的背景颜色？
M-x set-background-color
可以写到 .emacs里打开emacs就设置：

(set-face-background 'default "azure")

Emacs 查看C库函数说明？

你可以在 ~/.emacs 加入：
(global-sey-key '[f3] 'man)
这样就可以按下 f3 得到man了

或者查看 libc
C-h i m libc [Enter]

xlmo 2005-07-08 11:33 发表评论

]]>A major mode to play mp3http://www.cnitblog.com/xlmo/archive/2005/07/08/815.htmlxlmoxlmoFri, 08 Jul 2005 03:26:00 GMThttp://www.cnitblog.com/xlmo/archive/2005/07/08/815.htmlhttp://www.cnitblog.com/xlmo/comments/815.htmlhttp://www.cnitblog.com/xlmo/archive/2005/07/08/815.html#Feedback0http://www.cnitblog.com/xlmo/comments/commentRss/815.htmlhttp://www.cnitblog.com/xlmo/services/trackbacks/815.html A major mode to play mp3s under emacs

I am an intensive emacs user and I hate fancy GUIs à la xmms. Hence, I wrote this major mode front-end to mpg321. You can get the source here: mp3play.el. It displays your list of mp3 in a buffer and allows you to control mpg321 and organise sequences of mp3 to play. You can check this impressive screenshot. Note that to control the gain, mp3play can either use aumix, or directly control the gain of mpg321 if you use the patch below.

I have the following in my .emacs

(setq mp3play-dirlist '("~/mp3")
      ;; I want to see the remaining time
      mp3play-show-timing 1
      ;; This because I use a patched mpg321 to control the gain
      mp3play-use-remote-gain t
      ;; Initially, set the gain to 50%
      mp3play-initial-gain 50
      ;; Where to store the info about the song playing to resume later
      mp3play-resume-file "~/.mp3play-resume")

(load "mp3play")

;; M-\ go to the mp3play buffer
(define-key global-map [(meta \\)] 'mp3play)
;; C-x C-m C-s stops the current mp3
(define-key global-map [(control x) (control m) (control s)] 'mp3play-stop)
;; C-x C-m C-p pauses it
(define-key global-map [(control x) (control m) (control p)] 'mp3play-pause)
;; C-x C-m C-i shows mp3 informations
(define-key global-map [(control x) (control m) (control i)]   'mp3play-show-current-information)

这个太cool了！
下载链接http://diwww.epfl.ch/~fleuret/files/mp3play.el

xlmo 2005-07-08 11:26 发表评论

]]>