mirrors/org-cv
1
0
Fork 1
mirror of https://gitlab.com/Titan-C/org-cv.git synced 2024-11-14 18:48:30 +00:00
Code Issues Projects Releases Packages Wiki Activity

update genfiles

Browse source
This commit is contained in:
Oscar Najera 2023-10-21 23:16:36 +02:00
parent e3146f494c
commit bab87823e2
1 changed files with 17 additions and 19 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

36
genfiles.el
View file

@ -1,36 +1,34 @@
;; remember the current directory, find-file changes it (defvar cv-cwd default-directory
(defvar cwd default-directory) "remember the current directory, find-file changes it")
(defvar workdir "/tmp/org-cv-exports/") (defvar cv-workdir "/tmp/org-cv-exports/")
(find-file "/tmp/install-org.el")
(eval-buffer)
(add-to-list 'load-path cwd) (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-moderncv)
(require 'ox-altacv) (require 'ox-altacv)
(require 'ox-awesomecv) (require 'ox-awesomecv)
(let ((readme (concat cwd "readme.org"))) (let ((readme (concat cv-cwd "readme.org")))
(find-file readme) (make-directory cv-workdir t)
(make-directory workdir t) (cd cv-workdir)
(cd workdir) (with-current-buffer
(org-babel-tangle)) (find-file-noselect readme)
(org-babel-tangle)))
(copy-file (concat cwd "doc/smile.png") workdir t) (copy-file (concat cv-cwd "doc/smile.png") cv-workdir t)
(copy-directory "/root/texmf/tex/latex/Awesome-CV-master/fonts" workdir)
(defun export-latex (backend file) (defun export-latex (backend file)
(let ((workfile (concat workdir file)) (let ((workfile (concat cv-workdir file))
(outfile (concat workdir file ".tex"))) (outfile (concat cv-workdir file ".tex")))
(message (format "%s exists: %s" workfile (file-exists-p workfile))) (message (format "%s exists: %s" workfile (file-exists-p workfile)))
(find-file workfile) (find-file workfile)
(org-mode) (org-mode)
(org-export-to-file backend outfile) (org-export-to-file backend outfile)
(shell-command (format "lualatex %s" outfile) "*Messages*" "*Messages*") (shell-command (format "lualatex %s" outfile) "*Messages*" "*Messages*")
(copy-file (concat file ".pdf") (concat cwd "/doc/static/" (concat file ".pdf")) t) (copy-file (concat file ".pdf") (concat cv-cwd "/doc/static/" (concat file ".pdf")) t)))
))
(make-directory (concat cwd "/doc/static/") t) (make-directory (concat cwd "/doc/static/") t)
(export-latex 'altacv "altacv.org") (export-latex 'altacv "altacv.org")