diff options
| -rw-r--r-- | email.org | 40 | ||||
| -rw-r--r-- | eww.org | 7 | ||||
| -rw-r--r-- | gnus.org (renamed from attic/gnus.org) | 0 | ||||
| -rw-r--r-- | init.org | 10 |
4 files changed, 34 insertions, 23 deletions
@@ -248,11 +248,22 @@ (bbdb-initialize 'message 'pgp 'mail) #+end_src * gnus - #+begin_src emacs-lisp - (setq gnus-init-file "~/.emacs.d/gnus.el" - gnus-home-directory "~/.emacs.d/gnus" - gnus-directory gnus-home-directory) - #+end_src +*** Directories + #+begin_src emacs-lisp + (setq gnus-init-file "~/.emacs.d/gnus.el" + gnus-home-directory "~/.emacs.d/gnus" + gnus-directory gnus-home-directory) + #+end_src +*** Notifications + #+begin_src emacs-lisp + (defun jao-gnus-notify () + (interactive) + (when (fboundp 'jao-gnus--notify) + (unless (derived-mode-p 'gnus-summary-mode + 'gnus-article-mode + 'gnus-group-mode) + (gnus-demon-scan-news)))) + #+end_src * notmuch *** local path #+begin_src emacs-lisp @@ -402,7 +413,8 @@ " ")) (jao-minibuffer-refresh))) - (jao-minibuffer-add-variable 'jao-notmuch-minibuffer-string -20) + (when (eq jao-afio-mail-function 'notmuch) + (jao-minibuffer-add-variable 'jao-notmuch-minibuffer-string -20)) #+end_src *** searches @@ -619,18 +631,18 @@ :init (setq notmuch-fcc-dirs '((".*@bigml.com" . "bigml/sent +bigml +sent -new") (".*" . "jao/sent +jao +sent -new")) - notmuch-maildir-use-notmuch-insert t) - :config (setq message-directory "~/var/mail/" - message-auto-save-directory - (expand-file-name "drafts" message-directory)) - :bind (:map message-mode-map - (("C-c C-d" . notmuch-draft-postpone)))) - + notmuch-maildir-use-notmuch-insert t)) + + (when (eq jao-afio-mail-function 'notmuch) + (setq message-directory "~/var/mail/" + message-auto-save-directory nil) + (eval-after-load "notmuch-message" + '(define-key message-mode-map (kbd "C-c C-d") + #'notmuch-draft-postpone))) #+end_src *** main #+begin_src emacs-lisp (use-package notmuch - :demand t :init (setq notmuch-crypto-process-mime t notmuch-show-mark-read-tags '("-new" "-unread") @@ -25,10 +25,10 @@ (defun jao-eww-html-renderer (handle) (let ((shr-use-colors nil) (shr-use-fonts nil) - (mm-html-blocked-images nil) + ;; (mm-html-blocked-images nil) (fill-column (min (window-width) 110))) (mm-shr handle))) - ;; (setq mm-text-html-renderer 'jao-eww-html-renderer) + (setq mm-text-html-renderer 'jao-eww-html-renderer) #+end_src * Buffer names #+begin_src emacs-lisp @@ -71,14 +71,12 @@ #+end_src * Images - #+begin_src emacs-lisp (defun jao-eww-next-image () (interactive nil eww-mode) (when-let (p (text-property-search-forward 'image-displayer nil nil t)) (goto-char (prop-match-beginning p)))) #+end_src - * Close page and reopen #+begin_src emacs-lisp @@ -191,6 +189,7 @@ (shr-use-fonts nil) (shr-max-width 130) (shr-blocked-images ".*") + (shr-inhibit-images t) (shr-max-image-proportion 0.9)) :config diff --git a/attic/gnus.org b/gnus.org index 5631aec..5631aec 100644 --- a/attic/gnus.org +++ b/gnus.org @@ -106,7 +106,7 @@ *** Custom location of custom.el and co. #+begin_src emacs-lisp (setq custom-file (jao-site-el "custom")) - (load custom-file) + ;; (load custom-file) (setq custom-unlispify-tag-names nil) (setq custom-buffer-done-kill t) (setq custom-raised-buttons nil) @@ -165,7 +165,7 @@ #+begin_src emacs-lisp (use-package jao-minibuffer :commands (jao-minibuffer-add-variable jao-minibuffer-refresh)) - (setq enable-recursive-minibuffers t) + ;; (setq enable-recursive-minibuffers t) #+end_src *** Sleep/awake #+begin_src emacs-lisp @@ -1597,7 +1597,7 @@ #+end_src * Email #+begin_src emacs-lisp - (setq jao-afio-mail-function 'notmuch ;; 'gnus 'mu4e + (setq jao-afio-mail-function 'gnus ;; 'notmuch 'gnus 'mu4e jao-afio-notmuch-in-web nil) (jao-load-org "email") #+end_src @@ -2047,7 +2047,7 @@ (add-hook 'magit-status-sections-hook #'forge-insert-issues t)) #+end_src *** Other git packages - #+BEGIN_SRC emacs-lisp + #+begin_src emacs-lisp (use-package git-messenger :ensure t :bind (("C-x v p" . git-messenger:popup-message))) @@ -2085,7 +2085,7 @@ "Quit" (("Q" bury-buffer "Bury buffer") ("k" kill-buffer "Kill buffer"))))) - #+END_SRC + #+end_src *** Jenkins [[https://github.com/rmuslimov/jenkins.el][GitHub - rmuslimov/jenkins.el: Jenkins plugin for emacs]] #+BEGIN_SRC emacs-lisp |