;;;;; Ido
(require 'ido)

;; Display things vertically in Ido
(make-local-variable 'ido-decorations)
(setf (nth 2 ido-decorations) "\n")

(setq ido-everywhere t
      ido-ignore-buffers
      '("\\` " "^\\*ESS\\*" "^\\*Messages\\*" "^\\*Help\\*" "^\\*Buffer"
        "^\\*.*Completions\\*$" "^\\*Ediff" "^\\*tramp" "^\\*cvs-"
        "_region_" " output\\*$" "^TAGS$" "^\*Ido")
      ido-ignore-extensions t
      ido-use-faces nil
      ido-confirm-unique-completion t
      ido-case-fold t
      ido-enable-tramp-completion nil
      ido-enable-flex-matching t
      ido-use-filename-at-point 'guess
      ido-create-new-buffer 'always
      ido-enable-flex-matching t
      ido-enable-tramp-completion t
      ido-enable-last-directory-history t
      ;; Prevent auto-searches unless called explicitly
      ido-auto-merge-work-directories-length -1
      ido-auto-merge-delay-time 99999)

(defun vve-ido-auto-merge ()
  "WE called Ido's auto merge when WE want."
  (interactive)
  (ido-initiate-auto-merge (current-buffer)))

(define-key ido-file-dir-completion-map (kbd "C-c C-s") #'vve-ido-auto-merge!)

(unless (member "\\`.DS_Store$" ido-ignore-files)
  (push "\\`.DS_Store$" ido-ignore-files)
  (push "Icon\\?$" ido-ignore-files))

;; Stop Ido from suggesting when naming new file
(define-key (cdr ido-minor-mode-map-entry) [remap write-file] nil)

;; (defun vve-ido-M-x ()
;;   "An Ido version of \\[M-x]."
;;   (interactive)
;;   (call-interactively
;;    (intern
;;      (ido-completing-read
;;       "M-x "
;;       (all-completions "" obarray 'commandp)))))

;; (global-set-key (kbd "M-x") #'vve-ido-M-x)

(ido-mode 1)

;;;;; Icomplete
(require 'icomplete)

(setq icomplete-separator "\n"
      icomplete-show-matches-on-no-input t
      icomplete-hide-common-prefix nil
      icomplete-in-buffer t
      icomplete-prospects-height 5
      read-file-name-completion-ignore-case t
      read-buffer-completion-ignore-case t
      completion-ignore-case t
      completions-format 'vertical
      completion-cycle-threshold t)

(if (> emacs-major-version 26)
    (setq completion-styles
          '(basic flex partial-completion substring)
          completion-category-overrides
          '((file (styles basic flex substring))
            (buffer (styles basic flex substring))))
  (setq completion-styles
        '(basic partial-completion substring)
        completion-category-overrides
        '((file (styles basic substring))
          (buffer (styles basic substring)))))

(define-key icomplete-minibuffer-map (kbd "<right>") 'icomplete-forward-completions)
(define-key icomplete-minibuffer-map (kbd "<left>") 'icomplete-backward-completions)

(icomplete-mode 1)