Jump to content

User:Justin545/.emacs

From Wikipedia, the free encyclopedia
;;  -*- coding:big5; -*-

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;
;;  * 如果在執行某個外部程式時,Emacs 出現找不到程式的錯誤,那麼你可以調整變數 `exec-path' 的
;;    值或是在 autoexec.bat 中設定 `path' 環境變數以使得該程式的路徑被包含進來
;;
;;  * 關於 coding system:
;;
;;      code:          a code stands for a font, the map between codes and fonts is
;;                     described by a coding system
;;      coding system: describe how codes are mapped to fonts
;;      display code:  draw the corresponding font for the code on screen by a coding system
;;      coding:        map(convert) emacs-mule code to other code
;;      decoding:      map(convert) other code to emacs-mule code
;;
;;  * 關於 Desktop 的設定
;;
;;      The first time you save the state of the Emacs session, you must do it manually, with
;;      the command `M-x desktop-save'(after you have run the command, it will ask you where
;;      to save the desktop file). Once you have done that, exiting Emacs will save the state
;;      again--not only the present Emacs session, but also subsequent sessions.
;;
;;      In order for Emacs to recover the state from a previous session, you must start it
;;      with the same current directory as you used when you started the previous
;;      session. This is because `desktop-read' looks in the current directory(and then the
;;      home directory) for the file to read.  This means that you can have separate saved
;;      sessions in different directories; the directory in which you start Emacs will
;;      control which saved session to use.
;;
;;      If you save a desktop file in your home directory it will act as a default desktop
;;      when you start Emacs from a directory that doesn't have its own.
;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;;(require 'desktop)
;;(require 'extraserv)
(require 'tempbuf)
(require 'php-mode)

;;  You need to revert the buffer if the buffer is read from the source file before `xcscope'
;;  is loaded/required, or cscope may not take effect in that buffer.
(require 'xcscope)

(load "boshiamy")
(load "boshiamy-cue")
(load "zhuyin")
(load "leim-list")
(load "cemacs")

;;  Override the incorrect language environment set in 'cemacs.el'.
;;  `C-h v language-info-alist' should reveal valid values for function
;;  `set-language-environment'.
(set-language-environment "UTF-8")

;;;;;;;;;;;;;;;;;;;;;(setq inhibit-startup-screen t)

;;  Correct the path in order to make the function `update-file-autoloads' valid.
(setq-default source-directory "~/emacs/")

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;
;;  Custom 區塊
;;
;;  由 `Custom' 所產生的程式碼,這些設定也可以透過 M-x customize-saved 來修改。如果想要移除某
;;  個設定時,請勿直接從程式碼中移除,應該先執行 M-x customize-saved 然後點選欲刪除的設定項目
;;  之 [State] 按鈕再選 Erase Customization 刪除
;;
;;  一些常用的 Custom 命令:
;;
;;      `M-x customize-option <RET> OPTION <RET>'
;;           Set up a customization buffer with just one option, OPTION.
;;
;;      `M-x customize-face <RET> FACE <RET>'
;;           Set up a customization buffer with just one face, FACE.
;;
;;      `M-x customize-group <RET> GROUP <RET>'
;;           Set up a customization buffer with just one group, GROUP.
;;
;;      `M-x customize-apropos <RET> REGEXP <RET>'
;;           Set up a customization buffer with all the options, faces and
;;           groups that match REGEXP.
;;
;;      `M-x customize-changed-options <RET> VERSION <RET>'
;;           Set up a customization buffer with all the options, faces and
;;           groups whose meaning has changed since Emacs version VERSION.
;;
;;      `M-x customize-saved'
;;           Set up a customization buffer containing all options and faces
;;           that you have saved with customization buffers.
;;
;;      `M-x customize-customized'
;;           Set up a customization buffer containing all options and faces
;;           that you have customized but not saved.
;;

(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.
 '(backup-directory-alist (quote (("." . "~/backup"))))
 '(column-number-mode t)
 '(default-input-method "boshiamy ")
 '(delete-selection-mode t nil (delsel))
 '(desktop-save-mode nil nil (desktop))
 '(ecb-layout-window-sizes (quote (("jl3" (0.6682926829268293 . 0.9821428571428571) (0.14146341463414633 . 0.30357142857142855) (0.2097560975609756 . 0.30357142857142855) (0.35121951219512193 . 0.42857142857142855) (0.35121951219512193 . 0.25)) ("jl2" (0.15609756097560976 . 0.26785714285714285) (0.1951219512195122 . 0.26785714285714285) (0.35121951219512193 . 0.3392857142857143) (0.35121951219512193 . 0.19642857142857142) (0.35121951219512193 . 0.17857142857142858)) ("jl" (0.35121951219512193 . 0.19642857142857142) (0.15609756097560976 . 0.26785714285714285) (0.1951219512195122 . 0.26785714285714285) (0.35121951219512193 . 0.3392857142857143) (0.35121951219512193 . 0.17857142857142858)) ("jj3" (0.22439024390243903 . 0.26785714285714285) (0.22439024390243903 . 0.32142857142857145) (0.22439024390243903 . 0.39285714285714285)) ("jj1" (0.35121951219512193 . 0.21428571428571427) (0.35121951219512193 . 0.125) (0.35121951219512193 . 0.125) (0.35121951219512193 . 0.23214285714285715) (0.35121951219512193 . 0.17857142857142858) (0.35121951219512193 . 0.10714285714285714)))))
 '(enable-extraserv-log nil)
 '(eol-mnemonic-dos "(DOS)")
 '(file-name-coding-system (quote utf-8-unix) t)
 '(global-font-lock-mode t nil (font-lock))
 '(global-hl-line-mode t nil (hl-line))
 '(iswitchb-mode t)
 '(latex-run-command "pdflatex")
 '(line-number-mode t)
 '(show-paren-delay 0)
 '(show-paren-mode t nil (paren))
 '(show-paren-style (quote mixed))
 '(tex-dvi-view-command "\"C:\\Program Files\\Adobe\\Acrobat 5.0\\Acrobat\\Acrobat.exe\"")
 '(transient-mark-mode t)
 '(truncate-lines t)
 '(truncate-partial-width-windows nil)
 '(x-select-enable-clipboard 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.
 )

;;
;;  Custom 區塊
;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;;  enable the following commands
(put 'downcase-region 'disabled nil)
(put 'narrow-to-region 'disabled nil)

;;(defun w32-restore-frame ()
;;  "Restore a minimized frame"
;;  (interactive)
;;  (w32-send-sys-command 61728))
;;
;;(defun w32-maximize-frame ()
;;  "Maximize the current frame"
;;  (interactive)
;;  (w32-send-sys-command 61488))
;;
;;(extraserv-start)

;; 下面這段程式可以得到相似的結果
;;
;;     (or (assoc 'font default-frame-alist)
;;         (push (cons 'font "fontset-standard")
;;               default-frame-alist))
(set-default-font "fontset-standard")

;; (add-hook 'dired-mode-hook 'turn-on-tempbuf-mode)
;; (add-hook 'custom-mode-hook 'turn-on-tempbuf-mode)
;; (add-hook 'w3-mode-hook 'turn-on-tempbuf-mode)
;; (add-hook 'Man-mode-hook 'turn-on-tempbuf-mode)
;; (add-hook 'view-mode-hook 'turn-on-tempbuf-mode)
;; (add-hook 'find-file-hooks 'turn-on-tempbuf-mode)
;; (turn-on-tempbuf-mode)

;;(set-frame-position (selected-frame)
;;                    (- (x-display-pixel-width) 390)
;;                    (- (x-display-pixel-height) 430))
;;(set-frame-size (selected-frame) 40 20)
;;(w32-maximize-frame)

;; * #1 等待 1.5 秒,以便讓 (w32-maximize-frame) 的動作完成
;;
;; * fill-column 的設定要擺在調整視窗大小之後
;;(sleep-for 1.5) ; #1
;;(setq-default auto-fill-function 'do-auto-fill
;;              fill-column (- (frame-width) 2))

;; #1 讓 Emacs 能與 clipboard 正常地交換繁體中文字可以參考 info 文件中的 `Specifying a Coding
;; System' 主題
;;(set-message-beep 'silent)
;;(set-selection-coding-system 'utf-8-unix) ; #1

(setq-default frame-title-format
              '((:eval (concat "## GNU Emacs ## -- ["
                               (cond (buffer-file-name buffer-file-name)
                                     ((and (boundp 'dired-directory)
                                           dired-directory)
                                      dired-directory)
                                     (t (buffer-name)))
                               "]"))))

;; #1~#3 的目的是加上額外的 info 文件搜尋路徑,其中 #2 的路徑中應該要存放 `Emacs Lisp
;; Reference Manual' 的 info 檔,除此之外我們也將 Cygwin 以及 ELisp manual 這兩個項目加到
;; Info Directory 中,加入的方法是將以下的文字附加到 <EmacsDir>/info/dir 檔的後面:
;;
;;     External documents
;;     * Emacs Lisp: (elisp).  Emacs Lisp Reference Manual.
;;     * Cygwin Info: (c:/PROGRAM FILES/cygwin/usr/info/dir). The Info Directory of
;;
;; 其中 <EmacsDir> 是 Emacs 所在的目錄
(if (not (boundp 'Info-additional-directory-list))
    (setq-default Info-additional-directory-list nil))
(setq-default Info-additional-directory-list
              (append Info-additional-directory-list
                      '("c:/Program Files/emacs-21.2/info/elisp/"
                        "~/cygwin/usr/info/"
                        "~/cygwin/usr/share/info")))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;
;;  * the list below are some possible situations
;;
;;      "\n\n\n"
;;      ""
;;      "aa"
;;      "aa\n"
;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defun delete-trailing-newline ()
  (interactive)
  (save-excursion
    (when (/= (point-min) (point-max))
      (goto-char (point-max))
      (goto-char (if (search-backward-regexp "[^\n]" (point-min) t 1)
                     (1+ (point))
                   (point-min)))
      (delete-char (- (point-max) (point))))))

;;  * any argument's value of this function can be nil
(defun normalize-blank (view-tab-width old-tab-width new-tab-width)
  (interactive)
  (delete-trailing-whitespace)
  (delete-trailing-newline)
  (unless old-tab-width
    (setq old-tab-width 8))
  (setq tab-width old-tab-width)
  (untabify (point-min) (point-max))
  (when new-tab-width
    (setq tab-width new-tab-width)
    (tabify (point-min) (point-max)))
  (when view-tab-width
    (setq tab-width view-tab-width)))

;;  * date and time format: Fri, 13 Dec 1901 20:45:54 (Taiwan)
(defun insert-current-date-time (&optional area)
  (let ((weekday-abbr '((0 . "Sun") (1 . "Mon") (2 . "Tue") (3 . "Wed") (4 . "Thu") (5 . "Fri") (6 . "Sat")))
        (month-abbr '((1 . "Jan") (2 . "Feb") (3 . "Mar") (4 . "Apr") (5 . "May") (6 . "Jun") (7 . "Jul") (8 . "Aug") (9 . "Sep") (10 . "Oct") (11 . "Nov") (12 . "Dec")))
        (curr-time (decode-time)))
    (setq area (if area (concat " (" area ")") ""))
    (insert (cdr (assoc (nth 6 curr-time) weekday-abbr))
            (format ", %d " (nth 3 curr-time))
            (cdr (assoc (nth 4 curr-time) month-abbr))
            (format " %d %02d:%02d:%02d" (nth 5 curr-time) (nth 2 curr-time) (nth 1 curr-time) (nth 0 curr-time))
            area)))

;;  Enter command `M-x c-set-justin-style' in `c++-mode' to setup my indentation style for C++.
(defun c-set-justin-style ()
  (interactive)
  (c-add-style "justin" '("k&r" (c-basic-offset . 3)))
  (c-set-style "justin"))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;
;;  過時的程式碼
;;

;;(defun insert-current-date-time (&optional area)
;;  (let ((weekday-abbr '(("0" . "Sun") ("1" . "Mon") ("2" . "Tue") ("3" . "Wed") ("4" . "Thu") ("5" . "Fri") ("6" . "Sat")))
;;        (month-abbr '(("01" . "Jan") ("02" . "Feb") ("03" . "Mar") ("04" . "Apr") ("05" . "May") ("06" . "Jun") ("07" . "Jul") ("08" . "Aug") ("09" . "Sep") ("10" . "Oct") ("11" . "Nov") ("12" . "Dec"))))
;;    (setq area (if area (concat " (" area ")") ""))
;;    (insert (cdr (assoc (format-time-string "%w") weekday-abbr))
;;            (format-time-string ", %e ")
;;            (cdr (assoc (format-time-string "%m") month-abbr))
;;            " "
;;            (format-time-string "%Y %T")
;;            area)))

;; show-paren-delay 的設定要放在 show-paren-mode 之前,否則可能無效
;;(setq-default show-paren-style 'mixed
;;              show-paren-delay 0)
;;(show-paren-mode t)

;;(column-number-mode t)
;;(line-number-mode t)
;;(delete-selection-mode t)
;;(global-font-lock-mode t)
;;(global-hl-line-mode t)
;;(transient-mark-mode t)

;;(setq-default truncate-lines t
;;             backup-directory-alist '(("." . "~/backup"))
;;             eol-mnemonic-dos "(DOS)")

;;(setq-default frame-title-format
;;             '("## GNU Emacs ## -- ["
;;               (buffer-file-name "%f"
;;                                 (dired-directory
;;                                  dired-directory
;;                                  "%b"))
;;               "]"))

;;(setq-default frame-title-format
;;             '("## GNU Emacs ## -- ["
;;               (:eval (encode-coding-string (cond (buffer-file-name buffer-file-name)
;;                                                  ((and (boundp 'dired-directory)
;;                                                        dired-directory)
;;                                                   dired-directory)
;;                                                  (t (buffer-name)))
;;                                            'chinese-big5-dos))
;;               "]"))

;; 使這一行生效可以窺得 emacs、extraserv 之間的通訊
;;(get-buffer-create log-buffer)

;;
;;  過時的程式碼
;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(put 'upcase-region 'disabled nil)