diff options
| -rw-r--r-- | completion.org | 8 | ||||
| -rw-r--r-- | email.org | 12 | ||||
| -rw-r--r-- | init.org | 29 | ||||
| -rw-r--r-- | 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 @@ -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) @@ -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 @@ -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) |