From 4f81870fda1d41bf4f217f88a42763038283af09 Mon Sep 17 00:00:00 2001 From: Gerry Agbobada Date: Sat, 22 Aug 2020 15:47:57 +0200 Subject: [PATCH] Fix #3783: advice org-completing-read in bepo The original function tries to map `C-c !` in minibuffer-local-completion-map although `C-c` is a non-prefix key in this map for bepo users --- modules/input/layout/+bepo.el | 17 +++++++++++++++++ 1 file changed, 17 insertions(+) diff --git a/modules/input/layout/+bepo.el b/modules/input/layout/+bepo.el index b31afe121..4f62c7fcb 100644 --- a/modules/input/layout/+bepo.el +++ b/modules/input/layout/+bepo.el @@ -83,6 +83,23 @@ (general-translate-key '(normal motion) 'lispyville-mode-map "«" "<" "»" ">")) + (after! org + (defadvice! doom-bepo--org-completing-read (&rest args) + "Completing-read with SPACE being a normal character, and C-c mapping left alone." + :override #'org-completing-read + (let ((enable-recursive-minibuffers t) + (minibuffer-local-completion-map + (copy-keymap minibuffer-local-completion-map))) + (define-key minibuffer-local-completion-map " " 'self-insert-command) + (define-key minibuffer-local-completion-map "?" 'self-insert-command) + (define-key minibuffer-local-completion-map + (cond + ((eq doom-bepo-cr-rotation-style 'ergodis) + (kbd "C-l !")) + (t + (kbd "C-h !"))) + 'org-time-stamp-inactive) + (apply #'completing-read args)))) (after! (evil magit evil-magit) (doom-bepo-rotate-ts-bare-keymap '(magit-mode-map