Bind shortcut for counsel-esh-history, also prefer text over html

[~bandali/configs] / spacemacs / .emacs.d / private / aminb / packages.el

diff --git a/spacemacs/.emacs.d/private/aminb/packages.el b/spacemacs/.emacs.d/private/aminb/packages.el
index 119726a..b59d7b5 100644 (file)
--- a/spacemacs/.emacs.d/private/aminb/packages.el
+++ b/spacemacs/.emacs.d/private/aminb/packages.el
@@ -17,17 +17,29 @@
 ;;; Code:
 
 (defconst aminb-packages
 ;;; Code:
 
 (defconst aminb-packages

-  '(creamsody-theme
+  '(counsel
+    creamsody-theme

     crux
     ;; mu4e has to be installed manually,
     ;; and make sure it's in load-path
     (mu4e :location site)
     crux
     ;; mu4e has to be installed manually,
     ;; and make sure it's in load-path
     (mu4e :location site)

-    (mu4e-contrib :location site)

     smtpmail
     writeroom-mode
     znc)
   "The list of Lisp packages required by the aminb layer.")
 
     smtpmail
     writeroom-mode
     znc)
   "The list of Lisp packages required by the aminb layer.")
 

+(defun aminb/post-init-counsel ()
+  (use-package counsel
+    :defer t
+    :config
+    (progn
+      (spacemacs/set-leader-keys-for-major-mode 'eshell-mode
+        "," 'counsel-esh-history)
+      (add-hook 'eshell-mode-hook
+                '(lambda () (define-key eshell-mode-map
+                              (kbd "M-l") 'counsel-esh-history)))
+      )))
+

 (defun aminb/init-creamsody-theme ())
 
 (defun aminb/init-crux ()
 (defun aminb/init-creamsody-theme ())
 
 (defun aminb/init-crux ()


@@ -140,13 +152,14 @@ erc-modified-channels-alist. Should be executed on window change."
       )))
 
 (defun aminb/post-init-mu4e ()
       )))
 
 (defun aminb/post-init-mu4e ()

+  (setq maildir "~/mail")

   (use-package mu4e
     :defer t
     :config
     (progn
   (use-package mu4e
     :defer t
     :config
     (progn

-      (setq mu4e-maildir "~/mail"
-            mu4e-get-mail-command "mbsync -a"    ;; or fetchmail, or ...
-            mu4e-update-interval 300             ;; update every 5 minutes
+      (setq mu4e-maildir maildir
+            mu4e-get-mail-command "true"
+            mu4e-update-interval 300

             mu4e-view-show-addresses t
             mu4e-headers-include-related t
             mu4e-enable-notifications t
             mu4e-view-show-addresses t
             mu4e-headers-include-related t
             mu4e-enable-notifications t


@@ -156,18 +169,19 @@ erc-modified-channels-alist. Should be executed on window change."
             (concat
              "Amin Bandali\n"
              "<aminb.org>\n")
             (concat
              "Amin Bandali\n"
              "<aminb.org>\n")

-            ;; don't keep message buffers around
-            message-kill-buffer-on-exit t
+            message-kill-buffer-on-exit t ; don't keep message buffers around

             mu4e-attachment-dir "~/dls"
             mu4e-sent-folder "/amin/Sent"
             mu4e-drafts-folder "/amin/Drafts"
             mu4e-trash-folder "/amin/Trash"
             mu4e-attachment-dir "~/dls"
             mu4e-sent-folder "/amin/Sent"
             mu4e-drafts-folder "/amin/Drafts"
             mu4e-trash-folder "/amin/Trash"

+            user-full-name "Amin Bandali"

             user-mail-address "amin@aminb.org"
             user-mail-address "amin@aminb.org"

+            mu4e-view-html-plaintext-ratio-heuristic most-positive-fixnum

             mu4e-context-policy 'pick-first
             mu4e-contexts
               (list (make-mu4e-context
             mu4e-context-policy 'pick-first
             mu4e-contexts
               (list (make-mu4e-context

-                     :name "amin"
-                     :enter-func (lambda () (mu4e-message "Switch to the amin context"))
+                     :name "Personal"
+                     :enter-func (lambda () (mu4e-message "Switch to the Personal context"))

                      :match-func (lambda (msg)
                                    (when msg
                                      (s-prefix? "/amin/" (mu4e-message-field msg :maildir))))
                      :match-func (lambda (msg)
                                    (when msg
                                      (s-prefix? "/amin/" (mu4e-message-field msg :maildir))))


@@ -181,8 +195,8 @@ erc-modified-channels-alist. Should be executed on window change."
                              (smtpmail-stream-type . starttls)
                              (smtpmail-smtp-service . 587)))
                     (make-mu4e-context
                              (smtpmail-stream-type . starttls)
                              (smtpmail-smtp-service . 587)))
                     (make-mu4e-context

-                     :name "gmail"
-                     :enter-func (lambda () (mu4e-message "Switch to the gmail context"))
+                     :name "BB"
+                     :enter-func (lambda () (mu4e-message "Switch to the BB context"))

                      :match-func (lambda (msg)
                                    (when msg
                                      (s-prefix? "/gmail/" (mu4e-message-field msg :maildir))))
                      :match-func (lambda (msg)
                                    (when msg
                                      (s-prefix? "/gmail/" (mu4e-message-field msg :maildir))))


@@ -191,17 +205,36 @@ erc-modified-channels-alist. Should be executed on window change."
                              (mu4e-drafts-folder . "/gmail/Drafts")
                              (mu4e-trash-folder . "/gmail/Trash")
                              (mu4e-sent-messages-behavior . delete)
                              (mu4e-drafts-folder . "/gmail/Drafts")
                              (mu4e-trash-folder . "/gmail/Trash")
                              (mu4e-sent-messages-behavior . delete)

+                             (mu4e-compose-signature . nil)

                              (smtpmail-default-smtp-server . "smtp.gmail.com")
                              (smtpmail-smtp-server . "smtp.gmail.com")
                              (smtpmail-stream-type . starttls)
                              (smtpmail-default-smtp-server . "smtp.gmail.com")
                              (smtpmail-smtp-server . "smtp.gmail.com")
                              (smtpmail-stream-type . starttls)

-                             (smtpmail-smtp-service . 587)))))
+                             (smtpmail-smtp-service . 587)))
+                     (make-mu4e-context
+                      :name "GNU"
+                      :enter-func (lambda () (mu4e-message "Switch to the GNU context"))
+                      :match-func (lambda (msg)
+                                    (when msg
+                                      (s-prefix? "/gnu/" (mu4e-message-field msg :maildir))))
+                      :vars '((user-mail-address . "aminb@gnu.org")
+                              (mu4e-sent-folder . "/gnu/Sent")
+                              (mu4e-drafts-folder . "/gnu/Drafts")
+                              (mu4e-trash-folder . "/gnu/Trash")
+                              (mu4e-sent-messages-behavior . sent)
+                              (smtpmail-default-smtp-server . "fencepost.gnu.org")
+                              (smtpmail-smtp-server . "fencepost.gnu.org")
+                              (smtpmail-stream-type . starttls)
+                              (smtpmail-smtp-service . 587)))))

       (with-eval-after-load 'mu4e-alert
         ;; Enable Desktop notifications
         (mu4e-alert-set-default-style 'notifications))))
 
   (use-package gnus-dired
     ;; A special version of the gnus-dired-mail-buffers function
       (with-eval-after-load 'mu4e-alert
         ;; Enable Desktop notifications
         (mu4e-alert-set-default-style 'notifications))))
 
   (use-package gnus-dired
     ;; A special version of the gnus-dired-mail-buffers function

-    ;; that understands mu4e buffers as well
+    ;; that understands mu4e buffers as well.
+    ;; Usage: mark the file(s) in dired and press C-c RET C-a,
+    ;; then will be asked whether to attach them to an existing
+    ;; message, or create a new one.

     :defer t
     :config
     (progn
     :defer t
     :config
     (progn


@@ -221,18 +254,16 @@ erc-modified-channels-alist. Should be executed on window change."
       (add-hook 'dired-mode-hook 'turn-on-gnus-dired-mode))
     )
 
       (add-hook 'dired-mode-hook 'turn-on-gnus-dired-mode))
     )
 

+  ;; Exclude the files in maildir from recents
+  (use-package recentf
+    :defer t
+    :config
+    (add-to-list 'recentf-exclude (expand-file-name maildir)))
+

   (spacemacs/set-leader-keys
     "am" 'mu4e)
   )
 
   (spacemacs/set-leader-keys
     "am" 'mu4e)
   )
 

-(defun aminb/init-mu4e-contrib ()
-  (use-package mu4e-contrib
-    :defer t
-    :config
-    (setq mu4e-html2text-command 'mu4e-shr2text
-          mu4e-view-html-plaintext-ratio-heuristic 10
-          mu4e-view-prefer-html t)))
-

 (defun aminb/init-smtpmail ()
   (use-package smtpmail
     :defer t
 (defun aminb/init-smtpmail ()
   (use-package smtpmail
     :defer t


@@ -241,6 +272,7 @@ erc-modified-channels-alist. Should be executed on window change."
           smtpmail-local-domain "aminb.org"
           smtpmail-smtp-server "nix.aminb.org"
           smtpmail-stream-type 'starttls
           smtpmail-local-domain "aminb.org"
           smtpmail-smtp-server "nix.aminb.org"
           smtpmail-stream-type 'starttls

-          smtpmail-smtp-service 587)))
+          smtpmail-smtp-service 587
+          send-mail-function 'smtpmail-send-it)))

 
 ;;; packages.el ends here
 
 ;;; packages.el ends here