summaryrefslogtreecommitdiff
path: root/.emacs
blob: 27d8dcc8973e23c04df846f08796dde9275efd93 (plain)
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
(set-face-attribute 'default nil :height 80)

(defun load-identica-mode ()
  (when (require 'netrc nil t)
    (autoload 'identica-mode "identica-mode" nil t)
    (let ((identica (netrc-machine (netrc-parse "~/.netrc") "identi.ca" t)))
      (setq identica-password (netrc-get identica "password"))
      (setq identica-username (netrc-get identica "login"))
    )
  )
)

(setq package-archives '(("ELPA" . "http://tromey.com/elpa/") 
			 ("marmalade" . "http://marmalade-repo.org/packages/")
			 ("gnu" . "http://elpa.gnu.org/packages/")))

(add-to-list 'load-path "~/.emacs.d/")
(add-to-list 'load-path "~/.emacs.d/el-get/el-get")
(require 'el-get)
(add-to-list 'el-get-recipe-path "~/.emacs.d/el-get-recipes")
(setq el-get-sources
      '(el-get
	(:name color-theme
	       :after (lambda ()
			(color-theme-tty-dark)))
	package
	(:name color-theme-solarized
	       :after (lambda ()
			(add-hook 'after-make-frame-functions
				  (lambda (frame)
				    (set-variable 'color-theme-is-global nil)
				    (select-frame frame)
				    (if window-system
					(color-theme-solarized-dark))))))
	(:name org-mode
	       :url "git://orgmode.org/org-mode.git"
	       :features org-install
	       :after ((require 'org-checklist)))
	(:name identica-mode
	       :after (lambda ()
			(load-identica-mode)))
	(:name rainbow-delimiters
	       :after (lambda ()
			))
	(:name autopair
	       :after (lambda ()
			(autopair-global-mode 1)
			(setq autopair-autowrap t)))
	))
(el-get)

(ido-mode t)
;(global-linum-mode)

(defun toggle-fullscreen (&optional f)
  (interactive)
  (let ((current-value (frame-parameter nil 'fullscreen)))
    (set-frame-parameter nil 'fullscreen
			 (if (equal 'fullboth current-value)
			     (if (boundp 'old-fullscreen) old-fullscreen nil)
			   (progn (setq old-fullscreen current-value)
				  'fullboth)))))

(global-set-key [f11] 'toggle-fullscreen)

(load "whitespace")
(global-set-key "\C-cw" 'global-whitespace-mode)
;(setq whitespace-style '(
;  face
;  tabs        tab-mark
;  spaces    space-mark
;  newline newline-mark
;  empty
;))

(setq whitespace-style '(
  tab-mark
  space-mark
  newline-mark
  empty
))


(setq-default tab-width 8)
(setq-default c-basic-offset 8)
;; (setq-defualt indent-tabs-mode nill);; no tabs
(setq-default indent-tabs-mode t);; use tabs

(setq column-number-mode t
      inhibit-startup-screen t
      line-number-mode t
      server-mode t
      show-paren-mode t)

(setq browse-url-generic-program (executable-find "v-www-browser")
      browse-url-browser-function 'browse-url-generic)

(setq custom-file "~/.emacs.d/custom.el")
(load custom-file 'noerror)