forked from blastura/dot-emacs
-
Notifications
You must be signed in to change notification settings - Fork 0
/
aj-color.el
83 lines (70 loc) · 3.39 KB
/
aj-color.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
78
79
80
81
82
83
;; Color and style
;; Time-stamp: "2009-10-27 10:49:47 anton"
(when window-system
(require 'highlight-current-line)
(highlight-current-line-on t)
(require 'color-theme)
(color-theme-initialize)
(load "~/.emacs.d/lisp/color-themes/color-theme-cl-frame.el")
(load "~/.emacs.d/lisp/color-themes/color-theme-tango.el")
(load "~/.emacs.d/lisp/color-themes/color-theme-rlx.el")
(load "~/.emacs.d/lisp/color-themes/color-theme-inkport.el")
;;(color-theme-goldenrod) ;;nice and dark
;;(color-theme-charcoal-black) ;; grey and blue low sat
(progn (color-theme-jsc-light2) ;;nice and bright
(highlight-current-line-set-bg-color "light yellow")))
;; (progn (color-theme-rlx) ;;dark and fine
;; (highlight-current-line-set-bg-color "black")))
;; Font
(set-default-font "-apple-monaco-medium-r-normal--10-0-72-72-m-0-iso10646-1" nil)
;;(set-default-font "-apple-bitstream vera sans mono-medium-r-normal--11-0-72-72-m-0-iso10646-1" nil)
(setq Man-overstrike-face 'woman-bold)
(defun aj-code-mode()
(interactive)
(set-default-font "-apple-monaco-medium-r-normal--11-0-72-72-m-0-iso10646-1" nil)
;;(set-default-font "-apple-menlo-medium-r-normal--10-0-72-72-m-0-iso10646-1")
;;(set-default-font "-apple-bitstream vera sans mono-medium-r-normal--11-0-72-72-m-0-iso10646-1" nil)
(setq truncate-lines t)
(highlight-current-line-set-bg-color "grey11")
(color-theme-rlx))
(defun aj-code-mode-light()
(interactive)
(set-default-font "-apple-monaco-medium-r-normal--10-0-72-72-m-0-iso10646-1" nil)
;;(set-default-font "-apple-menlo-medium-r-normal--10-0-72-72-m-0-iso10646-1")
(setq truncate-lines t)
(color-theme-jsc-light2)
;; Some changes
(highlight-current-line-on t)
(highlight-current-line-set-bg-color "#ddddcc")
(custom-set-faces
;;'(dired-directory ((t (:foreground "#008800"))))
'(dired-directory ((t (:inherit font-lock-function-name-face))))
'(ido-subdir ((t (:inherit font-lock-function-name-face))))
'(ido-only-match ((t (:inherit font-lock-string-face :weight bold))))
'(ido-first-match ((t (:inherit font-lock-string-face))))
'(ido-first-match-face ((t (:inherit font-lock-string-face))))
'(minibuffer-prompt ((t (:foreground "black"))))
'(default ((t (:background "#eeeedd" :foreground "#333344"))))))
(defun aj-text-mode()
(interactive)
;; (set-default-font "-apple-adobe caslon pro-medium-r-normal--16-0-72-72-m-0-iso10646-1" nil)
(set-default-font "-apple-baskerville-medium-r-normal--16-0-72-72-m-0-iso10646-1" nil)
(highlight-current-line-set-bg-color "grey88")
(progn (color-theme-jsc-light2) ;;dark and fine
(highlight-current-line-set-bg-color "grey93"))
(custom-set-faces
'(flymake-warnline ((((class color)) (:underline "yellow"))))
'(flyspell-duplicate ((t (:underline "Gold3"))))
'(flyspell-incorrect ((t (:underline "OrangeRed"))))))
;; From http://sachachua.com/wp/2006/09/15/emacs-changingn-the-font-size-on-the-fly/
(defun sacha/increase-font-size ()
(interactive)
(set-face-attribute 'default nil :height (ceiling (* 1.10
(face-attribute 'default :height)))))
(defun sacha/decrease-font-size ()
(interactive)
(set-face-attribute 'default nil :height (floor (* 0.9
(face-attribute 'default :height)))))
(global-set-key (kbd "C-+") 'sacha/increase-font-size)
(global-set-key (kbd "C--") 'sacha/decrease-font-size)
(provide 'aj-color)