__init.el

;; -*- encoding: utf-8-unix; -*-

;; * environment
(if (eq system-type 'windows-nt)
    (mapc (lambda (p)(add-exec-path p))
          (list
           (expand-file-name "../../git/bin/" exec-directory)
           (expand-file-name "../other/mpg123/" exec-directory)
           (expand-file-name "../other/exec/" exec-directory)
           exec-directory)))

;; * working dir
(funcall iff--check-directory (cdr (assoc 'wk-dir iff-branch)) t)
(defvar work-dir (cdr (assoc 'wk-dir iff-branch)))
(cd
 (if (eq system-type 'windows-nt)
     work-dir
   "~"))
(defvar exts-dir (cdr (assoc 'ext-dir iff-branch)))

;; * time-stamp-format
;(setq time-stamp-format "%:y-%02m-%02d %02H:%02M:%02S")

;; * 打开文件
;(remove-hook 'find-file-hook 'vc-find-file-hook)
(add-hook 'find-file-hook
          '(lambda ()
             (if (file-exists-p (buffer-file-name))                 ; 已存在文件
                 (if (member (file-name-extension (buffer-name))
                             '("el" "bak" "txt"))                   ; 匹配扩展名
                     (progn
                       (if buffer-read-only
                           (toggle-read-only))
                       (if (null view-mode)
                           (view-mode))))                           ; 启用 view-mode
               )))

;; * 保存文件
(add-hook 'before-save-hook
          '(lambda()
             (if (and (eolp)
                      (equal (char-before) 32))
                 (progn
                   ;; (del-tail-spc)
                   (delete-trailing-whitespace)
                   (untabify (point-min) (point-max))))
             (time-stamp)))

;; * max
(setq max-lisp-eval-depth   1000        ;lisp最大执行深度   500
      max-specpdl-size      10000       ;最大容量           1000
      kill-ring-max         1024        ;kill ring          60
      undo-outer-limit      5000000     ;撤销限制           12000000
      mark-ring-max         1024        ;mark ring          16
)

;; * Common
(setq message-log-max         t        ;完整的 message-log
      inhibit-startup-message t        ;禁用启动画面
      initial-scratch-message          ;初始内容
      ";; Matrix\n"
      )

;; * coding-system
;; 语言环境
(set-language-environment 'utf-8)
;(set-clipboard-coding-system 'utf-8)            ;; 剪切板，用于和其他程序之间复制内容
(setq default-buffer-file-coding-system  'utf-8-unix)     ; 文件
;; (when (eq system-type 'windows-nt)
;;   (setq
;;       default-file-name-coding-system   'chinese-iso-8bit ; 文件名
;;       default-keyboard-coding-system    'chinese-iso-8bit ; 键盘输入，用于输入法。
;;       default-terminal-coding-system    'chinese-iso-8bit ; 终端显示的编码方式。
;;       ))

;; * safe-local-variable
(setq safe-local-variable-values '(
      (encoding . utf-8)
      (encoding . utf-8-unix)
      (encoding . utf-8-emacs-unix)
))

;; * help
(setq help-xref-following nil)

;; * 开启服务器模式
;(server-start)

(remove-hook 'find-file-hook 'vc-find-file-hook)

(defvar lisp-box
  (lambda ()
    (split-window-horizontally)
    (sbcl)))
;; (add-hook 'emacs-startup-hook lisp-box)