nits

6 files changed, 14 insertions, 12 deletions

diff --git a/email.org b/email.org
index 4048b09..9674df8 100644
--- a/email.org
+++ b/email.org
@@ -105,7 +105,8 @@
             password-cache-expiry (* 3600 24))
 
       (setq smime-CA-directory "/etc/ssl/certs/"
-            smime-certificate-directory"/home/jao/.emacs.d/gnus/Mail/certs/")
+            smime-certificate-directory
+            (expand-file-name "certs/" gnus-directory))
 
       (with-eval-after-load "mm-decode"
         ;; Tells Gnus to inline the part
diff --git a/gnus.org b/gnus.org
index c4afb8e..1cf1690 100644
--- a/gnus.org
+++ b/gnus.org
@@ -119,7 +119,7 @@
 
     (setq gnus-search-use-parsed-queries t
           gnus-search-notmuch-raw-queries-p nil
-          gnus-permanently-visible-groups "^nnselect:.*today"
+          gnus-permanently-visible-groups "^nnselect:.*"
           gnus-search-ignored-newsgroups "nndraft.*\\|nnselect.*")
 
     (with-eval-after-load "gnus-search"
@@ -136,7 +136,7 @@
                              (remove-prefix ,prefix)
                              (config-file ,config))))
 
-    (add-to-list 'gnus-parameters '("^nnselect:.*" (nnselect-rescan . t)))
+    ;; (add-to-list 'gnus-parameters '("^nnselect:.*" (nnselect-rescan . t)))
 
   #+end_src
 * News server
@@ -289,7 +289,7 @@
       (add-to-list 'gnus-secondary-select-methods
                    '(nnimap "gandi" (nnimap-address "mail.gandi.net"))))
   #+end_src
-* Demons and notifications
+* Demon and notifications
   #+begin_src emacs-lisp
     (setq mail-user-agent 'gnus-user-agent)
 
@@ -354,12 +354,13 @@
         (jao-gnus--notify)))
 
     (require 'gnus-demon)
-    (gnus-demon-add-handler 'jao-gnus-scan 5 5)
+    (gnus-demon-add-handler 'gnus-demon-scan-news 5 1)
     ;; (gnus-demon-remove-handler 'jao-gnus-scan)
 
     (add-hook 'gnus-started-hook #'jao-gnus-scan)
     (add-hook 'gnus-summary-exit-hook #'jao-gnus--notify)
     (add-hook 'gnus-summary-exit-hook #'org-agenda-list)
+    (add-hook 'gnus-after-getting-new-news-hook #'jao-gnus-scan)
 
     (with-eval-after-load "jao-minibuffer"
       (jao-minibuffer-add-variable 'jao-gnus--notify-strs -20))
diff --git a/init.org b/init.org
index d092111..5f5aace 100644
--- a/init.org
+++ b/init.org
@@ -2102,7 +2102,7 @@
               magit-repository-directories
               '(("/home/jao/usr/bigml" . 2)
                 ("/home/jao/usr/jao" . 2)
-                ("/home/jao/lib/elisp" . 1)
+                ("/home/jao/lib/elisp" . 3)
                 ("/usr/local/src" . 1))
               magit-save-repository-buffers 'dontask
               magit-status-buffer-switch-function 'switch-to-buffer
@@ -2447,7 +2447,7 @@
                     cider-auto-select-error-buffer nil
                     cider-auto-select-test-report-buffer nil
                     cider-eldoc-display-for-symbol-at-point t
-                    cider-enrich-classpath t
+                    cider-enrich-classpath nil
                     cider-lein-parameters "repl :headless :host localhost"
                     cider-mode-line  " ÷"
                     cider-prompt-for-symbol nil
diff --git a/lib/prog/jao-compilation.el b/lib/prog/jao-compilation.el
index 1c8e465..c099701 100644
--- a/lib/prog/jao-compilation.el
+++ b/lib/prog/jao-compilation.el
@@ -1,6 +1,6 @@
 ;;; jao-compilation.el --- utilities to lauch compilations  -*- lexical-binding: t; -*-
 
-;; Copyright (C) 2020, 2021  jao
+;; Copyright (C) 2020, 2021, 2022  jao
 
 ;; Author: jao <mail@jao.io>
 ;; Keywords: convenience
@@ -111,7 +111,7 @@
    "Makefile" "makefile" "configure.ac" "bootstrap.sh" "aclocal.m4"
    "project.clj" "build.xml" "pom.xml" "setup.py" "stack.yaml")
   (with-eval-after-load "project"
-    (add-to-list 'project-find-functions #'jao-find-compilation-root)))
+    (add-to-list 'project-find-functions #'jao-find-compilation-root t)))
 
 
 (provide 'jao-compilation)
diff --git a/lib/themes/jao-light-theme.el b/lib/themes/jao-light-theme.el
index 93b59d6..0c41def 100644
--- a/lib/themes/jao-light-theme.el
+++ b/lib/themes/jao-light-theme.el
@@ -111,7 +111,7 @@
             (scroll-bar (c "grey80" nil))
             (show-paren-match (c nil "grey85"))
             (success (p f00))
-            ;; (variable-pitch :family "DejaVu Sans" :height 110)
+            (variable-pitch :family "DejaVu Sans")
             (vertical-border (c "grey70" nil))
             (warning (c "burlywood4" nil))
             (widget-button (~ default) nit (ul "grey80"))))
diff --git a/org.org b/org.org
index 7d9e2f5..80efeb6 100644
--- a/org.org
+++ b/org.org
@@ -59,8 +59,8 @@
                                      (expand-file-name f jao-org-dir))
                                   '("inbox.org" "bigml.org"))
           org-agenda-block-separator " "
-          org-agenda-breadcrumbs-separator " ❱ "
-          org-agenda-current-time-string "❱"
+          org-agenda-breadcrumbs-separator "•"
+          org-agenda-current-time-string "◉"
           org-agenda-time-grid
           '((daily today require-timed)
             (800 1000 1200 1400 1600 1800 2000) "" "·")