我的Emacs配置

备份一下


;;====================== 常用设置 ==============================;
(setq load-path (cons (expand-file-name "~/.emacs.d") load-path))
(setq inhibit-startup-message t)
(tool-bar-mode nil)
(scroll-bar-mode nil)
(setq frame-title-format "%b@Emacs")

(setq default-major-mode 'text-mode)
;(setq auto-image-file-mode t)
(setq make-backup-files nil)
;; 设定不产生备份文件
(setq auto-save-mode nil)
;;自动保存模式
(setq-default make-backup-files nil)
;; 不生成临时文件

;;允许emacs和外部其他程序的粘贴
(setq x-select-enable-clipboard t)
(setq mouse-yank-at-point t)
(setq require-final-newline t)
(global-set-key [f4] 'other-window)

;;'y' for 'yes', 'n' for 'no'
(fset 'yes-or-no-p 'y-or-n-p)
(setq visible-bell t)
(global-set-key [f10] 'undo)

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

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

;; 全屏
(defun my-fullscreen ()
(interactive)
(x-send-client-message
   nil 0 nil "_NET_WM_STATE" 32
   '(2 "_NET_WM_STATE_FULLSCREEN" 0)))


;;====================== 常用设置结束 ==============================;


;;=================== the font for Chinese ===============;
(create-fontset-from-fontset-spec
 "-*-courier-medium-R-normal--17-*-*-*-*-*-fontset-mymono,
chinese-gb2312:-*-wenquanyi bitmap song-medium-*-normal--15-*-*-*-*-*-iso10646-1,
chinese-gbk:-*-wenquanyi bitmap song-medium-*-normal--15-*-*-*-*-*-iso10646-1,
chinese-gb18030:-*-wenquanyi bitmap song-medium-*-normal--15-*-*-*-*-*-iso10646-1"
 )
(setq default-frame-alist (append '((font . "fontset-mymono")) default-frame-alist))
(set-default-font "fontset-mymono")
(set-language-environment "Chinese-GB")
;(set-keyboard-coding-system 'utf-8)
;(set-clipboard-coding-system 'utf-8)
(set-terminal-coding-system 'utf-8)
(set-buffer-file-coding-system 'utf-8)
(set-default-coding-systems 'utf-8)
(set-selection-coding-system 'utf-8)
(modify-coding-system-alist 'process "*" 'utf-8)
(setq default-process-coding-system '(utf-8 . utf-8))
(setq-default pathname-coding-system 'utf-8)
(set-file-name-coding-system 'utf-8)
(setq ansi-color-for-comint-mode t) ;;处理shell-mode乱码,好像没作用

(set-keyboard-coding-system 'euc-cn)
(set-buffer-file-coding-system 'euc-cn)
(set-selection-coding-system 'euc-cn)
(set-clipboard-coding-system 'chinese-iso-8bit-with-esc)


;;======================= 设置窗口界面 =============================;
(set-foreground-color "grey")
(set-background-color "black")
(set-cursor-color "gold1")
(set-mouse-color "gold1")

(set-scroll-bar-mode nil)
;;取消滚动栏

;;(customize-set-variable 'scroll-bar-mode 'right))
;;设置滚动栏在窗口右侧，而默认是在左侧
(tool-bar-mode nil)
;;取消工具栏
(setq default-frame-alist
      '((vertical-scroll-bars)
    (top . 25)
    (left . 45)
    (width . 120)
    (height . 70)
    (background-color . "black")
    (foreground-color . "grey")
    (cursor-color . "gold1")
    (mouse-color . "gold1")
    (tool-bar-lines . 0)
    (menu-bar-lines . 1)
    (right-fringe)
    (left-fringe)))

;; 设置另外一些颜色：语法高亮显示的背景和主题，区域选择的背景和主题，二次选择的背景和选择
(set-face-foreground 'highlight "white")
(set-face-background 'highlight "blue")
(set-face-foreground 'region "cyan")
(set-face-background 'region "blue")
(set-face-foreground 'secondary-selection "skyblue")
(set-face-background 'secondary-selection "darkblue")

;;下面的这个设置可以让光标指到某个括号的时候显示与它匹配的括号
(show-paren-mode t)
(setq show-paren-style 'parentheses)
;;高亮显示选择区域
(setq transient-mark-mode nil)
;;显示行号
(require 'linum)

;;========================= end window =================================




;;========================= programming ===============================
;;;;我的C/C++语言编辑策略

(defun my-c-mode-common-hook()
  (setq tab-width 4 indent-tabs-mode nil)
  (hs-minor-mode t)
;;; hungry-delete and auto-newline
  ;;(c-toggle-auto-hungry-state 1)
  ;;按键定义
  (define-key c-mode-base-map [(control \`)] 'hs-toggle-hiding)
  (define-key c-mode-base-map [(return)] 'newline-and-indent)
  (define-key c-mode-base-map [(f7)] 'compile)
  (define-key c-mode-base-map [(f8)] 'ff-get-other-file)
  (define-key c-mode-base-map [(meta \`)] 'c-indent-command)
  ;; (define-key c-mode-base-map [(tab)] 'hippie-expand)
  (define-key c-mode-base-map [(tab)] 'my-indent-or-complete)
  (define-key c-mode-base-map [(meta ?/)] 'semantic-ia-complete-symbol-menu)
  (define-key c-mode-base-map (kbd "C-c h") 'hs-hide-block)
  (define-key c-mode-base-map (kbd "C-c u") 'hs-show-block)
  ;;预处理设置
  (setq c-macro-shrink-window-flag t)
  (setq c-macro-preprocessor "cpp")
  (setq c-macro-cppflags " ")
  (setq c-macro-prompt-flag t)
  (setq abbrev-mode t)
  (setq tab-width 4 indent-tabs-mode nil)
  )
(add-hook 'c-mode-common-hook 'my-c-mode-common-hook)

;;;;我的C++语言编辑策略
(defun my-c++-mode-hook()
  (setq tab-width 4 indent-tabs-mode nil)
  (hs-minor-mode t)
  (c-set-style "stroustrup")
  (define-key c-mode-base-map (kbd "C-c h") 'hs-hide-block)
  (define-key c-mode-base-map (kbd "C-c u") 'hs-show-block)
  ;; (define-key c++-mode-map [f3] 'replace-regexp)
  )

(add-hook 'c++-mode-hook 'my-c++-mode-hook)

;; c/c++ header include guard
(defun insert-include-guard ()
  "insert include guard for c and c++ header file.
for file filename.ext will generate:
#ifndef FILENAME_EXT_
#define FILENAME_EXT_

original buffer content

#endif//FILENAME_EXT_
"
  (interactive)
  (setq file-macro
    (concat (replace-regexp-in-string "\\." "_" (upcase (file-name-nondirectory buffer-file-name))) "_"))
  (setq guard-begin (concat "#ifndef " file-macro "\n"
             "#define " file-macro "\n\n"))
  (setq guard-end
    (concat "\n\n#endif//" file-macro "\n"))
  (setq position (point))
  (goto-char (point-min))
  (insert guard-begin)
  (goto-char (point-max))
  (insert guard-end)
  (goto-char (+ position (length guard-begin))))

;;for c/c++ ,just a makefile sample, target name: main
(defun insert-makefile ()
  (interactive)
  (setq makefile_value (concat
            "CC = g++\n"
            "CCD = g++ -g\n"
            "TARGET = main\n"
            "SOURCES = $(wildcard *.cpp)\n"
            "OBJS = $(patsubst %.cpp,%.o,$(SOURCES))\n"
            " \n"
            "%.o:%.cpp\n"
            "    $(CCD) $(CFLAGS) -c $< -o $@\n"
            " \n"

            "main:$(OBJS)\n"
            "    $(CC) -O2 $(OBJS) -lglut -o $(TARGET)\n"

            " \n"
            "d:$(OBJS)\n"
            "    $(CCD) $(SOURCES) -o $(TARGET)\n"
            " \n"
            "clean: \n"
            "    @/bin/rm *.o\n"))
  (setq position (point))
  (goto-char (point-min))
  (insert makefile_value)
  (goto-char (point-max)))


;;自动补全部分
(load-file "/usr/share/emacs22/site-lisp/cedet-common/cedet.el")
(global-ede-mode 1)        ; Enable the Project management system
(semantic-load-enable-code-helpers) ; Enable prototype help and smart completion
(autoload 'senator-try-expand-semantic "senator") ;;默认启动senator　
(global-semantic-idle-completions-mode)

(setq semanticdb-project-roots
      (list
       (expand-file-name "/")
       (expand-file-name "~/")))


(defun my-indent-or-complete ()
  (interactive)
  (if (looking-at "\\>")
      (hippie-expand nil)
    (indent-for-tab-command)))


(global-set-key [(control tab)] 'hippie-expand)
(global-set-key [(f5)] 'speedbar)
;;(global-set-key [(control tab)] ' senator-completion-menu-popup)
(global-set-key [(f1)] 'semantic-complete-analyze-inline)
(global-set-key [(control tab)] 'semantic-ia-complete-symbol-menu)
;;(global-set-key [(control m)] 'cogre-uml-quick-class)
;;(global-set-key [(control tab)] 'senator-complete-symbol)

(setq hippie-expand-try-functions-list
      '(
    senator-try-expand-semantic
    try-expand-dabbrev
    try-expand-dabbrev-visible
    try-expand-dabbrev-all-buffers
    try-expand-dabbrev-from-kill
    try-expand-list
    try-expand-list-all-buffers
    try-expand-line
        try-expand-line-all-buffers
        try-complete-file-name-partially
        try-complete-file-name
        try-expand-whole-kill
        )
      )


;;智能编译
(require 'smart-compile)
(global-set-key (kbd "") 'smart-compile)
(global-set-key (kbd "") 'recompile)
(global-set-key (kbd "C-c n") 'smart-compile-next-error)


(load-library "hideshow")
(add-hook 'c-mode-hook 'hs-minor-mode)
(add-hook 'c++-mode-hook 'hs-minor-mode)
(add-hook 'java-mode-hook 'hs-minor-mode)
(add-hook 'perl-mode-hook 'hs-minor-mode)
(add-hook 'php-mode-hook 'hs-minor-mode)
(add-hook 'emacs-lisp-mode-hook 'hs-minor-mode)
;;能把一个代码块缩起来，需要的时候再展开
;; M-x hs-minor-mode
;; C-c @ ESC C-s show all
;; C-c @ ESC C-h hide all
;; C-c @ C-s show block
;; C-c @ C-h hide block
;; C-c @ C-c toggle hide/show


(defun open-eshell-in-another-buffer-for-run ()
  "Open eshell in other buffer for run a program"
  (interactive)
  (setq file-extension (concat "." (file-name-extension buffer-file-name)))
  (setq file-name
    (concat "./" (replace-regexp-in-string file-extension " " (file-name-nondirectory buffer-file-name))))
  (delete-other-windows)
  (split-window-horizontally)
  (other-window 1)
  (eshell)
  (goto-char (point-max))
  (insert file-name))
(global-set-key (kbd "C-c o") 'open-eshell-in-another-buffer-for-run)

(defun open-eshell-now ()
  "Open eshell"
  (interactive)
  (split-window-horizontally)
  (other-window 1)
  (eshell))
(global-set-key (kbd "C-c e") 'open-eshell-now)

(defun go-to-other-window-and-close-this-one()
  "Go to other window and close current window"
  (interactive)
  (other-window 1)
  (delete-other-windows))
(global-set-key (kbd "C-c k") 'go-to-other-window-and-close-this-one)

(defun copy-current-buffer()
  "Copy crerent buffer to kill ring : by Chen Yukang"
  (interactive)
  (setq position (point))
  (kill-ring-save (point-min) (point-max))
  (goto-char position))
(global-set-key (kbd "C-c C-v") 'copy-current-buffer)

;;=========subversion===============;
(require 'psvn)

(add-to-list 'load-path "/home/heipang/.emacs.d/ecb")
(defun ecba ();需要的时候加载 ecb 和 cedet
  (interactive "")
  (when (locate-library "ecb")
    (require 'ecb-autoloads) ;;加载ecb
    (setq ecb-auto-activate nil
     ecb-tip-of-the-day nil
     ecb-tree-indent 4
     ecb-windows-height 0.5
     ecb-windows-width 0.18
     ecb-auto-compatibility-check nil
     ecb-version-check nil
     inhibit-startup-message t))
;; cedet
  (when (locate-library "cedet")
    (require 'cedet)
    )
  (ecb-activate)
  )

(global-set-key (kbd "C-c l") 'ecba)
;;;; 各窗口间切换
(global-set-key [M-left] 'windmove-left)
(global-set-key [M-right] 'windmove-right)
(global-set-key [M-up] 'windmove-up)
(global-set-key [M-down] 'windmove-down)

;;;; 隐藏和显示ecb窗口
(define-key global-map [(control f1)] 'ecb-hide-ecb-windows)
(define-key global-map [(control f2)] 'ecb-show-ecb-windows)

;;;; 使某一ecb窗口最大化
(define-key global-map [(control f5)] 'ecb-maximize-window-directories)
(define-key global-map [(control f6)] 'ecb-maximize-window-sources)
(define-key global-map [(control f7)] 'ecb-maximize-window-methods)
(define-key global-map [(control f8)] 'ecb-maximize-window-history)
(setq ecb-tip-of-the-day nil)

;;;; 恢复原始窗口布局

(define-key global-map [(control f9)] 'ecb-restore-default-window-sizes)

;===================== python promgramming mode ====================;
(setq auto-mode-alist
(cons '("\\.py$" . python-mode) auto-mode-alist))
(setq interpreter-mode-alist
(cons '("python" . python-mode)
interpreter-mode-alist))
(autoload 'python-mode "python-mode" "Python editing mode." t)
;;; add these lines if you like color-based syntax highlighting

;;==================== end python ====================;;

;;==================== end programming ===================;

;;==================== other extension ===================;
;;some extension

;;
(load "desktop")
(desktop-save-mode)
(require 'session)
(add-hook 'after-init-hook 'session-initialize)

;;
(desktop-save-mode 1)

(require 'tabbar)
(tabbar-mode)
(global-set-key (kbd "C-c b") 'tabbar-backward-group)
(global-set-key (kbd "C-c f") 'tabbar-forward-group)
(global-set-key (kbd "C-,") 'tabbar-backward)
(global-set-key (kbd "C-.") 'tabbar-forward)


(require 'swbuff)
(global-set-key (kbd "C--") 'swbuff-switch-to-previous-buffer)
(global-set-key (kbd "C-=") 'swbuff-switch-to-next-buffer)
(setq swbuff-exclude-buffer-regexps
      '("^ " "\\*.*\\*"))

(setq swbuff-status-window-layout 'scroll)
(setq swbuff-clear-delay 1)
(setq swbuff-separator "|")
(setq swbuff-window-min-text-height 1)


(require 'xcscope)
(add-hook 'c-mode-common-hook
     '(lambda ()
     (require 'xcscope)))
(add-hook 'c++-mode-common-hook
     '(lambda()
     (require 'xcscope)))


;;the go-to-char
(defun wy-go-to-char (n char)
  "Move forward to Nth occurence of CHAR.
Typing `wy-go-to-char-key' again will move forwad to the next Nth
occurence of CHAR."
  (interactive "p\ncGo to char: ")
  (search-forward (string char) nil nil n)
  (while (char-equal (read-char)
         char)
    (search-forward (string char) nil nil n))
  (setq unread-command-events (list last-input-event)))

(define-key global-map (kbd "C-c a") 'wy-go-to-char)

(define-key global-map (kbd "C-c t") 'find-tag)
(put 'narrow-to-region 'disabled nil)



;;convert text files between unix and dos
(defun dos-unix () (interactive)
  (goto-char (point-min))
  (while (search-forward "\r" nil t) (replace-match "")))
(defun unix-dos () (interactive)
  (goto-char (point-min))
  (while (search-forward "\n" nil t) (replace-match "\r\n")))



(require 'ibuffer)
(global-set-key (kbd "C-x C-b") 'ibuffer)

(setq auto-mode-alist
      (append '(("\\.cpp$" . c++-mode)
        ("\\.hpp$" . c++-mode)
        ("\\.h$" . c++-mode)
        ("\\.lsp$" . lisp-mode)
        ("\\.scm$" . scheme-mode)
        ("\\.pl$" . perl-mode)
        ) auto-mode-alist))


;; Pretty diff mode
(autoload 'ediff-buffers "ediff" "Intelligent Emacs interface to diff" t)
(autoload 'ediff-files "ediff" "Intelligent Emacs interface to diff" t)
(autoload 'ediff-files-remote "ediff"
  "Intelligent Emacs interface to diff")
;;======================= end other extension ==================;

;;==================== clear some buffers ======================;
;;{{{ 删除一些临时的buffers，少占我的内存
(defvar my-clean-buffers-names
  '("\\*Completions" "\\*Compile-Log" "\\*.*[Oo]utput\\*$" "\\*info" "\\*Ibuffer\\*" "\\*cscope\\*"
    "\\*Apropos" "\\*compilation" "\\*Customize" "\\*Calc""\\keywiz-scores"
    "\\*BBDB\\*" "\\*trace of SMTP" "\\*vc" "\\*cvs" "\\*keywiz"
    "\\*WoMan-Log" "\\*tramp" "\\*desktop\\*" ;;"\\*Async Shell Command"
    )
  "List of regexps matching names of buffers to kill.")

(defvar my-clean-buffers-modes
  '(help-mode );Info-mode)
  "List of modes whose buffers will be killed.")

(defun my-clean-buffers ()
  "Kill buffers as per `my-clean-buffer-list' and `my-clean-buffer-modes'."
  (interactive)
  (let (string buffname)
    (mapcar (lambda (buffer)
              (and (setq buffname (buffer-name buffer))
                   (or (catch 'found
                         (mapcar '(lambda (name)
                                    (if (string-match name buffname)
                                        (throw 'found t)))
                                 my-clean-buffers-names)
                         nil)
                       (save-excursion
                         (set-buffer buffname)
                         (catch 'found
                           (mapcar '(lambda (mode)
                                      (if (eq major-mode mode)
                                          (throw 'found t)))
                                   my-clean-buffers-modes)
                           nil)))
                   (kill-buffer buffname)
                   (setq string (concat string
                                        (and string ", ") buffname))))
            (buffer-list))
    (if string (message "清理buffer: %s" string)
    ;(if string (message "Deleted: %s" string)
       (message "没有多余的buffer"))))
      ;(message "No buffers deleted"))))
;;}}}

;==================== 查单词 ====================;

;;查英语单词
(require 'sdcv)
(setq sdcv-dictionary-simple-list ;; a simple dictionary list
     '(
       "21世纪英汉汉英双向词典"
       "懒虫简明英汉词典"
        "懒虫简明汉英词典"
        "KDic11万英汉词典"
         ))

(setq sdcv-dictionary-complete-list ;;a complete dictionary list
      '(
    "21世纪英汉汉英双向词典"
    "KDic11万英汉词典"
        "懒虫简明英汉词典"
        "朗道英汉字典5.0"
        "XDICT英汉辞典"
        "朗道汉英字典5.0"
        "XDICT汉英辞典"
        "懒虫简明汉英词典"
        "牛津英汉双解美化版"
        "stardict1.3英汉辞典"
        "英汉汉英专业词典"
        "CDICT5英汉辞典"
        "Jargon"
        "FOLDOC"
        "WordNet"
        ))
(global-set-key (kbd "C-c d") 'sdcv-search-input)

;;=====================the muse-mode======================;
(setq load-path (add-to-list 'load-path "~/.emacs.d/muse"))
(require 'muse-mode)
(require 'muse-colors)
(require 'muse-mode)
(require 'muse-html)
(require 'muse-latex)
(require 'muse-texinfo)
(require 'muse-docbook)
(require 'muse-wiki)
(require 'muse-project)
(require 'htmlize)
(require 'tp-muse-highlight nil t)

                    ;;==设置编码方式为utf-8
(setq muse-html-meta-content-type (concat "text/html; charset=utf-8"))

                    ;;==新建一个wiki工程
(setq muse-project-alist
      '(("MyWiki"
         ("~/documents/wiki" :default "index")
         (:base "html" :path "~/document/wiki/publish"))))


(add-hook 'muse-mode-hook
          '(lambda ()
             (setq outline-regexp "\\*+ ")
             (outline-minor-mode)))

(defvar muse-colors-overlays nil)
(defun muse-colors-src-tag (beg end)
  "Strip properties and mark as literal."
  (let (face)
    (muse-unhighlight-region beg end)
    (save-excursion
      (goto-char beg)
      (let ((fs 1) content face-list fe mode attrs number ov ovs
     (font-lock-verbose nil))
    (when (re-search-forward "" nil t)
     (setq beg (match-end 0)
        attrs (mapcar
         (lambda (pair)
             (setq pair (split-string pair "="))
             (setcdr pair (substring (cadr pair) 1 -1))
             pair)
         (split-string (match-string 1)))
        mode (and (assoc "lang" attrs)
             (intern-soft (concat (cdr (assoc "lang" attrs))
                     "-mode"))))
     (when (and mode (fboundp mode))
     (goto-char end)
     (setq end
         (if (re-search-backward "" nil t)
         (match-beginning 0)
         (point-max))
         content (buffer-substring-no-properties beg end))
     (with-current-buffer (get-buffer-create "*muse-temp*")
     (funcall mode)
     (insert content)
     (font-lock-fontify-buffer)
     (htmlize-ensure-fontified)
     (or (get-text-property fs 'face)
         (setq fs (next-single-property-change fs 'face)))
     (while (and fs (< fs (point-max)))
        (setq fe (or (next-single-property-change fs 'face)
             (point-max))
         face (get-text-property fs 'face))
        (and face fe (setq face-list (cons (list (1- fs) (1- fe) face) face-list)))
        (setq fs fe))
     (kill-buffer (current-buffer)))
     (when face-list
     ;; (message "%S" face-list)
     (dolist (f (nreverse face-list))
        (put-text-property (+ beg (car f)) (+ beg (cadr f))
                 'face (nth 2 f)))))
     (when (and (assoc "number" attrs)
         (setq number (string-to-number (cdr (assoc "number" attrs)))))
     (mapc (lambda (o)
         (let ((pos (overlay-start o)))
         (if (or (null pos)
             (and (> pos beg) (< pos end)))
             (delete-overlay o)
            (push o ovs))))
         muse-colors-overlays)
     (setq muse-colors-overlays ovs)
     (goto-char beg)
     (forward-line 1)
     (while (and (not (eobp)) (< (point) end))
     (when (not (looking-at ""))
        (setq ov (make-overlay (point) (point)))
        (push ov muse-colors-overlays)
        (overlay-put ov 'before-string (format "%4d " number))
        (setq number (1+ number)))
     (forward-line 1))))))))

(add-to-list 'muse-colors-tags '("src" t nil nil muse-colors-src-tag))

(unless (assoc "my-blosxom" muse-publishing-styles)
(muse-derive-style "wiki-xhtml" "xhtml" ;定义一个派生的style为wiki-xhtml
:header 'muse-xhtml-header
:footer 'muse-xhtml-footer
)
(muse-derive-style "default-xhtml" "xhtml" ;定义另一个派生的style
:header 'muse-blog-header
:footer 'muse-blog-footer
)
(muse-derive-style "default-html" "html"
:header 'muse-html-header
:footer 'muse-html-footer
))

;;;; muse xhtml header
(setq muse-xhtml-header "
    
    
    

    
    

    
    
    
    

    

    

    

    

    
• Home


    

    

    



    

    

    
    

    

    \n
    ")

;;;; muse xhtml-footer
(setq muse-xhtml-footer "
    
    

    

    
    ")

;; CSS类型
(setq muse-xhtml-style-sheet
  "")

(setq muse-image-regexp
  "\\.\\(eps\\|gif\\|bmp\\|jp\\(e?g\\)\\|p\\(bm\\|ng\\)\\|tiff\\|x\\([bp]m\\)\\)\\'")


(add-to-list 'load-path "~/.emacs.d/")
(require 'weblogger)


; w3m
(autoload 'w3m "w3m" "interface for w3m on emacs" t)
(setq w3m-command-arguments '("-cookie" "-F"))
(setq w3m-use-cookies t)
(setq w3m-home-page "http://www.google.com.cn")
(setq w3m-default-display-inline-image t)
(setq w3m-default-toggle-inline-images t)
(setq w3m-use-form t)
(setq w3m-tab-width 8)
(setq w3m-use-cookies t)
(setq w3m-use-toolbar t)
(setq w3m-use-mule-ucs t)
(setq w3m-fill-column 120)
(setq w3m-default-display-inline-image t)
(setq w3m-default-toggle-inline-images t)
(setq w3m-display-inline-image t)
(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.
 '(ecb-layout-window-sizes nil)
 '(ecb-options-version "2.32