emacs.custom.el 14.2 KB
Newer Older
Juri Linkov's avatar
Juri Linkov committed
1 2 3
;;; custom

(custom-set-variables
4 5 6 7
 ;; 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.
8 9 10 11
 '(Buffer-menu-name-width 25)
 '(Info-fontify-maximum-menu-size t)
 '(Man-notify-method 'pushy)
 '(Man-overstrike-face 'underline)
Juri Linkov's avatar
Juri Linkov committed
12
 '(apropos-do-all t)
13 14
 '(async-shell-command-buffer 'confirm-rename-buffer)
 '(async-shell-command-display-buffer nil)
15
 '(async-shell-command-width 222)
Juri Linkov's avatar
Juri Linkov committed
16 17 18
 '(auto-insert-mode t)
 '(battery-mode-line-format "[%b%p%%,%t]")
 '(bbdb-use-pop-up nil)
19
 '(bidi-paragraph-direction 'left-to-right)
Juri Linkov's avatar
Juri Linkov committed
20 21 22 23
 '(blink-matching-delay 0.1)
 '(browse-url-firefox-new-window-is-tab t)
 '(browse-url-new-window-flag t)
 '(c-echo-syntactic-information-p t)
24
 '(calendar-date-display-form
25 26 27
   '((format "%04s-%02d-%02d" year
             (string-to-number month)
             (string-to-number day))))
28
 '(calendar-date-style 'iso)
Juri Linkov's avatar
Juri Linkov committed
29
 '(calendar-mark-diary-entries-flag t)
30
 '(calendar-mark-holidays-flag t)
31
 '(calendar-time-display-form
32
   '(24-hours ":" minutes
33 34
              (if time-zone " (")
              time-zone
35
              (if time-zone ")")))
Juri Linkov's avatar
Juri Linkov committed
36
 '(calendar-view-diary-initially-flag t)
37
 '(calendar-week-start-day 1)
38
 '(coffee-tab-width 2)
Juri Linkov's avatar
Juri Linkov committed
39
 '(column-number-mode t)
40
 '(comint-history-isearch 'dwim)
Juri Linkov's avatar
Juri Linkov committed
41 42
 '(comint-input-ignoredups t)
 '(comint-input-ring-size 65535)
43 44
 '(comint-move-point-for-output nil)
 '(company-selection-wrap-around t)
Juri Linkov's avatar
Juri Linkov committed
45
 '(compare-ignore-whitespace t)
46
 '(compare-windows-recenter '(15 15))
Juri Linkov's avatar
Juri Linkov committed
47
 '(compilation-ask-about-save nil)
48
 '(compilation-environment '("LANG=C"))
49
 '(compilation-scroll-output t)
50
 '(compile-command "make")
Juri Linkov's avatar
Juri Linkov committed
51
 '(completion-show-help nil)
52 53
 '(completions-format 'vertical)
 '(confirm-kill-emacs 'y-or-n-p)
Juri Linkov's avatar
Juri Linkov committed
54
 '(cperl-continued-statement-offset 0)
55
 '(css-indent-offset 2)
Juri Linkov's avatar
Juri Linkov committed
56
 '(cursor-in-non-selected-windows nil)
57
 '(custom-buffer-done-function 'kill-buffer)
Juri Linkov's avatar
Juri Linkov committed
58 59 60
 '(debug-on-error t)
 '(delete-selection-mode t)
 '(describe-char-unidata-list t)
61 62
 '(desktop-auto-save-timeout 60)
 '(desktop-restore-in-current-display t)
Juri Linkov's avatar
Juri Linkov committed
63
 '(desktop-save-mode t)
64
 '(diary-date-forms '((year "-" month "-" day "[^0-9]") (dayname "\\W")))
Juri Linkov's avatar
Juri Linkov committed
65
 '(diary-list-include-blanks t)
66
 '(diff-font-lock-syntax 'hunk-also)
67
 '(diff-switches '("-u"))
