-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy pathinit.el
137 lines (108 loc) · 4.58 KB
/
init.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
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
;; -----------------------------------------------------------------------------
;; (when (>= emacs-major-version 24)
;; (require 'package)
;; (add-to-list
;; 'package-archives
;; '("melpa" . "http://melpa.org/packages/")
;; t)
;; (package-initialize))
;; next line required for emacs 26.1 due to race bug, fixed in later version
(setq gnutls-algorithm-priority "NORMAL:-VERS-TLS1.3")
(require 'package)
(add-to-list 'package-archives
'("melpa" . "http://melpa.org/packages/") t)
(package-initialize)
(when (not package-archive-contents)
(package-refresh-contents))
(unless (package-installed-p 'use-package)
(package-install 'use-package))
(require 'use-package)
(setq use-package-always-ensure t)
;; -----------------------------------------------------------------------------
;; git
;(load "/usr/share/doc/git-core/contrib/emacs/git.el")
;(load "/usr/share/doc/git-core/contrib/emacs/git-blame.el")
;(load "/usr/share/doc/git-1.8.2.1/contrib/emacs/git.el")
;(load "/usr/share/doc/git-1.8.2.1/contrib/emacs/git-blame.el")
;(load "/usr/share/doc/git-2.7.2/contrib/emacs/git.el")
;(load "/usr/share/doc/git-2.7.2/contrib/emacs/git-blame.el")
;(load "/usr/share/git-core/doc/contrib/emacs/git.el")
;(load "/usr/share/git-core/doc/contrib/emacs/git-blame.el")
;
(add-to-list 'vc-handled-backends 'GIT)
;; -----------------------------------------------------------------------------
;;(setq stack-trace-on-error t)
;;(setq debug-on-error t)
(setq vgmenu-max-items 48)
(setq vghome (expand-file-name "~"))
;(setq vghome (expand-file-name "/free/home/vgreff"))
;(setq vghome (expand-file-name "/home/vincent.greff"))
;(setq vghome (expand-file-name "/home/vgreff"))
(setq vgelisphome (concat vghome "/.emacs.d"))
(setq vgsqllog vgelisphome)
;; -----------------------------------------------------------------------------
;; el-get
;; (add-to-list 'load-path (concat vghome "/.emacs.d/el-get/el-get"))
;; (require 'el-get)
;; (setq el-get-sources
;; '(
;; (:name magit
;; ;; :after (lambda () (global-set-key (kbd "C-x z") 'magit-status))
;; )
;; ))
(load "gud.elc")
;; (el-get)
;; -----------------------------------------------------------------------------
(load (concat vgelisphome "/Emacs/src/my.emacs.el"))
(put 'narrow-to-region 'disabled nil)
(put 'narrow-to-page 'disabled nil)
(put 'downcase-region 'disabled nil)
(put 'upcase-region 'disabled nil)
(put 'eval-expression 'disabled nil)
(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 "white" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :height 90 :width normal :foundry "unknown" :family "DejaVu Sans Mono"))))
'(compilation-info ((((class color) (min-colors 16) (background light)) (:foreground "Blue" :weight bold))))
'(font-lock-string-face ((((class color) (background light)) (:foreground "DarkGreen")))))
(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.
'(column-number-mode t)
'(csv-comment-start-default "!")
'(csv-invisibility-default t)
'(csv-regionOK-confirm t)
'(csv-separators (quote (" " ",")))
'(cvs-force-dir-tag nil)
'(defcustom mouse-buffer-menu-mode-mult t)
'(ediff-split-window-function (quote split-window-horizontally))
'(fringe-mode (quote (nil . 0)) nil (fringe))
'(indicate-buffer-boundaries (quote left))
'(mouse-buffer-menu-maxlen 35)
'(mouse-buffer-menu-mode-mult 50)
'(package-selected-packages (quote (cmake-mode magit)))
'(scroll-bar-mode nil)
'(show-paren-mode t)
'(sql-database "vgtest")
'(sql-postgres-options (quote ("-P" "pager=off" "-w" "--echo-queries")))
'(sql-product (quote postgres))
'(sql-server "chihq-snapdev-105d")
'(sql-sybase-options (quote ("-w 4096")))
'(sql-sybase-program "sqsh")
'(sql-user "vgreff"))
;;(set-frame-size (selected-frame) 223 85)
;(set-frame-size (selected-frame) 272 74)
;(set-frame-size (selected-frame) 272 60)
;;(set-frame-size (selected-frame) 200 60)
; to get the current info
;(frame-height )
;(frame-width )
(fset 'yes-or-no-p 'y-or-n-p)
;; (require 'package)
;; (add-to-list 'package-archives '("melpa" . "http://melpa.milkbox.net/packages/") t)
(setq x-select-enable-primary t)
(setq x-select-enable-clipboard t)