emacs: Update mu4e actions and set backup dir

1 files changed, 28 insertions, 14 deletions

diff --git a/org/emacs.org b/org/emacs.org
index d6020dc..937ad94 100755
--- a/org/emacs.org
+++ b/org/emacs.org
@@ -13,6 +13,10 @@ Setup default browser as ~mullvad-browser~
   (setq browse-url-browser-function 'browse-url-generic
 	browse-url-generic-program "mullvad-browser")
 #+end_src
+Set backup fails at ~~/Trash~
+#+begin_src emacs-lisp
+  (setq backup-directory-alist '((".*" . "~/.Trash")))
+#+end_src
 * Setting up Packages
 ** Define and install packages
 ** List of required packages
@@ -777,7 +781,7 @@ Hook with ~dired-mode~
 (add-to-list 'auto-mode-alist '("\\.pdf\\'" . pdf-view-mode))
 #+end_src
 * mu4e 
-
+** Setting up mail
 #+begin_src emacs-lisp
   ;; Check if we have mu4e available
   ;; if t load mu4e settings
@@ -835,10 +839,20 @@ Hook with ~dired-mode~
 
     (setq message-send-mail-function 'smtpmail-send-it
 	  smtpmail-stream-type 'ssl))
-
-
 #+end_src
 
+** Actions
+#+begin_src emacs-lisp
+  (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)))))
+#+end_src
 * Eshell
 #+begin_src emacs-lisp
   ;;;; sudo completion
@@ -895,19 +909,9 @@ Hook with ~dired-mode~
     :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)))
 #+end_src
 * Misc
 ** Random functions
@@ -1023,6 +1027,16 @@ Hook with ~dired-mode~
     (interactive)
     (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)
+
+  ;;
 #+end_src
 ** Keybindings
 #+begin_src emacs-lisp