(add-to-list 'load-path "~/elisp/3rd-party-lib/org-mode/lisp/")
(add-to-list 'load-path "~/elisp/3rd-party-lib/org-mode/contrib/lisp")
(require 'org)
(require 'org-exp)
(require 'org-publish)
(require 'htmlize)
(setq org-wait .2)

(global-font-lock-mode 1)		; no color effect
(setq make-backup-files nil)

(org-babel-do-load-languages
 'org-babel-load-languages
 '((emacs-lisp . t)
   (ditaa . t)))

(defun wl-org-confirm-babel-evaluate (lang body)
  (not (string= lang "ditaa")))

(setq org-confirm-babel-evaluate 'wl-org-confirm-babel-evaluate)

(defvar wl-org-publish-project-root-directory "~/project/wanglianghome.org/orgpublish/")

(defun wl-publish-org-project ()
  (org-publish `("org"
		 :base-directory ,(expand-file-name "src/" wl-org-publish-project-root-directory)
		 :publishing-directory ,(expand-file-name "pub/" wl-org-publish-project-root-directory)
		 :recursive t
		 :section-numbers nil
		 :table-of-contents nil))
  (org-publish `("images"
		 :base-directory ,(expand-file-name "src/" wl-org-publish-project-root-directory)
		 :publishing-directory ,(expand-file-name "pub/" wl-org-publish-project-root-directory)
		 :base-extension "jpg\\|gif\\|png"
		 :recursive t
		 :publishing-function org-publish-attachment))
  (org-publish `("emacsbook"
		 :base-directory ,(expand-file-name "emacsbook/" wl-org-publish-project-root-directory)
		 :base-extension "org"
		 :publishing-directory ,(expand-file-name "pub/programming/emacsbook/" wl-org-publish-project-root-directory))))