mu4e stuff, regexp builder default mode

This commit is contained in:
Ivan Malison 2014-12-11 15:30:18 -08:00
parent 3f620cbd2f
commit 47b96edb91

70
init.el
View File

@ -339,6 +339,9 @@ The current directory is assumed to be the project's root otherwise."
(eval-after-load 'subword '(diminish 'subword-mode)) (eval-after-load 'subword '(diminish 'subword-mode))
(display-time-mode 1) (display-time-mode 1)
(setq reb-re-syntax 'string)
(setq ediff-split-window-function 'split-window-horizontally)
;; ============================================================================= ;; =============================================================================
;; use-package ;; use-package
@ -733,6 +736,16 @@ The current directory is assumed to be the project's root otherwise."
:commands mu4e :commands mu4e
:config :config
(progn (progn
;; enable inline images
(setq mu4e-view-show-images t)
;; show images
(setq mu4e-show-images t)
;; use imagemagick, if available
(when (fboundp 'imagemagick-register-types)
(imagemagick-register-types))
(setq sauron-dbus-cookie t)
(setq mail-user-agent 'mu4e-user-agent)
(require 'org-mu4e) (require 'org-mu4e)
(setq mu4e-compose-complete-only-after nil) (setq mu4e-compose-complete-only-after nil)
(setq mu4e-maildir "~/Mail") (setq mu4e-maildir "~/Mail")
@ -740,22 +753,17 @@ The current directory is assumed to be the project's root otherwise."
(setq mu4e-drafts-folder "/[Gmail].Drafts") (setq mu4e-drafts-folder "/[Gmail].Drafts")
(setq mu4e-sent-folder "/[Gmail].Sent Mail") (setq mu4e-sent-folder "/[Gmail].Sent Mail")
(setq mu4e-trash-folder "/[Gmail].Trash") (setq mu4e-trash-folder "/[Gmail].Trash")
(setq mu4e-update-interval (* 60 20))
(setq message-kill-buffer-on-exit t)
;; don't save message to Sent Messages, Gmail/IMAP takes care of this ;; don't save message to Sent Messages, Gmail/IMAP takes care of this
(setq mu4e-sent-messages-behavior 'delete) (setq mu4e-sent-messages-behavior 'delete)
;; setup some handy shortcuts
;; you can quickly switch to your Inbox -- press ``ji''
;; then, when you want archive some messages, move them to
;; the 'All Mail' folder by pressing ``
;; allow for updating mail using 'U' in the main view: ;; allow for updating mail using 'U' in the main view:
(setq mu4e-get-mail-command "offlineimap") (setq mu4e-get-mail-command "offlineimap")
;; show images
(setq mu4e-show-images t)
(add-hook 'mu4e-compose-mode-hook (add-hook 'mu4e-compose-mode-hook
(defun my-do-compose-stuff () (flyspell-mode))) (defun my-do-compose-stuff () (flyspell-mode)))
(setq mu4e-update-interval (* 60 20))
;; ;; something about ourselves ;; ;; something about ourselves
;; (setq ;; (setq
@ -764,30 +772,14 @@ The current directory is assumed to be the project's root otherwise."
;; "Foo X. Bar\n" ;; "Foo X. Bar\n"
;; "http://www.example.com\n")) ;; "http://www.example.com\n"))
;; sending mail -- replace USERNAME with your gmail username
;; also, make sure the gnutls command line utils are installed
;; package 'gnutls-bin' in Debian/Ubuntu
(require 'smtpmail) (require 'smtpmail)
;; (setq message-send-mail-function 'smtpmail-send-it
;; starttls-use-gnutls t
;; smtpmail-starttls-credentials '(("smtp.gmail.com" 587 nil nil))
;; smtpmail-auth-credentials
;; '(("smtp.gmail.com" 587 "USERNAME@gmail.com" nil))
;; smtpmail-default-smtp-server "smtp.gmail.com"
;; smtpmail-smtp-server "smtp.gmail.com"
;; smtpmail-smtp-service 587)
;; alternatively, for emacs-24 you can use: ;; alternatively, for emacs-24 you can use:
(setq message-send-mail-function 'smtpmail-send-it (setq message-send-mail-function 'smtpmail-send-it
smtpmail-stream-type 'starttls smtpmail-stream-type 'starttls
smtpmail-default-smtp-server "smtp.gmail.com" smtpmail-default-smtp-server "smtp.gmail.com"
smtpmail-smtp-server "smtp.gmail.com" smtpmail-smtp-server "smtp.gmail.com"
smtpmail-smtp-service 587) smtpmail-smtp-service 587)))
;; don't keep message buffers around
(setq message-kill-buffer-on-exit t)))
(use-package sauron (use-package sauron
:ensure t :ensure t
@ -801,13 +793,16 @@ The current directory is assumed to be the project's root otherwise."
(funcall notify-function "gtalk" message)) (funcall notify-function "gtalk" message))
(defun sauron:erc-notify (origin priority message &optional properties) (defun sauron:erc-notify (origin priority message &optional properties)
(let ((event (plist-get properties :event))) (let ((event (plist-get properties :event)))
(funcall notify-function "IRC" message))) (funcall notify-function "IRC" message)))
(defun sauron:mu4e-notify (origin priority message &optional properties) (defun sauron:mu4e-notify (origin priority message &optional properties)
nil) nil)
(defun sauron:dbus-notify (origin priority message &optional properties)
(funcall notify-function "GMail" message))
(defun sauron:dispatch-notify (origin priority message &optional properties) (defun sauron:dispatch-notify (origin priority message &optional properties)
(let ((handler (cond ((string= origin "erc") 'sauron:erc-notify) (let ((handler (cond ((string= origin "erc") 'sauron:erc-notify)
((string= origin "jabber") 'sauron:jabber-notify) ((string= origin "jabber") 'sauron:jabber-notify)
((string= origin "mu4e") 'sauron:mu4e-notify) ((string= origin "mu4e") 'sauron:mu4e-notify)
((string= origin "dbus") 'sauron:dbus-notify)
(t (lambda (&rest r) nil))))) (t (lambda (&rest r) nil)))))
(funcall handler origin priority message properties))) (funcall handler origin priority message properties)))
(add-hook 'sauron-event-added-functions 'sauron:dispatch-notify)) (add-hook 'sauron-event-added-functions 'sauron:dispatch-notify))
@ -879,7 +874,7 @@ The current directory is assumed to be the project's root otherwise."
(progn (progn
(require 'helm) (require 'helm)
(helm-mode 1) (helm-mode 1)
(use-package helm-ag :ensure t :defer t)) (use-package helm-ag :ensure t))
:config :config
(progn (progn
;; helm zsh source history ;; helm zsh source history
@ -917,7 +912,7 @@ The current directory is assumed to be the project's root otherwise."
(use-package helm-descbinds (use-package helm-descbinds
:demand t :demand t
:bind (("C-h 0" . helm-descbinds)) :config (helm-descbinds-mode 1)
:ensure t) :ensure t)
(helm-mode 1) (helm-mode 1)
(diminish 'helm-mode))) (diminish 'helm-mode)))
@ -926,15 +921,22 @@ The current directory is assumed to be the project's root otherwise."
(use-package perspective (use-package perspective
:ensure t :ensure t
:config (persp-mode)) ;; :config (persp-mode) ;; This was causing problems where buffers
;; weren't showing up in the buffers list
)
(use-package projectile (use-package projectile
:ensure t :ensure t
:commands projectile-global-mode :demand t
:idle (projectile-global-mode)
:idle-priority 1
:config :config
(progn (progn
(defun do-ag (&optional arg)
(interactive "P")
(if arg (helm-do-ag) (helm-projectile-ag)))
(unbind-key "C-c p s a" projectile-command-map)
(unbind-key "C-c p s g" projectile-command-map)
(unbind-key "C-c p s s" projectile-command-map)
(unbind-key "C-c p s" projectile-command-map)
(projectile-global-mode) (projectile-global-mode)
(setq projectile-enable-caching t) (setq projectile-enable-caching t)
(setq projectile-completion-system 'helm) (setq projectile-completion-system 'helm)
@ -1376,7 +1378,6 @@ The current directory is assumed to be the project's root otherwise."
(set-fringe-mode 0) (set-fringe-mode 0)
(setq linum-format 'dynamic) (setq linum-format 'dynamic)
(setq left-margin-width 0) (setq left-margin-width 0)
(set-my-font-for-frame nil)
(setq hl-line-mode nil)) (setq hl-line-mode nil))
(if (emacs24_4-p) (if (emacs24_4-p)
@ -1384,10 +1385,9 @@ The current directory is assumed to be the project's root otherwise."
(defadvice load-theme (after name activate) (defadvice load-theme (after name activate)
(remove-fringe-and-hl-line-mode))) (remove-fringe-and-hl-line-mode)))
;; enable to set theme based on time of day. ;; enable to set theme based on time of day.
(run-at-time "00:00" 3600 'set-theme) (run-at-time "00:00" 3600 'set-theme)
;; This is needed because you can't set the font at daemon start-up. ;; ;; This is needed because you can't set the font at daemon start-up.
(add-hook 'after-make-frame-functions 'set-my-font-for-frame) (add-hook 'after-make-frame-functions 'set-my-font-for-frame)
(add-hook 'after-make-frame-functions (lambda (frame) (set-theme))) (add-hook 'after-make-frame-functions (lambda (frame) (set-theme)))