Use comment by email, relative links, cleaner footer
This commit is contained in:
parent
25010b68c1
commit
0f054b8b8a
11
project.el
11
project.el
|
@ -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>"))
|
||||
|
|
BIN
project.el.sig
BIN
project.el.sig
Binary file not shown.
|
@ -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);
|
||||
|
|
Loading…
Reference in a new issue