From e94f9ba7b2a648ed836498bb43260d4105e63b31 Mon Sep 17 00:00:00 2001 From: dakkar Date: Wed, 9 Sep 2009 13:37:24 +0200 Subject: import emacs configuration --- init.el | 215 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 215 insertions(+) create mode 100755 init.el diff --git a/init.el b/init.el new file mode 100755 index 0000000..997fae3 --- /dev/null +++ b/init.el @@ -0,0 +1,215 @@ +(add-to-list 'load-path (expand-file-name "~/.emacs-lisp") t) ; my path at the end + +(load "/usr/share/emacs/site-lisp/site-gentoo") + +(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. + '(auto-coding-alist (quote (("\\.\\(arc\\|zip\\|lzh\\|zoo\\|jar\\|tar\\|tgz\\)\\'" . no-conversion) ("\\.\\(gz\\|Z\\|bz\\|bz2\\|gpg\\)\\'" . no-conversion) ("^/home/dakkar/.claws-mail/tmp" . utf-8)))) + '(browse-url-browser-function (quote browse-url-generic)) + '(browse-url-generic-program "/usr/bin/firefox" t) + '(browse-url-lynx-input-attempts 10 t) + '(browse-url-netscape-program "/usr/bin/firefox") + '(c-cleanup-list (quote (brace-else-brace brace-elseif-brace brace-catch-brace empty-defun-braces scope-operator))) + '(c-echo-syntactic-information-p t) + '(c-tab-always-indent nil) + '(calendar-week-start-day 1) + '(case-fold-search t) + '(column-number-mode t) + '(confirm-kill-emacs (quote yes-or-no-p)) + '(cperl-close-paren-offset -4) + '(cperl-continued-statement-offset 4) + '(cperl-indent-level 4) + '(cperl-indent-parens-as-block t) + '(cperl-under-as-char nil) + '(cperl-font-lock t) + '(current-language-environment "English") + '(default-frame-alist (quote ((tool-bar-lines . 0) (menu-bar-lines . 0) (width . 80) (height . 25) (right-fringe) (left-fringe) (fullscreen . fullheight)))) + '(desktop-enable t nil (desktop)) + '(diary-date-forms (quote ((month "/" day "[^/0-9]") (month "/" day "/" year "[^0-9]") (monthname " *" day "[^,0-9]") (monthname " *" day ", *" year "[^0-9]") (dayname "\\W") (year "-" month "-" day "[^0-9]")))) + '(ecb-cedet-url "http://belnet.dl.sourceforge.net/sourceforge/ecb/") + '(ecb-download-url "http://belnet.dl.sourceforge.net/sourceforge/ecb/") + '(ecb-options-version "2.27") + '(emacs-wiki-charset-default "utf-8") + '(emacs-wiki-coding-default (quote utf-8)) + '(emacs-wiki-grep-command "find %D -type f ! -name '*~' | xargs grep -E -n -e \"\\<%W\\>\"") + '(emacs-wiki-mode-hook (quote (emacs-wiki-use-font-lock footnote-mode highlight-changes-mode))) + '(enable-local-variables t) + '(file-coding-system-alist (quote (("\\.po\\'\\|\\.po\\." . po-find-file-coding-system) ("\\.dz\\'" no-conversion . no-conversion) ("\\.g?z\\(~\\|\\.~[0-9]+~\\)?\\'" no-conversion . no-conversion) ("\\.tgz\\'" no-conversion . no-conversion) ("\\.tbz\\'" no-conversion . no-conversion) ("\\.bz2\\'" no-conversion . no-conversion) ("\\.Z\\(~\\|\\.~[0-9]+~\\)?\\'" no-conversion . no-conversion) ("\\.elc\\'" emacs-mule . emacs-mule) ("\\.utf\\(-8\\)?\\'" . utf-8) ("\\(\\`\\|/\\)loaddefs.el\\'" raw-text . raw-text-unix) ("\\.tar\\'" no-conversion . no-conversion) ("\\.po[tx]?\\'\\|\\.po\\." . po-find-file-coding-system) ("\\.\\(tex\\|ltx\\|dtx\\|drv\\)\\'" . latexenc-find-file-coding-system) ("" undecided . utf-8)))) + '(file-name-coding-system (quote utf-8) t) + '(footnote-section-tag-regexp "Notes?\\(\\[.\\]\\)?: ") + '(footnote-spaced-footnotes nil) + '(global-font-lock-mode t nil (font-lock)) + '(gnus-default-charset (quote iso-8859-15)) + '(gnus-default-posting-charset (quote iso-8859-15)) + '(gnus-group-charset-alist (quote (("^hk\\>\\|^tw\\>\\|\\" cn-big5) ("^cn\\>\\|\\" cn-gb-2312) ("^fj\\>\\|^japan\\>" iso-2022-jp-2) ("^tnn\\>\\|^pin\\>\\|^sci.lang.japan" iso-2022-7bit) ("^relcom\\>" koi8-r) ("^fido7\\>" koi8-r) ("^\\(cz\\|hun\\|pl\\|sk\\|hr\\)\\>" iso-8859-2) ("^israel\\>" iso-8859-15) ("^han\\>" euc-kr) ("^alt.chinese.text.big5\\>" chinese-big5) ("^soc.culture.vietnamese\\>" vietnamese-viqr) ("^\\(comp\\|rec\\|alt\\|sci\\|soc\\|news\\|gnu\\|bofh\\)\\>" iso-8859-15) (".*" iso-8859-15)))) + '(gnus-group-posting-charset-alist (quote (("^\\(no\\|fr\\)\\.[^,]*\\(,[ +]*\\(no\\|fr\\)\\.[^,]*\\)*$" iso-8859-15 (iso-8859-15)) ("^\\(fido7\\|relcom\\)\\.[^,]*\\(,[ +]*\\(fido7\\|relcom\\)\\.[^,]*\\)*$" koi8-r (koi8-r)) (message-this-is-mail nil nil) (message-this-is-news nil t)))) + '(gnus-ignored-headers (quote ("^Path:" "^Expires:" "^Date-Received:" "^References:" "^Xref:" "^Lines:" "^Relay-Version:" "^Message-ID:" "^Approved:" "^Sender:" "^Received:" "^X-UIDL:" "^MIME-Version:" "^Return-Path:" "^In-Reply-To:" "^Content-Transfer-Encoding:" "^X-WebTV-Signature:" "^X-MimeOLE:" "^X-MSMail-Priority:" "^X-Priority:" "^X-Loop:" "^X-Authentication-Warning:" "^X-MIME-Autoconverted:" "^X-Face:" "^X-Attribution:" "^X-Originating-IP:" "^Delivered-To:" "^NNTP-[-A-Za-z]+:" "^Distribution:" "^X-no-archive:" "^X-Trace:" "^X-Complaints-To:" "^X-NNTP-Posting-Host:" "^X-Orig.*:" "^Abuse-Reports-To:" "^Cache-Post-Path:" "^X-Article-Creation-Date:" "^X-Poster:" "^X-Mail2News-Path:" "^X-Server-Date:" "^X-Cache:" "^Originator:" "^X-Problems-To:" "^X-Auth-User:" "^X-Post-Time:" "^X-Admin:" "^X-UID:" "^Resent-[-A-Za-z]+:" "^X-Mailing-List:" "^Precedence:" "^Original-[-A-Za-z]+:" "^X-filename:" "^X-Orcpt:" "^Old-Received:" "^X-Pgp" "^X-Auth:" "^X-From-Line:" "^X-Gnus-Article-Number:" "^X-Majordomo:" "^X-Url:" "^X-Sender:" "^MBOX-Line" "^Priority:" "^X-Pgp" "^X400-[-A-Za-z]+:" "^Status:" "^X-Gnus-Mail-Source:" "^Cancel-Lock:" "^X-FTN" "^X-EXP32-SerialNo:" "^Encoding:" "^Importance:" "^Autoforwarded:" "^Original-Encoded-Information-Types:" "^X-Ya-Pop3:" "^X-Face-Version:" "^X-Vms-To:" "^X-ML-NAME:" "^X-ML-COUNT:" "^Mailing-List:" "^X-finfo:" "^X-md5sum:" "^X-md5sum-Origin:" "^X-Sun-Charset:" "^X-Accept-Language:" "^X-Envelope-Sender:" "^List-[A-Za-z]+:" "^X-Listprocessor-Version:" "^X-Received:" "^X-Distribute:" "^X-Sequence:" "^X-Juno-Line-Breaks:" "^X-Notes-Item:" "^X-MS-TNEF-Correlator:" "^x-uunet-gateway:" "^X-Received:" "^Content-length:" "X-precedence:"))) + '(gnus-large-newsgroup 2000) + '(gnus-select-method (quote (nntp "news.ngi.it"))) + '(icomplete-mode t nil (icomplete)) + '(indent-tabs-mode nil) + '(lpr-command "gtklp") + '(lpr-switches nil) + '(menu-bar-mode nil) + '(message-signature-file "~/.signature/news.sig") + '(message-signature-separator "^-- [ ]*$") + '(message-subject-re-regexp "^[ ]*\\([Rr][Ee]?:[ ]*\\)*[ ]*") + '(mouse-wheel-follow-mouse t) + '(mouse-yank-at-point t) + '(msb-mode t nil (msb)) + '(next-line-add-newlines nil) + '(nxml-auto-insert-xml-declaration-flag t) + '(nxml-char-ref-display-glyph-flag nil) + '(nxml-child-indent 1) + '(nxml-default-buffer-file-coding-system (quote utf-8)) + '(nxml-slash-auto-complete-flag t) + '(pov-external-viewer-command "display") + '(pov-help-file "povuser.txt") + '(reftex-extra-bindings nil) + '(reftex-label-alist (quote (AMSTeX))) + '(rst-adornment-faces-alist (quote ((1 . rst-level-1-face) (2 . rst-level-2-face) (3 . rst-level-3-face) (4 . rst-level-4-face) (5 . rst-level-5-face) (6 . rst-level-6-face) (t . font-lock-keyword-face) (nil . font-lock-keyword-face)))) + '(rst-directive-face (quote font-lock-constant-face)) + '(rst-mode-lazy nil) + '(sendmail-coding-system nil t) + '(server-kill-new-buffers t) + '(server-raise-frame nil) + '(server-temp-file-regexp "^/home/dakkar/\\.claws-mail/tmp\\|/tmp/\\(Re\\|mutt\\)\\|/draft$") + '(sgml-balanced-tag-edit t t) + '(sgml-catalog-files (quote ("catalog" "/usr/local/lib/sgml/catalog" "/home/dakkar/.emacs-lisp/catalog")) t) + '(sgml-indent-data t t) + '(sgml-indent-step 1 t) + '(sgml-insert-end-tag-on-new-line t t) + '(sgml-live-element-indicator t t) + '(sgml-local-catalogs nil t) + '(sgml-markup-faces (quote ((start-tag . font-lock-builtin-face) (end-tag . font-lock-builtin-face) (comment . font-lock-comment-face) (pi . bold) (sgml . bold) (doctype . bold) (entity . italic) (shortref . bold))) t) + '(sgml-name-8bit-mode nil) + '(sgml-set-face t t) + '(sgml-slash-distance nil t) + '(smiley-regexp-alist nil) + '(speedbar-show-unknown-files nil) + '(speedbar-supported-extension-expressions (quote (".[ch]\\(\\+\\+\\|pp\\|c\\|h\\|xx\\)?" ".tex\\(i\\(nfo\\)?\\)?" ".el" ".emacs" ".l" ".lsp" ".p" ".java" ".f\\(90\\|77\\|or\\)?" ".ada" ".pl" ".tcl" ".m" ".scm" ".pm" ".py" ".s?html" "Makefile\\(\\.in\\)?" ".x[ms]l"))) + '(strokes-use-strokes-buffer nil) + '(tex-default-mode (quote latex-mode)) + '(tex-dvi-view-command "xdvi") + '(tool-bar-mode nil nil (tool-bar)) + '(tooltip-delay 1.5) + '(tooltip-short-delay 0.2) + '(truncate-partial-width-windows nil) + '(uniquify-buffer-name-style (quote forward) nil (uniquify)) + '(url-be-asynchronous t) + '(url-external-retrieval-args nil) + '(url-external-retrieval-program "wget") + '(w3-display-frames t) + '(w3-do-incremental-display t) + '(w3-use-terminal-characters nil) + '(w3-user-colors-take-precedence t) + '(which-func-mode-global t nil (which-func)) + '(widget-use-overlay-change t t) + '(x-stretch-cursor t)) + +(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. + '(cperl-array-face ((((class color) (background dark)) (:bold t :foreground "yellow")))) + '(cperl-hash-face ((((class color) (background dark)) (:bold t :italic t :foreground "green")))) + '(font-lock-builtin-face ((((class color) (background dark)) (:foreground "LightGreen")))) + '(font-lock-comment-face ((((class color) (background dark)) (:italic t :foreground "Gray")))) + '(message-cited-text-face ((((class color) (background dark)) (:box (:line-width 1 :color "grey75" :style pressed-button) :slant italic)))) + '(message-header-cc-face ((t (:foreground "green3" :weight bold)))) + '(message-header-name-face ((((class color) (background dark)) (:foreground "#00f0ff" :weight bold)))) + '(message-header-newsgroups-face ((t (:foreground "yellow3" :slant italic :weight bold)))) + '(message-header-other-face ((((class color) (background dark)) (:foreground "#b0b000")))) + '(message-mml-face ((((class color) (background dark)) (:foreground "#00f00f")))) + '(nxml-attribute-colon-face ((t (:inherit nxml-element-colon-face)))) + '(nxml-attribute-prefix-face ((t (:inherit nxml-element-prefix-face)))) + '(nxml-comment-content-face ((t (:foreground "darkgray" :slant italic)))) + '(nxml-delimited-data-face ((t (:foreground "#f0a040")))) + '(nxml-element-colon-face ((t (:inherit nxml-name-face :weight light)))) + '(nxml-element-prefix-face ((t (:inherit nxml-name-face :underline t)))) + '(nxml-name-face ((t (:foreground "#00dAa5")))) + '(nxml-namespace-attribute-colon-face ((t (:inherit nxml-attribute-colon-face)))) + '(nxml-namespace-attribute-prefix-face ((t (:inherit nxml-attribute-prefix-face)))) + '(nxml-namespace-attribute-xmlns-face ((t (:inherit nxml-name-face :foreground "blue")))) + '(nxml-ref-face ((t (:foreground "#b2b2e9")))) + '(rst-level-1-face ((t (:background "grey85" :foreground "black"))) t) + '(rst-level-2-face ((t (:background "grey78" :foreground "gray15"))) t) + '(rst-level-3-face ((t (:background "grey71" :foreground "gray25"))) t) + '(rst-level-4-face ((t (:background "grey64" :foreground "gray35"))) t) + '(rst-level-5-face ((t (:background "grey57" :foreground "gray70"))) t) + '(rst-level-6-face ((t (:background "grey50" :foreground "gray90"))) t)) + +(defun autoformat-region () + "Runs perl Text::Autoformat on region, replacing it with the output" + (interactive) + (shell-command-on-region (region-beginning) (region-end) + "perl -MText::Autoformat -e 'autoformat {all=>1}'" + "" "" + shell-command-default-error-buffer) +) + +; -------- reStructuredText section -------- +; some of my files have more than one "extension" +(add-to-list 'auto-mode-alist '("\\.re?st\\.tx?t\\'" . rst-mode)) +; I want auto-fill and fly-spell +(add-hook 'rst-mode-hook (lambda () + (progn + (rst-text-mode-bindings) + (rst-set-paragraph-separation) + (auto-fill-mode 1) + (flyspell-mode) + ))) +(add-hook 'rst-adjust-hook 'rst-toc-insert-update) +; one of the "extensions" can be a language code: use it +(add-hook 'flyspell-mode-hook (lambda () + (let ((filename (buffer-file-name))) + (when (and filename + (string-match "\\.\\(it\\|en\\)\\..*\\.\\(txt\\|tt\\)$" filename)) + (ispell-change-dictionary (match-string 1 filename)))))) +; I write my e-mails in Claws, and I want rst-mode enabled for them +(set-variable 'find-file-hooks (cons + (lambda () + (if (string-match "^/home/dakkar/\\.claws-mail/tmp" buffer-file-name) + (progn + (rst-mode) + ) + )) + find-file-hooks)) + +; -------- other modes -------- +; CPerl-mode instead of perl-mode +(autoload 'perl-mode "cperl-mode" "alternate mode for editing Perl programs" t) +; I use references in my LaTeX files +(add-hook 'latex-mode-hook 'turn-on-reftex) +; sometimes I edit POVRay files (mode from http://www.xahlee.org/3d/povray_emacs.html ) +(autoload 'pov-mode "pov-mode" "Major mode to edit POV-Ray files." t ) +(add-to-list 'auto-mode-alist '("\\.pov$" . pov-mode)) +(add-to-list 'auto-mode-alist '("\\.inc$" . pov-mode)) +; JavaScript mode from http://www.nongnu.org/espresso/ +(autoload 'espresso-mode "espresso" "Major mode to edit JavaScript files" t) +(add-to-list 'auto-mode-alist '("\\.js$" . espresso-mode)) +(add-to-list 'auto-mode-alist '("\\.json$" . espresso-mode)) +; Haskell mode configuration +(add-hook 'haskell-mode-hook 'turn-on-haskell-doc-mode) +(add-hook 'haskell-mode-hook 'turn-on-haskell-indent) +(add-hook 'haskell-mode-hook 'imenu-add-menubar-index) +; calendar mode configuration +(setq mark-holidays-in-calendar t) +(add-hook 'today-visible-calendar-hook 'calendar-mark-today) +(setq mark-diary-entries-in-calendar t) +(setq calendar-date-display-form '(year "-" month "-" day)) +(setq calendar-time-display-form '(24-hours ":" minutes + (if time-zone " (") time-zone (if time-zone ")"))) + +; -------- use the function keys! -------- +(global-set-key [f13] 'universal-argument) +; change dictionary with a single key +(global-set-key [f14] (lambda () (interactive) (ispell-change-dictionary "italiano"))) +(global-set-key [f15] (lambda () (interactive) (ispell-change-dictionary "english"))) + -- cgit v1.2.3