;;; The Network documentation: ~/Network/Abbey/**/*.org -> *.html

(add-to-list 'load-path (expand-file-name "~/Emacs/emacs-htmlize"))
(add-to-list 'load-path (expand-file-name "~/Emacs/org-mode/lisp"))
(require 'org)

(setq org-publish-project-alist
      '(("Network"
	 :base-directory "~/Network/Abbey/"
	 :publishing-directory "~/Network/Abbey/"
	 :recursive t
;;;         :publishing-function org-html-publish-to-abbey-html
         :publishing-function org-html-publish-to-html
         ;;:section-numbers nil
         :headline-levels 4
         :with-toc nil
	 :html-head-include-default-style nil
	 :html-head-include-scripts nil
	 :html-head "<link rel=\"stylesheet\" href=\"org.css\">
<script language=\"javascript\" type=\"text/javascript\" src=\"jquery.js\"></script>
<script language=\"javascript\" type=\"text/javascript\" src=\"org.js\"></script>
"
	 :broken-links 'mark)))

(require 'ox)
(setq org-export-with-sub-superscripts nil)
(setq org-html-htmlize-output-type 'css)

;; Hack rendition of verbatim text.  Use Q rather than CODE.
(let ((cons (assq 'verbatim org-html-text-markup-alist)))
  (if (not cons) (error "verbatim not found!"))
  (setcdr cons "<q>%s</q>"))

;;;(defun abbey-html-src-block (src-block contents info)
;;;  "Transcode a SRC-BLOCK element from Org to ASCII.
;;;CONTENTS is nil.  INFO is a plist used as a communication
;;;channel."
;;;  (let ((filename (org-element-property :tangle src-block)))
;;;    (concat "Excerpt of "filename":</br>\n"
;;;	    (org-element-normalize-string
;;;	     (org-export-format-code-default src-block info)))))
;;;
;;;(org-export-define-derived-backend 'abbey-html 'html
;;;  :translate-alist '((src-block . abbey-html-src-block)))
;;;
;;;(defun org-html-publish-to-abbey-html (plist filename pub-dir)
;;;  "Publish an org file to Abbey HTML.
;;;
;;;FILENAME is the filename of the Org file to be published.  PLIST
;;;is the property list for the given project.  PUB-DIR is the
;;;publishing directory.
;;;
;;;Return output file name."
;;;  (org-publish-org-to 'abbey-html filename ".html" plist pub-dir))

(defun pub () (org-publish "Network"))
(defun pub-forced () (org-publish "Network" 't))