;; the following is only needed if you install EGO manually
(add-to-list 'load-path "path/to/EGO")

(require 'ego)

(ego-add-to-alist 'ego-project-config-alist
	       `(("emacs-china" ; 站点工程的名字
		 :repository-directory "~/github/emacs-china.github.io" ; 站点的本地目录
		 :site-domain "http://emacs-china.github.io/" ; 站点的网址
		 :site-main-title "EMACS-CHINA" ; 站点的标题
		 :site-sub-title "=============>集思广益" ; 站点的副标题
		 :theme (default) ; 使用的主题
		 :summary (("years" :year :updates 10) ("authors" :authors) ("tags" :tags)) ; 导航栏的设置，有 category 和 summary 两种
		 :source-browse-url ("Github" "https://github.com/emacs-china") ; 你的工程源代码所在的位置
		 :personal-disqus-shortname "emacs-china" ; 使用 disqus 评论功能的话，它的短名称
		 :personal-duoshuo-shortname "emacs-china" ; 使用 多说 评论功能的话，它的短名称
		 :confound-email nil ; 是否保护邮件名称呢？t 是保护，nil 是不保护，默认是保护
		 :ignore-file-name-regexp "readme.org" ; 有些不想发布成 html 的 org 文件（但是又想被导入 git 进行管理），可以用这种正则表达的方式排除
		 :web-server-docroot "~/webRoot/emacs-china.github.io" ; 本地测试的目录
		 :web-server-port 5432); 本地测试的端口

		 ;; 你可以在此添加更多的站点设置
	       ))

(require 'ego)
(require 'async)
(defun ego-async-do-publish (&optional project-name
				       test-and-not-publish
				       force-all
				       base-git-commit
				       checkin-all
				       publish-config)
  (interactive
   (let* ((j (or ego--default-project-name
		 (completing-read "Which project do you want to publish? "
				  (delete-dups
				   (mapcar 'car ego-project-config-alist))
				  nil t nil nil ego--last-project-name)))
	  (p (y-or-n-p "Action:  [Yes] Test, [No] Tested Publish. "))
	  (f (y-or-n-p (format "Publish all org files of \"%s\" project? " j)))
	  (b (unless f (read-string "Base git commit: " "HEAD~1")))
	  (c (read-string "checkin message (won't show in 'git log' if you have committed all): "))
	  (a nil))
     (list j p f b c a)))
  ;; set ego remote push (publish-config)
  (unless test-and-not-publish
    (setq ego--current-project-name project-name)
    (setq ego--last-project-name project-name)
    (setq publish-config
	  (ego--git-get-publish-config (ego--get-repository-directory)
				      (ego--get-config-option :repository-org-branch)
				      (ego--get-config-option :repository-html-branch))))

  (message "See *EGO OUTPUT* buffer and *emacs* buffer for information")
  (async-start
   `(lambda ()
      ;; load packages and set load-path
      (setq package-user-dir ,(expand-file-name "~/.emacs.d/elpa/"))
      (package-initialize)
      (add-to-list 'load-path ,(expand-file-name "~/github/org-mode/lisp"))
      (add-to-list 'load-path ,(expand-file-name "~/github/org-mode/contrib/lisp" t))
      (add-to-list 'load-path ,ego-load-directory)

      ;;set color-theme
      (add-to-list 'load-path ,(expand-file-name "~/.emacs.d/color-theme-6.6.0"))
      (require 'color-theme-autoloads "color-theme-autoloads")
      (color-theme-initialize)
      (color-theme-dark-blue2)

      ;; set coding-system
      (set-terminal-coding-system 'utf-8-unix)
      (set-keyboard-coding-system 'utf-8-unix)
      (prefer-coding-system 'utf-8-unix)
      (setq save-buffer-coding-system 'utf-8-unix
	    coding-system-for-write 'utf-8-unix)

      ;; pre-set ego configurations
      (require 'cl-lib)
      (require 'ego)
      (setq ego-project-config-alist ',ego-project-config-alist)

      ;; Make EGO show svg images
      (require 'ox-html)
      (defun kd/org-html--format-image (source attributes info)
	"Return \"img\" tag with given SOURCE and ATTRIBUTES.
  SOURCE is a string specifying the location of the image.
  ATTRIBUTES is a plist, as returned by
  `org-export-read-attribute'.  INFO is a plist used as
  a communication channel."
	(org-html-close-tag
	 "img"
	 (org-html--make-attribute-string
	  (org-combine-plists
	   (list :src source
		 :alt (if (string-match-p "^ltxpng/" source)
			  (org-html-encode-plain-text
			   (org-find-text-property-in-string 'org-latex-src source))
			(file-name-nondirectory source)))
	   attributes))
	 info))
      (advice-add 'org-html--format-image :override #'kd/org-html--format-image)

      ;; without org-to-html if possible
      (unless ,test-and-not-publish
	(if ,base-git-commit
	    (setq ego--publish-without-org-to-html 1)
	  (setq ego--publish-without-org-to-html 2)))

      ;; ego-do-publication here
      (ego-do-publication ,project-name
			  ,test-and-not-publish
			  ,force-all
			  ,base-git-commit
			  ,checkin-all
			  ',publish-config)

      ;; waiting for push remote success or just wait http-server in which case you have to close *emacs* buffer manually
      (while (not ego--async-publish-success)
	(sit-for 1))

      ;; return the result
      (with-current-buffer (get-buffer-create ,ego--temp-buffer-name)
	(buffer-string))
      )
   `(lambda (result)
      (with-current-buffer (get-buffer-create ego--temp-buffer-name)
	(insert (format "*EGO output* should be :\n %s \nego-async-do-publish done!" result))))))