nongnu: images: Add quartz64a-desktop-raw-image.
* nongnu/system/images/quartz64a-desktop.scm (quartz64a-desktop-raw-image): New variable.
This commit is contained in:
Petr Hodina
parent
a9d7d17f10
commit
6c9c45c97c
291
nongnu/system/images/quartz64a-desktop.scm
Normal file
291
nongnu/system/images/quartz64a-desktop.scm
Normal file
|
|
@ -0,0 +1,291 @@
|
||||||
|
;;; GNU Guix --- Functional package management for GNU
|
||||||
|
;;; Copyright © 2022 Petr Hodina <phodina@protonmail.com>
|
||||||
|
;;;
|
||||||
|
;;; This file is part of GNU Guix.
|
||||||
|
;;;
|
||||||
|
;;; GNU Guix 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.
|
||||||
|
;;;
|
||||||
|
;;; GNU Guix 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 GNU Guix. If not, see <http://www.gnu.org/licenses/>.
|
||||||
|
|
||||||
|
(define-module (nongnu system images quartz64a-desktop)
|
||||||
|
#:use-module (gnu bootloader)
|
||||||
|
#:use-module (gnu bootloader u-boot)
|
||||||
|
#:use-module (gnu image)
|
||||||
|
#:use-module (nongnu packages linux)
|
||||||
|
#:use-module (nongnu packages bootloaders)
|
||||||
|
#:use-module (gnu packages)
|
||||||
|
#:use-module (gnu packages glib)
|
||||||
|
#:use-module (gnu packages compression)
|
||||||
|
#:use-module (gnu packages certs)
|
||||||
|
#:use-module (gnu packages gnome)
|
||||||
|
#:use-module (gnu packages vim)
|
||||||
|
#:use-module (gnu packages ssh)
|
||||||
|
#:use-module (gnu packages bison)
|
||||||
|
#:use-module (gnu packages libffi)
|
||||||
|
#:use-module (gnu packages xorg)
|
||||||
|
#:use-module (gnu packages flex)
|
||||||
|
#:use-module (gnu packages pkg-config)
|
||||||
|
#:use-module (gnu packages python)
|
||||||
|
#:use-module (guix platforms arm)
|
||||||
|
#:use-module (guix download)
|
||||||
|
#:use-module (guix packages)
|
||||||
|
#:use-module (guix gexp)
|
||||||
|
#:use-module (guix utils)
|
||||||
|
#:use-module (guix build utils)
|
||||||
|
#:use-module ((guix licenses) #:prefix license:)
|
||||||
|
#:use-module (guix build emacs-build-system)
|
||||||
|
#:use-module (guix build-system gnu)
|
||||||
|
#:use-module (guix build-system meson)
|
||||||
|
#:use-module (gnu services)
|
||||||
|
#:use-module (gnu services desktop)
|
||||||
|
#:use-module (gnu services sddm)
|
||||||
|
#:use-module (gnu services ssh)
|
||||||
|
#:use-module (gnu services xorg)
|
||||||
|
#:use-module (gnu services base)
|
||||||
|
#:use-module (gnu system)
|
||||||
|
#:use-module (gnu system accounts)
|
||||||
|
#:use-module (gnu system file-systems)
|
||||||
|
#:use-module (gnu system image)
|
||||||
|
#:use-module (gnu system keyboard)
|
||||||
|
#:use-module (gnu system nss)
|
||||||
|
#:use-module (gnu system shadow)
|
||||||
|
#:use-module (srfi srfi-26)
|
||||||
|
#:use-module (srfi srfi-1) ;for the remove function
|
||||||
|
#:export (quartz64-a-raw-image
|
||||||
|
quartz64-image-type
|
||||||
|
quartz64-desktop-raw-image))
|
||||||
|
|
||||||
|
(define (python-extension-suffix python triplet)
|
||||||
|
"Determine the suffix for C extensions for PYTHON when compiled
|
||||||
|
for TRIPLET."
|
||||||
|
;; python uses strings like 'x86_64-linux-gnu' instead of
|
||||||
|
;; 'x86_64-unknown-linux-gnu'.
|
||||||
|
(define normalised-system
|
||||||
|
(string-replace-substring triplet "-unknown-" "-"))
|
||||||
|
(define major.minor (version-major+minor (package-version python)))
|
||||||
|
(define majorminor (string-delete #\. major.minor))
|
||||||
|
(string-append
|
||||||
|
;; If guix' python package used "--with-pydebug", a #\d would
|
||||||
|
;; need to be added, likewise "--with-pymalloc" and "--with-wide-unicode"
|
||||||
|
;; would require a #\m and #\u, see cpython's configure.ac.
|
||||||
|
".cpython-" majorminor "-" normalised-system
|
||||||
|
(if (target-mingw? triplet)
|
||||||
|
".dll"
|
||||||
|
".so")))
|
||||||
|
|
||||||
|
(define (correct-library-name-phase python name)
|
||||||
|
"Return a G-exp evaluating to a phase renaming the python extension NAME
|
||||||
|
from what Meson thinks its name should be to what python expects its name
|
||||||
|
to be. NAME must not include the platform-specific suffix. This can only
|
||||||
|
be used when cross-compiling."
|
||||||
|
#~(lambda _
|
||||||
|
(define name #$name)
|
||||||
|
(define native-suffix
|
||||||
|
#$(python-extension-suffix python
|
||||||
|
(nix-system->gnu-triplet (%current-system))))
|
||||||
|
(define target-suffix
|
||||||
|
#$(python-extension-suffix python (%current-target-system)))
|
||||||
|
(define native-name
|
||||||
|
(string-append name native-suffix))
|
||||||
|
(define target-name
|
||||||
|
(string-append name target-suffix))
|
||||||
|
(rename-file native-name target-name)))
|
||||||
|
|
||||||
|
(define gobject-introspection
|
||||||
|
(package
|
||||||
|
(name "gobject-introspection")
|
||||||
|
(version "1.66.1")
|
||||||
|
(source (origin
|
||||||
|
(method url-fetch)
|
||||||
|
(uri (string-append "mirror://gnome/sources/"
|
||||||
|
"gobject-introspection/" (version-major+minor version)
|
||||||
|
"/gobject-introspection-" version ".tar.xz"))
|
||||||
|
(sha256
|
||||||
|
(base32 "078n0q7b6z682mf4irclrksm73cyixq295mqnqifl9plwmgaai6x"))
|
||||||
|
(patches (search-patches
|
||||||
|
"gobject-introspection-cc.patch"
|
||||||
|
"gobject-introspection-girepository.patch"
|
||||||
|
"gobject-introspection-absolute-shlib-path.patch"))))
|
||||||
|
(build-system meson-build-system)
|
||||||
|
(arguments
|
||||||
|
`(,@(if (%current-target-system)
|
||||||
|
`(#:configure-flags
|
||||||
|
'("-Dgi_cross_use_prebuilt_gi=true"
|
||||||
|
;; Building introspection data requires running binaries
|
||||||
|
;; for ‘host’ on ‘build’, so don't do that.
|
||||||
|
;;
|
||||||
|
;; TODO: it would be nice to have introspection data anyways
|
||||||
|
;; as discussed here: https://issues.guix.gnu.org/50201#60.
|
||||||
|
"-Dbuild_introspection_data=false"))
|
||||||
|
'())
|
||||||
|
#:phases
|
||||||
|
,#~
|
||||||
|
(modify-phases %standard-phases
|
||||||
|
#$@(if (%current-target-system)
|
||||||
|
;; 'typelibs' is undefined.
|
||||||
|
`((add-after 'unpack 'set-typelibs
|
||||||
|
(lambda _
|
||||||
|
(substitute* "meson.build"
|
||||||
|
; (("python3") "python")
|
||||||
|
(("\\bsources: typelibs\\b")
|
||||||
|
"sources: []")))))
|
||||||
|
'())
|
||||||
|
(add-after 'unpack 'do-not-use-/usr/bin/env
|
||||||
|
(lambda _
|
||||||
|
(substitute* "tools/g-ir-tool-template.in"
|
||||||
|
(("#!@PYTHON_CMD@")
|
||||||
|
(string-append "#!" #$(this-package-input "python")
|
||||||
|
"/bin/python3")))))
|
||||||
|
#$@(if (%current-target-system)
|
||||||
|
;; Meson gives python extensions an incorrect name, see
|
||||||
|
;; <https://github.com/mesonbuild/meson/issues/7049>.
|
||||||
|
#~((add-after 'install 'rename-library
|
||||||
|
#$(correct-library-name-phase
|
||||||
|
(this-package-input "python")
|
||||||
|
#~(string-append #$output
|
||||||
|
"/lib/gobject-introspection/giscanner"
|
||||||
|
"/_giscanner"))))
|
||||||
|
#~()))))
|
||||||
|
(native-inputs
|
||||||
|
(list `(,glib "bin")
|
||||||
|
pkg-config
|
||||||
|
bison
|
||||||
|
flex))
|
||||||
|
(inputs
|
||||||
|
(list ;,@(if (%current-target-system)
|
||||||
|
python
|
||||||
|
bison
|
||||||
|
flex
|
||||||
|
zlib))
|
||||||
|
(propagated-inputs
|
||||||
|
(list glib
|
||||||
|
;; In practice, GIR users will need libffi when using
|
||||||
|
;; gobject-introspection.
|
||||||
|
libffi))
|
||||||
|
(native-search-paths
|
||||||
|
(list
|
||||||
|
(search-path-specification
|
||||||
|
(variable "GI_TYPELIB_PATH")
|
||||||
|
(files '("lib/girepository-1.0")))))
|
||||||
|
(search-paths native-search-paths)
|
||||||
|
(synopsis "GObject introspection tools and libraries")
|
||||||
|
(description "GObject introspection is a middleware layer between
|
||||||
|
C libraries (using GObject) and language bindings. The C library can be scanned
|
||||||
|
at compile time and generate metadata files, in addition to the actual native
|
||||||
|
C library. Then language bindings can read this metadata and automatically
|
||||||
|
provide bindings to call into the C library.")
|
||||||
|
(home-page "https://wiki.gnome.org/Projects/GObjectIntrospection")
|
||||||
|
(license
|
||||||
|
(list
|
||||||
|
;; For library.
|
||||||
|
license:lgpl2.0+
|
||||||
|
;; For tools.
|
||||||
|
license:gpl2+))))
|
||||||
|
;; Fails to cross-compile - rewrite using gexp
|
||||||
|
(define-public slock
|
||||||
|
(package
|
||||||
|
(name "slock")
|
||||||
|
(version "1.4")
|
||||||
|
(source (origin
|
||||||
|
(method url-fetch)
|
||||||
|
(uri (string-append "https://dl.suckless.org/tools/slock-"
|
||||||
|
version ".tar.gz"))
|
||||||
|
(sha256
|
||||||
|
(base32
|
||||||
|
"0sif752303dg33f14k6pgwq2jp1hjyhqv6x4sy3sj281qvdljf5m"))))
|
||||||
|
(build-system gnu-build-system)
|
||||||
|
(arguments
|
||||||
|
(list #:tests? #f ; no tests
|
||||||
|
#:make-flags
|
||||||
|
#~(list (string-append "CC=" #$(cc-for-target))
|
||||||
|
(string-append "PREFIX=" #$output))
|
||||||
|
#:phases #~(modify-phases %standard-phases (delete 'configure))))
|
||||||
|
(inputs
|
||||||
|
(list libx11 libxext libxinerama libxrandr))
|
||||||
|
(home-page "https://tools.suckless.org/slock/")
|
||||||
|
(synopsis "Simple X session lock")
|
||||||
|
(description
|
||||||
|
"Simple X session lock with trivial feedback on password entry.")
|
||||||
|
(license license:x11)))
|
||||||
|
|
||||||
|
(define quartz64a-desktop-os
|
||||||
|
(operating-system
|
||||||
|
(host-name "quartz64a")
|
||||||
|
(timezone "Europe/Prague")
|
||||||
|
(locale "en_US.utf8")
|
||||||
|
|
||||||
|
(bootloader (bootloader-configuration
|
||||||
|
(bootloader u-boot-quartz64a-rk3566-bootloader)
|
||||||
|
(targets '("/dev/vda"))))
|
||||||
|
(initrd-modules '())
|
||||||
|
(kernel linux-quartz64)
|
||||||
|
(file-systems (append (list
|
||||||
|
(file-system
|
||||||
|
(device (file-system-label "EFI"))
|
||||||
|
(mount-point "/boot/efi")
|
||||||
|
(type "vfat"))
|
||||||
|
(file-system
|
||||||
|
(device (file-system-label "root"))
|
||||||
|
(mount-point "/")
|
||||||
|
(type "ext4")))
|
||||||
|
%base-file-systems))
|
||||||
|
|
||||||
|
(swap-devices (list (swap-space
|
||||||
|
(target "/run/swapfile"))))
|
||||||
|
|
||||||
|
(users (cons* (user-account
|
||||||
|
(name "pine")
|
||||||
|
(group "users")
|
||||||
|
(supplementary-groups '("wheel" "netdev" "audio" "video"))
|
||||||
|
(password (crypt "quartz64" "$6$abc"))
|
||||||
|
(home-directory "/home/pine"))
|
||||||
|
%base-user-accounts))
|
||||||
|
|
||||||
|
;; Add GNOME desktop
|
||||||
|
(services
|
||||||
|
(append (list (service mate-desktop-service-type)
|
||||||
|
(service xfce-desktop-service-type)
|
||||||
|
(service openssh-service-type)
|
||||||
|
(service agetty-service-type
|
||||||
|
(agetty-configuration
|
||||||
|
(extra-options '("-L")) ; no carrier detect
|
||||||
|
(baud-rate "1500000")
|
||||||
|
(term "vt100")
|
||||||
|
(tty "ttyS2"))))
|
||||||
|
%desktop-services))
|
||||||
|
|
||||||
|
(packages (cons* nss-certs
|
||||||
|
openssh
|
||||||
|
gvfs
|
||||||
|
%base-packages))
|
||||||
|
|
||||||
|
(name-service-switch %mdns-host-lookup-nss)))
|
||||||
|
|
||||||
|
(define quartz64-image-type
|
||||||
|
(image-type
|
||||||
|
(name 'quartz-raw)
|
||||||
|
(constructor (lambda (os)
|
||||||
|
(image
|
||||||
|
(inherit
|
||||||
|
(raw-with-offset-disk-image (* 32 (expt 2 20)))) ; 32MiB
|
||||||
|
(operating-system os)
|
||||||
|
(platform aarch64-linux))))))
|
||||||
|
|
||||||
|
(define quartz64-desktop-raw-image
|
||||||
|
(image
|
||||||
|
(inherit
|
||||||
|
(os+platform->image quartz64a-desktop-os aarch64-linux
|
||||||
|
#:type quartz64-image-type))
|
||||||
|
(name 'quartz-desktop-raw-image)))
|
||||||
|
|
||||||
|
;; Return the default image.
|
||||||
|
quartz64-desktop-raw-image
|
||||||
Loading…
Reference in New Issue
Block a user