diff options
author | Luke Shumaker <LukeShu@sbcglobal.net> | 2013-01-27 17:45:15 -0500 |
---|---|---|
committer | Luke Shumaker <LukeShu@sbcglobal.net> | 2013-01-27 17:45:15 -0500 |
commit | a8d5c70a32d986ff83e4038b0b2213bc25a3231d (patch) | |
tree | e02f6f46fe6a3308cec64d5553f2cfadba057dda /.config/emacs/emacsutils.el | |
parent | efe15f2fd711686d9e1d790e597cf0c032f6af73 (diff) |
mv .emacs.d .config/emacs; ln -s .config/emacs .emacs.d
Diffstat (limited to '.config/emacs/emacsutils.el')
-rw-r--r-- | .config/emacs/emacsutils.el | 13 |
1 files changed, 13 insertions, 0 deletions
diff --git a/.config/emacs/emacsutils.el b/.config/emacs/emacsutils.el new file mode 100644 index 0000000..966d16e --- /dev/null +++ b/.config/emacs/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 |