summaryrefslogtreecommitdiff
path: root/org
diff options
context:
space:
mode:
Diffstat (limited to 'org')
-rwxr-xr-xorg/emacs.org42
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