;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2019 Josh Holland <josh@inv.alid.pw>
;;; Copyright © 2021, 2022 Tobias Geerinckx-Rice <me@tobias.gr>
;;;
;;; 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 packages rcm)
  #:use-module (guix packages)
  #:use-module (guix download)
  #:use-module (guix build-system gnu)
  #:use-module (guix licenses)
  #:use-module (gnu packages python-xyz)
  #:use-module (gnu packages perl))

(define-public rcm
  (package
    (name "rcm")
    (version "1.3.5")
    (source (origin
              (method url-fetch)
              (uri (string-append "https://thoughtbot.github.io/rcm/dist/rcm-"
                                  version ".tar.gz"))
              (sha256
               (base32 "0bdyksrd9i3lkmr9kq6dwa0l4g2403vnma5s4j9h8spi4rziwx14"))))
    (build-system gnu-build-system)
    (arguments '(#:phases
                 (modify-phases %standard-phases
                   (add-after 'patch-source-shebangs 'patch-tests
                     (lambda _
                       (substitute* '("test/rcrc-tilde.t"
                                      "test/rcdn-hooks-run-in-order.t"
                                      "test/rcup-hooks-run-in-order.t")
                         (("/bin/sh") (which "sh")))
                       (substitute* "test/rcup-hooks.t"
                         (("/usr/bin/env") (which "env"))))))
                  #:parallel-tests? #f))
    (native-inputs (list perl python-cram))
    (synopsis "Management suite for dotfiles")
    (description "The rcm suite of tools is for managing dotfiles directories.  This is
a directory containing all the @code{.*rc} files in your home directory
(@code{.zshrc}, @code{.vimrc}, and so on). These files have gone by many
names in history, such as “rc files” because they typically end in rc
or “dotfiles” because they begin with a period.  This suite is useful
for committing your rc files to a central repository to share, but it also
scales to a more complex situation such as multiple source directories
shared between computers with some host-specific or task-specific files.")
    (license bsd-3)
    (home-page "https://github.com/thoughtbot/rcm")))
/home.scm (show-help, %options): Add '--network',
'--share', and '--expose'.
(not-config?, user-shell, spawn-home-container): New procedures.
(%default-system-profile): New variable.
(perform-action): Add #:file-system-mappings, #:container-command,
and #:network?; honor them.
(process-action): Adjust accordingly.
(guix-home)[parse-sub-command]: Add "container".
[parse-args]: New procedure.
Use it instead of 'parse-command-line'.
* tests/guix-home.sh: Add tests.
* doc/guix.texi (Declaring the Home Environment): Mention 'guix home
container' as a way to test configuration.
(Invoking guix home): Document it.
</span></span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2022-03-18 16:03:33 +0100'>2022-03-18</span></td><td><a href='/guix/commit/tests/guix-home.sh?id=25261cbf96a3bf58abc6e836d71bdabe9154a83c'>guix home: Implement the 'extension-graph' and 'shepherd-graph' actions.</a><span class='msg-avail'>...<span class='msg-tooltip'>Until now these two actions were silently ignored.

* guix/scripts/home.scm (show-help, %options): Add "--graph-backend".
(%default-options): Add 'graph-backend' key.
(export-extension-graph, export-shepherd-graph): New procedures.
(perform-action): Add #:graph-backend parameter.  Add cases for the
'extension-graph' and 'shepherd-graph' actions.
(process-action): Pass #:graph-backend to 'perform-action'.
* guix/scripts/system.scm (service-node-type)
(shepherd-service-node-type): Export
* tests/guix-home.sh: Add tests.
* doc/guix.texi (Invoking guix home): Document it.
</span></span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2022-03-10 11:43:14 +0100'>2022-03-10</span></td><td><a href='/guix/commit/tests/guix-home.sh?id=5fabaf112858c5c5e8787e83f8f2002fdc710917'>tests: Check 'guix home reconfigure' for a second generation.</a><span class='msg-avail'>...<span class='msg-tooltip'>* tests/guix-home.sh: Invoke "guix home reconfigure" a second time with
a modify config file and check the result.
</span></span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2022-03-10 11:43:14 +0100'>2022-03-10</span></td><td><a href='/guix/commit/tests/guix-home.sh?id=26e67e0280f9e35543c8ea71c6a3d58beb83287d'>tests: Simplify use of 'local-file' in 'tests/guix-home.sh'.</a><span class='msg-avail'>...<span class='msg-tooltip'>* tests/guix-home.sh: Remove 'current-filename' trickery since
'local-file' resolves file names relative to the containing file.
</span></span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2022-03-10 11:43:14 +0100'>2022-03-10</span></td><td><a href='/guix/commit/tests/guix-home.sh?id=7b7e32d5adc22582c0b0b23157432eb7ea0cc5da'>tests: Make sure 'guix home reconfigure' backs up files.</a><span class='msg-avail'>...<span class='msg-tooltip'>* tests/guix-home.sh: Create ~/.bashrc and ~/.config/test.conf prior to
'reconfigure' and check whether they were backed up.
</span></span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2021-10-09 19:24:19 +0300'>2021-10-09</span></td><td><a href='/guix/commit/tests/guix-home.sh?id=fee0bced7fec2f9950957976a28f033edd4f877c'>home: services: configuration: Support file-like objects.</a><span class='msg-avail'>...<span class='msg-tooltip'>* gnu/home/services/configuration.scm (interpose): Operate only with file-like
objects.
(string-or-gexp?): Delete procedure.
(serialize-string-or-gexp): Rename to 'serialize-file-like'.
(text-config?): Call 'file-like' intead of 'string-or-gexp?'.
* guix/scripts/home/import.scm:
(generate-bash-module+configuration): Don't call slurp-file-gexp.
* gnu/home/services/configuration.scm: Move content ...
* gnu/services/configuration.scm: here.
* gnu/home/services/shells.scm: Delete (gnu home services configuration).
* gnu/home/services/xdg.scm: Same.
* gnu/local.mk: Same.
* tests/guix-home.sh:
Test home-bash-service-type and extension with home-bash-extension.
</span></span></td><td>Oleg Pykhalov</td></tr>
<tr><td><span title='2021-10-09 19:24:19 +0300'>2021-10-09</span></td><td><a href='/guix/commit/tests/guix-home.sh?id=5e68f7a7b338951dcc227799a51c59d9ac77c696'>tests: Add guix-home.sh.</a><span class='msg-avail'>...<span class='msg-tooltip'>* tests/guix-home.sh: New file.
* Makefile.am (SH_TESTS): Add this.
</span></span></td><td>Oleg Pykhalov</td></tr>