chore(tools/emacs): Remove unused #'notmuch-depot-apply-patch r/893

1 files changed, 1 insertions, 22 deletions

diff --git a/tools/emacs/config/functions.el b/tools/emacs/config/functions.el
index 24d998ed9e..cc94cc287b 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."