diff options
Diffstat (limited to '.emacs.d')
-rw-r--r-- | .emacs.d/.gitignore | 6 | ||||
-rw-r--r-- | .emacs.d/custom.el | 16 | ||||
-rw-r--r-- | .emacs.d/emacsutils.el | 13 |
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 |