Juri Linkov's avatar
Juri Linkov committed
68
 '(dired-auto-revert-buffer t)
69
 '(dired-create-destination-dirs 'ask)
Juri Linkov's avatar
Juri Linkov committed
70
 '(dired-dwim-target t)
71
 '(dired-isearch-filenames 'dwim)
Juri Linkov's avatar
Juri Linkov committed
72 73 74
 '(dired-keep-marker-rename 82)
 '(dired-listing-switches "-Al --group-directories-first --block-size='1")
 '(dired-omit-size-limit 65535)
75 76
 '(dired-recursive-copies 'always)
 '(dired-recursive-deletes 'top)
77
 '(display-buffer-alist
78 79
   '((display-buffer-condition-xref display-buffer-maybe-below-selected)
     (display-buffer-condition-from-help display-buffer-same-window)
80 81 82 83 84 85
     ("\\`\\*\\(Apropos\\|Buffer List\\|Colors\\|Command History\\|Locate\\|Messages\\|Proced\\|eww\\|snd\\|vc-log\\)\\*\\'" display-buffer-same-window)
     ("\\`\\*\\(compilation\\|grep\\|erlang\\|haskell\\|Diff\\|Help\\|shell\\|Shell Command Output\\)\\*\\(\\|<[0-9]+>\\)\\'" display-buffer-same-window)
     ("\\`\\*\\(vc-dir\\)\\*\\(\\|<[0-9a-z-]+>\\)\\'" display-buffer-same-window)
     ("\\`\\*dictem.*" display-buffer-same-window)))
 '(display-line-numbers-grow-only t)
 '(display-raw-bytes-as-hex t)
Juri Linkov's avatar
Juri Linkov committed
86 87 88
 '(display-time-24hr-format t)
 '(display-time-default-load-average nil)
 '(doc-view-continuous t)
89
 '(doc-view-resolution 200)
90
 '(edebug-print-length 1024)
Juri Linkov's avatar
Juri Linkov committed
91
 '(edebug-save-windows nil)
92 93 94
 '(ediff-split-window-function 'split-window-horizontally)
 '(ediff-window-setup-function 'ediff-setup-windows-plain)
 '(ee-ps-program-switches '("aux" "--columns" "1024"))
95
 '(electric-indent-mode nil)
Juri Linkov's avatar
Juri Linkov committed
96 97 98 99 100 101
 '(emacs-lisp-docstring-fill-column 75)
 '(enable-recursive-minibuffers t)
 '(eshell-hist-ignoredups t)
 '(eshell-history-size nil)
 '(eval-expression-print-length nil)
 '(eval-expression-print-level nil)
102 103
 '(eval-expression-print-maximum-character 65535)
 '(ffap-machine-p-known 'accept)
Juri Linkov's avatar
Juri Linkov committed
104 105 106
 '(fill-column 75)
 '(find-file-visit-truename t)
 '(find-grep-options "-iq")
107
 '(find-ls-option '("-exec ls -ld {} \\;" . "-ld"))
108 109
 '(flymake-no-changes-timeout nil)
 '(flymake-start-on-newline nil)
Juri Linkov's avatar
Juri Linkov committed
110
 '(garbage-collection-messages t)
111
 '(gc-cons-threshold 128000000)
112
 '(global-eldoc-mode nil)
Juri Linkov's avatar
Juri Linkov committed
113
 '(global-mark-ring-max 1024)
114 115
 '(gnus-article-truncate-lines nil)
 '(gnus-article-update-date-headers nil)
Juri Linkov's avatar
Juri Linkov committed
116
 '(gnus-break-pages nil)
117 118
 '(gnus-extra-headers '(To Cc Newsgroups))
 '(gnus-global-score-files '("~/News/"))
Juri Linkov's avatar
Juri Linkov committed
119 120 121 122 123
 '(gnus-permanently-visible-groups "^nn")
 '(gnus-summary-ignore-duplicates t)
 '(gnus-treat-display-face nil)
 '(gnus-treat-display-smileys nil)
 '(gnus-treat-display-x-face nil)
