;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2023 Ludovic Courtès <ludo@gnu.org>
;;;
;;; 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 dict)
  #:use-module (gnu home services)
  #:use-module (gnu services)
  #:use-module (gnu services dict)
  #:use-module ((gnu system shadow) #:select (account-service-type))
  ;; For the 'home-shepherd-service-type' mapping.
  #:use-module (gnu home services shepherd)
  #:export (home-dicod-service-type)
  #:re-export (dicod-configuration))

(define home-dicod-service-type
  (service-type
   (inherit (system->home-service-type
             (remove-service-extensions dicod-service-type
                                        (list account-service-type))))
   (default-value (for-home (dicod-configuration)))))
5371d38eb343'>commit</a><a href='/guix/diff/gnu/build/marionette.scm?id=e7dfbae8a99995abc9f088452ca35371d38eb343'>diff</a></td><td class='form'><form class='right' method='get' action='/guix/log/gnu/build/marionette.scm'>
<input type='hidden' name='id' value='e7dfbae8a99995abc9f088452ca35371d38eb343'/><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/log/?id=e7dfbae8a99995abc9f088452ca35371d38eb343'>root</a>/<a href='/guix/log/gnu?id=e7dfbae8a99995abc9f088452ca35371d38eb343'>gnu</a>/<a href='/guix/log/gnu/build?id=e7dfbae8a99995abc9f088452ca35371d38eb343'>build</a>/<a href='/guix/log/gnu/build/marionette.scm?id=e7dfbae8a99995abc9f088452ca35371d38eb343'>marionette.scm</a></div><div class='content'><table class='list nowrap'><tr class='nohover'><th class='left'>Age</th><th class='left'>Commit message (<a href='/guix/log/gnu/build/marionette.scm?id=e7dfbae8a99995abc9f088452ca35371d38eb343&amp;showmsg=1'>Expand</a>)</th><th class='left'>Author</th></tr>
<tr><td><span title='2019-05-15 12:18:51 +0200'>2019-05-15</span></td><td><a href='/guix/commit/gnu/build/marionette.scm?id=604b167bf27d307c5bd30145b6486f90417d0d06'>marionette: Add braces to the keystrokes.</a><span class='msg-avail'>...<span class='msg-tooltip'>* gnu/build/marionette.scm (%qwerty-us-keystrokes): Add braces.
</span></span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2018-08-28 00:19:58 -0700'>2018-08-28</span></td><td><a href='/guix/commit/gnu/build/marionette.scm?id=cb29343940dfffe8863c0a6b1e2b3494c7836b53'>marionette: Add wait-for-unix-socket.</a><span class='msg-avail'>...<span class='msg-tooltip'>* gnu/build/marionette.scm (wait-for-unix-socket): New variable.
</span></span></td><td>Chris Marusich</td></tr>
<tr><td><span title='2018-08-28 00:14:25 -0700'>2018-08-28</span></td><td><a href='/guix/commit/gnu/build/marionette.scm?id=4dd53a83b5292d4e90ca221d6bcf03350ed8dc45'>marionette: Add support for QEMU's "quit" command.</a><span class='msg-avail'>...<span class='msg-tooltip'>* gnu/build/marionette.scm (marionette-control): Don't wait for the
monitor prompt when the command was "quit".
</span></span></td><td>Chris Marusich</td></tr>
<tr><td><span title='2018-06-01 13:50:26 +0200'>2018-06-01</span></td><td><a href='/guix/commit/gnu/build/marionette.scm?id=7a4e2eaab34f7fad6951f312203ac0d9dfa3d44a'>marionette: Add 'wait-for-tcp-port'.</a><span class='msg-avail'>...<span class='msg-tooltip'>* gnu/build/marionette.scm (wait-for-tcp-port): New procedure.
* gnu/tests/dict.scm (run-dicod-test)["connect inside"]: Use it instead
of the inline loop.
</span></span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2018-02-19 22:04:11 +0100'>2018-02-19</span></td><td><a href='/guix/commit/gnu/build/marionette.scm?id=27a2c9c3e071fdb380c2f4f389b7cf4008dc75f7'>marionette: Use QEMU's "VM channel" mechanism.</a><span class='msg-avail'>...<span class='msg-tooltip'>* gnu/tests.scm (&lt;marionette-configuration&gt;)[device]: Default to
"/dev/virtio-ports/org.gnu.guix.port.0".
* gnu/tests.scm (marionette-shepherd-service): Remove (guix build
syscalls) from 'modules'.  Remove 'tcsetattr' call from 'start'.
* gnu/build/marionette.scm (make-marionette): Use "-virtserialport"
instead of "-virtconsole".
</span></span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2017-09-08 00:11:21 +0200'>2017-09-08</span></td><td><a href='/guix/commit/gnu/build/marionette.scm?id=13877c34534fc6a1cda25a984007bc0e7d27ebc9'>marionette: 'wait-for-file' can be passed a read procedure.</a><span class='msg-avail'>...<span class='msg-tooltip'>* gnu/build/marionette.scm (wait-for-file): Add #:read parameter and
honor it.
* gnu/tests/base.scm (run-basic-test)["login on tty1"]: Use
'wait-for-file' instead of inline code.
</span></span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2017-08-28 09:56:33 +0200'>2017-08-28</span></td><td><a href='/guix/commit/gnu/build/marionette.scm?id=06b8eae3d101b9c1f237de34f21091e085390e11'>marionette: Augment the set of keystrokes.</a><span class='msg-avail'>...<span class='msg-tooltip'>* gnu/build/marionette.scm (%qwerty-us-keystrokes): Add ', ", and `.
</span></span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2017-08-28 09:56:33 +0200'>2017-08-28</span></td><td><a href='/guix/commit/gnu/build/marionette.scm?id=0a80981178ccf37a48474018929a8f338fb1cf4e'>marionette: Fix typing of capital letters.</a><span class='msg-avail'>...<span class='msg-tooltip'>Previously we'd use "sendkey P" instead of "sendkey shift-p", which had
no effect.

* gnu/build/marionette.scm (character-&gt;keystroke): New procedure.
(string-&gt;keystroke-commands): Use it.
</span></span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2017-08-28 09:56:33 +0200'>2017-08-28</span></td><td><a href='/guix/commit/gnu/build/marionette.scm?id=8bd5231485cdeb02078c4294badb3a1e7caa0fe0'>marionette: 'wait-for-file' really raises an error when a file is missing.</a><span class='msg-avail'>...<span class='msg-tooltip'>* gnu/build/marionette.scm (wait-for-file): Arrange to call 'error' on
the host, not in the guest.
</span></span></td><td>Ludovic Courtès</td></tr>
<tr><td><span title='2017-06-12 23:34:14 +0200'>2017-06-12</span></td><td><a href='/guix/commit/gnu/build/marionette.scm?id=5fa7cc5335d64a790d7f0f784a11b25b040cc443'>marionette: Factorize 'wait-for-file'.</a><span class='msg-avail'>...<span class='msg-tooltip'>* gnu/build/marionette.scm (wait-for-file): New procedure.
* gnu/tests/base.scm (run-mcron-test)[test](wait-for-file): Remove.
Pass second argument in 'wait-for-file' calls.
* gnu/tests/ssh.scm (run-ssh-test)[test](wait-for-file): Remove.
Pass second argument in 'wait-for-file' calls.
* gnu/tests/messaging.scm (run-xmpp-test)[test](guest-wait-for-file):
Remove.
Use 'wait-for-file' instead, with second argument.
</span></span></td><td>Ludovic Courtès</td></tr>