summaryrefslogtreecommitdiffhomepage
diff options
context:
space:
mode:
-rw-r--r--email.org40
-rw-r--r--eww.org7
-rw-r--r--gnus.org (renamed from attic/gnus.org)0
-rw-r--r--init.org10
4 files changed, 34 insertions, 23 deletions
diff --git a/email.org b/email.org
index 57d5de0..74920d3 100644
--- a/email.org
+++ b/email.org
@@ -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")
diff --git a/eww.org b/eww.org
index cc15fce..7bac07d 100644
--- a/eww.org
+++ b/eww.org
@@ -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
diff --git a/init.org b/init.org
index b8c02cf..7a00fe6 100644
--- a/init.org
+++ b/init.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