neox
/
configurations-guix
1
0
Fork 0
Code Issues 2 Pull Requests Releases Activity

add sane custom driver

This commit is contained in:
neox 2024-11-19 20:03:53 +01:00
parent 43ead00fa2
commit d63380fc21
No known key found for this signature in database
GPG Key ID: 57BC26A3687116F6
1 changed files with 312 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

322
config.scm
View File

@ -28,9 +28,35 @@
(gnu packages gnupg)
(gnu packages freedesktop)
(gnu packages cups)
(gnu packages scanner)
(gnu packages autotools)
(gnu packages avahi)
(gnu packages boost)
(gnu packages compression)
(gnu packages freedesktop)
(gnu packages gettext)
(gnu packages ghostscript)
(gnu packages gnome)
(gnu packages glib)
(gnu packages gtk)
(gnu packages image)
(gnu packages imagemagick)
(gnu packages libusb)
(gnu packages linux)
(gnu packages pkg-config)
(gnu packages python)
(gnu packages textutils)
(gnu packages tls)
(gnu packages xml)
(gnu services)
(srfi srfi-1)
(guix gexp))
(guix gexp)
(guix packages)
(guix git-download)
(guix build-system gnu)
(guix utils)
((guix licenses)
#:prefix license:))
(use-service-modules
cups
@ -43,6 +69,198 @@
vpn
security-token)
;; Service SANE personnalisé
(define sane-custom-minimal
(package
(name "sane-custom-minimal")
(version "1.3.1")
(source (origin
(method git-fetch)
(uri (git-reference
(url "https://gitlab.com/sane-project/backends")
(commit version)))
(file-name (git-file-name name version))
(sha256
(base32 "1fb6shx9bz0svcyasmyqs93rbbwq7kzg6l0h1zh3kjvcwhchyv72"))
(modules '((guix build utils)))
(snippet
;; Generated HTML files and udev rules normally embed a
;; timestamp. Work around that to build things reproducibly.
'(begin
(substitute* "tools/sane-desc.c"
(("asctime \\(localtime \\(&current_time\\)\\)")
"\"1970-01-01\""))))))
(build-system gnu-build-system)
(native-inputs
`(("autoconf" ,autoconf)
("autoconf-archive" ,autoconf-archive)
("automake" ,automake)
("gettext" ,gettext-minimal)
("libtool" ,libtool)
("pkg-config" ,pkg-config)
;; For scripts/pixma_gen_options.py.
("python" ,python-wrapper)))
(inputs
(list libusb))
(arguments
`(#:configure-flags '("--with-lockdir=/var/lock/sane") ;; Avoid errors with plustek
#:phases
(modify-phases %standard-phases
(add-before 'bootstrap 'zap-unnecessary-git-dependency
(lambda _
;; This runs before default patch-shebangs phase.
(substitute* "tools/git-version-gen"
(("/bin/sh") (which "sh")))
(with-output-to-file ".tarball-version"
(lambda _ (format #t ,version)))))
(add-before 'configure 'disable-lockdir-creation
(lambda _
;; Modify the Makefile.am to prevent the creation of the lock dir
(substitute* "backend/Makefile.am"
(("^install-lockpath:.*$")
"install-lockpath: # pass"))))
(add-before 'configure 'disable-backends
(lambda _
(setenv "BACKENDS" " ")
;; Disable tests that may require back ends to be built.
(substitute* "testsuite/Makefile.in"
((" backend ") " "))))
(add-before 'configure 'disable-failing-tests
(lambda _
;; Disable unmaintained tests that that fail with errors resembling:
;;
;; < # by sane-desc 3.5 from sane-backends 1.0.24git on Jul 31 2013
;; ---
;; > # by sane-desc 3.5 from sane-backends 1.0.27 on 1970-01-01#
;; FAIL: sane-desc -m usermap -s ./data
(for-each
(lambda (pattern)
(substitute* "testsuite/tools/Makefile.in"
(((string-append " " pattern " ")) " ")))
(list "usermap" "db" "udev" "udev\\+acl" "udev\\+hwdb" "hwdb"))
;; Disable tests that try to connect to actual USB hardware & fail
;; with the following error when no USB access is allowed at all:
;;
;; sanei_usb_test: sanei_usb_test.c:849: main: Assertion
;; `test_init (1)' failed.
(substitute* "testsuite/sanei/Makefile.in"
(("sanei_usb_test\\$\\(EXEEXT\\) ") ""))))
(add-before 'build 'build-pixma_sane_options.c
;; "No rule to make target '../backend/pixma/pixma_sane_options.c',
;; needed by 'sane-backends.pot-update'."
(lambda _
(invoke "make" "-C" "backend" "pixma/pixma_sane_options.c")))
(add-after 'install 'install-udev-rules
(lambda* (#:key outputs #:allow-other-keys)
(let ((out (assoc-ref outputs "out")))
(mkdir-p (string-append out "/lib/udev/rules.d"))
(copy-file "tools/udev/libsane.rules"
(string-append out
"/lib/udev/rules.d/"
"60-libsane.rules")))))
(add-after 'install 'make-reproducible
;; XXX Work around an old bug <https://issues.guix.gnu.org/26247>.
;; Then work around "Throw to key `decoding-error' ..." by using sed.
(lambda* (#:key outputs #:allow-other-keys)
(let* ((out (assoc-ref outputs "out"))
(locale (string-append out "/share/locale")))
(with-directory-excursion locale
(for-each (lambda (file)
(invoke "sed" "-i" "/^PO-Revision-Date:/d" file))
(list "en@boldquot/LC_MESSAGES/sane-backends.mo"
"en@quot/LC_MESSAGES/sane-backends.mo")))))))))
(home-page "http://www.sane-project.org")
(synopsis
"Raster image scanner library and drivers, without scanner support")
(description "SANE stands for \"Scanner Access Now Easy\" and is an API
proving access to any raster image scanner hardware (flatbed scanner,
hand-held scanner, video- and still-cameras, frame-grabbers, etc.). The
package contains the library, but no drivers.")
(license license:gpl2+))) ; plus linking exception
(define sane-custom-backends
(package/inherit sane-custom-minimal
(name "sane-custom-backends")
(inputs
`(("hplip" ,(@ (gnu packages cups) hplip-minimal))
("libjpeg" ,libjpeg-turbo) ; for pixma/epsonds/other back ends
("libpng" ,libpng) ; support ‘scanimage --format=png’
("libxml2" ,libxml2) ; for pixma back end
,@(package-inputs sane-backends-minimal)))
(arguments
(substitute-keyword-arguments (package-arguments sane-custom-minimal)
((#:phases phases)
`(modify-phases ,phases
(delete 'disable-backends)
(add-after 'disable-failing-tests 'disable-failing-backend-tests
(lambda _
;; Disable test that fails on i686:
;; <https://bugs.gnu.org/39449>
(substitute* "testsuite/backend/genesys/Makefile.in"
((" genesys_unit_tests\\$\\(EXEEXT\\)") ""))
#t))
(add-after 'unpack 'add-backends
(lambda _
(substitute* "backend/dll.conf.in"
(("hp5590" all) (format #f "~a~%~a" all "hpaio")))
#t))
(add-after 'install 'install-hpaio
(lambda* (#:key inputs outputs #:allow-other-keys)
(define hplip (string-append (assoc-ref inputs "hplip")
"/lib/sane"))
(define out (string-append (assoc-ref outputs "out")
"/lib/sane"))
(for-each
(lambda (file)
(symlink file (string-append out "/" (basename file))))
(find-files hplip))
#t))))))
(synopsis
"Raster image scanner library and drivers, with scanner support")
(description "SANE stands for \"Scanner Access Now Easy\" and is an API
proving access to any raster image scanner hardware (flatbed scanner,
hand-held scanner, video- and still-cameras, frame-grabbers, etc.). The
package contains the library and drivers.")))
(define %sane-custom-accounts
;; The '60-libsane.rules' udev rules refers to the "scanner" group.
(list (user-group (name "scanner") (system? #t))))
(define %sane-custom-activation
#~(begin
(use-modules (guix build utils))
(let ((lockpath "/var/lock/sane")
(gid (vector-ref (getgrnam "scanner") 2)))
;; Create the lock directory at runtime and give right perms
(mkdir-p lockpath)
(chown lockpath -1 gid)
(chmod lockpath #o770))
#t))
(define sane-custom-service-type
(service-type
(name 'sane)
(description
"Custom SANE service")
(default-value sane-custom-minimal)
(extensions
(list (service-extension udev-service-type list)
(service-extension activation-service-type
(const %sane-custom-activation))
(service-extension account-service-type
(const %sane-custom-accounts))))))
(define simple-scan-custom
(package
(inherit simple-scan) ; Inherit from the original 'simple-scan'
(name "simple-scan-custom") ; Override the package name
(inputs
(modify-inputs (package-inputs simple-scan)
(replace "sane-backends" sane-custom-backends))))) ; Replace the input
;; Configuration sudoer personnalisée
(define %sudoers-specification
(plain-file "sudoers" "\
@ -54,10 +272,16 @@ root ALL=(ALL) ALL
;; Permet le partage de périphériques USB via virt-manager
(define %spice-rules
(udev-rule
"41-spice-and-nitrokey.rules"
"41-spice.rules"
(string-append "\
SUBSYSTEM==\"usb\", GROUP=\"spice\", MODE=\"0660\"
SUBSYSTEM==\"usb_device\", GROUP=\"spice\", MODE=\"0660\"
")))
(define %ch341a-nk3-rules
(udev-rule
"42-ch341a-and-nk3.rules"
(string-append "\
ACTION!=\"add|change\", GOTO=\"u2f_end\"
KERNEL==\"hidraw*\", SUBSYSTEM==\"hidraw\", ATTRS{idVendor}==\"2581\", ATTRS{idProduct}==\"f1d0\", TAG+=\"uaccess\"
KERNEL==\"hidraw*\", SUBSYSTEM==\"hidraw\", ATTRS{idVendor}==\"20a0\", ATTRS{idProduct}==\"4287\", TAG+=\"uaccess\"
@ -66,6 +290,7 @@ KERNEL==\"hidraw*\", SUBSYSTEM==\"hidraw\", ATTRS{idVendor}==\"20a0\", ATTRS{idP
KERNEL==\"hidraw*\", SUBSYSTEM==\"hidraw\", ATTRS{idVendor}==\"20a0\", ATTRS{idProduct}==\"42dd\", TAG+=\"uaccess\"
ATTRS{idVendor}==\"20a0\", ATTRS{idProduct}==\"42e8\", TAG+=\"uaccess\"
LABEL=\"u2f_end\"
SUBSYSTEM!=\"usb\", GOTO=\"gnupg_rules_end\"
ACTION!=\"add\", GOTO=\"gnupg_rules_end\"
ATTR{idVendor}==\"20a0\", ATTR{idProduct}==\"4107\", ENV{ID_SMARTCARD_READER}=\"1\", ENV{ID_SMARTCARD_READER_DRIVER}=\"gnupg\", TAG+=\"uaccess\"
@ -76,6 +301,10 @@ ATTR{idVendor}==\"03eb\", ATTR{idProduct}==\"2ff1\", TAG+=\"uaccess\"
ATTR{idVendor}==\"20a0\", ATTR{idProduct}==\"4211\", ENV{ID_SMARTCARD_READER}=\"1\", ENV{ID_SMARTCARD_READER_DRIVER}=\"gnupg\", TAG+=\"uaccess\"
ATTR{idVendor}==\"20a0\", ATTR{idProduct}==\"4230\", ENV{ID_SMARTCARD_READER}=\"1\", ENV{ID_SMARTCARD_READER_DRIVER}=\"gnupg\", TAG+=\"uaccess\"
LABEL=\"gnupg_rules_end\"
# Winchiphead (WCH) CH341a based programmer
ATTRS{idVendor}==\"1a86\", ATTRS{idProduct}==\"5512\", MODE=\"664\", GROUP=\"plugdev\"
KERNEL==\"sd?1\", ATTRS{idVendor}==\"20a0\", ATTRS{idProduct}==\"4109\", SYMLINK+=\"nitrospace\"
")))
@ -88,6 +317,18 @@ else
PS1='\\[\\033[01;32m\\]\\u@\\h\\[\\033[00m\\]:\\[\\033[01;34m\\]\\w\\[\\033[00m\\]\\$ '
fi
PATH=\"$PATH:~/.local/bin\"
guix() {
if [[ \"$1\" == \"install\" ]]; then
echo \"Tu es débile, ou bien ?\"
elif [[ \"$1\" == \"remove\" ]]; then
echo \"Tu es débile, ou bien ?\"
else
command guix \"$@\"
fi
}
if [[ ! -n \"$SSH_CLIENT\" ]]; then
unset SSH_AGENT_PID
if [ \"${gnupg_SSH_AUTH_SOCK_by:-0}\" -ne $$ ]; then
@ -116,7 +357,7 @@ fi"))
("GCC_COLORS" . "'error=01;31:warning=01;35:note=01;36:caret=01;32:locus=01:quote=01'")
("GUIX_PACKAGE_PATH" . "$HOME/.config/guix/packages/defs")
("XDG_DATA_DIRS" . "$XDG_DATA_DIRS:$HOME/.local/share/flatpak/exports/share:/var/lib/flatpak/exports/share")
("LV2_PATH" . "$HOME/.guix-profile/lib/lv2")))
("LV2_PATH" . "/run/current-system/profile/lib/lv2")))
(aliases
'(
("clear" . "printf '\\033c'")
@ -170,6 +411,7 @@ fi"))
"audio"
"video"
"libvirt"
"plugdev"
"kvm"
"scanner"
"spice"
@ -188,11 +430,13 @@ fi"))
"alsa-utils"
"ardour"
"audacity"
"beep"
"bind:utils"
"binutils"
"blueman"
"bmaptools"
;"bmaptools"
"cabextract"
"calf"
"claws-mail"
"cmatrix"
"cpupower"
@ -201,18 +445,26 @@ fi"))
"cvs"
"dconf-editor"
"dino"
"dosbox"
"gocryptfs"
"emacs"
"endeavour"
"python-esptool"
"evolution"
"exfatprogs"
"fastboot"
"ffmpeg"
;"ffmpeg"
"file"
"flashrom"
"flatpak"
"font-awesome"
"font-ipa-ex"
"font-ipa"
"font-ipa-mj-mincho"
"font-liberation"
"font-mplus-testflight"
"font-openmoji"
"font-wqy-zenhei"
"gallery-dl"
"gdb"
"ghostscript"
@ -241,6 +493,7 @@ fi"))
"gpgme"
"graphviz"
"grub"
"hedgewars"
"hexchat"
"hplip"
"htop"
@ -248,11 +501,18 @@ fi"))
"icecat"
"inetutils"
"inkscape"
"ipp-usb"
"iptables"
"jack"
"jp2a"
"kajongg"
"kcachegrind"
"kgraphviewer"
"kicad"
"kicad-templates"
"kicad-footprints"
"kicad-symbols"
"kicad-doc"
"ldns"
"libreoffice"
"libtree"
@ -278,9 +538,11 @@ fi"))
"ncftp"
"ndisc6"
"neofetch"
"netcat"
"network-manager"
"network-manager-openvpn"
"nextcloud-client"
"ngspice"
"nitrocli"
"nmap"
"ntfs-3g"
@ -289,9 +551,11 @@ fi"))
"openvpn"
"pam-u2f"
"pandoc"
"paprefs"
"parted"
"patchelf"
"pavucontrol"
"pipe-viewer"
"pkg-config"
"poppler"
"powertop"
@ -301,6 +565,8 @@ fi"))
"python-logutils"
"python-markdown"
"python-paramiko"
"python-prettytable"
"python-virtualenv"
"qbittorrent"
"qemu"
"qjackctl"
@ -308,7 +574,11 @@ fi"))
"recutils"
"rsync"
"rubber"
"ruby-pygmentize"
"screen"
"perl-digest-sha"
"strace"
"xsane"
"seahorse"
"setxkbmap"
"simplescreenrecorder"
@ -325,13 +595,16 @@ fi"))
"tilix"
"transmission"
"tree"
"tor"
"torbrowser"
"uefitool"
"ungoogled-chromium"
"unzip"
"virt-manager"
"vlc"
"wine64"
"xauth"
"xdg-desktop-portal"
;"xdg-desktop-portal"
"xdg-desktop-portal-gnome"
"xdg-desktop-portal-gtk"
"xdg-utils"
@ -341,8 +614,17 @@ fi"))
"xournalpp"
"xrdp"
"yt-dlp"
"zip"
"zstd"))
%base-packages))
(list
sane-custom-backends
simple-scan-custom)
(remove
(lambda (pkg)
(string=? (package-name pkg) "simple-scan"))
%base-packages)))
;; Services du système.
;; On en profite pour modifier le comportement par défaut de quelques services.
@ -380,6 +662,7 @@ fi"))
;; Application de la configuration spice personnalisée (définie plus haut)
(udev-rules-service 'spice %spice-rules #:groups '("spice"))
(udev-rules-service 'plugdev %ch341a-nk3-rules #:groups '("plugdev"))
;; Modification des limites mémoires pour les accès audio temps réel
;; (utile notamment pour Ardour)
@ -391,6 +674,12 @@ fi"))
;; Service Gnome/GDM
(service gnome-desktop-service-type)
;; Service Tor
(service tor-service-type)
;; Service de scanners
(service sane-custom-service-type)
;; Configuration de l'environnement graphique (notamment clavier)
(set-xorg-configuration
(xorg-configuration (keyboard-layout keyboard-layout))))
@ -412,6 +701,17 @@ fi"))
(handle-lid-switch 'ignore)
(handle-lid-switch-external-power 'ignore)))
;; Configuration des scanners
;(sane-service-type _ => sane-backends)
(delete sane-service-type)
(sane-custom-service-type _ => sane-custom-backends)
;; Configuration du garbage collector
(guix-service-type config => (guix-configuration
(inherit config)
(extra-options '("--gc-keep-derivations=yes" "--gc-keep-output=yes"))))
;; Configuration du service network-manager pour prendre en charge
;; OpenVPN
(network-manager-service-type config => (network-manager-configuration
@ -439,10 +739,10 @@ fi"))
;; Specify a swap file for the system, which resides on the
;; root file system.
(swap-devices
(list
(swap-space
(target "/swapfile"))))
;(swap-devices
; (list
; (swap-space
; (target "/swapfile"))))
;; La liste des systèmes de fichiers montés au démarrage
;; On configure ici le montage des partitions chiffrées et non chiffrées