(use-package icomplete
  :ensure nil
  :init
  (setq icomplete-show-matches-on-no-input t
        icomplete-hide-common-prefix nil
        icomplete-prospects-height 5
        read-file-name-completion-ignore-case t
        read-buffer-completion-ignore-case t
        completion-ignore-case t
        completions-format 'vertical)
  (when (> emacs-major-version 26)
    (setq completion-styles
          '(basic flex partial-completion substring)
          completion-category-overrides
          '((file (styles basic flex substring))))
    (setq completion-styles
          '(basic partial-completion substring)
          completion-category-overrides
          '((file (styles basic substring)))))
  (icomplete-mode 1))

(use-package ido
  :ensure nil
  :init
  (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-tramp-completion t
        ido-enable-last-directory-history t
        ido-save-directory-list-file (concat dryad-cache-dir "ido.last"))
  (unless (member "\\`.DS_Store$" ido-ignore-files)
    (push "\\`.DS_Store$" ido-ignore-files)
    (push "Icon\\?$" ido-ignore-files))

  :config
  (general-def (ido-common-completion-map ido-completion-map ido-file-completion-map)
    "\C-n" #'ido-next-match
    "\C-p" #'ido-prev-match
    "\C-w" #'ido-delete-backward-word-updir
    ;; Go to $HOME with ~
    "~" (lambda () (interactive)
          (if (looking-back "/" (point-min))
              (insert "~/")
            (call-interactively #'self-insert-command))))
  (defun +ido*sort-mtime ()
    "Sort ido filelist by mtime instead of alphabetically."
    (setq ido-temp-list
          (sort ido-temp-list
                (lambda (a b)
                  (time-less-p
                   (sixth (file-attributes (concat ido-current-directory b)))
                   (sixth (file-attributes (concat ido-current-directory a)))))))
    (ido-to-end  ;; move . files to end (again)
     (cl-loop for x in ido-temp-list
              if (char-equal (string-to-char x) ?.)
              collect x)))

  (advice-add #'ido-sort-mtime :override #'+ido*sort-mtime)
  (+add-hook (ido-make-file-list ido-make-dir-list) #'+ido*sort-mtime)

  (use-package ido-completing-read+
    :hook (ido-mode . ido-ubiquitous-mode)
    :config
    (ido-ubiquitous-mode 1))

  (use-package ido-vertical-mode
    :hook (ido-mode . ido-vertical-mode)
    :init
    (setq ido-vertical-define-keys 'C-n-C-p-up-down-left-right)
    :config
    (ido-vertical-mode 1))

  (use-package flx-ido
    :hook (ido-mode . flx-ido-mode)
    :config
    (flx-ido-mode +1)))

(use-package amx
  :bind (("M-x" . amx)
         ("M-X" . amx-major-mode-commands))
  :init
  (setq amx-save-fil (concat dryad-cache-dir "amx-items")
        amx-ignorned-command-matchers nil)
  :config
  (amx-mode 1))