;;; yas-doc-helper.el --- Help generate documentation for YASnippet
-;; Copyright (C) 2012 João Távora
+;; Copyright (C) 2012, 2013 Free Software Foundation, Inc.
;; Author: João Távora <joaotavora@gmail.com>
;; Keywords: convenience
(buffer-string))
(princ yas--version (current-buffer)))))
(proj-plist
- (list
- :publishing-function 'org-html-publish-to-html
- :base-directory dir :publishing-directory dir
- :html-preamble
- (with-temp-buffer
- (insert-file-contents (expand-file-name "nav-menu.html.inc" dir))
- (buffer-string))
- :html-postamble
- (concat "<hr><p class='creator'>Generated by %c on %d from "
- rev "</p>\n"
- "<p class='xhtml-validation'>%v</p>\n")))
+ `(,@(when (fboundp 'org-html-publish-to-html)
+ '(:publishing-function org-html-publish-to-html))
+ :base-directory ,dir :publishing-directory ,dir
+ :html-preamble
+ ,(with-temp-buffer
+ (insert-file-contents (expand-file-name "nav-menu.html.inc" dir))
+ (buffer-string))
+ :html-postamble
+ ,(concat "<hr><p class='creator'>Generated by %c on %d from "
+ rev "</p>\n"
+ "<p class='xhtml-validation'>%v</p>\n")))
(project (assoc "yasnippet" org-publish-project-alist)))
(if project
(setcdr project proj-plist)
(let ((org-publish-use-timestamps-flag nil)
(org-export-copy-to-kill-ring nil)
(org-confirm-babel-evaluate nil)
- (make-backup-files nil))
+ (make-backup-files nil)
+ (org-html-htmlize-output-type 'css))
(org-publish "yasnippet" 'force)))
(provide 'yas-doc-helper)
-;;; yas-doc-helper.el ends here
;; Local Variables:
+;; indent-tabs-mode: nil
;; coding: utf-8
;; End:
+;;; yas-doc-helper.el ends here