diff options
Diffstat (limited to '.emacs.d/init.el')
| -rw-r--r-- | .emacs.d/init.el | 34 |
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) |