mdebray/tvl-depot
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source
This commit is contained in:
Vincent Ambo 2020-06-11 18:32:38 +01:00
parent 9ed7f13ab9
commit 820f591cbb
1 changed files with 1 additions and 22 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

23
tools/emacs/config/functions.el
View file

@ -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."