blob: 24103ef111faa5cae1bc1ef9a4182e291aadc7e6 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
|
;;; SPDX-License-Identifier: GPL-3.0-or-later
;;; SPDX-FileCopyrightText: 2026 Marek Paśnikowski <marek@marekpasnikowski.pl>
;;; COPYRIGHT NOTICE
;;;
;;; Copyright 2026, Marek Paśnikowski <marek@marekpasnikowski.pl>
;;; LICENSE NOTICE
;;;
;;; This library 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.
;;;
;;; This library 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 library.
;;; If not, see <https://www.gnu.org/licenses/>.
(define-module (deployment services admin)
#:export (update-commands)
#:use-module (deployment channels)
#:use-module (gnu home services shells)
#:use-module (gnu services))
(define update-commands
(simple-service
'update-commands
home-bash-service-type
(home-bash-extension
(aliases
`(("collect-garbage" . "gc -d 7d ")
("delete-generations" . "system delete-generations 7d ")
("guix" . ,(guix-with-channels master-channels))
("guix-test" . ,(guix-with-channels test-channels))
("pull" . " pull --fallback ")
("pull-down" . "pull --allow-downgrades --disable-authentication --fallback ")
("reconfigure" . "system reconfigure -e \"(@ (deployment system) $HOSTNAME)\" --fallback ")
("reconfigure-down" . "system reconfigure --allow-downgrades -e \"(@ (deployment system) $HOSTNAME)\" --fallback ")
("sudo" . "sudo "))))))
|
