diff options
Diffstat (limited to 'src/xyz/euandreh/queue.scm')
-rw-r--r-- | src/xyz/euandreh/queue.scm | 495 |
1 files changed, 250 insertions, 245 deletions
diff --git a/src/xyz/euandreh/queue.scm b/src/xyz/euandreh/queue.scm index 306b65a..090a700 100644 --- a/src/xyz/euandreh/queue.scm +++ b/src/xyz/euandreh/queue.scm @@ -1,5 +1,6 @@ (define-module (xyz euandreh queue) #:use-module ((guix licenses) #:prefix license:) + #:use-module ((nonguix licenses) #:prefix ng-license:) #:use-module (guix download) #:use-module (guix gexp) #:use-module (guix git-download) @@ -29,6 +30,199 @@ #:use-module (gnu packages tls) #:use-module (gnu packages xml)) + +(define-public epson-L365 + (package + (name "epson-L365") + (version "1.0.0") + (source + (origin + (method url-fetch) + (uri + (string-append + "https://download3.ebz.epson.net/dsc/f/03/00/03/45/41/92e9c9254f0ee4230a069545ba27ec2858a2c457/epson-inkjet-printer-201401w-" + version + "-1lsb3.2.src.rpm")) + (sha256 + (base32 "0c60m1sd59s4sda38dc5nniwa7dh1b0kv1maajr0x9d38gqlyk3x")))) + (build-system gnu-build-system) + (arguments + (list + #:phases + #~(modify-phases %standard-phases + (replace 'unpack + (lambda* (#:key outputs #:allow-other-keys) + (mkdir "source") + (chdir "source") + (system (string-append "rpm2cpio " #$source " | cpio -idv")) + (invoke "tar" "-xvf" (string-append "epson-inkjet-printer-201401w-" #$version ".tar.gz")) + (invoke "tar" "-xvf" (string-append "epson-inkjet-printer-filter-" #$version ".tar.gz")) + (substitute* (find-files (string-append "epson-inkjet-printer-201401w-" #$version "/ppds/")) + (("/opt/epson-inkjet-printer-201401w/cups/lib") + (string-append (assoc-ref outputs "out") + "/lib/cups"))) + (chdir (string-append "epson-inkjet-printer-filter-" #$version)))) + (add-after 'install 'install-extra-files + (lambda* (#:key outputs #:allow-other-keys) + (let* ((out (assoc-ref outputs "out")) + (model-dir (string-append out "/share/cups/model/epson-inkjet-printer-201401w"))) + (chdir (string-append "../epson-inkjet-printer-201401w-" #$version)) + (mkdir-p model-dir) + (invoke "cp" "-a" "ppds" model-dir) + (invoke "cp" "-a" "lib64" "resource" "watermark" out))))))) + (native-inputs + (list cpio + cups-minimal + libjpeg-turbo + rpm)) + (synopsis + "Epson printer driver (L456, L455, L366, L365, L362, L360, L312, L310, L222, L220, L132, L130)") + (description + "This software is a filter program used with the Common UNIX Printing +System (CUPS) under Linux. It supplies high quality printing with +Seiko Epson Color Ink Jet Printers.") + (home-page "https://www.openprinting.org/driver/epson-201401w") + ;; Plus the "SEIKO EPSON CORPORATION SOFTWARE LICENSE AGREEMENT": + ;; https://epson.com/SoftwareLicenseAgreement + (license + (list license:lgpl2.1 + ng-license:nonfree)))) + +(define-public mailutils-sendmail + (package + (inherit mailutils) + (name "mailutils-sendmail") + (arguments + (substitute-keyword-arguments (package-arguments mailutils) + ((#:configure-flags flags) + #~(append '("CFLAGS=-DPATH_SENDMAIL=\\\"/run/setuid-programs/sendmail\\\"") #$flags)))))) + +(define-public postfix + (package + (name "postfix") + (version "3.8-20221023") + (source + (origin + (method url-fetch) + (uri + (string-append + "http://cdn.postfix.johnriley.me/mirrors/postfix-release/experimental/postfix-" + version + ".tar.gz")) + (sha256 + (base32 "0aaylhn81n9z3kidx53kzf2jrilr3lgwfxsk1r4hn7nkrp62bcwm")))) + (build-system gnu-build-system) + (arguments + (list + #:tests? #f + #:modules `((srfi srfi-26) + ,@%gnu-build-system-modules) + #:phases + #~(modify-phases %standard-phases + (add-before 'configure 'patch-/bin/sh + (lambda _ + (substitute* (find-files "." "^Makefile") + (("/bin/sh") + (which "sh"))))) + (add-before 'configure 'patch-bdb-include + (lambda* (#:key inputs #:allow-other-keys) + (substitute* "makedefs" + (("/usr/include") + (string-append (assoc-ref inputs "bdb") + "/include"))))) + (add-before 'configure 'dont-hardcode-PATH + (lambda _ + (substitute* '("postfix-install" + "conf/post-install") + (("^PATH=") + "# PATH=")))) + (add-before 'configure 'fix-strict-PATH + (lambda _ + (substitute* "src/util/sys_defs.h" + (("^#define (ROOT_PATH|_PATH_DEFPATH|_PATH_STDPATH).*") + "#define ROOT_PATH \"/run/setuid-programs:/run/current-system/profile/bin:/run/current-system/profile/sbin\"\n")))) + (add-before 'configure 'use-relative-symlink-to-store + (lambda _ + (substitute* "postfix-install" + (("ln -sf") + "ln -rsf")))) + (add-before 'configure 'fix-absolute-path-to-setuid-programs + (lambda _ + (substitute* "conf/postfix-script" + (("\\$command_directory/postqueue") + "/run/setuid-programs/postqueue") + (("\\$command_directory/postdrop") + "/run/setuid-programs/postdrop")))) + (add-before 'configure 'disable-warning-on-non-writable-config-files + (lambda _ + (substitute* "conf/postfix-script" + (("find \\$todo \\\\\\( -perm -020 -o -perm -002 \\\\\\) \\\\\n") + " # find $todo \\( -perm -020 -o -perm -002 \\)")))) + (add-before 'configure 'disable-write-to-/etc/postfix + (lambda _ + (substitute* "src/postconf/postconf_edit.c" + (("pcf_set_config_dir.*") + "return;")))) + (add-before 'configure 'setup-environment + (lambda* (#:key outputs inputs #:allow-other-keys) + (setenv "CCARGS" (string-append "-DUSE_TLS -DUSE_SASL_AUTH -DUSE_CYRUS_SASL -I" + (assoc-ref inputs "cyrus-sasl") + "/include/sasl")) + (setenv "AUXLIBS" "-lnsl -lcrypto -lssl -lsasl2") + (let* ((out (assoc-ref outputs "out")) + (bin (string-append out "/bin")) + (sbin (string-append out "/sbin")) + (lib (string-append out "/lib/postfix")) + (libexec (string-append out "/libexec/postfix")) + (etc (string-append out "/etc/postfix")) + (man (string-append out "/share/man")) + (doc (string-append out "/share/doc/postfix-" #$version)) + (html (string-append doc "/html"))) + (setenv "install_root" "wip-prefix") + (setenv "newaliases_path" (string-append bin "/newaliases")) + (setenv "mailq_path" (string-append bin "/mailq")) + (setenv "sendmail_path" (string-append sbin "/sendmail")) + (setenv "command_directory" sbin) + (setenv "shlib_directory" lib) + (setenv "daemon_directory" libexec) + (setenv "meta_directory" etc) + (setenv "sample_directory" etc) + (setenv "manpage_directory" man) + (setenv "readme_directory" doc) + (setenv "html_directory" html) + (setenv "sample_directory" (string-append out "/share/postfix"))))) + (replace 'configure + (lambda _ + (invoke "make" "makefiles" + "pie=yes" + "dynamicmaps=yes"))) + (replace 'install + (lambda* (#:key outputs #:allow-other-keys) + (let ((out (assoc-ref outputs "out"))) + (invoke "make" "non-interactive-package") + (delete-file-recursively "wip-prefix/var") + (copy-recursively "wip-prefix/etc" (string-append out "/etc")) + (copy-recursively (string-append "wip-prefix" out) out))))))) + (inputs + (list bdb + cyrus-sasl + libnsl + openssl + perl)) + (native-inputs + (list m4)) + (home-page "https://www.postfix.org") + (synopsis "sendmail compatible MTA") + (description + "Postfix is Wietse Venema's mail server that started life at IBM research +as an alternative to the widely-used Sendmail program. Now at Google, Wietse +continues to support Postfix. + +Postfix attempts to be fast, easy to administer, and secure. The outside has a +definite Sendmail-ish flavor, but the inside is completely different.") + (license (list license:ibmpl1.0 + license:epl2.0)))) + (define-public python-docx (package (name "python-docx") @@ -203,69 +397,66 @@ collections.OrderedDict that works in Python 2.4-2.6.") (description "We have made you a wrapper you can't refuse") (license #f))) -(define-public epson-L365 +(define-public python-xdg (package - (name "epson-L365") - (version "1.0.0") + (name "python-xdg") + (version "5.1.1") (source (origin (method url-fetch) (uri - (string-append - "https://download3.ebz.epson.net/dsc/f/03/00/03/45/41/92e9c9254f0ee4230a069545ba27ec2858a2c457/epson-inkjet-printer-201401w-" - version - "-1lsb3.2.src.rpm")) + (pypi-uri "xdg" version)) (sha256 - (base32 "0c60m1sd59s4sda38dc5nniwa7dh1b0kv1maajr0x9d38gqlyk3x")))) - (build-system gnu-build-system) - (arguments - (list - #:phases - #~(modify-phases %standard-phases - (replace 'unpack - (lambda* (#:key outputs #:allow-other-keys) - (mkdir "source") - (chdir "source") - (system (string-append "rpm2cpio " #$source " | cpio -idv")) - (invoke "tar" "-xvf" (string-append "epson-inkjet-printer-201401w-" #$version ".tar.gz")) - (invoke "tar" "-xvf" (string-append "epson-inkjet-printer-filter-" #$version ".tar.gz")) - (substitute* (find-files (string-append "epson-inkjet-printer-201401w-" #$version "/ppds/")) - (("/opt/epson-inkjet-printer-201401w/cups/lib") - (string-append (assoc-ref outputs "out") - "/lib/cups"))) - (chdir (string-append "epson-inkjet-printer-filter-" #$version)))) - (add-after 'install 'install-extra-files - (lambda* (#:key outputs #:allow-other-keys) - (let* ((out (assoc-ref outputs "out")) - (model-dir (string-append out "/share/cups/model/epson-inkjet-printer-201401w"))) - (chdir (string-append "../epson-inkjet-printer-201401w-" #$version)) - (mkdir-p model-dir) - (invoke "cp" "-a" "ppds" model-dir) - (invoke "cp" "-a" "lib64" "resource" "watermark" out))))))) - (native-inputs - (list cpio - cups-minimal - libjpeg-turbo - rpm)) - (synopsis - "Epson printer driver (L456, L455, L366, L365, L362, L360, L312, L310, L222, L220, L132, L130)") + (base32 "0v6hmhjqlc6km284lr14kc4h5rl6xva231q1lsr8hq7crhk9yqda")))) + (build-system python-build-system) + (home-page "https://github.com/srstevenson/xdg") + (synopsis "An implementation of the XDG Base Directory Specification in Python") (description - "This software is a filter program used with the Common UNIX Printing -System (CUPS) under Linux. It supplies high quality printing with -Seiko Epson Color Ink Jet Printers.") - (home-page "https://www.openprinting.org/driver/epson-201401w") - ;; Plus the "SEIKO EPSON CORPORATION SOFTWARE LICENSE AGREEMENT": - ;; https://epson.com/SoftwareLicenseAgreement - (license license:lgpl2.1))) + "xdg is a Python module that provides functions to return paths to the +directories defined by the XDG Base Directory Specification, to save you from +duplicating the same snippet of logic in every Python utility you write that +deals with user cache, configuration, or data files. +It has no external dependencies.") + (license license:isc))) -(define-public mailutils-sendmail +(define-public tmux-plugin-continuum (package - (inherit mailutils) - (name "mailutils-sendmail") + (name "tmux-plugin-continuum") + (version "3e4bc35da41f956c873aea716c97555bf1afce5d") + (source + (origin + (method git-fetch) + (uri + (git-reference + (url "https://github.com/tmux-plugins/tmux-continuum/") + (commit version))) + (sha256 + (base32 "1py8qfs2f93hkxhk039m813bjgcs5k54si662gx05g3czqy06pb7")))) + (build-system trivial-build-system) (arguments - (substitute-keyword-arguments (package-arguments mailutils) - ((#:configure-flags flags) - #~(append '("CFLAGS=-DPATH_SENDMAIL=\\\"/run/setuid-programs/sendmail\\\"") #$flags)))))) + `(#:modules ((guix build utils)) + #:builder + (begin + (use-modules (guix build utils)) + (let ((out (string-append %output "/share/tmux-plugins/continuum/"))) + (mkdir-p out) + (copy-recursively (assoc-ref %build-inputs "source") + out))))) + (synopsis "Continous saving of tmux environment") + (description + "Features: + +@itemize +@item continuous saving of tmux environment +@item automatic tmux start when computer/server is turned on +@item automatic restore when tmux is started +@end itemize + +Together, these features enable uninterrupted tmux usage. No matter the +computer or server restarts, if the machine is on, tmux will be there how you +left it off the last time it was used.") + (home-page "https://github.com/tmux-plugins/tmux-continuum/") + (license license:expat))) (define-public tmux-plugin-resurrect (package @@ -316,193 +507,6 @@ Optional: (home-page "https://github.com/tmux-plugins/tmux-resurrect/") (license license:expat))) -(define-public tmux-plugin-continuum - (package - (name "tmux-plugin-continuum") - (version "3e4bc35da41f956c873aea716c97555bf1afce5d") - (source - (origin - (method git-fetch) - (uri - (git-reference - (url "https://github.com/tmux-plugins/tmux-continuum/") - (commit version))) - (sha256 - (base32 "1py8qfs2f93hkxhk039m813bjgcs5k54si662gx05g3czqy06pb7")))) - (build-system trivial-build-system) - (arguments - `(#:modules ((guix build utils)) - #:builder - (begin - (use-modules (guix build utils)) - (let ((out (string-append %output "/share/tmux-plugins/continuum/"))) - (mkdir-p out) - (copy-recursively (assoc-ref %build-inputs "source") - out))))) - (synopsis "Continous saving of tmux environment") - (description - "Features: - -@itemize -@item continuous saving of tmux environment -@item automatic tmux start when computer/server is turned on -@item automatic restore when tmux is started -@end itemize - -Together, these features enable uninterrupted tmux usage. No matter the -computer or server restarts, if the machine is on, tmux will be there how you -left it off the last time it was used.") - (home-page "https://github.com/tmux-plugins/tmux-continuum/") - (license license:expat))) - -(define-public postfix - (package - (name "postfix") - (version "3.8-20221023") - (source - (origin - (method url-fetch) - (uri - (string-append - "http://cdn.postfix.johnriley.me/mirrors/postfix-release/experimental/postfix-" - version - ".tar.gz")) - (sha256 - (base32 "0aaylhn81n9z3kidx53kzf2jrilr3lgwfxsk1r4hn7nkrp62bcwm")))) - (build-system gnu-build-system) - (arguments - (list - #:tests? #f - #:modules `((srfi srfi-26) - ,@%gnu-build-system-modules) - #:phases - #~(modify-phases %standard-phases - (add-before 'configure 'patch-/bin/sh - (lambda _ - (substitute* (find-files "." "^Makefile") - (("/bin/sh") - (which "sh"))))) - (add-before 'configure 'patch-bdb-include - (lambda* (#:key inputs #:allow-other-keys) - (substitute* "makedefs" - (("/usr/include") - (string-append (assoc-ref inputs "bdb") - "/include"))))) - (add-before 'configure 'dont-hardcode-PATH - (lambda _ - (substitute* '("postfix-install" - "conf/post-install") - (("^PATH=") - "# PATH=")))) - (add-before 'configure 'fix-strict-PATH - (lambda _ - (substitute* "src/util/sys_defs.h" - (("^#define (ROOT_PATH|_PATH_DEFPATH|_PATH_STDPATH).*") - "#define ROOT_PATH \"/run/setuid-programs:/run/current-system/profile/bin:/run/current-system/profile/sbin\"\n")))) - (add-before 'configure 'use-relative-symlink-to-store - (lambda _ - (substitute* "postfix-install" - (("ln -sf") - "ln -rsf")))) - (add-before 'configure 'fix-absolute-path-to-setuid-programs - (lambda _ - (substitute* "conf/postfix-script" - (("\\$command_directory/postqueue") - "/run/setuid-programs/postqueue") - (("\\$command_directory/postdrop") - "/run/setuid-programs/postdrop")))) - (add-before 'configure 'disable-warning-on-non-writable-config-files - (lambda _ - (substitute* "conf/postfix-script" - (("find \\$todo \\\\\\( -perm -020 -o -perm -002 \\\\\\) \\\\\n") - " # find $todo \\( -perm -020 -o -perm -002 \\)")))) - (add-before 'configure 'disable-write-to-/etc/postfix - (lambda _ - (substitute* "src/postconf/postconf_edit.c" - (("pcf_set_config_dir.*") - "return;")))) - (add-before 'configure 'setup-environment - (lambda* (#:key outputs inputs #:allow-other-keys) - (setenv "CCARGS" (string-append "-DUSE_TLS -DUSE_SASL_AUTH -DUSE_CYRUS_SASL -I" - (assoc-ref inputs "cyrus-sasl") - "/include/sasl")) - (setenv "AUXLIBS" "-lnsl -lcrypto -lssl -lsasl2") - (let* ((out (assoc-ref outputs "out")) - (bin (string-append out "/bin")) - (sbin (string-append out "/sbin")) - (lib (string-append out "/lib/postfix")) - (libexec (string-append out "/libexec/postfix")) - (etc (string-append out "/etc/postfix")) - (man (string-append out "/share/man")) - (doc (string-append out "/share/doc/postfix-" #$version)) - (html (string-append doc "/html"))) - (setenv "install_root" "wip-prefix") - (setenv "newaliases_path" (string-append bin "/newaliases")) - (setenv "mailq_path" (string-append bin "/mailq")) - (setenv "sendmail_path" (string-append sbin "/sendmail")) - (setenv "command_directory" sbin) - (setenv "shlib_directory" lib) - (setenv "daemon_directory" libexec) - (setenv "meta_directory" etc) - (setenv "sample_directory" etc) - (setenv "manpage_directory" man) - (setenv "readme_directory" doc) - (setenv "html_directory" html) - (setenv "sample_directory" (string-append out "/share/postfix"))))) - (replace 'configure - (lambda _ - (invoke "make" "makefiles" - "pie=yes" - "dynamicmaps=yes"))) - (replace 'install - (lambda* (#:key outputs #:allow-other-keys) - (let ((out (assoc-ref outputs "out"))) - (invoke "make" "non-interactive-package") - (delete-file-recursively "wip-prefix/var") - (copy-recursively "wip-prefix/etc" (string-append out "/etc")) - (copy-recursively (string-append "wip-prefix" out) out))))))) - (inputs - (list bdb - cyrus-sasl - libnsl - openssl - perl)) - (native-inputs - (list m4)) - (home-page "https://www.postfix.org") - (synopsis "sendmail compatible MTA") - (description - "Postfix is Wietse Venema's mail server that started life at IBM research -as an alternative to the widely-used Sendmail program. Now at Google, Wietse -continues to support Postfix. - -Postfix attempts to be fast, easy to administer, and secure. The outside has a -definite Sendmail-ish flavor, but the inside is completely different.") - (license (list license:ibmpl1.0 - license:epl2.0)))) - -(define-public python-xdg - (package - (name "python-xdg") - (version "5.1.1") - (source - (origin - (method url-fetch) - (uri - (pypi-uri "xdg" version)) - (sha256 - (base32 "0v6hmhjqlc6km284lr14kc4h5rl6xva231q1lsr8hq7crhk9yqda")))) - (build-system python-build-system) - (home-page "https://github.com/srstevenson/xdg") - (synopsis "An implementation of the XDG Base Directory Specification in Python") - (description - "xdg is a Python module that provides functions to return paths to the -directories defined by the XDG Base Directory Specification, to save you from -duplicating the same snippet of logic in every Python utility you write that -deals with user cache, configuration, or data files. -It has no external dependencies.") - (license license:isc))) - (define-public remhind (package (name "remhind") @@ -536,13 +540,14 @@ solution like vdirsyncer to sync your CalDAV server with your local filesystem. This package provides a daemon to display notifications of iCalendar events") (license license:gpl3))) + (list - python-docx - python-telegram-bot epson-L365 mailutils-sendmail - tmux-plugin-resurrect - tmux-plugin-continuum postfix + python-docx + python-telegram-bot python-xdg - remhind) + remhind + tmux-plugin-continuum + tmux-plugin-resurrect) |