-
Notifications
You must be signed in to change notification settings - Fork 0
/
dot.emacs-arch-2015-3-27
101 lines (90 loc) · 3.41 KB
/
dot.emacs-arch-2015-3-27
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
89
90
91
92
93
94
95
96
97
98
99
100
;emacs config for archlinux
(setq inhibit-startup-message t)
(setq initial-scratch-message nil)
(tool-bar-mode -1)
(menu-bar-mode -1)
(scroll-bar-mode -1)
;font can be set in .Xdefaults
;(set-face-attribute 'default nil
; :family "SimSun"
; :height 100)
(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)
;os clipboard swap with kill-ring
;(setq interprogram-cut-fucntion 'x-select-text)
;(setq interprogram-paste-function 'x-cut-buffer-or-selection-value)
;(setq x-select-enable-clipboard t)
;(setq select-active-regions t)
;(setq yank-pop-change-selection t)
;(setq save_interprogram-paste_before-kill 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"
"#linux"
"#ubuntu")))
(setq erc-autojoin-timing 'ident)))
(show-paren-mode t)
(setq completion-ignore-case t)
(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))))
(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)
(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 "ercsound" nil "mplayer ~/Sirrah.ogg")))
;; emacsclient x clipboard swap xsel
(setq x-select-enable-clipboard t)
(unless window-system
(when (getenv "DISPLAY")
(defun xsel-cut-function (text &optional push)
(with-temp-buffer
(insert text)
(call-process-region (point-min) (point-max) "xsel" nil 0 nil "--clipboard" "--input")))
(defun xsel-paste-function()
(let ((xsel-output (shell-command-to-string "xsel --clipboard --output")))
(unless (string= (car kill-ring) xsel-output)
xsel-output)))
(setq interprogram-cut-function 'xsel-cut-function)
(setq interprogram-paste-function 'xsel-paste-function)))
;; display time on mode bar
(display-time-mode 1)
(require 'w3m-load)