tec/emacs-config
tec/emacs-config
1
0
Fork 0
Code Issues 4 Pull requests Releases Activity

Org ml patch finder: only show shell log when err

Browse source
This commit is contained in:
TEC 2021-01-03 19:20:48 +08:00
parent 6a217db896
commit 071367be04
Signed by: tec
GPG key ID: 779591AFDB81F06C
1 changed files with 10 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

16
config.org
View file

@ -3843,14 +3843,18 @@ Entries of the form (subject . id)."
(setq mu4e-view-actions
(delete (cons "apply patch to org" #'org-ml-transient-mu4e-action)
mu4e-view-actions))
(let ((default-directory org-ml-target-dir))
(shell-command
(format "git apply %s"
(shell-quote-argument (mu4e-message-field msg :path)))))
(+workspace/other)
(magit-status org-ml-target-dir)
(with-current-buffer (get-buffer "*Shell Command Output*")
(+popup/buffer)))
(with-current-buffer (get-buffer-create "*Shell: Org apply patches*")
(erase-buffer)
(let ((default-directory org-ml-target-dir))
(shell-command
(format "git am %s"
(shell-quote-argument (mu4e-message-field msg :path)))
(current-buffer))
(magit-refresh))
(when (string-match-p "Error\\|failed" (buffer-string))
(+popup/buffer))))
#+end_src
*** Behaviour
[[xkcd:1319]]