Fix tachikoma
README.md
73 | 73 | be the reincarnation of a Tibetan motorcycle repairman. You won't find a | |
74 | 74 | system configuration because it's a laptop that's running | |
75 | 75 | [Haiku](https://haiku-os.org), not a Guix system. | |
76 | + | * Tachikoma is the name of a kind of a military tank equipped with AI in | |
77 | + | [Ghost in the Shell](https://en.wikipedia.org/wiki/Ghost_in_the_Shell). |
modules/config/os.scm
20 | 20 | ;; | |
21 | 21 | ||
22 | 22 | (define-module (config os) | |
23 | + | #:use-module (gnu packages admin) | |
24 | + | #:use-module (gnu packages android) | |
23 | 25 | #:use-module (gnu packages certs) | |
26 | + | #:use-module (gnu packages gnome) | |
24 | 27 | #:use-module (gnu packages linux) | |
28 | + | #:use-module (gnu packages openbox) | |
25 | 29 | #:use-module (gnu packages ssh) | |
26 | 30 | #:use-module (gnu packages tmux) | |
27 | 31 | #:use-module (gnu packages vim) | |
32 | + | #:use-module (gnu packages xdisorg) | |
33 | + | #:use-module (gnu packages xfce) | |
28 | 34 | #:use-module (gnu services) | |
29 | 35 | #:use-module (gnu services base) | |
36 | + | #:use-module (gnu services dbus) | |
30 | 37 | #:use-module (gnu services desktop) | |
31 | 38 | #:use-module (gnu services networking) | |
32 | 39 | #:use-module (gnu services ssh) | |
40 | + | #:use-module (gnu services virtualization) | |
41 | + | #:use-module (gnu services xorg) | |
33 | 42 | #:use-module (gnu system) | |
34 | 43 | #:use-module (gnu system accounts) | |
35 | 44 | #:use-module (gnu system file-systems) | |
… | |||
79 | 88 | (cons* | |
80 | 89 | (console-keymap-service "fr-bepo") | |
81 | 90 | (simple-service 'dconf dbus-root-service-type (list dconf)) | |
82 | - | (tor-service) | |
91 | + | (service tor-service-type) | |
83 | 92 | (service qemu-binfmt-service-type | |
84 | 93 | (qemu-binfmt-configuration | |
85 | 94 | (platforms (lookup-qemu-platforms "arm" "aarch64" "i686" "ppc")) | |
… | |||
142 | 151 | (operating-system-users system))) | |
143 | 152 | (groups (cons (user-group (system? #t) (name "adbusers")) | |
144 | 153 | %base-groups)) | |
145 | - | (packages (cons* gvfs openbox xfce4-terminal (operating-system-packages system)))))) | |
154 | + | (packages (cons* xlockmore wpa-supplicant gvfs openbox xfce4-terminal | |
155 | + | (operating-system-packages system)))))) |
systems/tachikoma.scm
18 | 18 | (use-modules (gnu)) | |
19 | 19 | (use-modules (gnu system)) | |
20 | 20 | (use-modules (gnu bootloader) (gnu bootloader grub)) | |
21 | - | (use-modules (gnu services dns)) | |
22 | - | (use-modules (gnu services web)) | |
21 | + | (use-modules (gnu services virtualization)) | |
23 | 22 | (use-modules (config os)) | |
24 | 23 | ||
25 | 24 | (let ((system (tyreunom-desktop-os "tachikoma"))) |