From d5bf2e15ac30c643008a1ae1d05b847d1ff63941 Mon Sep 17 00:00:00 2001
From: jao <jao@gnu.org>
Date: Sun, 21 Nov 2021 22:35:44 +0000
Subject: today's nits

---
 completion.org |  8 ++++----
 email.org      | 12 +++++++-----
 init.org       | 29 +++++++++++++++++------------
 org.org        |  2 +-
 4 files changed, 29 insertions(+), 22 deletions(-)

diff --git a/completion.org b/completion.org
index f266c49..d897a2a 100644
--- a/completion.org
+++ b/completion.org
@@ -40,12 +40,12 @@
     (use-package corfu
       :ensure t
       :demand t
-      :init (setq tab-always-indent t ;; 'complete
+      :init (setq tab-always-indent 'complete
                   corfu-echo-documentation 0.25
                   corfu-cycle t
                   corfu-count 15
                   corfu-quit-no-match t
-                  corfu-auto t
+                  corfu-auto nil
                   corfu-commit-predicate nil
                   corfu-min-width 20
                   corfu-max-width 100)
@@ -119,6 +119,7 @@
  	                              Info-goto-node
  	                              Info-index
  	                              Info-menu
+                                      jao-buffer-same-mode
  	                              vc-retrieve-tag))
       :bind (:map
              mct-minibuffer-local-completion-map
@@ -525,8 +526,7 @@
           (dictionary-lookup-definition)))
       (add-to-list 'avy-dispatch-alist '(?d . avy-dictionary-act))
 
-      :bind (("C-c a" . avy-goto-char-timer)
-             ("s-j" . avy-goto-char-timer)))
+      :bind (("s-j" . avy-goto-char-timer)))
 
     (use-package link-hint
       :ensure t
diff --git a/email.org b/email.org
index 9d3a278..d4bb066 100644
--- a/email.org
+++ b/email.org
@@ -1,6 +1,13 @@
 #+property: header-args:emacs-lisp :lexical t :tangle yes :comments yes :results silent :shebang ";; -*- lexical-binding: t; -*-" :tangle-mode (identity #o644)
 #+title: email handling (message mode, bbdb, gnus, notmuch)
 
+* personal emails
+  #+begin_src emacs-lisp
+    (defvar jao-mails)
+    (defvar jao-extra-mails)
+    (defvar jao-mails-regexp)
+    (setq jao-mails-regexp (regexp-opt jao-mails))
+  #+end_src
 * gnus
 *** directories
     #+begin_src emacs-lisp
@@ -32,11 +39,6 @@
 * message mode
 *** Customization
     #+begin_src emacs-lisp
-      (defvar jao-mails)
-      (defvar jao-extra-mails)
-      (defvar jao-mails-regexp)
-      (setq jao-mails-regexp (regexp-opt jao-mails))
-
       (setq message-send-mail-function 'message-send-mail-with-sendmail
             message-sendmail-envelope-from 'header
             message-sendmail-f-is-evil nil)
diff --git a/init.org b/init.org
index 7802fea..98cd596 100644
--- a/init.org
+++ b/init.org
@@ -2425,12 +2425,17 @@
       (jao-load-path "geiser/geiser/elisp")
       (use-package geiser
         :init
-        (setq geiser-repl-history-filename "~/.emacs.d/cache/geiser-history")
-        (setq geiser-repl-startup-time 20000)
-        (setq geiser-debug-auto-display-images-p t))
+        (setq geiser-repl-history-filename "~/.emacs.d/cache/geiser-history"
+              geiser-repl-startup-time 20000
+              geiser-debug-auto-display-images-p t
+              geiser-active-implementations '(guile)
+              geiser-default-implementation 'guile))
 
-      (jao-load-path "geiser/mit")
-      (use-package geiser-mit)
+      (jao-load-path "geiser/guile")
+      (use-package geiser-guile)
+
+      ;; (jao-load-path "geiser/mit")
+      ;; (use-package geiser-mit)
 
       ;; (jao-load-path "geiser/chicken")
       ;; (use-package geiser-chicken)
@@ -2438,15 +2443,15 @@
       ;; (jao-load-path "geiser/chibi")
       ;; (use-package geiser-chibi)
 
-      (jao-load-path "geiser/guile")
-      (use-package geiser-guile)
+      ;; (jao-load-path "geiser/chez")
+      ;; (use-package geiser-chez
+      ;;   :init (setq geiser-chez-binary "scheme"))
+
+      ;; (jao-load-path "geiser/gambit")
+      ;; (use-package geiser-gambit)
 
-      (jao-load-path "geiser/chez")
-      (use-package geiser-chez
-        :init (setq geiser-chez-binary "scheme"))
+      (jao-define-attached-buffer "^\\* Geiser .* \\*" 0.4)
 
-      (jao-load-path "geiser/gambit")
-      (use-package geiser-gambit)
     #+end_src
 *** Pie
     #+begin_src emacs-lisp
diff --git a/org.org b/org.org
index e757a40..b5fbdfe 100644
--- a/org.org
+++ b/org.org
@@ -288,7 +288,7 @@
   #+end_src
 * Keybindings
     #+begin_src emacs-lisp
-      ;; (define-key mode-specific-map [?a] 'org-agenda)
+      (define-key mode-specific-map [?a] 'org-agenda)
       (define-key org-mode-map "\C-cv" 'jao-org-copy-link-at-point)
       (define-key org-mode-map [(control ?c) tab] 'org-force-cycle-archived)
       (define-key org-mode-map [(f7)] 'org-archive-to-archive-sibling)
-- 
cgit v1.2.3