summaryrefslogtreecommitdiffhomepage
diff options
context:
space:
mode:
-rw-r--r--completion.org8
-rw-r--r--email.org12
-rw-r--r--init.org29
-rw-r--r--org.org2
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)