emacs custom

custom.el

(set-frame-font "Monaco-12")
(set-fontset-font "fontset-default" 'han '("Hiragino Sans GB W3" . "unicode-bmp"))

(defun set-font (english chinese english-size chinese-size)
  (set-face-attribute 'default nil :font
                           (format "%s:pixelsize=%d" english english-size))
  (dolist (charset '(kana han symbol cjk-misc bopomofo))
     (set-fontset-font (frame-parameter nil 'font) charset
                           (font-spec :family chinese :size chinese-size))))
(set-font "Monaco" "Hiragino Sans GB W3" 12 14)

(add-to-list 'load-path (expand-file-name "neotree" user-emacs-directory))

(require 'neotree)

(setq save-interprogram-paste-before-kill nil)

(defun gtd ()
   (interactive)
   (find-file "/share/Dropbox/Public/orgs/gtd.org")
)