forked from blueabysm/emacs.d
-
Notifications
You must be signed in to change notification settings - Fork 0
/
custom.el
77 lines (68 loc) · 3.38 KB
/
custom.el
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
(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.
'(LaTeX-command "pdflatex")
'(custom-safe-themes (quote ("4cf3221feff536e2b3385209e9b9dc4c2e0818a69a1cdb4b522756bcdf4e00a4" default)))
'(ede-project-directories (quote ("/Users/blueabysm/.emacs.d" "/Users/blueabysm")))
'(gud-gdb-command-name "gdb --annotate=1")
'(large-file-warning-threshold nil)
'(session-use-package t nil (session)))
;; disable bell alert
(setq ring-bell-function 'ignore)
;; recode-region
(defun recode-region (start end &optional coding-system)
"Replace the region with a recoded text."
(interactive "r\n\zCoding System (utf-8): ")
(setq coding-system (or coding-system 'utf-8))
(let ((buffer-read-only nil)
(text (buffer-substring start end)))
(delete-region start end)
(insert (decode-coding-string (string-make-unibyte text) coding-system))))
;; truncate line
;; (toggle-truncate-lines)
;; Weather Report --------------------------------------------------
;; this api key is owned by Lei Wang (blueabysm@gmail.com)
;; (require 'weather)
;; (setq weather-key "b0fb853ab7071518122006")
;; save places -----------------------------------------------------
(setq save-place-file "~/.saveplace")
(setq-default save-place t)
(require 'saveplace)
;; disable menu bar ------------------------------------------------
;; (menu-bar-mode 0)
;; function arguments indention
(defun set-argument-indentation-style ()
(c-set-offset 'arglist-intro '+))
(add-hook 'c-mode 'set-argument-indentation-style)
(when *is-cocoa-emacs*
(tool-bar-mode -1))
;; defadvice
(defadvice message (after message-tail activate)
"goto point max after a message"
(with-current-buffer "*Messages*"
(goto-char (point-max))
(walk-windows (lambda (window)
(if (string-equal (buffer-name (window-buffer window)) "*Messages*")
(set-window-point window (point-max))))
nil t)))
(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.
'(default ((t (:inherit nil :stipple nil :background "black" :foreground "gray84" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :height 130 :width normal :foundry "apple" :family "Monaco"))))
'(flymake-errline ((t (:background "blue" :foreground "#fcfcfc"))))
'(font-lock-builtin-face ((t (:foreground "DarkOrange1"))))
'(font-lock-comment-delimiter-face ((t (:inherit font-lock-comment-face))))
'(font-lock-comment-face ((t (:foreground "gray34"))))
'(font-lock-constant-face ((t (:foreground "Red"))))
'(font-lock-doc-face ((t (:inherit font-lock-string-face :foreground "purple1"))))
'(font-lock-function-name-face ((t (:foreground "lime green"))))
'(font-lock-keyword-face ((t (:foreground "RoyalBlue1"))))
'(font-lock-string-face ((t (:foreground "SlateBlue1"))))
'(font-lock-variable-name-face ((t (:foreground "DarkOrange2"))))
'(mmm-code-submode-face ((t (:background "black"))))
'(mmm-output-submode-face ((t (:foreground "keyboardFocusIndicatorColor"))))
'(region ((t (:background "#444444" :foreground "white")))))