diff options
| -rw-r--r-- | .emacs | 27 | ||||
| -rw-r--r-- | .emacs.d/emacsutils.el | 13 |
2 files changed, 26 insertions, 14 deletions
@@ -70,17 +70,9 @@ (face-background 'default))) t) -(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))))) +(load "emacsutils") +(tool-bar-mode -1) (ido-mode t) (show-paren-mode 1) @@ -125,13 +117,20 @@ (setq column-number-mode t inhibit-startup-screen t line-number-mode t + server-use-tcp t server-mode t show-paren-mode t) (setq browse-url-generic-program (executable-find "v-www-browser") browse-url-browser-function 'browse-url-generic) -(require 'flymake) -(add-hook 'php-mode-hook (lambda() (flymake-mode 1))) -(define-key php-mode-map '[M-S-up] 'flymake-goto-prev-error) -(define-key php-mode-map '[M-S-down] 'flymake-goto-next-error) +(add-hook 'term-mode-hook + #'(lambda () (setq autopair-dont-activate t))) + +;(require 'flymake) +;(add-hook 'php-mode-hook (lambda() (flymake-mode 1))) +;(define-key php-mode-map '[M-S-up] 'flymake-goto-prev-error) +;(define-key php-mode-map '[M-S-down] 'flymake-goto-next-error) + +;(setq tramp-debug-buffer t) +;(setq tramp-verbose 10) 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 |