Clarifying blog post licensing

["Ludovic Courtès" <ludo@gnu.org>]

[-- Attachment #1: Type: text/plain, Size: 1868 bytes --]

Hello Guix!

With a few exceptions, our blog posts do not have a license, which is
not great as it prevents sharing and reuse, at least by those outside
Guix circles (we discussed it in the past but never got around to fixing
it).

I’d like us to clarify that, with a footer on blog posts saying that,
unless otherwise stated, posts are dual-licensed under CC-BY-SA 4.0 and
GFDL 1.3+ (the latter so we can reuse material in the cookbook and in
the manual).  Patch below.

What do people think?

If maintainers and everyone agrees, I’d like to publicly email all the
authors asking them whether they agree with the proposed licensing
terms, or whether they’d like a different free license.  The script
below enumerates blog post authors (the list needs a bit of cleanup
still):

--8<---------------cut here---------------start------------->8---
scheme@(guile-user)> ,pp authors
$22 = ("A collective of GNU maintainers"
 "Andreas Enge"
 "Chris Marusich"
 "Chris Marusich and Léo Le Bouter"
 "Christopher Baines"
 "Christopher Lemmer Webber"
 "Danjela Lura"
 "Danny Milosavljevic"
 "David Thompson"
 "Efraim Flashner"
 "Florian Pelz"
 "Guix Hackers"
 "Gábor Boskovits"
 "Jakob L. Kreuze"
 "Jan (janneke) Nieuwenhuizen"
 "Jan Nieuwenhuizen"
 "Joshua Branson"
 "Julien Lepiller"
 "Konrad Hinsen"
 "Laura Lazzati"
 "Ludovic (civodul) Courtès"
 "Ludovic Courtès"
 "Ludovic Courtès and Leo Famulari"
 "Magali Lemes"
 "Manolis Ragkousis"
 "Marius (mbakke) Bakke"
 "Marius Bakke"
 "Mathieu Othacehe"
 "Maxim Cournoyer"
 "Pierre Neidhardt"
 "Pjotr Prins"
 "Ricardo (rekado) Wurmus"
 "Ricardo Wurmus"
 "Roel Janssen"
 "Simon Tournier"
 "Tatiana Sholokhova"
 "Tobias Geerinckx-Rice"
 "sirgazil")
--8<---------------cut here---------------end--------------->8---

How does that sound?

Thanks,
Ludo’.


[-- Attachment #2: the script --]
[-- Type: text/plain, Size: 623 bytes --]

(use-modules (haunt reader commonmark)
             (haunt reader)
             (haunt post)
             (guix build utils)
             (srfi srfi-1))

(define files
  (find-files "posts" "\\.(md|sxml)$"))

(define authors
  (delete-duplicates
   (append-map (lambda (file)
                 (define reader
                   (if (string-suffix? ".md" file)
                       commonmark-reader
                       sxml-reader))

                 (map string-trim-both
                      (string-split (post-ref (read-post reader file) 'author)
                                    #\,)))
               files)))

[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #3: Type: text/x-patch, Size: 1455 bytes --]

diff --git a/website/apps/blog/templates/post.scm b/website/apps/blog/templates/post.scm
index de02c6c..0d6b08e 100644
--- a/website/apps/blog/templates/post.scm
+++ b/website/apps/blog/templates/post.scm
@@ -60,4 +60,19 @@
 		#:label tag
 		#:url (guix-url (tag-url-path tag)))
 	       " ")) ; NOTE: Force space for readability in non-CSS browsers.
-	    (sort tags tag-first?))))))))
+	    (sort tags tag-first?)))
+
+        (div
+         (@ (class "license"))
+         ,(G_ `(p "Unless otherwise stated, blog posts on this site are
+copyrighted by their respective authors and published under the terms of
+the " ,(G_
+                    `(a (@ (href "https://creativecommons.org/licenses/by-sa/4.0/"))
+                        "CC-BY-SA 4.0"))
+                  " license and those of the "
+                  ,(G_
+                    `(a (@ (href
+                            "https://www.gnu.org/licenses/fdl-1.3.html"))
+                        "GNU Free Documentation License"))
+                  " (version 1.3 or later, with no Invariant Sections, no
+Front-Cover Texts, and no Back-Cover Texts)."))))))))
diff --git a/website/static/blog/css/post.css b/website/static/blog/css/post.css
index 57d7f0d..95035ba 100644
--- a/website/static/blog/css/post.css
+++ b/website/static/blog/css/post.css
@@ -38,3 +38,8 @@ article {
 article.limit-width {
     max-width: 720px;
 }
+
+.license {
+    font-size: 0.8em;
+    line-height: 1.4em;
+}