Paste
#78984: Untitled ASCII paste by 115.60.171.201
(defun wzlxx-fonts ()
(interactive)
(set-frame-font "Monospace-10.5")
(set-fontset-font (frame-parameter nil 'font)
'gb18030 '("微软雅黑" . "unicode-bmp")))
;;color theme
(defun wzlxx-color ()
(interactive)
(set-background-color "#102e4e")
(set-foreground-color "#eeeeee")
(set-cursor-color "green")
(set-border-color "black")
(set-mouse-color "white")
(set-face-foreground 'region "white")
(set-face-background 'region "grey20")
(if (facep 'fringe)
(set-face-attribute 'fringe nil :background "#405060")))
;;把一些外观放到这里才能被client使用
(if (and (fboundp 'daemonp) (daemonp))
(add-hook 'after-make-frame-functions
(lambda (new-frame)
(with-selected-frame new-frame
(tool-bar-mode 0)
(wzlxx-color)
(wzlxx-fonts))))
(wzlxx-color))