diff --git a/engine/pre-deploy.sh b/engine/pre-deploy.sh index c0a9762..6c7c874 100755 --- a/engine/pre-deploy.sh +++ b/engine/pre-deploy.sh @@ -2,7 +2,8 @@ cd "$(git rev-parse --show-toplevel)" || exit 1 echo "Copying to optim dir" -find _optim -mindepth 1 -delete && cp -r _site/* _optim +find _optim -mindepth 1 -not -path "_optim/.gitignore" -delete && \ + cp -r _site/* _optim echo "Optim HTML size" ./engine/optim-html.sh # echo "Gen themes clones" diff --git a/project.el b/project.el index 65c9f5d..d0ff169 100644 --- a/project.el +++ b/project.el @@ -1,6 +1,6 @@ ;; sign it with ;; gpg --local-user yann@esposito.host --output project.el.sig --detach-sign project.el -(defvar domainname "https://her.esy.fun") +(defvar websiteorigin "https://her.esy.fun") (defvar root-dir (projectile-project-root)) (defvar base-dir (concat root-dir "src")) (defvar publish-dir (concat root-dir "_site")) @@ -58,16 +58,29 @@ "Pre-amble for whole blog." (concat "
" - (when-let ((date (plist-get info :date))) - (format "%s" - (format-time-string "%Y-%m-%d" - (org-timestamp-to-time - (car date))))) "

" (format "%s" (car (plist-get info :title))) "

" (when-let ((subtitle (car (plist-get info :subtitle)))) (format "

%s

" subtitle)) + (when-let ((date (plist-get info :date))) + (concat + "
" + "Published " + (format "%s" + (format-time-string "%Y-%m-%d" + (org-timestamp-to-time + (car date)))) + " on " + (format " Yann Esposito's blog" websiteorigin) + " - " + (let ((permalink (format "%s%s" + websiteorigin + (replace-regexp-in-string ".*/_site" "" + (plist-get info :output-file))))) + (format " §permalink" permalink)) + + "
")) "
")) (defun rand-obfs (c) @@ -85,7 +98,7 @@ (concat "
" ;; TODO install a comment system - ;; (let ((url (format "%s%s" domainname (replace-regexp-in-string base-dir "" (plist-get info :input-file))))) + ;; (let ((url (format "%s%s" websiteorigin (replace-regexp-in-string base-dir "" (plist-get info :input-file))))) ;; (format "comment" ;; (url-hexify-string url))) "