;;;

(require 'cl)

(defvar *backend* nil)
(defvar org-generate-default-toc t)
(defvar org-tex-engine "default")

(setq org-babel-temporary-directory 
      (format "/tmp/emacs.babel.%d" (emacs-pid)))

(defun choose-tex-engine (name)
  (let ((tex-engines '(("pdflatex2" .  
			("pdflatex -interaction nonstopmode -output-directory %o %f"
			 "pdflatex -interaction nonstopmode -output-directory %o %f"))
		       ("pdflatex3" .  
			("pdflatex -interaction nonstopmode -output-directory %o %f"
			 "pdflatex -interaction nonstopmode -output-directory %o %f"
			 "pdflatex -interaction nonstopmode -output-directory %o %f"))
		       ("pdflatex3-bibtex" . 
			("pdflatex -interaction nonstopmode -output-directory %o %f"
			 "bibtex %b"
			 "pdflatex -interaction nonstopmode -output-directory %o %f"
			 "pdflatex -interaction nonstopmode -output-directory %o %f"))
		       ("xelatex2" . 
			("xelatex -interaction nonstopmode -output-directory %o %f"
			 "xelatex -interaction nonstopmode -output-directory %o %f"))
		       ("xelatex3" . 
			("xelatex -interaction nonstopmode -output-directory %o %f"
			 "xelatex -interaction nonstopmode -output-directory %o %f"
			 "xelatex -interaction nonstopmode -output-directory %o %f"))
		       ("xelatex3-bibtex" . 
			("xelatex -interaction nonstopmode -output-directory %o %f"
			 "bibtex %b"
			 "xelatex -interaction nonstopmode -output-directory %o %f"
			 "xelatex -interaction nonstopmode -output-directory %o %f"))
		       ("texi2dvi" . ("texi2dvi -p -b -V %f"))
		       ("rubber" . ("rubber -d --into %o %f"))
		       ("latexmk" . ("latexmk -g -pdf %f")))))
    (let ((engine (assoc name tex-engines)))
      (if engine
	  (cdr engine)
	(cdr (assoc "pdflatex2" tex-engines))))))


(defun add-moderncv-class (backend)
  (unless (member "moderncv" (mapcar #'car org-latex-classes))
    (setq org-latex-classes
	  (append '(("moderncv"  "\\documentclass[10pt,a4paper,roman]{moderncv}"
		     ("\\section{%s}" . "\\section*{%s}")
		     ("\\subsection{%s}" . "\\subsection*{%s}")
		     ("\\subsubsection{%s}" . "\\subsubsection*{%s}")
		     ("\\paragraph{%s}" . "\\paragraph*{%s}")
		     ("\\subparagraph{%s}" . "\\subparagraph*{%s}")))
		  org-latex-classes))))


(defun do-foreach (tag action)
  (save-excursion
    (progn (goto-char (point-min))
	   (while (re-search-forward tag nil t)
	     (progn (funcall action)
		    (forward-line 1))))))

