在 Travis-CI 中调用 EGO 自动更新博客

(require 'package)(let* ((no-ssl (and (memq system-type '(windows-nt ms-dos)) (not (gnutls-available-p)))) (proto (if no-ssl "http" "http"))) (when no-ssl (warn "\Your version of Emacs does not support SSL connections,which is unsafe because it allows man-in-the-middle attacks.There are two things you can do about this warning:1. Install an Emacs version that does support SSL and be safe.2. Remove this warning from your init file so you won't see it again.")) ;; Comment/uncomment these two lines to enable/disable MELPA and MELPA Stable as desired (add-to-list 'package-archives (cons "melpa" (concat proto "://melpa.org/packages/")) t) ;;(add-to-list 'package-archives (cons "melpa-stable" (concat proto "://stable.melpa.org/packages/")) t) (when (< emacs-major-version 24) ;; For important compatibility libraries like cl-lib (add-to-list 'package-archives (cons "gnu" (concat proto "://elpa.gnu.org/packages/")))))(package-initialize)(package-refresh-contents)(package-install 'mustache)(package-install 'htmlize)(setq load-path (cons "~/EGO/" load-path))(require 'log-edit)(require 'htmlize)(require 'ego)(setq ego-project-config-alist `(("blog" :repository-directory "~/source" :site-domain "http://lujun9972.github.io/" :site-main-title "暗无天日" :site-sub-title "=============>随便,谢谢" :theme (emacs_love) :summary (("years" :year :updates 10) ("authors" :authors) ("tags" :tags)) :source-browse-url ("Github" ,(getenv "REPO")) :personal-disqus-shortname "lujun9972" :personal-google-analytics-id "7bac4fd0247f69c27887e0d4e3aee41e" :ignore-file-name-regexp "README.org" :store-dir "~/web")))(message "BEGIN TO AUTO PUBLIC")(setq org-export-use-babel nil)(setq debug-on-error t)(ego-do-publication "blog" nil nil nil)