summaryrefslogtreecommitdiffhomepage
diff options
context:
space:
mode:
-rw-r--r--completion.org18
-rw-r--r--lib/themes/jao-light-theme.el2
2 files changed, 15 insertions, 5 deletions
diff --git a/completion.org b/completion.org
index a43afbc..e24a0da 100644
--- a/completion.org
+++ b/completion.org
@@ -6,7 +6,8 @@
#+begin_src emacs-lisp
(use-package emacs
:init
- (setq completion-category-defaults nil
+ (setq tab-always-indent 'complete
+ completion-category-defaults nil
completion-cycle-threshold nil
completions-detailed t
completion-show-inline-help nil
@@ -40,13 +41,14 @@
(use-package corfu
:ensure t
:demand t
- :init (setq tab-always-indent 'complete
- corfu-echo-documentation 0.25
+ :init (setq corfu-echo-documentation 0.25
corfu-cycle t
corfu-count 15
corfu-quit-no-match t
corfu-auto nil
corfu-commit-predicate nil
+ corfu-preview-current nil
+ corfu-preselect-first nil
corfu-min-width 20
corfu-max-width 100)
:config
@@ -69,7 +71,12 @@
(jao-corfu-no-auto eshell)
(add-to-list 'corfu-excluded-modes 'notmuch-message-mode)
- :bind (:map corfu-map ("C-<return>" . newline)))
+ :bind (:map corfu-map
+ ("C-<return>" . newline)
+ ("TAB" . corfu-next)
+ ([tab] . corfu-next)
+ ("S-TAB" . corfu-previous)
+ ([backtab] . corfu-previous)))
(corfu-global-mode 1)
@@ -493,6 +500,9 @@
(add-to-list 'embark-transformer-alist '(url . jao-embark-targets--refine-url))
(add-to-list 'embark-keymap-alist '(video-url . jao-embark-targets-video-url-map))
+ (define-key embark-url-map "v" #'jao-embark-targets-vlc)
+ (define-key embark-url-map "V" #'jao-embark-targets-vlc)
+
#+end_src
*** spotify
#+begin_src emacs-lisp
diff --git a/lib/themes/jao-light-theme.el b/lib/themes/jao-light-theme.el
index 27104c6..b6fd9eb 100644
--- a/lib/themes/jao-light-theme.el
+++ b/lib/themes/jao-light-theme.el
@@ -79,7 +79,7 @@
(f12 (p f02)))
(:x-faces (compilation-info (c "#223142" nil) nbf)
(completions-group-separator (c nil ni) (st "grey80"))
- (corfu-background (~ default) (c "black" "grey95"))
+ (corfu-default (~ default) (c "black" "grey95"))
(corfu-bar (c nil "grey80")) ;; moving part of the bar
(corfu-border (~ corfu-background)) ;; background of the bar
(corfu-current (c "black" "grey95") nbf nit (ul "grey70"))