;; update all radio tables
;; in the document
(defun send-all-tables (backend)
  (interactive)
  (let ((*backend* backend))
    (do-foreach "[ \t]*#\\+ORGTBL:"
		#'(lambda ()
		    (forward-line)
		    (call-interactively 'orgtbl-send-table)))))

(defun org-use-xelatex ()
  (interactive)
  (setq org-latex-pdf-process
	(quote ("xelatex -interaction nonstopmode -output-directory %o %f"
		"bibtex %b" "xelatex -interaction nonstopmode -output-directory %o %f"
		"xelatex -interaction nonstopmode -output-directory %o %f"))))


(defun org-odt-publish-to-odt (plist filename pub-dir)
  (message "odt publishing\n")
  (org-publish-org-to 'odt filename
                      (concat "." (or (plist-get plist :odt-extension)
                                      org-html-extension "odt"))
                      plist pub-dir))

(defun org-before-publish (backend)
  (org-choose-tex-engine)
  (if (boundp 'org-babel-temporary-directory)
      (unless (file-exists-p org-babel-temporary-directory)
        (progn
          (make-directory org-babel-temporary-directory t)))))

(defun my-org-before-parsing-hook (backend)
  (progn
    (send-all-tables backend)
    (add-moderncv-class backend)))  ;; update radio tables

(defun position-of-match (pattern)
  (if (re-search-forward pattern nil t 1)
      (progn 
	(list (match-beginning 0)
	      (match-end 0)))
    nil))

(defun my-org-before-processing-hook (backend)
  t)


(defun org-choose-tex-engine ()
  (hack-local-variables)
  (setq org-latex-pdf-process
	(choose-tex-engine (if org-tex-engine
			       org-tex-engine
			     "default"))))

(defun customize-org ()
  (custom-set-variables
   '(org-babel-load-languages 
     (quote ((emacs-lisp . t) 
	     (C . t) 
	     (calc . t) 
	     (ditaa . t) 
	     (gnuplot . t) 
	     (mscgen . t) 
	     (octave . t) 
	     (plantuml . t) 
	     (sh . t) 
	     (haskell . t) 
	     (metapost . t) 
	     (dot . t)
	     (R . t)
	     (latex . t) 
	     (tikz . t))))
   '(org-babel-tangle-lang-exts 
     (quote (("emacs-lisp" . "el") 
	     ("metapost" . "mp") 
	     ("Language name" . "File Extension"))))
   '(org-confirm-babel-evaluate nil)
   '(org-ditaa-jar-path "~/.emacs.d/misc/ditaa.jar")
   '(org-enforce-todo-dependencies t)
   '(org-export-backends (quote (ascii html icalendar latex odt md beamer)))
   '(org-latex-default-packages-alist 
     (quote (("T1" "fontenc" t) 
	     ("" "fixltx2e" nil) 
	     ("" "graphicx" t) 
	     ("" "longtable" nil) 
	     ("" "float" nil) 
	     ;;	   ("" "wrapfig" nil) 
	     ("" "soul" t) 
	     ("" "textcomp" t) 
	     ("" "marvosym" t) 
	     ("" "wasysym" t) 
	     ("" "latexsym" t) 
	     ("" "amssymb" t) 
	     ("" "amstext" nil) 
	     ("" "hyperref" nil) "\\tolerance=1000")))
   `(org-plantuml-jar-path ,(concat *custom-dir* "/misc/plantuml.jar"))))

(defun my-org-init ()
  (make-local-variable 'org-tex-engine)
  (make-local-variable 'buffer-file-coding-system)
  (setq org-babel-load-languages nil)
  (customize-org)
  (put 'org-latex-default-packages-alist 'safe-local-variable 'listp)
  (put 'org-tex-engine 'safe-local-variable 'stringp)
  (put 'buffer-file-coding-system 'safe-local-variable 'symbolp) 
  (put 'org-latex-title-command 'safe-local-variable 'stringp)
  (put 'org-latex-toc-command 'safe-local-variable 'stringp)
  (unless (file-exists-p org-babel-temporary-directory)
    (make-directory org-babel-temporary-directory)))

(defun my-org-config ()
;;  (add-hook 'org-babel-after-execute-hook
;;	    'org-display-inline-images)
;;  (setq org-startup-with-inline-images t)
  ;; Using xelatex to enable
  ;; CJK support
  ;;(add-hook 'org-mode-hook 'org-use-xelatex)
  (add-hook 'org-mode-hook 'orgtbl-mode)
  (add-hook 'org-export-before-parsing-hook 'my-org-before-parsing-hook)
  (add-hook 'org-export-before-processing-hook 'my-org-before-processing-hook)
  (add-hook 'org-export-before-processing-hook 'org-before-publish)
  (add-hook 'org-mode-hook 'turn-on-org-cdlatex)
  (setq org-export-allow-bind-keywords t)
  (setq org-latex-to-mathml-convert-command 
	"java -jar %j -unicode -force -df %o %I"
	org-latex-to-mathml-jar-file
	"~/.emacs.d/misc/mathtoweb.jar")
  )


(defun org-use-template (template)
  (interactive
   (let ((template-used (read-file-name "choose template: "
					(expand-file-name "~/.emacs.d/templates/")
					nil nil nil)))
     (list template-used)))
  (when template
    (insert-file-contents template)
    ;; enable file local variables defined in template
    ;;
    (hack-local-variables)))

(defun refill-org-paragraphs ()
  (interactive)
  (save-excursion
   (goto-char (point-min))
   (while (not (eql (point) (point-max)))
     (org-fill-paragraph)
     (org-forward-paragraph))))

;; reshape-web-paragraph ()
;; this function is used to reshape the paragraph copied from
;; web browser which a paragraph is just a very log line
(defun reshape-web-paragraph ()
  (interactive)
  (save-excursion
    (goto-char (point-min))
    (when (< (point) (point-max))
      (forward-sentence)
      (when (< (point) (point-max))
	(insert "\n")
	(reshape-web-paragraph)))))

(defun delete-extra-empty-lines ()
  (interactive)
  (save-excursion
	(goto-char (point-min))
	(my-zap-multiple-empty-lines)))

(register-mypkg
 (list :name "org"
       :enabled t
       :packages '(auctex org puml-mode cdlatex ox-ioslide 
			  gnuplot gnuplot-mode)
       :init   #'(lambda ()
		   (my-org-init)
		   (setq puml-plantuml-jar-path
			 (expand-file-name (concat *custom-dir* "/misc/plantuml.jar")))
		   (setenv "GRAPHVIZ_DOT" (which "dot")))
       :config #'(lambda ()
		      (my-org-config))))