05_sandbox.el

;;                elisp

;;auto-install
(require 'auto-install)
(setq auto-install-directory "~/.emacs.d/elisp/")

;;undo 
;; (require 'undohist)
;; (undohist-initialize)

(require 'undo-tree)
(global-undo-tree-mode)

;;iswitchb
(iswitchb-mode 1)
(require 'color-moccur)
(require 'which-func)
(which-func-mode t)

;ibuffer
(require 'ibuffer)
(setq ibuffer-never-show-regexps '("*"))
;; (setq ibuffer-never-show-regexps '("*" "*Messages*"))

;palatte
(autoload 'e-palette "e-palette" nil)

(require 'navi2ch)
(require 'smart-compile)
(defvar smart-compile-alist '(
  ("\\.c\\'"          . "gcc -O2 %f -lm -o %n")
  ("\\.[Cc]+[Pp]*\\'" . "g++ -O2 %f -lm -o %n")
  ("\\.java\\'"       . "javac %f")
  ("\\.py]\\'"        . "python %f")
  ("\\.tex\\'"        . (tex-file))
  ("\\.pl\\'"         . "perl -cw %f")
  (emacs-lisp-mode    . (emacs-lisp-byte-compile))
) "...")
(require 'twittering-mode)
(setq twittering-status-format "%i %s %t %@")
(setq twittering-icon-mode t)
(setq twittering-convert-fix-size 48)
(add-hook 'twittering-mode-hook
	  (lambda ()
	    (follow-mode t)
	    (split-window-horizontally)
	    )
)
;; (setq twittering-toggle-proxy nil)
(setq twittering-proxy-use nil)

(add-hook 'twittering-mode-hook
	  (lambda ()
	    (follow-mode t)
	    (setq truncate-partial-width-windows nil)
	    )
	  )

;; eshell
(setq eshell-cmpl-ignore-case t)
;; 確認なしでヒストリ保存
(setq eshell-ask-to-save-history (quote always))
;; 補完時にサイクルする
(setq eshell-cmpl-cycle-completions t)
;;補完候補がこの数値以下だとサイクルせずに候補表示
(setq eshell-cmpl-cycle-cutoff-length 5)
;; 履歴で重複を無視する
(setq eshell-hist-ignoredups t)
(setq eshell-prompt-function
      (lambda ()
        (concat "[mizchi@mb "
                (eshell/pwd)
                (if (= (user-uid) 0) "]\n# " "]\n$ ")
                )))
(setq eshell-prompt-regexp "^[^#$]*[$#] ")



;;Pymacs

;; (autoload 'python-mode "python-mode" "Major mode for editing Python programs" t)
;; (autoload 'py-shell "python-mode" "Python shell" t)
;; (setq auto-mode-alist (cons '("\\.py\\'" . python-mode) auto-mode-alist))

;; (autoload 'pymacs-apply "pymacs")
;; (autoload 'pymacs-call "pymacs")
;; (autoload 'pymacs-eval "pymacs" nil t)
;; (autoload 'pymacs-exec "pymacs" nil t)
;; (autoload 'pymacs-load "pymacs" nil t)
;; (eval-after-load "pymacs"
;;   '(add-to-list 'pymacs-load-path "~/.emacs.d/pymacs"))
;; (setq auto-mode-alist (cons '("\\.py$" . python-mode) auto-mode-alist))
;; (setq interpreter-mode-alist (cons '("python" . python-mode)
;;                                    interpreter-mode-alist))
;; ;; (autoload 'python-mode "python-mode" "Python editing mode." t)

;; ;; (add-hook 'python-mode-hook '(lambda ()
;; ;;                                (require 'pycomplete)
;; ;;                                ))

;; (autoload 'python-mode "python-mode" "Major mode for editing Python programs" t)
;; (autoload 'py-shell "python-mode" "Python shell" t)
;; (setq auto-mode-alist (cons '("\\.py\\'" . python-mode) auto-mode-alist))

;; (add-hook 'python-mode-hook '(lambda ()
;; 			       (require 'pycomplete)
;; 			       ))
;; (require 'pycomplete)

(setq gc-cons-threshold(* 10 gc-cons-threshold))
(defalias 'yes-or-no-p 'y-or-n-p)
(require 'gist)