forked from mirrors/org-cv
37 lines
1.2 KiB
EmacsLisp
37 lines
1.2 KiB
EmacsLisp
(defvar cv-cwd default-directory
|
|
"remember the current directory, find-file changes it")
|
|
(defvar cv-workdir "/tmp/org-cv-exports/")
|
|
|
|
(with-current-buffer (find-file-noselect "/tmp/install-org.el")
|
|
(emacs-lisp-byte-compile-and-load))
|
|
|
|
(add-to-list 'load-path cv-cwd)
|
|
|
|
(require 'ox-moderncv)
|
|
(require 'ox-altacv)
|
|
(require 'ox-awesomecv)
|
|
|
|
(let ((readme (concat cv-cwd "readme.org")))
|
|
(make-directory cv-workdir t)
|
|
(cd cv-workdir)
|
|
(with-current-buffer
|
|
(find-file-noselect readme)
|
|
(org-babel-tangle)))
|
|
|
|
(copy-file (concat cv-cwd "doc/smile.png") cv-workdir t)
|
|
|
|
(defun export-latex (backend file)
|
|
(let ((workfile (concat cv-workdir file))
|
|
(outfile (concat cv-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 "lualatex %s" outfile) "*Messages*" "*Messages*")
|
|
(copy-file (concat file ".pdf") (concat cv-cwd "/doc/static/" (concat file ".pdf")) t)))
|
|
|
|
(make-directory (concat cwd "/doc/static/") t)
|
|
(export-latex 'altacv "altacv.org")
|
|
(export-latex 'moderncv "moderncv.org")
|
|
(export-latex 'awesomecv "awesomecv.org")
|
|
(export-latex 'awesomecv "awesome-letter.org")
|