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

2 files changed, 26 insertions, 14 deletions

diff --git a/.emacs b/.emacs
index 538e2c4..55bdb90 100644
--- a/.emacs
+++ b/.emacs
@@ -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