124
 '(gnus-user-agent '(gnus emacs config))
125 126
 '(grep-command "grep --color -inH -e ")
 '(grep-find-template
Juri Linkov's avatar
Juri Linkov committed
127
   "find <D> <X> -type f <F> -print0 | sort -z | xargs -0 -e grep <C> --color -inH -e <R>")
128 129
 '(grep-use-null-device nil)
 '(grep-use-null-filename-separator nil)
Juri Linkov's avatar
Juri Linkov committed
130 131 132 133
 '(highlight-nonselected-windows t)
 '(history-delete-duplicates t)
 '(history-length t)
 '(htmlize-css-name-prefix "emacs-")
134 135
 '(htmlize-html-major-mode 'html-mode)
 '(htmlize-output-type 'inline-css)
Juri Linkov's avatar
Juri Linkov committed
136
 '(icomplete-mode t)
137
 '(image-dired-thumbnail-storage 'standard)
Juri Linkov's avatar
Juri Linkov committed
138
 '(indent-tabs-mode nil)
139
 '(indicate-buffer-boundaries '((up . right) (down . right)))
Juri Linkov's avatar
Juri Linkov committed
140 141 142
 '(inhibit-startup-echo-area-message "juri")
 '(inhibit-startup-screen nil)
 '(initial-buffer-choice nil)
143 144 145
 '(isearch-allow-scroll 'unlimited)
 '(isearch-lazy-count t)
 '(isearch-yank-on-move 'shift)
146
 '(js-indent-level 2 t)
Juri Linkov's avatar
Juri Linkov committed
147 148 149 150
 '(kill-do-not-save-duplicates t)
 '(kill-ring-max 1024)
 '(kill-whole-line t)
 '(large-file-warning-threshold 27000000)
151 152
 '(lazy-highlight-buffer nil)
 '(lazy-highlight-initial-delay 0)
Juri Linkov's avatar
Juri Linkov committed
153 154
 '(lazy-highlight-max-at-a-time nil)
 '(list-command-history-max nil)
155 156 157
 '(list-matching-lines-buffer-name-face 'header-line)
 '(list-matching-lines-current-line-face 'region)
 '(list-matching-lines-jump-to-current-line t)
158
 '(load-prefer-newer t)
159 160
 '(log-edit-confirm t)
 '(log-edit-hook
161
   '(log-edit-insert-changelog log-edit-insert-filenames-without-changelog))
Juri Linkov's avatar
Juri Linkov committed
162
 '(ls-lisp-dirs-first t)
163
 '(mail-source-delete-incoming 30)
Juri Linkov's avatar
Juri Linkov committed
164 165
 '(mark-even-if-inactive nil)
 '(mark-ring-max 1024)
166 167
 '(markchars-face-confusable 'markchars-heavy)
 '(markchars-what '(markchars-confusables))
Juri Linkov's avatar
Juri Linkov committed
168
 '(message-log-max t)
169
 '(message-send-mail-function 'smtpmail-send-it)
170
 '(minibuffer-depth-indicate-mode t)
171 172
 '(mm-discouraged-alternatives '("text/html"))
 '(mm-text-html-renderer 'w3m)
173
 '(mmm-submode-decoration-level 0)
174
 '(mode-line-percent-position '(6 "%q"))
175
 '(mouse-avoidance-banish-position
176
   '((frame-or-window . frame)
177 178 179
     (side . right)
     (side-pos . -3)
     (top-or-bottom . bottom)
180 181
     (top-or-bottom-pos . 6)))
 '(mouse-avoidance-mode 'banish nil (avoid))
Juri Linkov's avatar
Juri Linkov committed
182
 '(mouse-highlight 1)
