mirror of
https://gitlab.com/Titan-C/org-cv.git
synced 2024-11-15 02:58:29 +00:00
34 lines
1,004 B
EmacsLisp
34 lines
1,004 B
EmacsLisp
;; remember the current directory, find-file changes it
|
|
(defvar cwd default-directory)
|
|
(defvar workdir "/tmp/org-cv-exports/")
|
|
(find-file "/tmp/install-org.el")
|
|
(eval-buffer)
|
|
|
|
(add-to-list 'load-path cwd)
|
|
|
|
(require 'ox-moderncv)
|
|
|
|
(require 'ox-altacv)
|
|
|
|
(let ((readme (concat cwd "readme.org")))
|
|
(find-file readme)
|
|
(make-directory workdir t)
|
|
(cd workdir)
|
|
(org-babel-tangle))
|
|
|
|
(copy-file (concat cwd "doc/smile.png") workdir)
|
|
|
|
(defun export-latex (backend file)
|
|
(let ((workfile (concat workdir file))
|
|
(outfile (concat workdir file ".tex")))
|
|
(message (format "%s exists: %s" workfile (file-exists-p workfile)))
|
|
(find-file workfile)
|
|
(org-mode)
|
|
(org-export-to-file backend outfile)
|
|
(shell-command (format "pdflatex %s" outfile) "*Messages*" "*Messages*")
|
|
(copy-file (concat file ".pdf") (concat cwd "/doc/static/" (concat file ".pdf")))
|
|
))
|
|
|
|
(make-directory (concat cwd "/doc/static/") t)
|
|
(export-latex 'altacv "altacv.org")
|
|
(export-latex 'moderncv "moderncv.org")
|