Add notmuch, themes etc.

diff --git a/init.el b/init.el
index f27270d0bf7f84d4c967a3881d362391c33fceb4..0fdc0676c9df8216119f6476bd9d5022fdaf738e 100644 (file)
--- a/init.el
+++ b/init.el
@@ -2,10 +2,11 @@
 
 ;; color themes
 (add-to-list 'custom-theme-load-path "~/.emacs.d/themes")
-(load-theme 'zenburn t)
+;(load-theme 'zenburn t)
 
 (require 'package)
 (package-initialize)
+(add-to-list 'package-archives '("melpa" . "http://melpa.milkbox.net/packages/") t)
 
 (load "my-c-mode.el")
 (load "my-generic-stuff.el")
@@ -20,7 +21,7 @@
 
 ;; setup font
 (if (>= emacs-major-version 23)
-    (setq default-frame-alist '((font . "Inconsolata-12")))
+    (setq default-frame-alist '((font . "Inconsolata-14")))
   (set-default-font
    "-Misc-Fixed-Medium-R-Normal--15-140-75-75-C-90-ISO8859-1"))
 
@@ -125,8 +126,8 @@
 (require 'gist)
 
 ;; browse url
-(setq browse-url-browser-function 'browse-url-generic
-      browse-url-generic-program "/usr/bin/iceweasel"
+(setq browse-url-browser-function 'browse-url-firefox
+;      browse-url-generic-program "/usr/bin/iceweasel"
       browse-url-new-window-flag  t
       browse-url-firefox-new-window-is-tab t)
 (define-key global-map "\C-co" 'browse-url-at-point)
@@ -305,3 +306,108 @@
 ;; cursor
 (setq-default cursor-type '(bar . 2))
 (set-cursor-color "#ff0000")
+
+;; color theme
+
+;; wombat color theme
+;(set-background-color "Black")
+(set-background-color "#242424")
+;(set-foreground-color "White")
+(set-foreground-color "#f6f3e8")
+(set-cursor-color "Red")
+;(set-cursor-color "#656565")
+(set-mouse-color "LightSkyBlue")
+(setq font-lock-maximum-decoration t)
+(set-face-foreground 'font-lock-comment-face "#99968b")
+(set-face-italic-p 'font-lock-comment-face t)
+(set-face-foreground 'font-lock-doc-face "#99968b")
+(set-face-italic-p 'font-lock-doc-face t)
+(set-face-foreground 'font-lock-constant-face "#e5786d")
+(set-face-foreground 'font-lock-string-face "#95e454")
+(set-face-italic-p 'font-lock-string-face t)
+(set-face-foreground 'font-lock-variable-name-face "#cae682")
+(set-face-foreground 'font-lock-function-name-face "#cae682")
+(set-face-foreground 'font-lock-type-face "#cae682")
+(set-face-foreground 'font-lock-builtin-face "#8ac6f2")
+(set-face-foreground 'font-lock-keyword-face "#8ac6f2")
+(set-face-foreground 'font-lock-preprocessor-face "#e5786d")
+(set-face-foreground 'font-lock-negation-char-face "#e7f6da")
+(set-face-foreground 'link "#8ac6f2")
+(set-face-bold-p 'link t)
+(set-face-underline-p 'link t)
+(show-paren-mode t)
+(set-face-foreground 'show-paren-match-face "#f6f3e8")
+(set-face-background 'show-paren-match-face "#857b6f")
+(set-face-bold-p 'show-paren-match t)
+(set-face-foreground 'region "#f6f3e8")
+(set-face-background 'region "#444444")
+(set-face-foreground 'lazy-highlight "black")
+(set-face-background 'lazy-highlight "yellow")
+
+;; color theme from Lau Jenson
+(defun color-theme-dark-bliss ()
+  ""
+  (interactive)
+  (color-theme-install
+   '(color-theme-dark-bliss
+     ((foreground-color . "#eeeeee")
+      (background-color . "#001122")
+      (background-mode . dark)
+      (cursor-color . "#ccffcc"))
+     (bold ((t (:bold t))))
+     (bold-italic ((t (:italic t :bold t))))
+     (default ((t (nil))))
+
+     (font-lock-builtin-face ((t (:foreground "#f0f0aa"))))
+     (font-lock-comment-face ((t (:italic t :foreground "#aaccaa"))))
+     (font-lock-delimiter-face ((t (:foreground "#aaccaa"))))
+     (font-lock-constant-face ((t (:bold t :foreground "#ffaa88"))))
+     (font-lock-doc-string-face ((t (:foreground "#eeccaa"))))
+     (font-lock-doc-face ((t (:foreground "#eeccaa"))))
+     (font-lock-reference-face ((t (:foreground "#aa99cc"))))
+     (font-lock-function-name-face ((t (:foreground "#ffbb66"))))
+     (font-lock-keyword-face ((t (:foreground "#ccffaa"))))
+     (font-lock-preprocessor-face ((t (:foreground "#aaffee"))))
+     (font-lock-string-face ((t (:foreground "#bbbbff")))))))
+
+;; (color-theme-dark-bliss)
+
+;; notmuch
+(setq gnus-inhibit-images nil)
+(add-to-list 'load-path "~/.emacs.d/emacs/notmuch")
+(setq notmuch-command "/Users/rkrishnan/bin/remote-notmuch.sh")
+(require 'notmuch)
+(when (memq window-system '(mac ns))
+  (exec-path-from-shell-initialize)
+  (setq starttls-use-gnutls t)
+  (setq starttls-gnutls-program "gnutls-cli")
+  (setq starttls-extra-arguments nil)
+  )
+(setq smtpmail-starttls-credentials '(("rkrishnan.org" 587 nil nil))
+      smtpmail-auth-credentials (expand-file-name "~/.authinfo")
+      smtpmail-default-smtp-server "rkrishnan.org"
+      smtpmail-smtp-server "rkrishnan.org"
+      smtpmail-smtp-service 587)
+
+(setq notmuch-fcc-dirs nil)
+(add-hook 'message-header-setup-hook
+    (lambda () (insert (format "Bcc: %s <%s>\n"
+                (notmuch-user-name)
+                (notmuch-user-primary-email)))))
+
+;; addressbook
+(require 'notmuch-address)
+(setq notmuch-address-command "~/bin/addrlookup")
+(notmuch-address-message-insinuate)
+
+(require 'smtpmail)
+(setq message-send-mail-function 'smtpmail-send-it)
+(require 'starttls)
+
+;; sign all emails
+;(add-hook 'message-setup-hook 'mml-secure-message-sign-pgpmime)
+
+(setq default-frame-alist
+      '((font . "Menlo-13")
+        (width . 80)))
+