183 184 185
 '(mouse-select-region-move-to-beginning t)
 '(mouse-wheel-progressive-speed nil)
 '(mouse-wheel-scroll-amount '(2 ((shift) . 5) ((control))))
186
 '(multi-isearch-pause nil)
187
 '(next-error-find-buffer-function 'next-error-buffer-on-selected-frame)
188 189 190
 '(next-error-recenter 15)
 '(nnmail-crosspost-link-function 'copy-file)
 '(nnmail-extra-headers '(To Cc))
191
 '(nnmail-treat-duplicates 'delete)
192 193
 '(org-replace-disputed-keys t)
 '(org-startup-folded nil)
194
 '(org-support-shift-select t)
Juri Linkov's avatar
Juri Linkov committed
195
 '(parens-require-spaces nil)
196 197
 '(perl-indent-level 2)
 '(perl-prettify-symbols nil)
198
 '(prettify-symbols-unprettify-at-point 'right-edge)
Juri Linkov's avatar
Juri Linkov committed
199
 '(proced-descend nil)
200 201 202
 '(proced-filter 'all)
 '(proced-format 'medium)
 '(proced-sort 'pid)
203
 '(rainbow-delimiters-max-face-count 5)
Juri Linkov's avatar
Juri Linkov committed
204 205
 '(read-file-name-completion-ignore-case t)
 '(read-quoted-char-radix 16)
206 207 208
 '(read-regexp-defaults-function 'find-tag-default-as-regexp)
 '(recenter-positions '(0.15 top))
 '(recentf-exclude '("/[^/]+[@:]"))
Juri Linkov's avatar
Juri Linkov committed
209 210
 '(recentf-mode t)
 '(require-final-newline t)
211
 '(ruby-insert-encoding-magic-comment nil)
212
 '(safe-local-variable-values '((encoding . utf-8)))
Juri Linkov's avatar
Juri Linkov committed
213
 '(save-interprogram-paste-before-kill t)
214 215 216 217
 '(save-place-limit nil)
 '(save-place-mode t)
 '(save-place-save-skipped nil)
 '(scroll-error-top-bottom t)
Juri Linkov's avatar
Juri Linkov committed
218
 '(scroll-preserve-screen-position t)
219 220 221
 '(select-active-regions nil)
 '(select-enable-primary t)
 '(send-mail-function 'smtpmail-send-it)
Juri Linkov's avatar
Juri Linkov committed
222 223
 '(set-mark-command-repeat-pop t)
 '(sgml-xml-mode t)
224
 '(shift-select-mode 'permanent)
Juri Linkov's avatar
Juri Linkov committed
225 226
 '(smtpmail-debug-info t)
 '(smtpmail-queue-mail t)
227 228
 '(split-height-threshold 100)
 '(sql-sqlite-login-params '((database :file ".*")))
Juri Linkov's avatar
Juri Linkov committed
229
 '(sql-sqlite-program "sqlite3")
230
 '(switch-to-buffer-obey-display-actions t)
231 232
 '(switch-to-buffer-preserve-window-point nil)
 '(temp-buffer-resize-mode t)
Juri Linkov's avatar
Juri Linkov committed
233 234
 '(thumbs-per-line 65536)
 '(thumbs-relief 0)
235
 '(tool-bar-style 'both-horiz)
Juri Linkov's avatar
Juri Linkov committed
236 237
 '(track-eol t)
 '(truncate-lines t)
238
 '(uniquify-buffer-name-style 'post-forward-angle-brackets nil (uniquify))
239
 '(vc-annotate-background nil)
Juri Linkov's avatar
Juri Linkov committed
240
 '(vc-bzr-diff-switches "-F ^(")
241 242
 '(vc-bzr-status-switches nil)
 '(vc-command-messages t)
243
 '(vc-find-revision-no-save t)
Juri Linkov's avatar
Juri Linkov committed
244
 '(vc-git-diff-switches '("--diff-algorithm=patience"))
245
 '(vc-git-print-log-follow t)
