emenel/doomemacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Merge pull request #3806 from gagbo/fix/bepo-org-completing-read

Browse source 
Fix #3783: advice org-completing-read in bepo
This commit is contained in:
Henrik Lissner 2020-08-23 14:10:30 -04:00 • committed by GitHub
commit 4222219c49
No known key found for this signature in database
GPG key ID: 4AEE18F83AFDEB23
1 changed files with 17 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

17
modules/input/layout/+bepo.el
View file

@ -83,6 +83,23 @@
(general-translate-key '(normal motion) 'lispyville-mode-map (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) (after! (evil magit evil-magit)
(doom-bepo-rotate-ts-bare-keymap (doom-bepo-rotate-ts-bare-keymap
'(magit-mode-map '(magit-mode-map