~aasg/haunted-blog

a392e0ca08b87c942b28617460440606da68faf8 — Aluísio Augusto Silva Gonçalves a month ago d704407
haunt: Reword license statement in the footer

Now that we have a work name, we can follow the Creative Commons default
text more closely.
1 files changed, 21 insertions(+), 18 deletions(-)

M haunt.scm
M haunt.scm => haunt.scm +21 -18
@@ 134,24 134,27 @@
                     (li ,(profile-link "sourcehut" "https://sr.ht/~aasg"))
                     (li ,(profile-link "LinkedIn" "https://www.linkedin.com/in/aasg/")))))
            ,body
            (footer (p
                      ,(let ((commit (site-rev)))
                         (if (nil? commit) '()
                             `(,(output-directory)
                               " built from "
                               ,(link-as `("haunted-blog@" ,commit)
                                        (string-append "https://git.sr.ht/~aasg/haunted-blog/tree/" commit)))))
                      (span (@ (class "visually-hidden")) "Copyright:")
                      (a (@ (rel "license")
                            (href "https://creativecommons.org/licenses/by-sa/4.0/")
                            (title "Creative Commons Attribution-ShareAlike 4.0 International")
                            (aria-label "Creative Commons Attribution-ShareAlike 4.0 International"))
                         "\U01F16D\U01F16F\U01F10E")
                      " Aluísio Augusto Silva Gonçalves. "
                      ,(link-as `("Built with, powered by, licensed under, "
                                  (i "et cetera, et cetera, et cetera")
                                  ".")
                                "about-site.html")))))))
            (footer
              (p (@ (xmlns:cc "http://creativecommons.org/ns#") (xmlns:dct "http://purl.org/dc/terms/"))
                 (a (@ (href "https://aasg.name")
                       (rel "cc:attributionURL")
                       (property "dct:title")) "aasg.name")
                 ,(let ((commit (site-rev)))
                    (if (nil? commit) '()
                        `(a (@ (rel "noopener noreferrer")
                               (href ,(string-append "https://git.sr.ht/~aasg/haunted-blog/tree/" commit)))
                            "#" ,commit)))
                 " by "
                 (span (@ (rel "cc:attributionName")) "Aluísio Augusto Silva Gonçalves")
                 " is licensed under a "
                 (a (@ (href "https://creativecommons.org/licenses/by-sa/4.0/")
                       (rel "license noopener noreferrer"))
                    (span (@ (aria-hidden "true")) "\U01F16D\U01F16F\U01F10E ")
                    "Creative Commons Attribution-ShareAlike 4.0 International")
                 " license. "
                 ,(link-as "Additional licensing options and details about the site's tech stack"
                           "about-site.html")
                 " are also available."))))))

(define (author-hcard post)
  (let* ((author-name (post-ref post 'author))