; compatibility with some strange packages that were not updated for emacs 24 ;; Added by Package.el. This must come before configurations of ;; installed packages. Don't delete this line. If you don't want it, ;; just comment it out by adding a semicolon to the start of the line. ;; You may delete these explanatory comments. (package-initialize) (defalias 'make-local-hook 'ignore) (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. '(ack-command "ack --nopager ") '(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") '(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) '(confluence-default-space-alist (quote (("https://confluence.nap/rpc/xmlrpc" . "TA") ("https://confluence.nap/rpc/xmlrpc" . "BAK")))) '(confluence-url "https://confluence.nap/rpc/xmlrpc") '(cperl-close-paren-offset -4) '(cperl-continued-statement-offset 4) '(cperl-font-lock t) '(cperl-indent-level 4) '(cperl-indent-parens-as-block t) '(cperl-under-as-char nil) '(current-language-environment "English") '(default-frame-alist (quote ((tool-bar-lines . 0) (width . 80) (height . 25) (right-fringe) (left-fringe) (fullscreen . fullheight)))) '(desktop-load-locked-desktop t) '(desktop-save t) '(desktop-save-mode t) '(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) '(espresso-indent-level 2) '(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) '(flymake-allowed-file-name-masks (quote (("\\.\\(?:c\\(?:pp\\|xx\\|\\+\\+\\)?\\|CC\\)\\'" flymake-simple-make-init nil nil) ("\\.xml\\'" flymake-xml-init nil nil) ("\\.html?\\'" flymake-xml-init nil nil) ("\\.cs\\'" flymake-simple-make-init nil nil) ("\\.p[ml]\\'" flymake-perl-init nil nil) ("\\.php[345]?\\'" flymake-php-init nil nil) ("\\.h\\'" flymake-master-make-header-init flymake-master-cleanup nil) ("\\.java\\'" flymake-simple-make-java-init flymake-simple-java-cleanup nil) ("[0-9]+\\.tex\\'" flymake-master-tex-init flymake-master-cleanup nil) ("\\.tex\\'" flymake-simple-tex-init nil nil) ("\\.idl\\'" flymake-simple-make-init nil nil) ("\\.ino\\'" flymake-simple-make-init nil nil)))) '(flymake-log-level 0) '(flymake-master-file-dirs (quote ("." "./src" "./lib" "./t/lib"))) '(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) '(ledger-clear-whole-transactions t) '(ledger-reconcile-default-commodity "GBP") '(ledger-reconcile-default-date-format "%Y-%m-%d") '(ledger-use-iso-dates t) '(lpr-command "gtklp") '(lpr-switches nil) '(magit-default-tracking-name-function (quote magit-default-tracking-name-branch-only)) '(markdown-command "markdown_py") '(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) '(package-archives (quote (("gnu" . "http://elpa.gnu.org/packages/") ("melpa" . "http://melpa.milkbox.net/packages/")))) '(package-selected-packages (quote (json-mode web-mode yaml-mode unicode-fonts scad-mode perl6-mode markdown-mode+ magit ledger-mode flycheck-status-emoji flycheck-perl6 ack-menu))) '(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) '(ruby-deep-indent-paren nil) '(select-enable-primary t) '(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) '(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) '(tramp-default-proxies-alist nil) '(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) '(web-mode-attr-indent-offset nil) '(web-mode-code-indent-offset 2) '(web-mode-css-indent-offset 2) '(web-mode-markup-indent-offset 2) '(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))) t) '(message-header-cc-face ((t (:foreground "green3" :weight bold))) t) '(message-header-name-face ((((class color) (background dark)) (:foreground "#00f0ff" :weight bold))) t) '(message-header-newsgroups-face ((t (:foreground "yellow3" :slant italic :weight bold))) t) '(message-header-other-face ((((class color) (background dark)) (:foreground "#b0b000"))) t) '(message-mml-face ((((class color) (background dark)) (:foreground "#00f00f"))) t) '(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) ) (setq frame-title-format "%b") ; -------- 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 (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 (or (string-match "^/home/dakkar/\\.claws-mail/tmp" buffer-file-name) (string-match "^/home/dakkar/\\.mozilla/firefox/.*/italltext/" buffer-file-name) ) (progn (rst-mode) ) )) find-file-hooks)) ; -------- other modes -------- ; CPerl-mode instead of perl-mode (defalias 'perl-mode 'cperl-mode) (add-to-list 'auto-mode-alist '("\\.tt$" . html-mode)) (add-to-list 'auto-mode-alist '("\\.t$" . perl-mode)) (autoload 'arduino-mode "arduino-mode" "mode to edit arduino sketches" t) (add-to-list 'auto-mode-alist '("\\.pde\\'" . arduino-mode)) (add-to-list 'auto-mode-alist '("\\.ino\\'" . arduino-mode)) (add-to-list 'auto-mode-alist '("\\.md$" . markdown-mode)) (add-hook 'markdown-mode-hook (lambda () (progn (auto-fill-mode 1) (flyspell-mode) ))) ; 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)) ; 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 ")"))) ; org mode (add-to-list 'auto-mode-alist '("TODO$" . org-mode)) ; -------- 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 "en_GB"))) (global-set-key [XF86Launch6] (lambda () (interactive) (ispell-change-dictionary "en_GB"))) (global-set-key (kbd "M-ยง") 'magit-status) (global-set-key (kbd "M-`") 'magit-status) ; -------- different keyboard, different keys -------- (global-set-key [XF86Tools] 'universal-argument) ; change dictionary with a single key (global-set-key [XF86Launch5] (lambda () (interactive) (ispell-change-dictionary "italiano"))) (global-set-key [XF86MenuKB] (lambda () (interactive) (ispell-change-dictionary "en_GB"))) (global-set-key [(meta control return)] 'find-file-at-point) ; ELPA packages are loaded after init.el, so we can't call a function ; from one of those packages here; see also ; https://www.emacswiki.org/emacs/ELPA (add-hook 'after-init-hook 'unicode-fonts-setup)