-
Notifications
You must be signed in to change notification settings - Fork 0
/
custom.el
43 lines (35 loc) · 1.42 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
(server-start)
(load-file "~/.emacs.d/elpa-to-submit/color-theme-almost-monokai.el")
(color-theme-almost-monokai)
(load-file "~/.emacs.d/visual-bell.el")
(add-to-list 'load-path "~/.emacs.d/vendor/textmate.el")
(add-to-list 'load-path "~/.emacs.d/vendor/")
(require 'peepopen)
(require 'textmate)
(textmate-mode)
;; always open in the same window
(setq ns-pop-up-frames nil)
(add-to-list 'load-path "~/.emacs.d/vendor/rvm.el")
(require 'rvm)
;; use rvm’s default ruby for the current Emacs session
(rvm-use-default)
(require 'rinari)
(set-face-attribute 'default nil :height 140)
(set-default-font "-apple-Monaco-medium-normal-normal-*-*-*-*-*-m-0-iso10646-1")
(defun set-frame-size-according-to-resolution ()
(interactive)
(if window-system
(progn
;; use 120 char wide window for largeish displays
;; and smaller 80 column windows for smaller displays
;; pick whatever numbers make sense for you
(if (> (x-display-pixel-width) 1280)
(add-to-list 'default-frame-alist (cons 'width 160))
(add-to-list 'default-frame-alist (cons 'width 80)))
;; for the height, subtract a couple hundred pixels
;; from the screen height (for panels, menubars and
;; whatnot), then divide by the height of a char to
;; get the height we want
(add-to-list 'default-frame-alist
(cons 'height (/ (- (x-display-pixel-height) 200) (frame-char-height)))))))
(set-frame-size-according-to-resolution)