summaryrefslogtreecommitdiff
path: root/.emacs.d/emacsutils.el
diff options
context:
space:
mode:
Diffstat (limited to '.emacs.d/emacsutils.el')
-rw-r--r--.emacs.d/emacsutils.el13
1 files changed, 13 insertions, 0 deletions
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