tec/this-month-in-org
1
0
Fork 0
Code Issues Pull requests Releases Activity

Only overwrite css/js files when src newer

Browse source
This commit is contained in:
TEC 2021-04-25 22:48:00 +08:00
parent 993f95d694
commit d1f8c653d4
Signed by: tec
GPG key ID: 779591AFDB81F06C
1 changed files with 8 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
publish.el
View file

@ -26,10 +26,14 @@
(setq site-root "https://blog.tecosaur.com/tmio/")
(copy-file (expand-file-name "misc/org-css/main.min.css" doom-private-dir)
(expand-file-name "assets/org-style.css" (file-name-directory load-file-name)) t)
(copy-file (expand-file-name "misc/org-css/main.js" doom-private-dir)
(expand-file-name "assets/org-style.js" (file-name-directory load-file-name)) t)
(let ((css-src (expand-file-name "misc/org-css/main.min.css" doom-private-dir))
(css-dest (expand-file-name "assets/org-style.css" (file-name-directory load-file-name)))
(js-src (expand-file-name "misc/org-css/main.js" doom-private-dir))
(js-dest (expand-file-name "assets/org-style.js" (file-name-directory load-file-name))))
(when (file-newer-than-file-p css-src css-dest)
(copy-file css-src css-dest t))
(when (file-newer-than-file-p js-src js-dest)
(copy-file js-src js-dest t)))
(defun file-contents (file)
(with-temp-buffer