aboutsummaryrefslogtreecommitdiff
path: root/gnu/packages/mail.scm
diff options
context:
space:
mode:
Diffstat (limited to 'gnu/packages/mail.scm')
-rw-r--r--gnu/packages/mail.scm73
1 files changed, 73 insertions, 0 deletions
diff --git a/gnu/packages/mail.scm b/gnu/packages/mail.scm
index 646902b4db..65d8060862 100644
--- a/gnu/packages/mail.scm
+++ b/gnu/packages/mail.scm
@@ -49,6 +49,7 @@
;;; Copyright © 2022 Thiago Jung Bauermann <bauermann@kolabnow.com>
;;; Copyright © 2022 Guillaume Le Vaillant <glv@posteo.net>
;;; Copyright © 2022 muradm <mail@muradm.net>
+;;; Copyright © 2022 jgart <jgart@dismail.de>
;;;
;;; This file is part of GNU Guix.
;;;
@@ -125,6 +126,7 @@
#:use-module (gnu packages lua)
#:use-module (gnu packages m4)
#:use-module (gnu packages man)
+ #:use-module (gnu packages mercury)
#:use-module (gnu packages ncurses)
#:use-module (gnu packages nettle)
#:use-module (gnu packages networking)
@@ -1507,6 +1509,77 @@ and search library.")
(synopsis "Pythonic bindings for the notmuch mail database using CFFI")
(license license:gpl3+)))
+(define-public bower
+ (package
+ (name "bower")
+ (version "1.0")
+ (home-page "https://github.com/wangp/bower")
+ (source
+ (origin
+ (method git-fetch)
+ (uri (git-reference
+ (url home-page)
+ (commit version)))
+ (file-name (git-file-name name version))
+ (sha256
+ (base32 "0vcsbxlsvr2wv3c7sfr3yj21kbqy259skpxg00vf5bdkbc8qknq4"))))
+ (build-system gnu-build-system)
+ (arguments
+ (list
+ #:make-flags #~(list "bower" "man"
+ (string-append "CC=" #+(cc-for-target))
+ (string-append "prefix=" #$output))
+ #:parallel-tests? #f ;parallelism breaks test suite
+ #:phases
+ #~(modify-phases %standard-phases
+ (delete 'configure)
+ (add-after 'unpack 'patch-executables
+ (lambda* (#:key inputs #:allow-other-keys)
+ (substitute* "src/detect_mime_type.m"
+ (("\"file\"")
+ (format #f "~s" (search-input-file inputs "bin/file"))))
+ (substitute* "src/compose.m"
+ (("\"base64\"")
+ (format #f "~s" (search-input-file inputs "bin/base64"))))
+ (substitute* "src/prog_config.m"
+ (("shell_quoted\\(\"false\")")
+ (format #f "shell_quoted(~s)"
+ (search-input-file inputs "bin/false")))
+ (("shell_quoted\\(\"notmuch\")")
+ (format #f "shell_quoted(~s)"
+ (search-input-file inputs "bin/notmuch")))
+ (("/usr/bin/sendmail")
+ (search-input-file inputs "/sbin/sendmail")))))
+ (replace 'check
+ (lambda* (#:key parallel-tests? tests? #:allow-other-keys)
+ (when tests?
+ (invoke "make" "-C" "tests"
+ "-j" (if parallel-tests?
+ (number->string (parallel-job-count))
+ "1")))))
+ (replace 'install
+ (lambda* _
+ (install-file "bower" (string-append #$output "/bin"))
+ (install-file "bower.1" (string-append #$output
+ "/share/man/man1")))))))
+ (native-inputs
+ (list diffutils
+ gawk
+ mercury
+ pandoc
+ util-linux))
+ (inputs
+ (list coreutils
+ gpgme
+ ncurses
+ notmuch
+ sendmail))
+ (synopsis "Terminal client for the Notmuch email system")
+ (description "@code{bower} is a curses front-end for the Notmuch email
+system, written in the Mercury language.")
+ (license license:gpl3+)
+ (properties `((cpe-name . "bower-cpe-refers-to-a-different-bower")))))
+
(define-public muchsync
(package
(name "muchsync")