Re: Come back and graphical installer

[L p R n d n <guix@lprndn.info>]

[-- Attachment #1: Type: text/plain, Size: 443 bytes --]

Mathieu Othacehe <m.othacehe@gmail.com> writes:

>> I built the disk image from the wip-newt-installer branch.
>
> Ok so could you run:
>
> guix gc -R /gnu/store/xxx-your-disk-image | grep installer
>
> It should return you the installer script in store
> (/gnu/store/xxx-installer). Replying to this email with this file in
> attachment would maybe help me understand what's going wrong.
>
> Thanks,
>
> Mathieu

Here it is!

Thanks,

Lprndn

[-- Attachment #2: installer --]
[-- Type: application/octet-stream, Size: 4302 bytes --]

#!/gnu/store/1mr5izrbxwd7cbq8m1xrqm45rzkibpsj-guile-2.2.3/bin/guile --no-auto-compile
!#
(eval-when (expand load eval) (set! %load-path (cons "/gnu/store/xlsn612abqz25gl0bxdxdpax9z8ngaxn-module-import" (append (map (lambda (extension) (string-append extension "/share/guile/site/" (effective-version))) (quote ("/gnu/store/qbzw2ygy1nq2h0nq6sl9cgg1c5mq5g8z-guile-gcrypt-0.1.0" "/gnu/store/dks0d1f20n2md5vww523g5f14z5nxlc0-guile-newt-0-3.f19b02d12" "/gnu/store/sw3wxk3ylxd1kc2z4z4kb5191x9pf17n-guile-json-1.2.0"))) %load-path))) (set! %load-compiled-path (cons "/gnu/store/g967vsq3dix4w5zjhpcp9p4f30hcmnsm-module-import-compiled" (append (map (lambda (extension) (string-append extension "/lib/guile/" (effective-version) "/site-ccache")) (quote ("/gnu/store/qbzw2ygy1nq2h0nq6sl9cgg1c5mq5g8z-guile-gcrypt-0.1.0" "/gnu/store/dks0d1f20n2md5vww523g5f14z5nxlc0-guile-newt-0-3.f19b02d12" "/gnu/store/sw3wxk3ylxd1kc2z4z4kb5191x9pf17n-guile-json-1.2.0"))) %load-compiled-path))))(begin (use-modules (gnu installer keymap) (gnu installer steps) (gnu installer locale) (newt) (gnu installer newt page) (gnu installer newt utils) (gnu installer newt wifi) (guix i18n) (guix build utils) (ice-9 match)) (begin (bindtextdomain "guix" (string-append "/gnu/store/v5lad91n9wsnxqfqdy76mmsjc1fm8v0c-guix-0.15.0-7.f5a2724" "/share/locale")) (textdomain "guix")) (let* ((inputs (quote ("/gnu/store/q4b3s9y4i0da36drp7zfq9yqcf43s47v-bash-4.4.19" "/gnu/store/vjmmcq0s5z7s0pgdcw6p3gfn0a8a5fl6-connman-1.36" "/gnu/store/1g9r9lk412srqwggv1wv33j4fby7jpg1-shadow-4.6" "/gnu/store/63gkgnixg6xj3m9cgl25ib2zxl51ngw0-coreutils-8.29")))) (with-output-to-port (%make-void-port "w") (lambda () (set-path-environment-variable "PATH" (quote ("bin" "sbin")) inputs)))) (begin (newt-init) (clear-screen) (set-screen-size!)) (catch #t (lambda () (run-installer-steps #:rewind-strategy (quote menu) #:menu-proc (lambda (steps) (run-menu-page steps)) #:steps (list (installer-step (id (quote welcome)) (compute (lambda _ (run-welcome-page "/gnu/store/36h59r4pb7nw3wk9k0ipar3hgf3cqlnx-logo.txt")))) (installer-step (id (quote locale)) (description (G_ "Locale selection")) (compute (lambda _ (let ((result ((lambda* (#:key supported-locales iso639-languages iso3166-territories) (run-locale-page #:supported-locales supported-locales #:iso639-languages iso639-languages #:iso3166-territories iso3166-territories)) #:supported-locales (load-compiled (string-append "/gnu/store/lbxg6l6yj6xh7yr1avlja1mm9lpxsf34-locales" "/" "locales" ".go")) #:iso639-languages (load-compiled (string-append "/gnu/store/rn3vhgkbr132xs4vpwm6pxp0p2i51rl0-iso639-languages" "/" "iso639-languages" ".go")) #:iso3166-territories (load-compiled (string-append "/gnu/store/s3vazy50fvc1r24lcfi0cssy70zamibf-iso3166-territories" "/" "iso3166-territories" ".go"))))) ((lambda (locale-name) (false-if-exception (setlocale LC_ALL locale-name))) result))))) (installer-step (id (quote timezone)) (description (G_ "Timezone selection")) (compute (lambda _ ((lambda* (zonetab) (run-timezone-page zonetab)) (string-append "/gnu/store/2b2md66fbzyspsmd5dj6zkj9hilac40r-tzdata-2018e" "/share/zoneinfo/zone.tab"))))) (installer-step (id (quote keymap)) (description (G_ "Keyboard mapping selection")) (compute (lambda _ (let ((result (call-with-values (lambda () (xkb-rules->models+layouts (string-append "/gnu/store/ypc2xp67lxc1hpznajcpcwzqb4pw9p1v-xkeyboard-config-2.23.1" "/share/X11/xkb/rules/base.xml"))) (lambda (models layouts) ((lambda* (#:key models layouts) (run-keymap-page #:models models #:layouts layouts)) #:models models #:layouts layouts))))) ((match-lambda ((model layout variant) (kmscon-update-keymap model layout variant))) result))))) (installer-step (id (quote hostname)) (description (G_ "Hostname selection")) (compute (lambda _ (run-hostname-page)))) (installer-step (id (quote network)) (description (G_ "Network selection")) (compute (lambda _ (run-network-page)))) (installer-step (id (quote hostname)) (description (G_ "User selection")) (compute (lambda _ (run-user-page))))))) (const #f) (lambda (key . args) ((lambda (key args) (newt-finish)) key args) (call-with-output-file "/tmp/error" (lambda (port) (display-backtrace (make-stack #t) port) (print-exception port (stack-ref (make-stack #t) 1) key args))) (primitive-exit 1))) (begin (newt-finish)))