:ensure t
:diminish flyspell-mode 🐝
:config
- (add-hook 'message-mode-hook 'turn-on-flyspell)
(add-hook 'text-mode-hook 'turn-on-flyspell)
(add-hook 'c-mode-common-hook 'flyspell-prog-mode)
(add-hook 'cperl-mode-hook 'flyspell-prog-mode)
:mode "muttng-[a-z0-9]+-[0-9]+-"
:mode "mutt-[a-z0-9]+-[0-9]+-"
- :hook 'my-message-mode-settings
+ :hook 'my/message-mode-settings
+ :hook 'turn-on-flyspell
+ :bind (:map message-mode-map
+ ("C-c C-a" . my/post-attach-file))
:config
- (defun my-message-mode-settings ()
+ (defun my/message-mode-settings ()
(font-lock-add-keywords nil
'(("^[ \t]*>[ \t]*>[ \t]*>.*$"
(0 'message-multiply-quoted-text-face))
("^[ \t]*>[ \t]*>.*$"
(0 'message-double-quoted-text-face))))
- (local-set-key (kbd "C-c C-a") 'my-post-attach-file)
)
- (defun my-post-attach-file ()
+ (defun my/post-attach-file ()
"Prompt for an attachment."
(interactive)
(let ((file (read-file-name "Attach file: " nil nil t nil))
(description (string-read "Description: ")))
- (my-header-attach-file file description)))
+ (my/header-attach-file file description)))
- (symbol-function 'my-post-attach-file)
-
- (defun my-header-attach-file (file description)
+ (defun my/header-attach-file (file description)
"Attach a FILE to the current message (works with Mutt).
Argument DESCRIPTION MIME description."
(interactive "fAttach file: \nsDescription: ")
(message (concat "Attached '" file "'."))
(setq post-has-attachment t))))))
-
-
(setq mail-yank-prefix "> ")
)
#+END_SRC
#+END_SRC
** Agenda Configuration
#+BEGIN_SRC emacs-lisp
- ;; The following lines are always needed. Choose your own keys.
- (add-to-list 'auto-mode-alist '("\\.\\(org\\|org_archive\\|txt\\)$" . org-mode))
- (global-set-key "\C-cl" 'org-store-link)
- (global-set-key "\C-ca" 'org-agenda)
- (global-set-key "\C-cb" 'org-iswitchb)
+ :mode "\\.\\(org\\|org_archive\\|txt\\)$"
+ :bind (("C-c l" . org-store-link)
+ ("C-c a" . org-agenda)
+ ("C-c b" . org-iswitchb)
+ :config
(setq-default org-log-done 'time)
(setq-default org-agenda-ndays 5)
"~/projects/org-notes/wildman.org"
"~/projects/org-notes/uddin.org"
"~/projects/org-notes/reviews.org"
- "~/projects/org-notes/hpcbio.org"
"~/org-mode/from-mobile.org"
"~/projects/org-notes/fh.org")))