Juri Linkov's avatar
Juri Linkov committed
246 247 248
 '(view-inhibit-help-message t)
 '(view-read-only t)
 '(visible-bell t)
249
 '(visual-order-cursor-movement t)
Juri Linkov's avatar
Juri Linkov committed
250 251 252
 '(w3m-default-display-inline-images t)
 '(w3m-display-inline-image t)
 '(w3m-home-page "http://www.jurta.org/")
253
 '(w3m-key-binding 'info)
Juri Linkov's avatar
Juri Linkov committed
254 255
 '(w3m-view-this-url-new-session-in-background t)
 '(wget-debug t)
256
 '(windmove-create-window t)
257
 '(windmove-wrap-around t)
Juri Linkov's avatar
Juri Linkov committed
258 259 260
 '(woman-use-own-frame nil)
 '(yank-excluded-properties t))
(custom-set-faces
261 262 263 264
 ;; 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.
Juri Linkov's avatar
Juri Linkov committed
265
 '(buffer-menu-buffer ((t (:foreground "black"))))
266 267
 '(button ((t (:inherit link :underline t))))
 '(c-annotation-face ((t (:inherit font-lock-comment-face))))
268
 '(comint-highlight-input ((t (:background "gray94"))))
Juri Linkov's avatar
Juri Linkov committed
269 270 271 272 273 274 275 276 277 278 279 280
 '(completions-common-part ((t (:inherit shadow))))
 '(completions-first-difference ((t (:underline t))))
 '(cperl-array ((t (:foreground "blue"))))
 '(cperl-hash ((t (:foreground "blue"))))
 '(cperl-nonoverridable ((((class color) (background light)) (:foreground "blue"))))
 '(custom-group-tag ((t (:foreground "brown"))))
 '(custom-variable-tag ((t (:foreground "brown"))))
 '(cvs-handled ((((class color) (background light)) (:foreground "slate gray"))))
 '(cvs-header ((t (:foreground "SteelBlue"))))
 '(cvs-marked ((t (:foreground "DarkRed"))))
 '(cvs-need-action ((((class color) (background light)) (:foreground "darkgreen"))))
 '(diary ((((class color)) (:foreground "blue"))))
281
 '(diff-hl-change ((t (:inherit diff-refine-changed))))
Juri Linkov's avatar
Juri Linkov committed
282 283
 '(diff-refine-added ((t (:inherit diff-refine-changed :background "#ccffcc"))))
 '(diff-refine-removed ((t (:inherit diff-refine-changed :background "#ffdddd"))))
284
 '(dired-directory ((t (:inherit link :underline nil))))
Juri Linkov's avatar
Juri Linkov committed
285 286
 '(eshell-prompt ((t (:foreground "DarkRed" :underline t :weight normal))))
 '(font-lock-builtin-face ((((class color) (background light)) (:foreground "Sienna")) (((class color) (background dark)) (:foreground "Sienna"))))
287 288
 '(font-lock-comment-face ((t (:foreground "Firebrick"))))
 '(font-lock-doc-face ((t (:inherit font-lock-comment-face))))
Juri Linkov's avatar
Juri Linkov committed
289 290
 '(font-lock-function-name-face ((((class color) (background dark)) (:foreground "DeepSkyBlue")) (t (:foreground "Blue1"))))
 '(font-lock-negation-char-face ((t (:foreground "DarkRed"))))
291
 '(font-lock-string-face ((((class color) (background light)) (:foreground "ForestGreen"))))
Juri Linkov's avatar
Juri Linkov committed
292 293 294 295
 '(font-lock-type-face ((((class color) (background light)) (:foreground "SteelBlue")) (((class color) (background dark)) (:foreground "SteelBlue"))))
 '(font-lock-variable-name-face ((((class color) (background light)) (:foreground "Blue3")) (((class color) (background dark)) (:foreground "SteelBlue"))))
 '(font-lock-warning-face ((t (:foreground "Red"))))
 '(fringe ((t (:inherit default))))
296 297
 '(glyphless-char ((t (:background "red"))))
 '(gnus-button ((t (:inherit button))))
Juri Linkov's avatar
Juri Linkov committed
298 299 300
 '(gnus-cite-5 ((((class color) (background light)) (:foreground "DarkOliveGreen"))))
 '(gnus-group-mail-2 ((t (:foreground "magenta4" :underline t :weight normal))))
 '(gnus-group-mail-2-empty ((((class color) (background light)) (:foreground "magenta4"))))
301 302
 '(gnus-summary-cancelled ((t (:inherit shadow))))
 '(gnus-summary-high-ancient ((t (:foreground "RoyalBlue"))))
Juri Linkov's avatar
Juri Linkov committed
303 304
 '(gnus-summary-high-ticked ((t (:foreground "firebrick" :weight normal))))
 '(gnus-summary-high-unread ((t (:foreground "blue"))))
305 306
 '(gnus-summary-low-read ((t (:foreground "light goldenrod"))))
 '(gnus-summary-normal-ancient ((t (:foreground "gray30"))))
Juri Linkov's avatar
Juri Linkov committed
307 308 309
 '(help-argument-name ((t (:foreground "SkyBlue4"))))
 '(holiday ((((class color)) (:background "tan"))))
 '(html-tag-face ((t (:foreground "blue"))))
310 311
 '(icomplete-first-match ((t nil)))
 '(info-xref ((t (:inherit link :underline t))))
Juri Linkov's avatar
Juri Linkov committed
312
 '(isearch ((((class color) (background light)) (:background "magenta4" :foreground "lightskyblue1")) (((class color) (background dark)) (:background "palevioletred2" :foreground "brown4"))))
313
 '(link ((t (:foreground "medium blue"))))
314
 '(markdown-code-face ((t (:inherit italic))))
Juri Linkov's avatar
Juri Linkov committed
315
 '(message-cited-text ((((class color) (background light)) (:foreground "DarkGreen"))))
316
 '(mm-uu-extract ((t (:background "gray94"))))
Juri Linkov's avatar
Juri Linkov committed
317 318
 '(mode-line-buffer-id ((t nil)))
 '(mode-line-inactive ((t (:inherit mode-line :box (:line-width -1 :style pressed-button)))))
319 320 321 322 323 324 325
 '(org-block ((t (:background "gray94"))))
 '(rainbow-delimiters-depth-1-face ((t (:inherit rainbow-delimiters-base-face :foreground "Purple"))))
 '(rainbow-delimiters-depth-2-face ((t (:inherit rainbow-delimiters-base-face :foreground "Blue1"))))
 '(rainbow-delimiters-depth-3-face ((t (:inherit rainbow-delimiters-base-face :foreground "Red1"))))
 '(rainbow-delimiters-depth-4-face ((t (:inherit rainbow-delimiters-base-face :foreground "gold1"))))
 '(rainbow-delimiters-depth-5-face ((t (:inherit rainbow-delimiters-base-face :foreground "green2"))))
 '(region ((((class color) (background light)) (:background "gray90"))))
Juri Linkov's avatar
Juri Linkov committed
326
 '(sh-heredoc ((((class color) (background light)) (:foreground "ForestGreen"))))
327
 '(show-paren-match ((((class color)) (:background "gainsboro"))))
Juri Linkov's avatar
Juri Linkov committed
328
 '(trailing-whitespace ((((class color) (background light)) (:background "pink"))))
329 330 331 332 333 334
 '(w3m-arrived-anchor-face ((((class color) (background light)) (:foreground "DarkMagenta"))) t)
 '(w3m-current-anchor-face ((t (:foreground "red"))) t)
 '(widget-button ((t nil)))
 '(xref-file-header ((t (:inherit success :background "grey95"))))
 '(xref-line-number ((t (:inherit shadow))))
 '(xref-match ((t (:inherit match)))))