gnu: claws-mail: Remove input labels.

* gnu/packages/mail.scm (claws-mail)[inputs]: Remove input labels.
[arguments]: Use search-input-file.
This commit is contained in:
Efraim Flashner 2022-01-11 15:54:28 +02:00
parent f52813ecf8
commit eea0a5fb72
No known key found for this signature in database
GPG key ID: 41AAE7DCCA3D8351

View file

@ -1642,13 +1642,11 @@ (define-public claws-mail
(add-after 'unpack 'patch-source (add-after 'unpack 'patch-source
(lambda* (#:key inputs #:allow-other-keys) (lambda* (#:key inputs #:allow-other-keys)
;; Use absolute paths to referenced programs. ;; Use absolute paths to referenced programs.
(let* ((mailutils (assoc-ref inputs "mailutils"))
(inc (string-append mailutils "/bin/mu-mh/inc"))
(send-mail (assoc-ref inputs "sendmail"))
(sendmail (string-append send-mail "/sbin/sendmail")))
(substitute* "src/common/defs.h" (substitute* "src/common/defs.h"
(("/usr/bin/mh/inc") inc) (("/usr/bin/mh/inc")
(("/usr/sbin/sendmail") sendmail))))) (search-input-file inputs "/bin/mu-mh/inc"))
(("/usr/sbin/sendmail")
(search-input-file inputs "/sbin/sendmail")))))
(add-before 'build 'patch-mime (add-before 'build 'patch-mime
(lambda* (#:key inputs #:allow-other-keys) (lambda* (#:key inputs #:allow-other-keys)
(substitute* "src/procmime.c" (substitute* "src/procmime.c"
@ -1663,48 +1661,48 @@ (define-public claws-mail
intltool intltool
pkg-config)) pkg-config))
(inputs (inputs
`(("bogofilter" ,bogofilter) (list bogofilter
("cairo" ,cairo) cairo
("compface" ,compface) compface
("curl" ,curl) curl
("dbus" ,dbus) dbus
("dbus-glib" ,dbus-glib) dbus-glib
("enchant" ,enchant) enchant
("expat" ,expat) expat
("fontconfig" ,fontconfig) fontconfig
("ghostscript" ,ghostscript) ghostscript
("glib" ,glib) glib
("gnupg" ,gnupg) gnupg
("gnutls" ,gnutls) gnutls
("gpgme" ,gpgme) gpgme
("gsettings-desktop-schemas" ,gsettings-desktop-schemas) gsettings-desktop-schemas
("gtk+" ,gtk+) gtk+
("gumbo-parser" ,gumbo-parser) gumbo-parser
;;("j-pilot" ,j-pilot) ;;j-pilot
("libarchive" ,libarchive) libarchive
("libcanberra" ,libcanberra) libcanberra
("libetpan" ,libetpan) libetpan
("libgdata" ,libgdata) libgdata
("libical" ,libical) libical
("libindicator" ,libindicator) libindicator
("libnotify" ,libnotify) libnotify
("librsvg" ,(librsvg-for-system)) (librsvg-for-system)
("libsm" ,libsm) libsm
("libsoup" ,libsoup) libsoup
("libxml2" ,libxml2) libxml2
("mailutils" ,mailutils) mailutils
("nettle" ,nettle) nettle
("network-manager" ,network-manager) network-manager
("openldap" ,openldap) openldap
("perl" ,perl) perl
("poppler" ,poppler) poppler
("python" ,python) python
("python-pygobject" ,python-pygobject) python-pygobject
("sendmail" ,sendmail) sendmail
("shared-mime-info" ,shared-mime-info) shared-mime-info
("startup-notification" ,startup-notification) startup-notification
;;("webkitgtk" ,webkitgtk) ;;webkitgtk
("ytnef" ,ytnef))) ytnef))
(propagated-inputs (propagated-inputs
(list dconf)) (list dconf))
(synopsis "GTK-based Email client") (synopsis "GTK-based Email client")