Don't like ads? PRO users don't see any ads ;-)
Public Pastes
Guest

Untitled

By: a guest on May 2nd, 2012  |  syntax: None  |  size: 4.53 KB  |  hits: 17  |  expires: Never
download  |  raw  |  embed  |  report abuse  |  print
Text below is selected. Please press Ctrl+C to copy to your clipboard. (⌘+C on Mac)
  1. ; -*- mode: Emacs-Lisp; -*-
  2.  
  3. ;; ibuffer
  4. (require 'ibuffer)
  5.  
  6. (setq ibuffer-saved-filter-groups
  7.       (quote (("default"
  8.                ("emacs"
  9.                 (or (name . "^\\*scratch\\*$")
  10.                     (name . "^\\*Messages\\*$")
  11.                     (name . "^\\*Completions\\*$")
  12.                     (name . "^\\*Colors\\*$")
  13.                     (mode . help-mode)))
  14.                ("gnus"
  15.                 (or (mode . message-mode)
  16.                     (mode . bbdb-mode)
  17.                     (mode . mail-mode)
  18.                     (mode . gnus-group-mode)
  19.                     (mode . gnus-summary-mode)
  20.                     (mode . gnus-article-mode)
  21.                     (name . "^\\\\.bbdb$")
  22.                     (name . "^\\\\.newsrc-dribble")
  23.                     (name . "^\\*imap-log\\*$")
  24.                     (mode . newsticker-mode)))
  25.                ("org"
  26.                 (mode . org-mode))))))
  27. (add-hook 'ibuffer-mode-hook
  28.           (lambda ()
  29.             (ibuffer-switch-to-saved-filter-groups "default")))
  30.  
  31. (global-set-key (kbd "C-x C-b") 'ibuffer)
  32.  
  33. ;; org
  34. (setq org-todo-keyword-faces
  35.       '(("TODO" . (:foreground "coral4"))
  36.         ("DONE" . (:foreground "PaleGreen4"))))
  37.  
  38. (setq org-ellipsis "…")
  39.  
  40. ;; gnus
  41. (setq user-full-name "Nicolas Martyanoff")
  42.  
  43. (setq gnus-select-methods
  44.       '(nnimap "galdor.org"
  45.                (nnimap-address "galdor.org")
  46.                (nnimap-server-port 993)
  47.                (nnimap-stream ssl)))
  48.  
  49. (setq gnus-secondary-select-methods
  50.       '((nnimap "galdor.org"
  51.                 (nnimap-address "galdor.org")
  52.                 (nnimap-server-port 993)
  53.                 (nnimap-stream ssl))
  54.         (nnimap "intersec"
  55.                 (nnimap-address "mail.mail.intersec.com")
  56.                 (nnimap-server-port 993)
  57.                 (nnimap-stream ssl))))
  58.  
  59. (setq gnus-posting-styles
  60.       '((".*"
  61.          (signature-file "~/.signature"))
  62.         ((header "from" "nicolas.martyanoff@intersec.com")
  63.          (signature-file "~/.signature")
  64.          (organization "Intersec"))))
  65.  
  66. (setq imap-log t)
  67.  
  68. (setq gnus-treat-display-smileys nil)
  69.  
  70. ;; haskell mode
  71. (load "~/.emacs.d/haskell-mode-2.7.0/haskell-site-file")
  72.  
  73. (add-hook 'haskell-mode-hook 'turn-on-haskell-doc-mode)
  74. (add-hook 'haskell-mode-hook 'turn-on-haskell-indentation)
  75.  
  76. ;; slime
  77. (add-to-list 'load-path "~/.emacs.d/slime-2010-06-13")
  78. (add-to-list 'load-path "~/.emacs.d/slime-2010-06-13/contrib")
  79.  
  80. (setq inferior-lisp-program "sbcl")
  81.  
  82. (require 'slime)
  83. (slime-setup '(slime-fancy))
  84.  
  85. ;; paredit
  86. (add-to-list 'load-path "~/.emacs.d")
  87.  
  88. (autoload 'paredit-mode "paredit"
  89.   "Minor mode for pseudo-structurally editing Lisp code." t)
  90.  
  91. (add-hook 'emacs-lisp-mode-hook (lambda () (paredit-mode +1)))
  92. (add-hook 'lisp-mode-hook (lambda () (paredit-mode +1)))
  93. (add-hook 'lisp-interaction-mode-hook (lambda () (paredit-mode +1)))
  94.  
  95. ;; Shortcuts
  96. (global-set-key "\C-w" 'backward-kill-word)
  97.  
  98. ;; Color theme
  99. (set-background-color "gray15")
  100. (set-foreground-color "gray50")
  101. (set-cursor-color "gray50")
  102.  
  103. (set-face-foreground 'font-lock-comment-face "SteelBlue4")
  104. (set-face-foreground 'font-lock-comment-delimiter-face "LightSkyBlue4")
  105. (set-face-foreground 'font-lock-doc-face "slate gray")
  106. (set-face-foreground 'font-lock-string-face "RosyBrown4")
  107. (set-face-foreground 'font-lock-keyword-face "seashell4")
  108. (set-face-foreground 'font-lock-builtin-face "gray50")
  109. (set-face-foreground 'font-lock-function-name-face "gray50")
  110. (set-face-foreground 'font-lock-variable-name-face "gray50")
  111. (set-face-foreground 'font-lock-type-face "dark olive green")
  112. (set-face-foreground 'font-lock-constant-face "PeachPuff4")
  113. (set-face-foreground 'font-lock-preprocessor-face "MediumPurple4")
  114. (set-face-foreground 'font-lock-negation-char-face "gray60")
  115. (set-face-foreground 'font-lock-warning-face "firebrick")
  116.  
  117. ;; Indent
  118. (setq indent-tabs-mode nil)
  119.  
  120. ;; C mode
  121. (setq c-mode-hook
  122.       (function (lambda ()
  123.                   (setq c-default-style "bsd")
  124.                   (setq c-basic-offset 4))))
  125.  
  126. (setq c++-mode-hook
  127.       (function (lambda ()
  128.                   (setq c-default-style "bsd")
  129.                   (setq c-indent-level 4))))
  130.  
  131. ;; Misc
  132. (menu-bar-mode -1)
  133. (tool-bar-mode -1)
  134. (scroll-bar-mode -1)
  135.  
  136. (setq backup-inhibited t)
  137. (setq auto-save-default nil)
  138.  
  139. (setq-default indent-tabs-mode nil)
  140.  
  141. (fset 'yes-or-no-p 'y-or-n-p)
  142.  
  143. (line-number-mode t)
  144. (column-number-mode t)
  145.  
  146. (set-default 'fill-column 78)
  147.  
  148. (setq visible-bell t)
  149.  
  150. (setq inhibit-startup-message t)
  151.  
  152. (global-font-lock-mode t)
  153.  
  154. (setq show-trailing-whitespace t)
create a new version of this paste RAW Paste Data