org-publish-project problem

gistfile1.txt

Message Buffer:


Eager macro-expansion failure: (wrong-number-of-arguments #[(old new) "\302\303	E\304\305	FE\207" [old new progn defalias put (quote byte-obsolete-variable)] 6] 3)


Backtrace Buffer:

Debugger entered--Lisp error: (wrong-number-of-arguments #[(old new) "\302\303	E\304\305	FE\207" [old new progn defalias put (quote byte-obsolete-variable)] 6] 3)
  #[(old new) "\302\303	E\304\305	FE\207" [old new progn defalias put (quote byte-obsolete-variable)] 6]((quote org-html-style-include-scripts) (quote org-html-head-include-scripts) "24.4")
  (define-obsolete-variable-alias (quote org-html-style-include-scripts) (quote org-html-head-include-scripts) "24.4")
  eval-buffer(#<buffer  *load*> nil "/Users/chastang/.emacs.d/elpa/org-20150615/ox-html.el" nil t)  ; Reading at buffer position 44840
  load-with-code-conversion("/Users/chastang/.emacs.d/elpa/org-20150615/ox-html.el" "/Users/chastang/.emacs.d/elpa/org-20150615/ox-html.el" nil t)
  org-html-publish-to-html((:base-directory "~/git/julienchastang/org/" :base-extension "org" :publishing-directory "~/git/julienchastang/public_html/" :recursive t :publishing-function org-html-publish-to-html :headline-levels 4 :auto-preamble t) "/Users/chastang/git/julienchastang/org/dotemacs.org" "/Users/chastang/git/julienchastang/public_html/")
  funcall(org-html-publish-to-html (:base-directory "~/git/julienchastang/org/" :base-extension "org" :publishing-directory "~/git/julienchastang/public_html/" :recursive t :publishing-function org-html-publish-to-html :headline-levels 4 :auto-preamble t) "/Users/chastang/git/julienchastang/org/dotemacs.org" "/Users/chastang/git/julienchastang/public_html/")
  (progn (funcall publishing-function project-plist filename tmp-pub-dir) (org-publish-update-timestamp filename pub-dir publishing-function base-dir))
  (if (org-publish-needed-p filename pub-dir publishing-function tmp-pub-dir base-dir) (progn (funcall publishing-function project-plist filename tmp-pub-dir) (org-publish-update-timestamp filename pub-dir publishing-function base-dir)))
  (if (listp publishing-function) (mapc (function (lambda (f) (if (org-publish-needed-p filename pub-dir f tmp-pub-dir base-dir) (progn (funcall f project-plist filename tmp-pub-dir) (org-publish-update-timestamp filename pub-dir f base-dir))))) publishing-function) (if (org-publish-needed-p filename pub-dir publishing-function tmp-pub-dir base-dir) (progn (funcall publishing-function project-plist filename tmp-pub-dir) (org-publish-update-timestamp filename pub-dir publishing-function base-dir))))
  (let* ((project (or project (or (org-publish-get-project-from-filename filename) (error "File %s not part of any known project" (abbreviate-file-name filename))))) (project-plist (cdr project)) (ftname (expand-file-name filename)) (publishing-function (or (plist-get project-plist :publishing-function) (error "No publishing function chosen"))) (base-dir (file-name-as-directory (expand-file-name (or (plist-get project-plist :base-directory) (error "Project %s does not have :base-directory defined" (car project)))))) (pub-dir (file-name-as-directory (file-truename (or (eval (plist-get project-plist :publishing-directory)) (error "Project %s does not have :publishing-directory defined" (car project)))))) tmp-pub-dir) (if no-cache nil (org-publish-initialize-cache (car project))) (setq tmp-pub-dir (file-name-directory (concat pub-dir (and (string-match (regexp-quote base-dir) ftname) (substring ftname (match-end 0)))))) (if (listp publishing-function) (mapc (function (lambda (f) (if (org-publish-needed-p filename pub-dir f tmp-pub-dir base-dir) (progn (funcall f project-plist filename tmp-pub-dir) (org-publish-update-timestamp filename pub-dir f base-dir))))) publishing-function) (if (org-publish-needed-p filename pub-dir publishing-function tmp-pub-dir base-dir) (progn (funcall publishing-function project-plist filename tmp-pub-dir) (org-publish-update-timestamp filename pub-dir publishing-function base-dir)))) (if no-cache nil (org-publish-write-cache-file)))
  org-publish-file("/Users/chastang/git/julienchastang/org/dotemacs.org" ("org-notes" :base-directory "~/git/julienchastang/org/" :base-extension "org" :publishing-directory "~/git/julienchastang/public_html/" :recursive t :publishing-function org-html-publish-to-html :headline-levels 4 :auto-preamble t) t)
  (if (equal file theindex) nil (org-publish-file file project t))
  (while --dolist-tail-- (setq file (car --dolist-tail--)) (if (equal file theindex) nil (org-publish-file file project t)) (setq --dolist-tail-- (cdr --dolist-tail--)))
  (let ((--dolist-tail-- files) file) (while --dolist-tail-- (setq file (car --dolist-tail--)) (if (equal file theindex) nil (org-publish-file file project t)) (setq --dolist-tail-- (cdr --dolist-tail--))))
  (let* ((project-plist (cdr project)) (exclude-regexp (plist-get project-plist :exclude)) (sitemap-p (plist-get project-plist :auto-sitemap)) (sitemap-filename (or (plist-get project-plist :sitemap-filename) "sitemap.org")) (sitemap-function (or (plist-get project-plist :sitemap-function) (quote org-publish-org-sitemap))) (org-publish-sitemap-date-format (or (plist-get project-plist :sitemap-date-format) org-publish-sitemap-date-format)) (org-publish-sitemap-file-entry-format (or (plist-get project-plist :sitemap-file-entry-format) org-publish-sitemap-file-entry-format)) (preparation-function (plist-get project-plist :preparation-function)) (completion-function (plist-get project-plist :completion-function)) (files (org-publish-get-base-files project exclude-regexp)) (theindex (expand-file-name "theindex.org" (plist-get project-plist :base-directory)))) (if preparation-function (progn (run-hooks (quote preparation-function)))) (if sitemap-p (funcall sitemap-function project sitemap-filename)) (let ((--dolist-tail-- files) file) (while --dolist-tail-- (setq file (car --dolist-tail--)) (if (equal file theindex) nil (org-publish-file file project t)) (setq --dolist-tail-- (cdr --dolist-tail--)))) (if (plist-get project-plist :makeindex) (progn (org-publish-index-generate-theindex project (plist-get project-plist :base-directory)) (org-publish-file theindex project t))) (if completion-function (progn (run-hooks (quote completion-function)))) (org-publish-write-cache-file))
  (lambda (project) (org-publish-initialize-cache (car project)) (let* ((project-plist (cdr project)) (exclude-regexp (plist-get project-plist :exclude)) (sitemap-p (plist-get project-plist :auto-sitemap)) (sitemap-filename (or (plist-get project-plist :sitemap-filename) "sitemap.org")) (sitemap-function (or (plist-get project-plist :sitemap-function) (quote org-publish-org-sitemap))) (org-publish-sitemap-date-format (or (plist-get project-plist :sitemap-date-format) org-publish-sitemap-date-format)) (org-publish-sitemap-file-entry-format (or (plist-get project-plist :sitemap-file-entry-format) org-publish-sitemap-file-entry-format)) (preparation-function (plist-get project-plist :preparation-function)) (completion-function (plist-get project-plist :completion-function)) (files (org-publish-get-base-files project exclude-regexp)) (theindex (expand-file-name "theindex.org" (plist-get project-plist :base-directory)))) (if preparation-function (progn (run-hooks (quote preparation-function)))) (if sitemap-p (funcall sitemap-function project sitemap-filename)) (let ((--dolist-tail-- files) file) (while --dolist-tail-- (setq file (car --dolist-tail--)) (if (equal file theindex) nil (org-publish-file file project t)) (setq --dolist-tail-- (cdr --dolist-tail--)))) (if (plist-get project-plist :makeindex) (progn (org-publish-index-generate-theindex project (plist-get project-plist :base-directory)) (org-publish-file theindex project t))) (if completion-function (progn (run-hooks (quote completion-function)))) (org-publish-write-cache-file)))(("org-notes" :base-directory "~/git/julienchastang/org/" :base-extension "org" :publishing-directory "~/git/julienchastang/public_html/" :recursive t :publishing-function org-html-publish-to-html :headline-levels 4 :auto-preamble t))
  mapc((lambda (project) (org-publish-initialize-cache (car project)) (let* ((project-plist (cdr project)) (exclude-regexp (plist-get project-plist :exclude)) (sitemap-p (plist-get project-plist :auto-sitemap)) (sitemap-filename (or (plist-get project-plist :sitemap-filename) "sitemap.org")) (sitemap-function (or (plist-get project-plist :sitemap-function) (quote org-publish-org-sitemap))) (org-publish-sitemap-date-format (or (plist-get project-plist :sitemap-date-format) org-publish-sitemap-date-format)) (org-publish-sitemap-file-entry-format (or (plist-get project-plist :sitemap-file-entry-format) org-publish-sitemap-file-entry-format)) (preparation-function (plist-get project-plist :preparation-function)) (completion-function (plist-get project-plist :completion-function)) (files (org-publish-get-base-files project exclude-regexp)) (theindex (expand-file-name "theindex.org" (plist-get project-plist :base-directory)))) (if preparation-function (progn (run-hooks (quote preparation-function)))) (if sitemap-p (funcall sitemap-function project sitemap-filename)) (let ((--dolist-tail-- files) file) (while --dolist-tail-- (setq file (car --dolist-tail--)) (if (equal file theindex) nil (org-publish-file file project t)) (setq --dolist-tail-- (cdr --dolist-tail--)))) (if (plist-get project-plist :makeindex) (progn (org-publish-index-generate-theindex project (plist-get project-plist :base-directory)) (org-publish-file theindex project t))) (if completion-function (progn (run-hooks (quote completion-function)))) (org-publish-write-cache-file))) (("org-notes" :base-directory "~/git/julienchastang/org/" :base-extension "org" :publishing-directory "~/git/julienchastang/public_html/" :recursive t :publishing-function org-html-publish-to-html :headline-levels 4 :auto-preamble t) ("org-static" :base-directory "~/git/julienchastang/org/" :base-extension "css\\|js\\|png\\|jpg\\|gif\\|pdf\\|mp3\\|ogg\\|swf" :publishing-directory "~/git/julienchastang/public_html/" :recursive t :publishing-function org-publish-attachment)))
  org-publish-projects((("jc" :components ("org-notes" "org-static"))))
  (let ((org-publish-use-timestamps-flag (and (not force) org-publish-use-timestamps-flag))) (org-publish-projects (list project)))
  (progn (let ((org-publish-use-timestamps-flag (and (not force) org-publish-use-timestamps-flag))) (org-publish-projects (list project))))
  (unwind-protect (progn (let ((org-publish-use-timestamps-flag (and (not force) org-publish-use-timestamps-flag))) (org-publish-projects (list project)))) (set-window-configuration wconfig))
  (let ((wconfig (current-window-configuration))) (unwind-protect (progn (let ((org-publish-use-timestamps-flag (and (not force) org-publish-use-timestamps-flag))) (org-publish-projects (list project)))) (set-window-configuration wconfig)))
  (cond ((not project)) (async (let ((with-temp-message "Initializing asynchronous export process") (current-message)) (unwind-protect (progn (if with-temp-message (progn (setq current-message ...) (message "%s" with-temp-message))) (let ((--copy-fun ...) (--temp-file ...) (--coding buffer-file-coding-system)) (let (... ...) (unwind-protect ... ...)) (let* (... ... ...) (org-export-add-to-stack ... nil --process) (let ... ...)))) (and with-temp-message (if current-message (message "%s" current-message) (message nil)))))) (t (let ((wconfig (current-window-configuration))) (unwind-protect (progn (let ((org-publish-use-timestamps-flag ...)) (org-publish-projects (list project)))) (set-window-configuration wconfig)))))
  (let ((project (if (not (stringp project)) project (assoc project org-publish-project-alist)))) (cond ((not project)) (async (let ((with-temp-message "Initializing asynchronous export process") (current-message)) (unwind-protect (progn (if with-temp-message (progn ... ...)) (let (... ... ...) (let ... ...) (let* ... ... ...))) (and with-temp-message (if current-message (message "%s" current-message) (message nil)))))) (t (let ((wconfig (current-window-configuration))) (unwind-protect (progn (let (...) (org-publish-projects ...))) (set-window-configuration wconfig))))))
  org-publish-project(("jc" :components ("org-notes" "org-static")) nil)
  call-interactively(org-publish-project record nil)
  command-execute(org-publish-project record)
  execute-extended-command(nil "org-publish-project")
  smex-read-and-run(("magit-status" "org-publish-project" "eww" "visual-line-mode" "toggle-debug-on-error" "eval-buffer" "org-insert-link" "git-timemachine" "eva" "jc/do-org-show-all-inline-images" "sx-open-link" "revert-buffer" "eww-copy-page-url" "org-table-sort-lines" "package-list-packages" "org-insert-todo-heading" "org-latex-export-to-pdf" "eww-browse-with-external-browser" "cd" "5x5" "arp" "dbx" "dig" "erc" "ert" "ftp" "gdb" "ios" "ipy" "irc" "iyp" "jdb" "man" "mpc" "pdb" "pwd" "pyt" "rsh" "sdb" "xdb" "calc" "diff" "dirs" "ffap" "gnus" "grep" "help" "ielm" "info" "life" ...))
  smex()
  call-interactively(smex nil nil)
  command-execute(smex)