;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2024 Fabio Natali <me@fabionatali.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/>.

(define-module (gnu home services music)
  #:use-module (guix gexp)
  #:use-module (guix records)
  #:use-module (gnu home services)
  #:use-module (gnu packages music)
  #:use-module (gnu packages video)
  #:export (home-beets-configuration
            home-beets-service-type))

;;; Commentary:
;;;
;;; A Guix Home service to configure Beets, a music file and metadata manager.
;;;
;;; Code:

(define-record-type* <home-beets-configuration>
  home-beets-configuration make-home-beets-configuration
  home-beets-configuration?
  (package home-beets-package (default beets))
  (directory home-beets-directory (default #f))
  (extra-options home-beets-extra-options (default '()))
  (extra-packages home-beets-extra-packages (default (list ffmpeg))))

(define (home-beets-configuration->file config)
  "Return the Beets configuration file corresponding to CONFIG."
  (match-record config <home-beets-configuration>
    (directory extra-options)
    (plain-file "beets.yaml"
                (string-append "directory: " directory "\n"
                               (string-join extra-options "\n" 'suffix)))))

(define home-beets-service-type
  (service-type
   (name 'home-beets)
   (extensions
    (list
     (service-extension home-profile-service-type
                        (lambda (config)
                          (cons* (home-beets-package config)
                                 (home-beets-extra-packages config))))
     (service-extension home-xdg-configuration-files-service-type
                        (lambda (config)
                          (list `("beets/config.yaml"
                                  ,(home-beets-configuration->file config)))))))
   (description "Configure Beets, a music file and metadata manager.")))
ge (<a href='/guix/log/gnu/packages/books.scm?id=3d5f4b2d7dda29d749128fbe80f6ad28f52f09b1&amp;showmsg=1'>Expand</a>)</th><th class='left'>Author</th></tr>
<tr><td><span title='2024-01-25 21:34:37 +0000'>2024-01-25</span></td><td><a href='/guix/commit/gnu/packages/books.scm?id=9b657bab84be02935d66483da1ebbe4bc78c52fb'>gnu: Sort inputs in (gnu packages books) alphabetically.</a><span class='msg-avail'>...<span class='msg-tooltip'>* gnu/packages/books.scm: Sort #:use-modules and inputs alphabetically
to ease maintenance.

Change-Id: Ifdd94277a51fb34e740398bd962b03098a775572
</span></span></td><td>Sharlatan Hellseher</td></tr>
<tr><td><span title='2024-01-25 21:34:27 +0000'>2024-01-25</span></td><td><a href='/guix/commit/gnu/packages/books.scm?id=d1951037b4cf424058849f122fa54a4c2de83160'>gnu: book-sparc: Update to 2.0.0.</a><span class='msg-avail'>...<span class='msg-tooltip'>* gnu/packages/books.scm (book-sparc): Update to 2.0.0.
  [inputs]: Add texlive-chngcntr.

Change-Id: Ief8c8c697e30fbe6f483fdc49969714ca64480fe
Signed-off-by: Sharlatan Hellseher &lt;sharlatanus@gmail.com&gt;
</span></span></td><td>Artyom V. Poptsov</td></tr>
<tr><td><span title='2023-11-23 14:21:00 +0000'>2023-11-23</span></td><td><a href='/guix/commit/gnu/packages/books.scm?id=8960eb027834be3e2d415b584aa74b9d8d9251dd'>gnu: book-sparc: Update to 1.1.0.</a><span class='msg-avail'>...<span class='msg-tooltip'>* gnu/packages/books.scm (book-sparc): Update to 1.1.0.
[source]: Don't delete "sparc.pdf" as the file is now absent from the
repository.
[inputs]: Add "texlive-glossaries-english".

Change-Id: I2e3b72a6a18d82d98787ea9a41041d11413f9c3a
Signed-off-by: Christopher Baines &lt;mail@cbaines.net&gt;
</span></span></td><td>Artyom V. Poptsov</td></tr>
<tr><td><span title='2023-09-05 19:50:45 -0400'>2023-09-05</span></td><td><a href='/guix/commit/gnu/packages/books.scm?id=16c05788947f456bf1c82955dd27938755272cb4'>gnu: Add book-sparc.</a><span class='msg-avail'>...<span class='msg-tooltip'>* gnu/packages/books.scm: New module.
* gnu/local.mk (GNU_SYSTEM_MODULES): Add 'books.scm'.

Co-authored-by: Adam Faiz &lt;adam.faiz@disroot.org&gt;
Signed-off-by: Maxim Cournoyer &lt;maxim.cournoyer@gmail.com&gt;
</span></span></td><td>Artyom V. Poptsov</td></tr>