(defun setup-bzr-emacs-loadpath()
(let ((startup-file "/usr/share/emacs/site-lisp/debian-startup.el"))
(if (and (or (not (fboundp 'debian-startup))
(not (boundp 'debian-emacs-flavor)))
(file-readable-p startup-file))
(progn
(load-file startup-file)
(setq debian-emacs-flavor 'emacs-snapshot)
(debian-startup debian-emacs-flavor)
(mapcar '(lambda (f)
(and (not (string= (substring f -3) "/.."))
(file-directory-p f)
(add-to-list 'load-path f)))
(directory-files "/usr/share/emacs/site-lisp" t))))))
(when (or
(string= emacs-version "23.1.91.5")
(string= emacs-version "23.1.92.1"))
(setup-bzr-emacs-loadpath))
(let* ((my-lisp-dir "~/.emacs.d/")
(default-directory my-lisp-dir))
(setq load-path (cons my-lisp-dir load-path))
(normal-top-level-add-subdirs-to-load-path))
(when (file-exists-p "~/.emacs.d/elpa/package.el")
(when (load (expand-file-name "~/.emacs.d/elpa/package.el"))
(package-initialize)))
(require 'djcb-funcs nil 'noerror)
(menu-bar-mode t) (mouse-avoidance-mode 'jump) (tool-bar-mode -1) (scroll-bar-mode t) (set-scroll-bar-mode 'right)
(setq cua-enable-cua-keys nil) (cua-mode t)
(setq scroll-margin 5 scroll-conservatively 100000 scroll-up-aggressively 0 scroll-down-aggressively 0 scroll-preserve-screen-position t)
(setq fringe-mode '(1 . 0))
(transient-mark-mode t) (delete-selection-mode t)
(setq x-select-enable-clipboard t interprogram-paste-function 'x-cut-buffer-or-selection-value)
(setq search-highlight t query-replace-highlight t) (fset 'yes-or-no-p 'y-or-n-p)
(setq completion-ignore-case t read-file-name-completion-ignore-case t)
(put 'narrow-to-region 'disabled nil) (put 'erase-buffer 'disabled nil) (file-name-shadow-mode t)
(setq inhibit-startup-message t inhibit-startup-echo-area-message t) (setq require-final-newline t)
(when (fboundp 'global-hl-line-mode)
(global-hl-line-mode t))
(when (fboundp 'show-paren-mode)
(show-paren-mode t)
(setq show-paren-style 'parenthesis))
(require 'uniquify) (setq
uniquify-buffer-name-style 'post-forward
uniquify-separator ":"
uniquify-after-kill-buffer-p t
uniquify-ignore-buffers-re "^\\*")
(setq initial-scratch-message
";; scratch buffer created -- happy hacking\n")
(setq-default
frame-title-format
'(:eval
(format "%s@%s:%s"
(or (file-remote-p default-directory 'user) user-login-name)
(or (file-remote-p default-directory 'host) system-name)
(file-name-nondirectory (or (buffer-file-name) default-directory)))))
(line-number-mode t) (column-number-mode t) (size-indication-mode t)
(setq
enable-recursive-minibuffers t max-mini-window-height .25 minibuffer-scroll-window nil
resize-mini-windows t)
(icomplete-mode t) (setq
icomplete-prospects-height 1 icomplete-compute-delay 0) (require 'icomplete+ nil 'noerror)
(when (require 'ibuffer nil 'noerror)
(setq ibuffer-saved-filter-groups
(quote (("default1"
("Org" (mode . org-mode))
("Mail"
(or
(mode . message-mode)
(mode . bbdb-mode)
(mode . mail-mode)
(mode . wl-folder-mode)
(mode . wl-summary-mode)
(mode . wl-draft-mode)
(mode . mime-edit-mode)
(mode . mime-view-mode)
(mode . gnus-group-mode)
(mode . gnus-summary-mode)
(mode . gnus-article-mode)
(name . "^\\*BBDB\\*$")
(name . "^\\.bbdb$")
(name . "^\\.newsrc-dribble")))
("mu" (name . "src/mu/"))
("sofia" (name . "sofia"))
("flatland" (name . "flatland"))
("Programming"
(or
(mode . c-mode)
(mode . c++-mode)
(mode . gud-mode)
(mode . makefile-mode)
(mode . autoconf-mode)))
("Scripting"
(or
(mode . perl-mode)
(mode . sh-mode)
(mode . python-mode)))
("crap" (or
(name . "^\\*trace")
(name . "^\\*completions")
(name . "^\\*Quail")
(name . "^\\*magit")
(name . "^\\*Backtrace\\*$")
(name . "^\\*compilation\\*$")
(name . "^\\*scratch\\*$")
(name . "^\\*Messages\\*$")))
("ERC" (mode . erc-mode))
("Magit" (name . "^\\*magit\\*$"))
)))))
(add-hook 'ibuffer-mode-hook
(lambda ()
(ibuffer-switch-to-saved-filter-groups "default1")))
(defun emacs-session-filename (SESSION-ID)
(concat "~/.emacs.d/cache/session." SESSION-ID))
(setq locale-coding-system 'utf-8)
(set-terminal-coding-system 'utf-8)
(set-keyboard-coding-system 'utf-8)
(set-selection-coding-system 'utf-8)
(prefer-coding-system 'utf-8)
(set-language-environment "UTF-8") (set-input-method nil) (setq read-quoted-char-radix 10)
(setq bookmark-default-file "~/.emacs.d/data/bookmarks" bookmark-save-flag 1)
(setq save-place-file "~/.emacs.d/cache/saveplace")
(setq-default save-place t) (require 'saveplace) (setq savehist-additional-variables '(search ring regexp-search-ring) savehist-autosave-interval 60 savehist-file "~/.emacs.d/cache/savehist") (savehist-mode t)
(require 'recentf) (setq
recentf-save-file "~/.emacs.d/cache/recentf"
recentf-max-saved-items 100 recentf-max-menu-items 15) (recentf-mode t)
(setq abbrev-file-name "~/.emacs.d/data/abbrev_defs") (abbrev-mode t) (setq default-abbrev-mode t save-abbrevs t) (when (file-exists-p abbrev-file-name)
(quietly-read-abbrev-file)) (add-hook 'kill-emacs-hook 'write-abbrev-file)
(eval-after-load "filecache"
'(progn (message "Loading file cache...")
(file-cache-add-directory "~/")
(file-cache-add-directory-list '("~/Desktop" "~/Documents"))))
(setq make-backup-files t backup-by-copying t backup-directory-alist '(("." . "~/.emacs.d/cache/backups"))
version-control t
kept-new-versions 2
kept-old-versions 5
delete-old-versions t)
(setq time-stamp-active t time-stamp-line-limit 10 time-stamp-format "%04y-%02m-%02d %02H:%02M:%02S (%u)") (add-hook 'write-file-hooks 'time-stamp)
(setq auto-save-list-file-prefix
"~/.emacs.d/cache/auto-save-list/.saves-")
(when (and (require 'color-theme nil 'noerror)
(require 'color-theme-init nil 'noerror)
(color-theme-djcb-dark)))
(when (require 'sr-speedbar nil 'noerror)
(setq speedbar-supported-extension-expressions
'(".org" ".[ch]\\(\\+\\+\\|pp\\|c\\|h\\|xx\\)?"
".tex\\(i\\(nfo\\)?\\)?" ".el"
".java" ".p[lm]" ".pm" ".py" ".s?html" "Makefile.am" "configure.ac"))
(setq
sr-speedbar-width-x 20
sr-speedbar-right-side t))
(require 'tramp)
(setq shell-prompt-pattern "^[^a-zA-Z].*[#$%>] *")
(setq tramp-default-method "ssh")
(global-set-key (kbd "RET") 'newline-and-indent)
(global-set-key (kbd "C-<f4>") 'kill-buffer-and-window)
(global-set-key (kbd "<delete>") 'delete-char) (global-set-key (kbd "M-g") 'goto-line)
(when (fboundp 'ibuffer)
(global-set-key (kbd "C-x C-b") 'ibuffer))
(global-set-key (kbd "<C-prior>")
(lambda()(interactive)(goto-char(point-min))))
(global-set-key (kbd "<C-next>")
(lambda()(interactive)(goto-char(point-max))))
(global-set-key (kbd "C-z") 'undo) (global-set-key (kbd "C-c DEL") 'pop-global-mark)
(require 'magit nil 'noerror)
(autoload 'linum-mode "linum" "mode for line numbers" t)
(global-set-key (kbd "C-<f5>") 'linum-mode) (autoload 'magit-status "magit" "marius' git mode")
(global-set-key (kbd "C-<f6>") 'magit-status) (global-set-key (kbd "C-<f7>") 'compile) (global-set-key (kbd "C-<f8>") 'comment-or-uncomment-region)
(when (fboundp 'sr-speedbar-toggle)
(global-set-key (kbd "C-<f9>") 'sr-speedbar-toggle)
(global-set-key (kbd "C-<f10>") 'sr-speedbar-select-window))
(global-set-key (kbd "C-<f11>") 'whitespace-mode)
(global-set-key (kbd "<S-f9>") 'djcb-fullscreen-toggle) (global-set-key (kbd "<S-<f10>") 'package-list-packages)
(setq elscreen-prefix-key (kbd "C-c q")) (when (require 'elscreen nil 'noerror)
(global-set-key (kbd "<f12>" ) 'elscreen-create)
(global-set-key (kbd "<s-f12>" ) 'elscreen-kill)
(global-set-key (kbd "<C-M-tab>") 'elscreen-previous)
(global-set-key (kbd "<C-tab>" ) 'elscreen-next))
(global-set-key (kbd "C-c l") 'org-store-link) (global-set-key (kbd "C-c a") 'org-agenda) (global-set-key (kbd "C-c b") 'org-iswitchb) (global-set-key (kbd "<f5>") 'wl) (global-set-key (kbd "<f6>") 'org-agenda-list) (global-set-key (kbd "<f7>") 'org-todo-list) (global-set-key (kbd "<f8>") 'remember) (global-set-key (kbd "C-c b") 'browse-url) (global-set-key (kbd "C-c e") 'djcb-erc-start-or-switch)
(global-set-key (kbd "C-c f") 'browse-url-firefox) (setq browse-url-firefox-new-window-is-tab t)
(global-set-key (kbd "C-c g") 'w3m-goto-url) (global-set-key (kbd "C-c i") 'identica-mode) (global-set-key (kbd "C-c n") 'normal-mode)
(global-set-key (kbd "C-c W") (lambda()(interactive)(find-file wl-init-file)))
(global-set-key (kbd "C-c S") (lambda()(interactive)(switch-to-buffer "*scratch*")))
(global-set-key (kbd "C-c E") (lambda()(interactive)(find-file "~/.emacs.d/init.el")))
(global-set-key (kbd "C-c O") (lambda()(interactive)(find-file "~/.emacs.d/org/org-mode-init.el")))
(global-set-key (kbd "C-c G") (lambda()(interactive)(find-file (concat org-directory
"agenda/todo.org"))))
(global-set-key (kbd "C-c R") (lambda()(interactive)(find-file org-default-notes-file)))
(global-set-key (kbd "C-c N") (lambda()(interactive)
(ispell-change-dictionary "nederlands")
(flyspell-buffer)))
(require 'windmove)
(windmove-default-keybindings 'super) (global-set-key (kbd "<C-s-left>") 'windmove-left)
(global-set-key (kbd "<C-s-right>") 'windmove-right)
(global-set-key (kbd "<C-s-up>") 'windmove-up)
(global-set-key (kbd "<C-s-down>") 'windmove-down)
(require 'winner)
(setq winner-dont-bind-my-keys t) (global-set-key (kbd "<s-left>") 'winner-undo)
(global-set-key (kbd "<XF86Forward>") 'winner-redo)
(global-set-key (kbd "<s-right>") 'winner-redo)
(global-set-key (kbd "<XF86Back>") 'winner-undo)
(winner-mode t)
(global-set-key (kbd "C-c p") (lambda()(interactive)(find-file (concat "~/.emacs.d/data/projects-"
(user-login-name) ".org"))))
(global-set-key (kbd "C-c m a") 'compile)
(global-set-key (kbd "C-c m t") (lambda()(interactive)(shell-command "make clean &")))
(global-set-key (kbd "C-c m i")
(lambda()(interactive)(djcb-sudo-shell-command "make install &")))
(global-set-key (kbd "C-c m u")
(lambda()(interactive)(djcb-sudo-shell-command "make uninstall &")))
(global-set-key (kbd "C-c m D")
(lambda()(interactive)(djcb-sudo-shell-command "make dist &")))
(global-set-key (kbd "C-c m C")
(lambda()(interactive)(djcb-sudo-shell-command "make check &")))
(global-set-key (kbd "C-c m X") (lambda()(interactive)(djcb-sudo-shell-command "make distcheck &")))
(global-set-key (kbd "C-c m r") (lambda()(interactive)(shell-command
(if (file-exists-p "autogen.sh") "autogen.sh &"
"autoreconf -i &"))))
(global-set-key (kbd "C-c m c") 'djcb-configure)
(global-set-key (kbd "C-c m d u") (lambda()(interactive)(shell-command "dch -i &")))
(global-set-key (kbd "C-c m d b") (lambda()(interactive)(shell-command "dpkg-buildpackage -rfakeroot -B &")))
(global-set-key (kbd "C-c s m a")
(lambda()(interactive)(djcb-sbox-shell-command "make &")))
(global-set-key (kbd "C-c s m t") (lambda()(interactive)(djcb-sbox-shell-command "make clean &")))
(global-set-key (kbd "C-c s m i")
(lambda()(interactive)(djcb-sbox-shell-command "make install &")))
(global-set-key (kbd "C-c s m u")
(lambda()(interactive)(djcb-sbox-shell-command "make uninstall &")))
(global-set-key (kbd "C-c s m D")
(lambda()(interactive)(djcb-sbox-shell-command "make dist &")))
(global-set-key (kbd "C-c s m C")
(lambda()(interactive)(djcb-sbox-shell-command "make check &")))
(global-set-key (kbd "C-c s m X") (lambda()(interactive)(djcb-sbox-shell-command "make distcheck &")))
(global-set-key (kbd "C-c s m r") (lambda()(interactive)(djcb-sbox-shell-command
(if (file-exists-p "autogen.sh") "autogen.sh &"
"autoreconf -i &"))))
(global-set-key (kbd "C-c s m c") 'djcb-sbox-configure)
(global-set-key (kbd "C-c s m d u") (lambda()(interactive)(djcb-sbox-shell-command "dch -i &")))
(global-set-key (kbd "C-c s m d b") (lambda()(interactive)(djcb-sbox-shell-command
"dpkg-buildpackage -rfakeroot -B &")))
(when (require 'company nil 'noerror)
(company-mode t)
(setq company-idle-delay t)
(setq company-begin-commands '(self-insert-command)))
(when (require 'yasnippet-bundle nil 'noerror) (setq yas/root-directory "~/.emacs.d/yas") (yas/initialize)
(yas/load-directory yas/root-directory)
(setq yas/wrap-around-region t)
(setq yas/prompt-functions '(yas/x-prompt yas/ido-prompt))
(yas/global-mode 1) (add-to-list 'auto-mode-alist '("~/.emacs.d/yas/.*" . snippet-mode)))
(add-hook 'snippet-mode-hook 'yas/minor-mode)
(setq hippie-expand-try-functions-list
'(yas/hippie-try-expand))
(setq hippie-expand-verbose t)
(defadvice kill-ring-save (before slick-copy activate compile)
"When called interactively with no active region, copy a single
line instead."
(interactive
(if mark-active (list (region-beginning) (region-end))
(message "Copied line")
(list (line-beginning-position)
(line-beginning-position 2)))))
(defadvice kill-region (before slick-cut activate compile)
"When called interactively with no active region, kill a single
line instead."
(interactive
(if mark-active (list (region-beginning) (region-end))
(list (line-beginning-position)
(line-beginning-position 2)))))
(easy-menu-define djcb-menu global-map "MyMenu"
'("djcb"
("Programs" ["mutt" (djcb-term-start-or-switch "mutt" t)]
["mc" (djcb-term-start-or-switch "mc" t)]
["htop" (djcb-term-start-or-switch "htop" t)]
["iotop" (djcb-term-start-or-switch "iotop" t)])
("Org"
["html" (org-export-as-html 3 nil nil nil t)])
("TeXDrive" :visible (or (string= major-mode "html-helper-mode")
(string= major-mode "html-mode"))
["Insert formula" texdrive-insert-formula
:help "Insert some formula"]
["Generate images" texdrive-generate-images
:help "(Re)generate the images for the formulae"])
("Twitter" ["View friends" twitter-get-friends-timeline]
["What are you doing?" twitter-status-edit])
("Misc" ["Save & exit" (save-buffers-kill-emacs t)]
["Count words" djcb-count-words]
["Show/hide line numbers" linum]
["Toggle full-screen" djcb-fullscreen-toggle])))
(require 'ido)
(ido-mode 'both) (setq
ido-save-directory-list-file "~/.emacs.d/cache/ido.last"
ido-ignore-buffers '("\\` " "^\*Mess" "^\*Back" ".*Completion" "^\*Ido" "^\*trace"
"^\*compilation" "^\*GTAGS" "^session\.*" "^\*")
ido-work-directory-list '("~/" "~/Desktop" "~/Documents" "~src")
ido-case-fold t ido-enable-last-directory-history t ido-max-work-directory-list 30 ido-max-work-file-list 50 ido-use-filename-at-point nil ido-use-url-at-point nil ido-enable-flex-matching nil ido-max-prospects 8 ido-confirm-unique-completion t)
(setq confirm-nonexistent-file-or-buffer nil)
(add-hook 'ido-minibuffer-setup-hook
(function
(lambda ()
(make-local-variable 'resize-minibuffer-window-max-height)
(setq resize-minibuffer-window-max-height 1))))
(setq ispell-program-name "aspell"
ispell-extra-args '("--sug-mode=ultra"))
(defmacro set-key-func (key expr)
"macro to save me typing"
(list 'local-set-key (list 'kbd key)
(list 'lambda nil
(list 'interactive nil) expr)))
(defmacro set-key (key str) (list 'local-set-key (list 'kbd key) str))
(setq org-directory "~/.emacs.d/org/")
(require 'org-mode-init nil 'noerror)
(add-hook 'text-mode-hook
(lambda()
(set-fill-column 78) (auto-fill-mode t) (set-input-method "latin-1-prefix")))
(setq w3m-init-file "~/.emacs.d/mylisp/djcb-w3m.el")
(if (file-exists-p "/usr/bin/conkeror")
(setq browse-url-browser-function 'browse-url-generic
browse-url-generic-program "/usr/bin/conkeror"
browse-url-default-browser "/usr/bin/conkeror")
(setq
browse-url-browser-function 'browse-url-default-browser))
(setq browse-url-new-window-flag t)
(when (require 'erc nil 'noerror)
(require 'djcb-erc nil 'noerror))
(autoload 'htmlize-region "htmlize" "htmlize the region" t)
(autoload 'htmlize-buffer "htmlize" "htmlize the buffer" t)
(add-hook 'post-mode-hook
(lambda()
(auto-fill-mode t)
(setq fill-column 72) (set-input-method "latin-1-prefix") (turn-on-orgstruct) (require 'boxquote)) nil 'noerror)
(autoload 'post-mode "post" "mode for e-mail" t)
(add-to-list 'auto-mode-alist
'("\\.*mutt-*\\|.article\\|\\.followup" . post-mode))
(setq wl-init-file "~/.emacs.d/wl/wl-init.el")
(autoload 'wl "wl" "Wanderlust" t)
(autoload 'wl-draft "wl-draft" "Write draft with Wanderlust." t)
(require 'mime-w3m nil 'noerror)
(add-hook 'html-helper-mode-hook
(lambda()
(abbrev-mode t) (auto-fill-mode -1) (when (require 'texdrive) (texdrive-mode t))) nil 'noerror)
(setq auto-mode-alist (cons '("\\.html$" . html-helper-mode) auto-mode-alist))
(defun djcb-tex-mode-hook ()
"my TeX/LaTeX (auctex) settings"
(interactive)
(setq
TeX-brace-indent-level 0 LaTeX-item-ident 2
TeX-parse-self t TeX-auto-save t))
(add-hook 'tex-mode-hook 'djcb-tex-mode-hook)
(add-hook 'LaTeX-mode-hook 'djcb-tex-mode-hook)
(add-hook 'emacs-lisp-mode-hook
(lambda()
(setq mode-name "ELisp")
(local-set-key (kbd "C-<f7>") '(lambda()(interactive)
(let ((debug-on-error t))
(eval-buffer)
(message "buffer evaluated"))))
(make-local-variable 'hippie-expand-try-functions-list)
(setq hippie-expand-try-functions-list
'(yas/hippie-try-expand
try-complete-lisp-symbol))
(linum-mode t)
(setq lisp-indent-offset 2) (require 'folding nil 'noerror)
(font-lock-add-keywords nil '(("^[^\n]\\{80\\}\\(.*\\)$"
1 font-lock-warning-face prepend)))
(font-lock-add-keywords nil
'(("\\<\\(FIXME\\|TODO\\|XXX+\\|BUG\\)"
1 font-lock-warning-face prepend)))
(font-lock-add-keywords nil
'(("\\<\\(djcb-require-maybe\\|add-hook\\|setq\\)"
1 font-lock-keyword-face prepend)))))
(defalias 'perl-mode 'cperl-mode) (add-hook 'cperl-mode-hook
(lambda()
(eval-when-compile (require 'cperl-mode))
(abbrev-mode -1) (linum-mode 1) (setq
cperl-hairy t cperl-indent-level 4 cperl-invalid-face nil cperl-electric-keywords t)))
(add-hook 'gtags-mode-hook
(lambda()
(local-set-key (kbd "M-.") 'gtags-find-tag) (local-set-key (kbd "M-,") 'gtags-find-rtag) (local-set-key (kbd "C-c n") 'gtags-pop-stack)
(local-set-key (kbd "C-c p") 'gtags-find-pattern)
(local-set-key (kbd "C-c g") 'gtags-find-with-grep)))
(defun djcb-c-mode-common ()
(interactive)
(linum-mode 1)
(when (fboundp 'yas/minor-mode) (yas/minor-mode 1))
(when (require 'dtrt-indent nil 'noerror) (dtrt-indent-mode t))
(when (require 'gtags nil 'noerror) (gtags-mode t)
(when (fboundp 'djcb-gtags-create-or-update)
(djcb-gtags-create-or-update)))
(when (require 'doxymacs nil 'noerror) (doxymacs-mode t) (doxymacs-font-lock))
(when (fbound 'company-mode)
(company-mode t))
(if (fboundp 'tabkey2-mode) (tabkey2-mode -1))
(font-lock-add-keywords nil '(("\\<\\(FIXME\\|TODO\\|XXX+\\|BUG\\)" 1 font-lock-warning-face prepend))) (font-lock-add-keywords nil '(("\\<\\(__FUNCTION__\\|__LINE__\\)" 1 font-lock-preprocessor-face prepend)))
(setq
compilation-scroll-output 'first-error compilation-read-command nil compilation-window-height 12)
(setq
c-lineup-close-paren t
c-basic-offset 8 c-syntactic-indentation t c-hungry-delete-key t)
(setq-default c-electric-flag t)
(local-set-key (kbd "RET") 'c-context-line-break)
(local-set-key (kbd "C-c <up>") 'previous-error)
(local-set-key (kbd "C-c <down>") 'next-error)
(local-set-key (kbd "<C-XF86Back>") 'previous-error)
(local-set-key (kbd "<C-XF86Forward>") 'next-error)
(local-set-key (kbd "C-c <") (lambda()(interactive) (align nil nil)))
(local-set-key (kbd "C-c i") 'djcb-include-guards)
(local-set-key (kbd "C-c o") 'ff-find-other-file)
(local-set-key (kbd "C-h C-j") 'gtk-lookup-symbol)
(c-set-style "linux"))
(defun djcb-c-mode ()
(font-lock-add-keywords 'c++-mode '(("^[^\n]\\{80\\}\\(.*\\)$"
1 font-lock-warning-face prepend))))
(defun djcb-c++-mode ()
(font-lock-add-keywords 'c++-mode '(("^[^\n]\\{100\\}\\(.*\\)$"
1 font-lock-warning-face prepend))))
(add-hook 'c-mode-common-hook 'djcb-c-mode-common) (add-hook 'c-mode-hook 'djcb-c-mode) (add-hook 'c++-mode-hook 'djcb-c++-mode)
(add-hook 'magit-mode-hook
(lambda()
(local-set-key (kbd "<tab>") 'magit-toggle-section)
(setq magit-save-some-buffers 'dontask)))
(add-hook 'makefile-mode-hook
(lambda()
(require 'show-wspace)
(show-ws-highlight-trailing-whitespace)))
(setq compilation-window-height 12)
(setq compilation-finish-functions nil)
(defadvice term-char-mode (after term-char-mode-fixes ())
(set (make-local-variable 'cua-mode) nil)
(set (make-local-variable 'transient-mark-mode) nil)
(set (make-local-variable 'global-hl-line-mode) nil)
(ad-activate 'term-char-mode)
(term-set-escape-char ?\C-x))
(add-hook 'term-mode-hook
(lambda()
(when (fboundp 'tabkey2-mode)
(tabkey2-mode -1))
(local-set-key [(tab)] nil)
(local-set-key (kbd "<C-f1>")
'(lambda()(interactive)
(shell-command "killall -SIGWINCH mutt slrn irssi zsh")))))
(autoload 'twitter-get-friends-timeline "twitter" nil t)
(autoload 'twitter-status-edit "twitter" nil t)
(add-hook 'twitter-status-edit-mode-hook 'longlines-mode)
(autoload 'identica-mode "identica-mode" nil t)
(setq identica-username "djcb")
(setq safe-local-variable-values
(quote ((auto-recompile . t)
(outline-minor-mode . t)
auto-recompile outline-minor-mode)))