alx/mu4e
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Merge pull request #308 from stsquad/more-git-fixes

Browse Source 
* add mu4e-action-git-apply-mbox, and improve last-dir handling
This commit is contained in:
Dirk-Jan C. Binnema
2013-11-16 06:22:46 -08:00
parent 162619f6c9 c03c14d52d
commit 2fb87ed007
1 changed files with 15 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
mu4e/mu4e-actions.el
View File

@ -174,11 +174,25 @@ store your org-contacts."
(let ((path (ido-read-directory-name "Target directory: " (let ((path (ido-read-directory-name "Target directory: "
(car ido-work-directory-list) (car ido-work-directory-list)
"~/" t))) "~/" t)))
(add-to-list 'ido-work-directory-list path) (setf ido-work-directory-list
(cons path (delete path ido-work-directory-list)))
(shell-command (shell-command
(format "cd %s; git apply %s" (format "cd %s; git apply %s"
path path
(mu4e-message-field msg :path))))) (mu4e-message-field msg :path)))))
(defun mu4e-action-git-apply-mbox (msg)
"Apply and commit the git [patch] message."
(let ((path (ido-read-directory-name "Target directory: "
(car ido-work-directory-list)
"~/" t)))
(setf ido-work-directory-list
(cons path (delete path ido-work-directory-list)))
(shell-command
(format "cd %s; git am %s"
path
(mu4e-message-field msg :path)))))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;