diff options
| author |  Tom Willemse | 2023-09-29 14:35:02 -0700 |
|---|---|---|
| committer | Tom Willemse | 2023-09-29 14:35:02 -0700 |
| commit | fac6e98dbf977ffaf716566e8b6d6f862bfb64ec (patch) | |
| tree | 28500ce1c04832f2b4ce155a9a72eb265c08ffc0 /oni/packages | |
| parent | 314ef89dc0d3f76291acbd55829a687cb5f17063 (diff) | |
| download | new-dotfiles-fac6e98dbf977ffaf716566e8b6d6f862bfb64ec.tar.gz new-dotfiles-fac6e98dbf977ffaf716566e8b6d6f862bfb64ec.zip | |
Add custom emacs-notmuch package
This fixes a bug that exists in the package that the Notmuch logo doesn't show
up in notmuch-hello. I'll try and make a couple of other changes before opening
a pull request back to Guix to fix it.
Diffstat (limited to 'oni/packages')
| -rw-r--r-- | oni/packages/emacs.scm | 34 |
1 files changed, 33 insertions, 1 deletions
diff --git a/oni/packages/emacs.scm b/oni/packages/emacs.scm index 526f96c..d6d9128 100644 --- a/oni/packages/emacs.scm +++ b/oni/packages/emacs.scm @@ -2,10 +2,14 @@ #:use-module (guix packages) #:use-module (guix utils) #:use-module (guix download) + #:use-module ((guix gexp) + #:select (gexp)) #:use-module (guix git-download) #:use-module (guix build-system emacs) #:use-module ((guix licenses) #:prefix license:) - #:use-module (gnu packages emacs-xyz)) + #:use-module (gnu packages emacs-xyz) + #:use-module ((gnu packages mail) + #:select (notmuch))) (define-public emacs-inkplate (let ((commit "0897721a7b3d84aa3f200ae85fddd5fdd370fc42") @@ -412,3 +416,31 @@ new-theme for a while. I couldn't think of a name so I named it after him.") (synopsis "Completion-At-Point Extension for YASnippet") (description "A simple capf (Completion-At-Point Function) for completing yasnippet snippets.") (license license:gpl3)))) + +(define-public oni-emacs-notmuch + (package + (inherit notmuch) + (name "oni-emacs-notmuch") + (build-system emacs-build-system) + (native-inputs '()) + (inputs + (list notmuch)) + (arguments + (list + #:exclude #~(cons* "make-deps.el" "rstdoc.el" %default-exclude) + #:include #~(cons* "notmuch-logo.svg" "notmuch-emacs-mua" %default-include) + #:phases + #~(modify-phases %standard-phases + (add-after 'unpack 'chdir + (lambda _ + (chdir "emacs"))) + (add-after 'chdir 'patch-paths + (lambda* (#:key inputs #:allow-other-keys) + (let ((notmuch (search-input-file inputs "/bin/notmuch"))) + (substitute* "notmuch-lib.el" + (("\"notmuch\"") + (string-append "\"" notmuch "\""))))))))) + (synopsis "Run Notmuch within Emacs") + (description + "This package provides an Emacs-based interface to the Notmuch mail +system."))) |