Use comment by email, relative links, cleaner footer

This commit is contained in:
Yann Esposito (Yogsototh) 2020-05-02 12:03:04 +02:00
parent 25010b68c1
commit 0f054b8b8a
Signed by untrusted user who does not match committer: yogsototh
GPG key ID: 7B19A4C650D59646
3 changed files with 9 additions and 8 deletions

View file

@ -65,11 +65,15 @@
"</svg>"
"</div>"))
(defun relative-link (output-file)
"Given an output-file generate a link relative to the URL origin."
(replace-regexp-in-string ".*/_site" "" output-file))
(defun gen-permalink (output-file)
"Given the output-file generate a permalink"
(format "%s%s"
websiteorigin
(replace-regexp-in-string ".*/_site" "" output-file)))
(relative-link output-file)))
(defun gen-org-src (permalink)
"Given a permalink generate the path to the asssociated .org source file"
@ -174,9 +178,10 @@
emacs-version spacemacs-version org-version))
(website-code
"<a href=\"https://gitea.esy.fun/yogsototh/her.esy.fun\" target=\"_blank\" rel=\"noopener noreferrer\">Website source code</a>")
(org-src (gen-org-src (gen-permalink (plist-get info :output-file))))
(org-src (gen-org-src (relative-link (plist-get info :output-file))))
(org-src-link (format "<a href=\"%s\">%s</a>" org-src org-src)))
(concat
"<i>Any comment? Click on my email below and I'll add it.</i>"
"<table>"
(mapconcat (lambda (entry)
(when (cdr entry)
@ -189,7 +194,7 @@
("size" . ,size)
("gen-date" . ,generated-date)
("get-with" . ,generated-with)
("website-src" . ,website-code)
("src" . ,website-code)
("org-file" . ,org-src-link))
" ")
"</table>"))

Binary file not shown.

View file

@ -12,10 +12,6 @@ body {
line-height: var(--lh);
min-height: 100vh;
}
footer {
font-size: 14px;
font-family: monospace;
}
code {
font-size: 15px;
}
@ -279,7 +275,7 @@ h1:before, h2:before, h3:before, h4:before, h5:before, h6:before {
nav a, nav a:visited {
color: var(--fg);
}
a:hover, .metas a:hover, nav a:hover
a:hover, .metas a:hover, nav a:hover, a:hover *
{
color: #fff;
background: var(--hl);