From 820f591cbbf911f881d5735358cd448df3eef0a7 Mon Sep 17 00:00:00 2001 From: Vincent Ambo Date: Thu, 11 Jun 2020 18:32:38 +0100 Subject: chore(tools/emacs): Remove unused #'notmuch-depot-apply-patch --- tools/emacs/config/functions.el | 23 +---------------------- 1 file changed, 1 insertion(+), 22 deletions(-) (limited to 'tools/emacs') diff --git a/tools/emacs/config/functions.el b/tools/emacs/config/functions.el index 24d998ed9e37..cc94cc287b62 100644 --- a/tools/emacs/config/functions.el +++ b/tools/emacs/config/functions.el @@ -43,7 +43,7 @@ ;; Open my monorepo in magit (defun depot-status () (interactive) - (magit-status "~/depot")) + (magit-status "/depot")) ;; Get the nix store path for a given derivation. ;; If the derivation has not been built before, this will trigger a build. @@ -242,27 +242,6 @@ (if prefix (text-scale-adjust 0) (set-face-attribute 'default nil :height (or to 120)))) -(defun notmuch-depot-apply-patch () - "Apply the currently opened notmuch message as a patch on the - depot." - - (interactive) - ;; The implementation works by letting notmuch render a raw message - ;; and capturing it by overriding the `view-buffer' function it - ;; calls after rendering. - ;; - ;; The buffer is then passed to `git-am'. - (cl-letf (((symbol-function 'view-buffer) - (lambda (buffer &optional exit-action) buffer))) - (if-let ((raw-buffer (notmuch-show-view-raw-message))) - (progn - (with-current-buffer raw-buffer - (call-shell-region (point-min) (point-max) "git am -C ~/depot") - (message "Patch applied!") - (kill-buffer)) - (magit-status "~/depot")) - (warn "notmuch failed to render the raw message buffer")))) - (defun scrot-select () "Take a screenshot based on a mouse-selection and save it to ~/screenshots." -- cgit 1.4.1