emacs: Update completions & search configuration.

1 files changed, 8 insertions, 8 deletions

diff --git a/.config/emacs/init.el b/.config/emacs/init.el
index 7118c44..139b5e5 100644
--- a/.config/emacs/init.el
+++ b/.config/emacs/init.el
@@ -44,7 +44,7 @@
 ;; Font
 (custom-set-faces
  (if is-hermes '(default ((t (:inherit nil :height 130 :family "Fira Mono"))))
-   '(default ((t (:inherit nil :height 150 :family "Fira Mono")))))
+   '(default ((t (:inherit nil :height 160 :family "Fira Mono")))))
  '(org-modern-symbol ((t (:inherit t :family "Iosevka Aile"))))
  '(variable-pitch ((t (:inherit t :family "Fira Mono" :height 130)))))
 
@@ -91,11 +91,9 @@
 	completions-max-height 20 ;; Limit completions to 15
 	completion-ignore-case t)
   ;; Minibuffer completions
-  (fido-vertical-mode)
+  (fido-vertical-mode 1)
   :bind (:map icomplete-fido-mode-map
-	      ("TAB" . 'icomplete-fido-ret)))
-
-;; (define-key minibuffer-local-completion-map (kbd "SPC") 'self-insert-command)
+	      ("TAB" . 'icomplete-force-complete)))
 
 ;; Search
 (setf search-default-mode #'char-fold-to-regexp) ;; make it easier to search Greek chars
@@ -147,14 +145,16 @@
   (occur-mode-goto-occurrence)
   (thanos/close-window "*Occur*"))
 
-(defun thanos/compile-goto-error (&optional event)
-  "."
+(defun thanos/compile-goto-error ()
+  "Go to compile error & close *grep* buffer."
   (interactive (list last-input-event))
   (compile-goto-error)
   (thanos/close-window "*grep*"))
 
+(require 'grep)
+(define-key occur-mode-map (kbd "RET")
+	    'thanos/occur-mode-goto-occurrence-close-occur-window)
 
-(define-key occur-mode-map (kbd "RET") 'thanos/occur-mode-goto-occurrence-close-occur-window)
 (define-key grep-mode-map (kbd "C-o") 'thanos/compile-goto-error)
 
 (defvar-keymap thanos/search-map