-
Notifications
You must be signed in to change notification settings - Fork 0
/
dot.emacs-win8-2015-2-8
88 lines (81 loc) · 3.01 KB
/
dot.emacs-win8-2015-2-8
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
;emacs 24.3 config for win8.0, C:\Users\jusss\AppData\Roaming\.emacs or _emacs
;http://ftp.gnu.org/gnu/emacs/windows/
(setq inhibit-startup-message t)
(setq initial-scratch-message nil)
(tool-bar-mode -1)
(menu-bar-mode -1)
(scroll-bar-mode -1)
(set-face-attribute 'default nil
:family "simsun"
:height 110)
(setq confirm-nonexistent-file-or-buffer nil)
(transient-mark-mode -1)
(ido-mode t)
(global-set-key (kbd "C-,") 'ido-switch-buffer)
(global-set-key (kbd "C-;") 'set-mark-command)
(setq completion-ignore-case t)
(require `erc)
(require `tls)
(global-set-key (kbd "C-.")
(lambda ()
"server ip can't be as variable's type"
(interactive)
(erc-ssl :server "morgan.freenode.net"
:port 6697
:nick "jusss"
:full-name "xxxxxxx"
:password "xxx")
(setq erc-autojoin-channels-alist '(("freenode.net"
"#emacs")))
(setq erc-autojoin-timing 'ident)))
(set-language-environment `utf-8)
(set-buffer-file-coding-system `utf-8)
(setq default-buffer-file-coding-system `utf-8)
(set-terminal-coding-system `utf-8)
(set-keyboard-coding-system `utf-8)
(setq file-name-coding-system `cp936)
;read file with utf-8
(prefer-coding-system `utf-8)
;M-x describe-coding-system view current coding
(show-paren-mode t)
(setq default-directory "C:/Users/jusss/Desktop/")
(setenv "PATH" "C:/Users/jusss/Desktop/")
(setq default-frame-alist
`((top . 25)
(left . 105)
(height . 43)
(width . 140)))
(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.
'(gnutls-min-prime-bits 2048))
(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.
'(erc-action-face ((t nil)))
'(erc-button ((t nil)))
'(erc-current-nick-face ((t (:foreground "red" :weight bold))))
'(erc-input-face ((t (:foreground "#004e00"))))
'(erc-my-nick-face ((t (:foreground "#ff5500" :weight bold))))
'(erc-nick-default-face ((t nil)))
'(erc-nick-msg-face ((t (:foreground "red"))))
'(erc-notice-face ((t (:foreground "SlateBlue"))))
'(erc-timestamp-face ((t (:foreground "green"))))
'(ido-first-match ((t nil)))
'(mode-line ((t (:background "snow" :foreground "forest green" :box (:line-width -1 :style released-button)))))
'(mode-line-buffer-id ((t nil))))
(add-hook 'erc-text-matched-hook 'erc-sound-if-not-server)
(defun erc-sound-if-not-server (match-type nickuserhost msg)
(unless (string-match "Server:[0-9]+" nickuserhost)
(start-process-shell-command "lolsound" nil "D:/mplayer/mplayer.exe D:/Sirrah.ogg")))
(set-background-color "#e7f4fe")
(set-foreground-color "#004e00")
(set-face-foreground 'fringe "#e7f4fe")
(set-face-background 'fringe "#e7f4fe")
(setq gnus-asynchronous t)
(setq gnus-use-cache t)
(global-set-key (kbd "C-'") 'gnus)