Permalink
Browse files

Added multi-term

  • Loading branch information...
1 parent 9d9fb30 commit f000b4f27b175eacf06744a670b7c251e9ba5fb6 @srstrong committed Nov 24, 2011
Showing with 835 additions and 53 deletions.
  1. +61 −53 dot_emacs
  2. +774 −0 multi-term.el
View
@@ -21,85 +21,93 @@
(add-to-list 'default-frame-alist
(cons 'height (/ (- (x-display-pixel-height) 200) (frame-char-height)))))))
+(add-to-list 'load-path "~/src/emacs")
(add-to-list 'load-path "~/src/emacs/color-theme")
- (require 'color-theme)
- (eval-after-load "color-theme"
- '(progn
- (color-theme-initialize)
- (color-theme-solarized 'dark)))
+
+(require 'multi-term)
+(setq multi-term-program "/bin/zsh")
+(custom-set-variables
+ '(term-default-bg-color "#002b36")
+ '(term-default-fg-color "#839496"))
+
+(require 'color-theme)
+(eval-after-load "color-theme"
+ '(progn
+ (color-theme-initialize)
+ (color-theme-solarized 'dark)))
(defadvice zap-to-char (after my-zap-to-char-advice (arg char) activate)
- "Kill up to the ARG'th occurence of CHAR, and leave CHAR.
+ "Kill up to the ARG'th occurence of CHAR, and leave CHAR.
The CHAR is replaced and the point is put before CHAR."
- (insert char)
- (forward-char -1))
+ (insert char)
+ (forward-char -1))
(set-frame-size-according-to-resolution)
(custom-set-variables
- ;; custom-set-variables was added by Custom.
- ;; If you edit it by hand, you could mess it up, so be careful.
- ;; Your init file should contain only one such instance.
- ;; If there is more than one, they won't work right.
+ ;; custom-set-variables was added by Custom.
+ ;; If you edit it by hand, you could mess it up, so be careful.
+ ;; Your init file should contain only one such instance.
+ ;; If there is more than one, they won't work right.
'(ecb-options-version "2.40")
'(initial-buffer-choice t)
- '(ns-command-modifier (quote meta))
- '(ns-control-modifier (quote control))
+ ;; '(ns-command-modifier (quote meta))
+ ;; '(ns-control-modifier (quote control))
'(safe-local-variable-values (quote ((erlang-indent-level . 4)))))
(custom-set-faces
- ;; custom-set-faces was added by Custom.
- ;; If you edit it by hand, you could mess it up, so be careful.
- ;; Your init file should contain only one such instance.
- ;; If there is more than one, they won't work right.
+ ;; custom-set-faces was added by Custom.
+ ;; If you edit it by hand, you could mess it up, so be careful.
+ ;; Your init file should contain only one such instance.
+ ;; If there is more than one, they won't work right.
)
;; Erlang
(setq load-path (cons "~/src/emacs/erlang"
- load-path))
-(setq erlang-root-dir "/usr/local/Cellar/erlang/R14B03/lib/erlang")
-(setq exec-path (cons "/usr/local/Cellar/erlang/R14B03/lib/erlang/bin" exec-path))
+ load-path))
+(setq erlang-root-dir "~/erlang/lib/erlang")
+(setq exec-path (cons "~/erlang/lib/erlang/bin" exec-path))
(require 'erlang-start)
;; Wrangler
-(add-to-list 'load-path "/usr/local/share/wrangler/elisp")
-(require 'wrangler)
+;;(add-to-list 'load-path "/usr/local/share/wrangler/elisp")
+;;(require 'wrangler)
-; Install mode-compile to give friendlier compiling support!
-(add-to-list 'load-path "~/elisp")
-(autoload 'mode-compile "mode-compile" "Command to compile current buffer file based on the major mode" t)
-(global-set-key (kbd "C-c c") 'mode-compile)
-(autoload 'mode-compile-kill "mode-compile" "Command to kill a compilation launched by `mode-compile'" t)
-(global-set-key (kbd "C-c k") 'mode-compile-kill)
+;; Install mode-compile to give friendlier compiling support!
+;;(add-to-list 'load-path "~/elisp")
+;;(autoload 'mode-compile "mode-compile" "Command to compile current buffer file based on the major mode" t)
+;;(global-set-key (kbd "C-c c") 'mode-compile)
+;;(autoload 'mode-compile-kill "mode-compile" "Command to kill a compilation launched by `mode-compile'" t)
+;;(global-set-key (kbd "C-c k") 'mode-compile-kill)
;; This is needed for Distel setup
-(add-to-list 'load-path "/Users/steve/src/distel/elisp")
-(require 'distel)
-(distel-setup)
+;;(add-to-list 'load-path "/Users/steve/src/distel/elisp")
+;;(require 'distel)
+;;(distel-setup)
;; prevent annoying hang-on-compile
-(defvar inferior-erlang-prompt-timeout t)
+;;(defvar inferior-erlang-prompt-timeout t)
;; default node name to emacs@localhost
-(setq inferior-erlang-machine-options '("-sname" "emacs"))
+;;(setq inferior-erlang-machine-options '("-sname" "emacs"))
;; tell distel to default to that node
-(setq erl-nodename-cache
- (make-symbol
- (concat
- "emacs@"
- ;; Mac OS X uses "name.local" instead of "name", this should work
- ;; pretty much anywhere without having to muck with NetInfo
- ;; ... but I only tested it on Mac OS X.
- (car (split-string (shell-command-to-string "hostname"))))))
+;;(setq erl-nodename-cache
+;; (make-symbol
+;; (concat
+;; "emacs@"
+;; ;; Mac OS X uses "name.local" instead of "name", this should work
+;; ;; pretty much anywhere without having to muck with NetInfo
+;; ;; ... but I only tested it on Mac OS X.
+;; (car (split-string (shell-command-to-string "hostname"))))))
;; Some Erlang customizations
-(add-hook 'erlang-mode-hook
- (lambda ()
- ;; when starting an Erlang shell in Emacs, default in the node name
- (setq inferior-erlang-machine-options '("-sname" "emacs"))
- ;; add Erlang functions to an imenu menu
- (imenu-add-to-menubar "imenu")))
+;;(add-hook 'erlang-mode-hook
+;; (lambda ()
+;; ;; when starting an Erlang shell in Emacs, default in the node name
+;; (setq inferior-erlang-machine-options '("-sname" "emacs"))
+;; ;; add Erlang functions to an imenu menu
+;; (imenu-add-to-menubar "imenu")))
;; A number of the erlang-extended-mode key bindings are useful in the shell too
(defconst distel-shell-keys
@@ -112,11 +120,11 @@
)
"Additional keys to bind when in Erlang shell.")
-(add-hook 'erlang-shell-mode-hook
- (lambda ()
- ;; add some Distel bindings to the Erlang shell
- (dolist (spec distel-shell-keys)
- (define-key erlang-shell-mode-map (car spec) (cadr spec)))))
+;;(add-hook 'erlang-shell-mode-hook
+;; (lambda ()
+;; ;; add some Distel bindings to the Erlang shell
+;; (dolist (spec distel-shell-keys)
+;; (define-key erlang-shell-mode-map (car spec) (cadr spec)))))
;; Electric Ruby
Oops, something went wrong.

0 comments on commit f000b4f

Please sign in to comment.