;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2015 Alex Kost <alezost@gmail.com>
;;;
;;; This file is part of GNU Guix.
;;;
;;; GNU Guix is free software; you can redistribute it and/or modify it
;;; under the terms of the GNU General Public License as published by
;;; the Free Software Foundation; either version 3 of the License, or (at
;;; your option) any later version.
;;;
;;; GNU Guix is distributed in the hope that it will be useful, but
;;; WITHOUT ANY WARRANTY; without even the implied warranty of
;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
;;; GNU General Public License for more details.
;;;
;;; You should have received a copy of the GNU General Public License
;;; along with GNU Guix.  If not, see <http://www.gnu.org/licenses/>.

;;;
;;; Generate AUTHORS file for directory with the Guix git repository.
;;;

(use-modules
 (ice-9 popen)
 (ice-9 rdelim)
 (ice-9 match)
 (srfi srfi-1)
 (guix config)
 (guix utils)
 (guix build utils))

(define %guix-dir
  (make-parameter #f))

(define-syntax-rule (append-maybe init-lst (test add-lst) ...)
  (let* ((lst init-lst)
         (lst (if test
                  (append lst add-lst)
                  lst))
         ...)
    lst))

(define (command-output cmd . args)
  "Execute CMD with ARGS and return its output without trailing newspace."
  (let* ((port (apply open-pipe* OPEN_READ cmd args))
         (output (read-string port)))
    (close-port port)
    (string-trim-right output #\newline)))

(define (git-output . args)
  "Execute git command with ARGS and return its output without trailing
newspace."
  (with-directory-excursion (%guix-dir)
    (apply command-output "git" args)))

(define* (contributors-string #:optional (range "HEAD"))
  "Return a string with names of people contributed to commit RANGE."
  (git-output "shortlog" "--numbered" "--summary" "--email" range))

(define* (tags #:key pattern sort)
  "Return a list of the git repository tags.
PATTERN is passed to '--list' and SORT is passed to '--sort' options of
'git tag' command."
  (let* ((args (append-maybe
                '("tag")
                (pattern (list "--list" pattern))
                (sort    (list "--sort" sort))))
         (output (apply git-output args)))
    (string-split output #\newline)))

(define (version-tags)
  "Return only version tags (v0.8, etc.) sorted from the biggest version
to the smallest one."
  (tags #:pattern "v*"
        #:sort "-version:refname"))

(define (generate-authors-file file)
  "Generate authors FILE."
  (define previous-release-tag
    (find (lambda (tag)
            (version>? %guix-version
                       (substring tag 1))) ; remove leading 'v'
          (version-tags)))

  (define release-range
    (string-append previous-release-tag "..HEAD"))

  (with-output-to-file file
    (lambda ()
      (display "\
GNU Guix consists of Scheme code that implements the deployment model
of the Nix package management tool.  In fact, it currently talks to a
build daemon whose code comes from Nix (see the manual for details.)

Nix was initially written by Eelco Dolstra; other people have been
contributing to it.  See `nix/AUTHORS' for details.\n\n")
      (format #t "Contributors to GNU Guix ~a:\n\n"
              %guix-version)
      (display (contributors-string release-range))
      (newline) (newline)
      (display "Overall contributors:\n\n")
      (display (contributors-string))
      (newline))))

(define (show-help)
  (match (command-line)
    ((me _ ...)
     (format #t "Usage: guile ~a DIRECTORY AUTHORS
Generate AUTHORS file for DIRECTORY with the Guix git repository.\n"
             me))))

(match (command-line)
  ((_ guix-dir authors-file)
   (parameterize ((%guix-dir guix-dir))
     (generate-authors-file authors-file)))
  (_
   (show-help)
   (exit 1)))

;;; generate-authors.scm ends here
n class='msg-avail'>...</span></td><td>Prafulla Giri</td></tr>
<tr><td><span title='2020-09-09 09:28:12 +0200'>2020-09-09</span></td><td><a href='/guix/commit/gnu/packages/kde-frameworks.scm?id=41b35576e76ee474d4a19992dd2be24b221142c3'>gnu: Add breeze-assets.</a><span class='msg-avail'>...</span></td><td>Prafulla Giri</td></tr>
<tr><td><span title='2020-06-06 22:13:25 +0200'>2020-06-06</span></td><td><a href='/guix/commit/gnu/packages/kde-frameworks.scm?id=a5d465e25b43b52dcb94a4facac351cbe9b80f01'>gnu: Add pulseaudio-qt.</a><span class='msg-avail'>...</span></td><td>Marius Bakke</td></tr>
<tr><td><span title='2020-06-06 21:25:43 +0200'>2020-06-06</span></td><td><a href='/guix/commit/gnu/packages/kde-frameworks.scm?id=7ce1b5e7b74d6409d0bd0bc4272f65edc34fd9df'>Merge branch 'master' into staging</a></td><td>Marius Bakke</td></tr>
<tr><td><span title='2020-06-06 21:14:17 +0200'>2020-06-06</span></td><td><a href='/guix/commit/gnu/packages/kde-frameworks.scm?id=9c0fd3d34cab839411ba47312eba6b659d5213ae'>gnu: KContacts: Propagate required inputs.</a><span class='msg-avail'>...</span></td><td>Marius Bakke</td></tr>
<tr><td><span title='2020-05-26 22:32:56 +0200'>2020-05-26</span></td><td><a href='/guix/commit/gnu/packages/kde-frameworks.scm?id=9d3965edca29f80667374da45214cc6f22a85be4'>gnu: KDE Frameworks: Update to 5.70.</a><span class='msg-avail'>...</span></td><td>Marius Bakke</td></tr>
<tr><td><span title='2020-04-19 16:53:01 +0200'>2020-04-19</span></td><td><a href='/guix/commit/gnu/packages/kde-frameworks.scm?id=7abe35febe4234609e14e169b6fcc0cbaf4c7119'>Merge branch 'master' into core-updates</a></td><td>Marius Bakke</td></tr>
<tr><td><span title='2020-04-17 17:26:56 -0400'>2020-04-17</span></td><td><a href='/guix/commit/gnu/packages/kde-frameworks.scm?id=5a8ef3c127b21251bb1d3aae144a01682179e40d'>gnu: Use the test-only time zone database where appropriate.</a><span class='msg-avail'>...</span></td><td>Leo Famulari</td></tr>
<tr><td><span title='2020-04-08 13:00:50 +0200'>2020-04-08</span></td><td><a href='/guix/commit/gnu/packages/kde-frameworks.scm?id=27783023993f9272ce422868d14529159c4a5218'>Merge branch 'master' into core-updates</a><span class='msg-avail'>...</span></td><td>Marius Bakke</td></tr>
<tr><td><span title='2020-04-05 23:52:33 +0200'>2020-04-05</span></td><td><a href='/guix/commit/gnu/packages/kde-frameworks.scm?id=3496519f18dbd749d630b49989e2127f84b9918c'>gnu: kxmlgui: Make some inputs native.</a><span class='msg-avail'>...</span></td><td>Vincent Legoll</td></tr>
<tr><td><span title='2020-04-05 23:47:48 +0200'>2020-04-05</span></td><td><a href='/guix/commit/gnu/packages/kde-frameworks.scm?id=1bb2ec7edcbd3f408cfbe750624c87812bd467d2'>gnu: kplotting: Make some inputs native.</a><span class='msg-avail'>...</span></td><td>Vincent Legoll</td></tr>
<tr><td><span title='2020-04-05 23:47:47 +0200'>2020-04-05</span></td><td><a href='/guix/commit/gnu/packages/kde-frameworks.scm?id=ecd3237ca8e8691ba845fa4b8fa000116b724e13'>gnu: kio: Make some inputs native.</a><span class='msg-avail'>...</span></td><td>Vincent Legoll</td></tr>
<tr><td><span title='2020-04-05 23:47:46 +0200'>2020-04-05</span></td><td><a href='/guix/commit/gnu/packages/kde-frameworks.scm?id=36d5d8a1438e835e684c1192e1364ef9dd3c7a27'>gnu: kiconthemes: Make some inputs native.</a><span class='msg-avail'>...</span></td><td>Vincent Legoll</td></tr>
<tr><td><span title='2020-04-05 23:47:45 +0200'>2020-04-05</span></td><td><a href='/guix/commit/gnu/packages/kde-frameworks.scm?id=30dde2c50881870aee2485c003a67b970c634e5b'>gnu: kdewebkit: Make some inputs native.</a><span class='msg-avail'>...</span></td><td>Vincent Legoll</td></tr>