emacs: Update mu4e actions and set backup dir

1 files changed, 23 insertions, 11 deletions

diff --git a/.emacs.d/init.el b/.emacs.d/init.el
index c092880..472b35e 100644
--- a/.emacs.d/init.el
+++ b/.emacs.d/init.el
@@ -4,6 +4,8 @@
 (setq browse-url-browser-function 'browse-url-generic
       browse-url-generic-program "mullvad-browser")
 
+(setq backup-directory-alist '((".*" . "~/.Trash")))
+
 (defconst my-package-list '(org-snooze
 			    all-the-icons
 			    all-the-icons-dired
@@ -741,6 +743,16 @@ Contains the list of packages that need to be installed.")
   (setq message-send-mail-function 'smtpmail-send-it
 	smtpmail-stream-type 'ssl))
 
+(setq mu4e-view-actions
+      (delete-dups
+       (append
+	'(("gapply git patches" . mu4e-action-git-apply-patch)
+	  ("mgit am patch" . mu4e-action-git-apply-mbox)
+	  ("bb4 am patch" . mu4e-action-git-apply-b4)
+	  ("ssetup reword list with b4" . mu4e-action-setup-reword-b4)
+	  ("crun checkpatch script" . my-mu4e-action-run-check-patch)
+	  ("MCheck if merged" . my-mu4e-action-check-if-merged)))))
+
 ;;;; sudo completion
 (defun pcomplete/sudo ()
   "Completion rules for the `sudo' command."
@@ -795,19 +807,9 @@ Contains the list of packages that need to be installed.")
   :type '(repeat (string :tag "hut command"))
   :group 'pcomplete)
 
-(defvar pcomplete-hut-user-commands
-  (split-string
-   (shell-command-to-string
-    "hut |while read -r a b; do echo \" $a\";done;"))
-  "p-completion candidates for `hut' command")
-
-(defun apollo/hut ()
-  "Replace."
-  (replace-match "Usage:" "Someasdf"))
-
 (defun pcomplete/hut ()
   "Completion rules for `hut' command"
-  (pcomplete-here (append pcomplete-hut-user-commands)))
+  (pcomplete-here (append pcomplete-hut-commands)))
 
 (defun apollo/html-boostrap-boilerplate ()
   "Insert html boilerplate with boostrap link."
@@ -921,6 +923,16 @@ Contains the list of packages that need to be installed.")
   (switch-to-buffer (get-buffer-create "*scratch*"))
   (emacs-lisp-mode))
 
+(defun get-mail-pass ()
+  (interactive)
+  ;; Get fastmail API Key
+  (insert
+   (password-store-get-field "fastmail.com/thanosapollo.com" "API")))
+
+(global-set-key (kbd "C-c p m") 'get-mail-pass)
+
+;;
+
 (define-key dired-mode-map "b" 'dired-up-directory)
 
 (global-set-key (kbd "<escape>") 'keyboard-escape-quit)