import emacs configuration

1 files changed, 215 insertions, 0 deletions

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\\>\\|\\<big5\\>" cn-big5) ("^cn\\>\\|\\<chinese\\>" 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")))
+