(require 'wl-load-path)
(when (string-equal emacs-version "23.2.1")
  (add-to-list 'load-path "/usr/share/emacs/23.1/site-lisp/bbdb")
  (add-to-list 'load-path "/usr/share/emacs/23.1/site-lisp/cmake-data/")
  (add-to-list 'load-path "/usr/share/emacs/23.1/site-lisp/dictionaries-common/")
  (add-to-list 'load-path "/usr/share/emacs/23.1/site-lisp/cscope/"))

(if (and (fboundp 'daemonp) (daemonp))
    (add-hook 'after-make-frame-functions
	      (lambda (frame)
		(with-selected-frame frame
		  (set-fontset-font "fontset-default"
				    'chinese-gbk "WenQuanYi Micro Hei Mono 15"))))
  (set-fontset-font "fontset-default" 'chinese-gbk "WenQuanYi Micro Hei Mono 15"))


(defun wl-grep (p l)
  (let ((rl))
    (dolist (elt l)
      (when (funcall p elt)
	(add-to-list 'rl elt)))
    rl))

(let ((dirs-version (wl-grep (lambda (dir)
			       (string-match (format "%d.%d"
						     emacs-major-version
						     emacs-minor-version)
					     dir))
			     load-path)))
  (dolist (dir dirs-version)
    (setq load-path (delete dir load-path))
    (add-to-list 'load-path dir)))

(require 'wl-generic)
(require 'wl-emacswiki)
(require 'wl-programming)
(require 'wl-version-control)
(require 'wl-muse)
(require 'wl-org)

(require 'wl-perl)
(add-to-list 'load-path "~/project/svk/parrot/editor/")
(autoload 'pir-mode "pir-mode" nil t)
(add-to-list 'auto-mode-alist '("\\.\\(imc\\|pir\\)\\'" . pir-mode))

(defun wl-visit-emacs-tags-table ()
  (interactive)
  (visit-tags-table "~/download/software/emacs-23.1/emacs-23.1/src/TAGS"))

(defvar wl-slime-contrib-list
  '(inferior-slime
    slime-asdf
    slime-autodoc
    slime-banner
    slime-c-p-c
    slime-editing-commands
    slime-fancy-inspector
    slime-fancy
    slime-fuzzy
    slime-highlight-edits
    slime-parse
    ;;    slime-presentation-streams
    slime-presentations
    slime-references
    slime-scratch
    slime-tramp
    ;;    slime-typeout-frame
    slime-xref-browser))

(require 'wl-common-lisp)
(setq slime-default-lisp 'sbcl)

(setenv "GPG_AGENT_INFO" nil)
(add-to-list 'load-path "/usr/share/emacs22/site-lisp/bbdb/")
(setq markdown-command "markdown")
(require 'wl-mail)
(setq gnus-summary-line-format
      "%U%R%z %d %4k %I%(%[%-15,15uB%]%) %s\n")
(eval-after-load 'bbdb
  '(progn
     (bbdb-initialize 'gnus)
     (add-hook 'gnus-startup-hook 'bbdb-insinuate-gnus)
     (setq bbdb/news-auto-create-p 'bbdb-ignore-some-messages-hook)))

(provide 'wl-ubuntu-init)