3 files changed, 35 insertions, 0 deletions
diff --git a/.emacs.d/.gitignore b/.emacs.d/.gitignore
new file mode 100644
index 0000000..2cae575
--- /dev/null
+++ b/.emacs.d/.gitignore
@@ -0,0 +1,6 @@
+auto-save-list/*
+el-get/*
+server/*
+elmo/*
+image-dired/*
+session.*
diff --git a/.emacs.d/custom.el b/.emacs.d/custom.el
new file mode 100644
index 0000000..9f61215
--- /dev/null
+++ b/.emacs.d/custom.el
@@ -0,0 +1,16 @@
+(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.
+ '(erc-nick "lukeshu-freenode")
+ '(erc-port 6667)
+ '(erc-server "lukeshu.ath.cx")
+ '(mdmua-maildir "~/Maildir")
+ '(scroll-bar-mode nil))
+(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.
+ )
diff --git a/.emacs.d/emacsutils.el b/.emacs.d/emacsutils.el
new file mode 100644
index 0000000..966d16e
--- /dev/null
+++ b/.emacs.d/emacsutils.el
@@ -0,0 +1,13 @@
+(defun mailto-compose-mail (mailto-url)
+  (if (and (stringp mailto-url)
+           (string-match "\\`mailto:" mailto-url))
+      (progn
+        (require 'rfc2368)
+        (let* ((headers (mapcar (lambda (h) (cons (intern (car h)) (cdr h)))
+                          (rfc2368-parse-mailto-url mailto-url)))
+               (good-headers (remove-if (lambda (h) (member (car h) '(Body))) headers))
+               (body (cdr (assoc 'Body headers))))
+          (wl-draft good-headers nil nil body)))))
+
+(defun emacs-terminal-emulator (program)
+  (ansi-term program))
+\ No newline at end of file