summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorLuke Shumaker <LukeShu@sbcglobal.net>2011-08-19 08:23:21 -0400
committerLuke Shumaker <LukeShu@sbcglobal.net>2011-08-19 08:23:21 -0400
commitea4798dce3a4b848d1c7749fd26201a38e3c41bb (patch)
treea76760a06fc70986fef2709985151d8138c39ae6
parente5ff713e56cc96371ba7b3f05aadf1004b617393 (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
-rw-r--r--.emacs27
-rw-r--r--.emacs.d/emacsutils.el13
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