;;; guix-license.el --- Licenses

;; Copyright © 2016 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 this program.  If not, see <http://www.gnu.org/licenses/>.

;;; Commentary:

;; This file provides the code to work with licenses of Guix packages.

;;; Code:

(require 'guix-read)
(require 'guix-backend)
(require 'guix-guile)

(defun guix-license-file (&optional directory)
  "Return name of the file with license definitions.
DIRECTORY is a directory with Guix sourc</td></tr></table>
<table class='tabs'><tr><td>
<a href='/guix/about/'>about</a><a href='/guix/'>summary</a><a href='/guix/refs/?id=011bf3280b823d2ae1d2fb5c1402c380e0e6320e'>refs</a><a href='/guix/log/tests/keys/ed25519.sec'>log</a><a href='/guix/tree/tests/keys/ed25519.sec?id=011bf3280b823d2ae1d2fb5c1402c380e0e6320e'>tree</a><a class='active' href='/guix/commit/tests/keys/ed25519.sec?id=011bf3280b823d2ae1d2fb5c1402c380e0e6320e'>commit</a><a href='/guix/diff/tests/keys/ed25519.sec?id=011bf3280b823d2ae1d2fb5c1402c380e0e6320e'>diff</a></td><td class='form'><form class='right' method='get' action='/guix/log/tests/keys/ed25519.sec'>
<input type='hidden' name='id' value='011bf3280b823d2ae1d2fb5c1402c380e0e6320e'/><select name='qt'>
<option value='grep'>log msg</option>
<option value='author'>author</option>
<option value='committer'>committer</option>
<option value='range'>range</option>
</select>
<input class='txt' type='search' size='10' name='q' value=''/>
<input type='submit' value='search'/>
</form>
</td></tr></table>
<div class='path'>path: <a href='/guix/commit/?id=011bf3280b823d2ae1d2fb5c1402c380e0e6320e'>root</a>/<a href='/guix/commit/tests?id=011bf