(setq custom-file "~/.emacs-custom.el")
(load custom-file)

; (add-to-list 'exec-path "~/bin/")
; (add-to-list 'exec-path "~/lib/elisp/")
; (add-to-list 'load-path "~/lib/elisp/")
; (add-to-list 'load-path "~/lib/elisp/ess/lisp/")
; (add-to-list 'load-path "~/git/org-mode-release/")
(add-to-list 'load-path "~/git/org-mode/lisp/")
(add-to-list 'load-path "~/git/org-mode/contrib/lisp/")

; (load "~/lib/elisp/htmlize.el")
; (load "~/lib/elisp/gnuplot.el")
; (global-font-lock-mode 1)
(show-paren-mode 1)
(menu-bar-mode 0)
(set-face-foreground 'font-lock-keyword-face "DeepSkyBlue1")
(set-face-foreground 'font-lock-string-face "pale goldenrod")

(require 'org)
(require 'org-html)
(require 'htmlize)

(eval-after-load "org-html"
'(setq org-export-html-scripts
       (concat org-export-html-scripts "\n"
	       "<script type=\"text/javascript\">
var gaJsHost = ((\"https:\" == document.location.protocol) ? \"https://ssl.\" : \"http://www.\");
document.write(unescape(\"%3Cscript src='\" + gaJsHost + \"google-analytics.com/ga.js' type='text/javascript'%3E%3C/script%3E\"));
</script>
<script type=\"text/javascript\">
try {
var pageTracker = _gat._getTracker(\"UA-7691209-1\");
pageTracker._trackPageview();
} catch(err) {}
</script>

<script type=\"text/javascript\">
    function rpl(expr,a,b) {
      var i=0
      while (i!=-1) {
         i=expr.indexOf(a,i);
         if (i>=0) {
            expr=expr.substring(0,i)+b+expr.substring(i+a.length);
            i+=b.length;
         }
      }
      return expr
    }

    function show_org_source(){
       document.location.href = rpl(document.location.href,\"html\",\"org.html\");
    }
</script>

<script type=\"text/javascript\" src=\"http://orgmode.org/js/prototype.js\"></script>
<script type=\"text/javascript\" src=\"http://orgmode.org/js/scriptaculous.js?load=effects,builder\"></script>
<script type=\"text/javascript\" src=\"http://orgmode.org/js/lightbox.js\"></script>

<script type=\"text/javascript\">
/* <![CDATA[ */
    (function() {
        var s = document.createElement('script'), t = document.getElementsByTagName('script')[0];
        s.type = 'text/javascript';
        s.async = true;
        s.src = 'http://api.flattr.com/js/0.6/load.js?mode=auto';
        t.parentNode.insertBefore(s, t);
    })();
/* ]]> */
</script>
")))

(setq make-backup-files nil)

(setq org-export-default-language "en"
      org-export-html-extension "html"
      org-export-with-timestamps nil
      org-export-with-section-numbers nil
      org-export-with-tags 'not-in-toc
      org-export-skip-text-before-1st-heading nil
      org-export-with-sub-superscripts '{}
      org-export-with-LaTeX-fragments t
      org-export-with-archived-trees nil
      org-export-highlight-first-table-line t
      org-export-latex-listings-w-names nil
      org-export-html-style-include-default nil
      org-export-htmlize-output-type 'css
      org-startup-folded nil
      org-publish-list-skipped-files t
      org-publish-use-timestamps-flag t
      org-export-babel-evaluate nil
      org-confirm-babel-evaluate nil)

(define-key global-map "\C-ca" 'org-agenda)
(setq org-agenda-custom-commands
      '(
	;; List of TODO from Worg"
	("1" "Worg TODO" todo "TODO"
	 ((org-agenda-files '("~/git/worg/"))))

	;; List of INPROGRESS from Worg"
	("2" "Worg INPROGRESS" todo "INPROGRESS"
	 ((org-agenda-files '("~/git/worg/"))))))

;; re-export everything regardless of whether or not it's been modified
;(setq org-publish-use-timestamps-flag nil)

(defun set-org-publish-project-alist ()
  (interactive)
  (setq org-publish-project-alist
	`(("worg" :components ("worg-org-faq" "worg-pages" "worg-code" "worg-color-themes" "worg-images-dir" "worg-images" "worg-sources" "worg-extra" "worg-bibtex"))
	  ("orgweb" :components ("orgwebpages" "orgwebpages_fr" "orgwebpages_es" "orgwebpages_ja" "orgweb-extra"))
	  ("worg-org-faq"
	   :base-directory ,worg-base-directory
	   :base-extension "dummy"
	   :include ("org-faq.org")
	   :html-extension "html"
	   :publishing-directory ,worg-publish-directory
	   :publishing-function org-publish-org-to-html
	   :section-numbers nil
	   :table-of-contents nil
	   :style "<link rel=\"stylesheet\" title=\"Standard\" href=\"/worg/style/worg.css\" type=\"text/css\" />
<link rel=\"alternate stylesheet\" title=\"Zenburn\" href=\"/worg/style/worg-zenburn.css\" type=\"text/css\" />
<link rel=\"alternate stylesheet\" title=\"Classic\" href=\"/worg/style/worg-classic.css\" type=\"text/css\" />
<link rel=\"stylesheet\" href=\"http://orgmode.org/css/lightbox.css\" type=\"text/css\" media=\"screen\" />
<link rel=\"SHORTCUT ICON\" href=\"/org-mode-unicorn.ico\" type=\"image/x-icon\" />
<link rel=\"icon\" href=\"/org-mode-unicorn.ico\" type=\"image/ico\" />"
	   :recursive t
	   :html-preamble nil
	   :html-postamble "<div id=\"show_source\"><input type=\"button\" value=\"Show Org source\" onClick='show_org_source()'></div><div id=\"license\"><p>Documentation from the http://orgmode.org/worg/ website (either in its HTML format or in its Org format) is licensed under the <a href=\"http://www.gnu.org/copyleft/fdl.html\">GNU Free Documentation License version 1.3</a> or later.  The code examples and css stylesheets are licensed under the <a href=\"http://www.gnu.org/licenses/gpl.html\">GNU General Public License v3</a> or later.</p></div>"
	   )
	  ("worg-pages"
	   :base-directory ,worg-base-directory
	   :base-extension "org"
	   :exclude "FIXME"
	   :makeindex t
	   :auto-sitemap t
	   :sitemap-ignore-case t
	   :html-extension "html"
	   :publishing-directory ,worg-publish-directory
	   :publishing-function (org-publish-org-to-html org-publish-org-to-org)
	   :htmlized-source t
	   :section-numbers nil
	   :table-of-contents nil
	   :style "<link rel=\"stylesheet\" title=\"Standard\" href=\"/worg/style/worg.css\" type=\"text/css\" />
<link rel=\"alternate stylesheet\" title=\"Zenburn\" href=\"/worg/style/worg-zenburn.css\" type=\"text/css\" />
<link rel=\"alternate stylesheet\" title=\"Classic\" href=\"/worg/style/worg-classic.css\" type=\"text/css\" />
<link rel=\"stylesheet\" href=\"http://orgmode.org/css/lightbox.css\" type=\"text/css\" media=\"screen\" />
<link rel=\"SHORTCUT ICON\" href=\"/org-mode-unicorn.ico\" type=\"image/x-icon\" />
<link rel=\"icon\" href=\"/org-mode-unicorn.ico\" type=\"image/ico\" />"
	   :recursive t
	   :html-preamble nil
	   :html-postamble "<div id=\"show_source\"><input type=\"button\" value=\"Show Org source\" onClick='show_org_source()'></div><div id=\"license\"><p>Documentation from the http://orgmode.org/worg/ website (either in its HTML format or in its Org format) is licensed under the <a href=\"http://www.gnu.org/copyleft/fdl.html\">GNU Free Documentation License version 1.3</a> or later.  The code examples and css stylesheets are licensed under the <a href=\"http://www.gnu.org/licenses/gpl.html\">GNU General Public License v3</a> or later.</p></div>"
	   )
	  ("worg-code"
	   :base-directory ,worg-base-code-directory
	   :base-extension "html\\|css\\|png\\|js\\|bz2\\|el\\|sty\\|awk\\|pl"
	   :html-extension "html"
	   :publishing-directory "/var/www/orgmode.org/worg/code/"
	   :recursive t
	   :publishing-function org-publish-attachment)
	  ("worg-color-themes"
	   :base-directory ,worg-base-color-themes-directory
	   :base-extension "el"
	   :html-extension "html"
	   :publishing-directory "/var/www/orgmode.org/worg/color-themes/"
	   :recursive t
	   :publishing-function org-publish-attachment)
	  ("worg-images-dir"
	   :base-directory ,worg-base-images-directory
	   :base-extension "png\\|jpg\\|gif\\|pdf\\|cvs\\|css"
	   :publishing-directory "/var/www/orgmode.org/worg/images/"
	   :recursive t
	   :publishing-function org-publish-attachment)
	  ("worg-images"
	   :base-directory ,worg-base-directory
	   :base-extension "png\\|jpg\\|gif\\|pdf\\|csv\\|css\\|tex"
	   :publishing-directory ,worg-publish-directory
	   :recursive t
	   :publishing-function org-publish-attachment)
	  ("worg-sources"
	   :base-directory ,worg-base-directory
	   :base-extension "org"
	   :publishing-directory "/var/www/orgmode.org/worg/sources/"
	   :recursive t
	   :publishing-function org-publish-attachment)
	  ("worg-extra"
	   :base-directory ,worg-base-directory
	   :base-extension "css"
	   :publishing-directory ,worg-publish-directory
	   :publishing-function org-publish-attachment)
	  ("worg-bibtex"
	   :base-directory "/home/emacs/git/worg/org-contrib/bibtex/"
	   :base-extension "bib"
	   :publishing-directory "/var/www/orgmode.org/worg/org-contrib/bibtex/"
	   :recursive nil
	   :publishing-function org-publish-attachment)
	  ("orgwebpages"
	   :base-directory "~/git/orgweb/"
	   :base-extension "org"
	   :html-extension "html"
	   :publishing-directory "/var/www/orgmode.org/"
	   :publishing-function org-publish-org-to-html
	   :section-numbers nil
	   :table-of-contents t
	   :style "<link rel=\"stylesheet\" href=\"/org.css\" type=\"text/css\" />
<link rel=\"SHORTCUT ICON\" href=\"/org-mode-unicorn.ico\" type=\"image/x-icon\" />
<link rel=\"icon\" href=\"/org-mode-unicorn.ico\" type=\"image/ico\" />"
	   :html-preamble ,(org-get-file-contents "/home/emacs/git/orgweb/preamble.html")
	   :html-postamble ,(org-get-file-contents "/home/emacs/git/orgweb/postamble.html")
	   :exclude "DS_Store"
	   :recursive t)
	  ("orgwebpages_fr"
	   :base-directory "~/git/orgweb/fr/"
	   :base-extension "org"
	   :html-extension "html"
	   :publishing-directory "/var/www/orgmode.org/fr/"
	   :publishing-function org-publish-org-to-html
	   :section-numbers nil
	   :table-of-contents t
	   :style "<link rel=\"stylesheet\" href=\"/org.css\" type=\"text/css\" />
<link rel=\"SHORTCUT ICON\" href=\"/org-mode-unicorn.ico\" type=\"image/x-icon\" />
<link rel=\"icon\" href=\"/org-mode-unicorn.ico\" type=\"image/ico\" />"
	   :html-preamble ,(org-get-file-contents "/home/emacs/git/orgweb/fr/preamble.html")
	   :html-postamble ,(org-get-file-contents "/home/emacs/git/orgweb/postamble.html")
	   :exclude "DS_Store"
	   :recursive t)
	  ("orgwebpages_es"
	   :base-directory "~/git/orgweb/es/"
	   :base-extension "org"
	   :html-extension "html"
	   :publishing-directory "/var/www/orgmode.org/es/"
	   :publishing-function org-publish-org-to-html
	   :section-numbers nil
	   :table-of-contents t
	   :style "<link rel=\"stylesheet\" href=\"/org.css\" type=\"text/css\" />
<link rel=\"SHORTCUT ICON\" href=\"/org-mode-unicorn.ico\" type=\"image/x-icon\" />
<link rel=\"icon\" href=\"/org-mode-unicorn.ico\" type=\"image/ico\" />"
	   :html-preamble ,(org-get-file-contents "/home/emacs/git/orgweb/es/preamble.html")
	   :html-postamble ,(org-get-file-contents "/home/emacs/git/orgweb/postamble.html")
	   :exclude "DS_Store"
	   :recursive t)
	  ("orgwebpages_ja"
	   :base-directory "~/git/orgweb/ja/"
	   :base-extension "org"
	   :html-extension "html"
	   :publishing-directory "/var/www/orgmode.org/ja/"
	   :publishing-function org-publish-org-to-html
	   :section-numbers nil
	   :table-of-contents t
	   :style "<link rel=\"stylesheet\" href=\"/org.css\" type=\"text/css\" />
<link rel=\"SHORTCUT ICON\" href=\"/org-mode-unicorn.ico\" type=\"image/x-icon\" />
<link rel=\"icon\" href=\"/org-mode-unicorn.ico\" type=\"image/ico\" />"
	   :html-preamble ,(org-get-file-contents "/home/emacs/git/orgweb/ja/preamble.html")
	   :html-postamble ,(org-get-file-contents "/home/emacs/git/orgweb/postamble.html")
	   :exclude "DS_Store"
	   :recursive t)
	  ("orgweb-extra"
	   :base-directory "~/git/orgweb/"
	   :base-extension "css\\|html\\|png"
	   :publishing-directory "/var/www/orgmode.org/"
	   :publishing-function org-publish-attachment
	   :recursive t)
	  )))

(setq worg-base-directory "~/git/worg/")
(setq worg-base-code-directory "~/git/worg/code/")
(setq worg-base-color-themes-directory "~/git/worg/color-themes/")
(setq worg-base-images-directory "~/git/worg/images/")
(setq worg-publish-directory "/var/www/orgmode.org/worg/")
(set-org-publish-project-alist)

(defun worg-fix-symbol-table ()
  (when (string-match "org-symbols\\.html" buffer-file-name)
    (goto-char (point-min))
    (while (re-search-forward "<td>&amp;\\([^<;]+;\\)" nil t)
      (replace-match (concat "<td>&" (match-string 1)) t t))))

(defun publish-worg-old nil
   "Publish Worg."
   (interactive)
   (add-hook 'org-publish-after-export-hook 'worg-fix-symbol-table)
   (let ((org-format-latex-signal-error nil)
	 (worg-base-directory "~/git/worg/")
	 (worg-base-code-directory "~/git/worg/code/")
	 (worg-base-color-themes-directory "~/git/worg/color-themes/")
	 (worg-base-images-directory "~/git/worg/images/")
	 (worg-publish-directory "/var/www/orgmode.org/worg/"))
     (set-org-publish-project-alist)
     (org-publish-project "worg")))

(defun publish-worg nil
   "Publish Worg."
   (interactive)
   (add-hook 'org-publish-after-export-hook 'worg-fix-symbol-table)
   (let ((org-format-latex-signal-error nil)
	 (worg-base-directory "~/git/worg/")
	 (worg-base-code-directory "~/git/worg/code/")
	 (worg-base-color-themes-directory "~/git/worg/color-themes/")
	 (worg-base-images-directory "~/git/worg/images/")
	 (worg-publish-directory "/var/www/orgmode.org/worg/"))
     (set-org-publish-project-alist)
     (message "Emacs %s" emacs-version)
     (org-version)
     (org-publish-project "worg")))

(defun publish-orgweb nil
   "Publish Org web pages."
   (interactive)
   (add-hook 'org-publish-after-export-hook 'worg-fix-symbol-table)
   (let ((org-format-latex-signal-error nil))
     (org-publish-project "orgweb")))

(defun parse-org-quotes ()
  "Create /var/www/orgmode.org/org-quotes.js from org-quotes.org."
  (interactive)
  (load "/home/emacs/git/worg/code/elisp/worg-fortune.el")
  (worg-write-fortune-file
   "/home/emacs/git/worg/org-quotes.org" 
   "/var/www/orgmode.org/org-quotes.js"
   120
   "r_text[%d] = \"%s\";" "\n"
   'worg-fortune-insert-javascript-pre
   'worg-fortune-insert-javascript-post))

;; ("worg-htmlize"
;;  :base-directory "~/git/Worg/"
;;  :base-extension "org"
;;  :html-extension "org.html"
;;  :publishing-directory "/var/www/orgmode.org/worg/"
;;  :recursive t
;;  :htmlized-source t
;;  :publishing-function org-publish-org-to-org)))

;; (defun publish-worg-htmlize nil
;;    "Publish Worg in htmlized pages."
;;    (interactive)
;;    (add-hook 'org-publish-after-export-hook 'worg-fix-symbol-table)
;;    (let ((org-format-latex-signal-error nil)
;; 	 (org-startup-folded nil))
;;      (org-publish-project "worg-htmlize")))