aboutsummaryrefslogtreecommitdiff
path: root/tests/gem.scm
diff options
context:
space:
mode:
author宋文武 <iyzsong@member.fsf.org>2023-04-01 16:25:26 +0800
committer宋文武 <iyzsong@member.fsf.org>2023-04-09 12:54:43 +0800
commit18c3727e653a6c47f1f8d624c79bcf086448e52b (patch)
treea6af310fe1f2bf86541a8c61d9f1f84211b4c3e9 /tests/gem.scm
parent1b76935e20040e26aa267bc24d3da21bbd44dd9c (diff)
downloadguix-18c3727e653a6c47f1f8d624c79bcf086448e52b.tar.gz
guix-18c3727e653a6c47f1f8d624c79bcf086448e52b.zip
gnu: fcitx5-qt: Update to 5.0.17.
* gnu/packages/fcitx5.scm (fcitx5-qt): Update to 5.0.17.
Diffstat (limited to 'tests/gem.scm')
0 files changed, 0 insertions, 0 deletions
ub.com/microsoft/WSL/issues/8716. (mount #f "/run" #f MS_REMOUNT #:update-mtab? #f) ;; Create XDG_RUNTIME_DIR for the login user. (unless (file-exists? runtime-dir) (mkdir runtime-dir) (chown runtime-dir uid gid)) (setenv "XDG_RUNTIME_DIR" runtime-dir) ;; Start login shell as user. (apply execl sudo "sudo" "--preserve-env=WSLPATH,XDG_RUNTIME_DIR" "-u" #$user "--" shell "-l" args)))))) (define dummy-package (package (name "dummy") (version "0") (source #f) (build-system trivial-build-system) (arguments `(#:modules ((guix build utils)) #:target #f #:builder (begin (use-modules (guix build utils)) (let* ((out (assoc-ref %outputs "out")) (dummy (string-append out "/dummy"))) (mkdir-p out) (call-with-output-file dummy (const #t)))))) (home-page #f) (synopsis #f) (description #f) (license (fsdg-compatible "dummy")))) (define dummy-bootloader (bootloader (name 'dummy-bootloader) (package dummy-package) (configuration-file "/dev/null") (configuration-file-generator (lambda (. _rest) (plain-file "dummy-bootloader" ""))) (installer #~(const #t)))) (define dummy-kernel dummy-package) (define (dummy-initrd . _rest) (plain-file "dummy-initrd" "")) (define-public wsl-os (operating-system (host-name "gnu") (timezone "Etc/UTC") (bootloader (bootloader-configuration (bootloader dummy-bootloader))) (kernel dummy-kernel) (initrd dummy-initrd) (initrd-modules '()) (firmware '()) (file-systems '()) (users (cons* (user-account (name "guest") (group "users") (supplementary-groups '("wheel")) ; allow use of sudo (password "") (comment "Guest of GNU")) (user-account (inherit %root-account) (shell (wsl-boot-program "guest"))) %base-user-accounts)) (services (list (service guix-service-type) (service special-files-service-type `(("/bin/sh" ,(file-append bash "/bin/bash")) ("/bin/mount" ,(file-append util-linux "/bin/mount")) ("/usr/bin/env" ,(file-append coreutils "/bin/env")))))))) (define wsl2-image (image (inherit (os->image wsl-os #:type wsl2-image-type)) (name 'wsl2-image))) wsl2-image