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"))) |