       (setq alpha-list (cdr (append alpha-list (list h))))))
   (wf-toggle-alpha))
 
-;; 替换默认的 cperl mode
-(require 'prelude-perl)
-
-;; directory tree
-(require-package 'dirtree)
-(require 'dirtree)
 
 ;; enable linum mode
 (global-linum-mode 1) ; Always show line numbers
 (setq linum-format "%d") ; set format
 
+;;; 设置中英文字体,方便 org table 对齐
 
 ;; Setting English Font
 (set-face-attribute 'default nil :family "Input" :height 110)

(global-set-key (kbd "C-c e") 'djcb-erc-start-or-switch) ;; ERC


 ;; use for paste clipboard image to org-mode

(defun paste-img ()
 "paste the img from clipboard to org-buffer int the same directory and insert a link "
 (interactive)

 ;; (setq foldername (concat (buffer-file-name) "-IMG/"))
 ;; (setq foldername "e:/git/lust4life/img/")
 ;; (if (not (file-exists-p foldername))
 ;; (mkdir foldername))

 ;; (setq imgName (concat "img_" (format-time-string "%Y_%m_%d__%H_%M_%S") ".png"))
 (setq imgName (read-string "fileName:"))
 (setq imgPath (concat "./img/" (replace-regexp-in-string "\.[^.]*$" "" (buffer-name)) "/" imgName))

 (call-process "perl" nil nil nil "E:/git/quick.dirty.perl/Perl STH/tools/pasteIntoFile.pl" (concat "-f=" imgPath))

 (insert (concat "[[" imgPath "]]"))
 )

(global-set-key (kbd "C-c v") 'paste-img)

;; exports your Org documents to reveal.js presentations
;; (require 'ox-reveal)


;; 配置 org-publish
(require 'org-publish-config)

;; org mode customer
(setq org-startup-indented t)



(provide 'init-local)

;;; init-local  --- init local
;;; Commentary:
;;; author: $+J
;;; e-mail: lust4life.jun@gmail.com
;;; Code:

;; exports your Org documents to reveal.js presentations
(require-package 'ox-reveal)
(require 'ox-reveal)
(setq org-reveal-root "file:///E:/git/blog.site.src/src/org/reveal-test/reveal.js")

;; directory tree
(require-package 'dirtree)
(require 'dirtree)

;; 替换默认的 cperl mode
(require 'prelude-perl)

;; 配置 org-publish
(require 'org-publish-config)

;; org mode customer
(setq org-startup-indented t)

;; 半透明
(when window-system
