blob: d0bf7a3f5a89e8d572138ac61dabfd9f9ff30097 (
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
|
;;;; General settings
(put 'eval-expression 'disabled nil)
(setq enable-local-eval t)
(global-set-key "\M-s" 'goto-line)
(setq inferior-lisp-program "/usr/local/bin/guile --debug")
;;; Some settigns depend on window system
(cond
((not window-system)
(menu-bar-mode -1) ; I hate menu bars.
(standard-display-european t))
(t
(set-language-environment 'utf-8)
(global-font-lock-mode 1)
;; Set up Arabic fonts when using emacs-bidi
(when (boundp 'emacs-bidi-version)
(set-fontset-font
"fontset-default"
(cons (decode-char 'ucs #x05b0) (decode-char 'ucs #x06ff))
"-m17n-*--20-*-iso10646-1")
(set-fontset-font
"fontset-default"
(cons (decode-char 'ucs #xfb2a) (decode-char 'ucs #xfbff))
"-m17n-*--20-*-iso10646-1")
(set-fontset-font
"fontset-default"
(cons (decode-char 'ucs #xfe70) (decode-char 'ucs #xfefc))
"-m17n-*--20-*-iso10646-1")
(set-fontset-font
"fontset-default"
(cons (decode-char 'ucs #x200c) (decode-char 'ucs #x200f))
"-m17n-*--20-*-iso10646-1")) ))
;; When using emacs-bidi, provide paths to my usual site directories
(when (boundp 'emacs-bidi-version)
(setq load-path (append load-path
(list "/usr/share/emacs/site-lisp"
"/usr/local/share/emacs/site-lisp"))))
;; More paths
(setq load-path (append
'(;"/home/gray/mh-e/src"
"/home/gray/.elisp"
"/usr/local/mailutils/share/emacs/site-lisp")
load-path))
;; Load necessary packages
(autoload 'sc-cite-original "supercite")
(autoload 'sc-submit-bug-report "supercite")
(setq user-mail-address "gray@gnu.org.ua")
; Configure MH
;(load "mailutils-mh")
(require 'mh-e)
(setq mh-compose-insertion 'mhn)
(setq mh-invisible-header-fields (list "X-Mailutils-Message-Id:"))
(require 'erc)
(setq erc-anonymous-login nil
erc-nick "sergiusz"
erc-server "irc.gnu.org"
erc-port "ircd")
(require 'mailcrypt)
(mc-setversion "gpg")
(add-hook 'mh-folder-mode-hook 'mc-install-read-mode)
(add-hook 'mh-letter-mode-hook 'mc-install-write-mode)
(setq mc-pgp-user-id "0768366A") ;; RIPE key ID is the primary one
(setq mc-passwd-timeout 120)
;; Specific setups:
(load "~/lib/emacs.el")
(load "~/lib/email-settings.el")
(load "~/lib/spell-check.el")
(require 'po-mode)
(load "~/lib/po.el")
(add-hook 'po-mode-hook 'gray-po-mode-hook)
(add-hook 'po-subedit-mode-hook 'gray-po-subedit-mode-hook)
(add-hook 'po-subedit-exit-hook 'gray-po-subedit-exit-hook)
(load "~/lib/links-mode.el")
;; Load directory-specific settings:
(let ((local-rc "./.emacsrc"))
(if (file-exists-p local-rc)
(load-file local-rc)))
;; Restore desktop
(load "desktop")
(desktop-load-default)
(desktop-read)
;;;; End of .emacs
|