diff options
| author | Luke Shumaker <LukeShu@sbcglobal.net> | 2011-08-19 08:23:21 -0400 |
|---|---|---|
| committer | Luke Shumaker <LukeShu@sbcglobal.net> | 2011-08-19 08:23:21 -0400 |
| commit | ea4798dce3a4b848d1c7749fd26201a38e3c41bb (patch) | |
| tree | a76760a06fc70986fef2709985151d8138c39ae6 /.emacs.d | |
| parent | e5ff713e56cc96371ba7b3f05aadf1004b617393 (diff) | |
emacs:
- disable php flymake (problems with TRAMP)
- use tcp instead of local sockets
- disable the tool bar
- move mailto-compose-mail to .emacs.d/emacsutils.el
- add emacs-terminal-emulator to .emacs.d/emacsutils.el
Diffstat (limited to '.emacs.d')
| -rw-r--r-- | .emacs.d/emacsutils.el | 13 |
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 |