Help! I'm trapped in emacs!

init/init-ido.el

@@ -11,15 +11,13 @@
 ;; (set-keymap-parent ido-file-completion-map     ido-file-dir-completion-map)
 ;; (set-keymap-parent ido-buffer-completion-map   ido-common-completion-map)
 
-(require 'ido-ubiquitous)
-(require 'ido-vertical-mode)
-(require 'flx-ido)
 
 (ido-mode 1)
-(ido-vertical-mode 1)
 (ido-everywhere 1)
-(ido-ubiquitous-mode 1)
-(flx-ido-mode 1)
+
+(use-package ido-vertical-mode  :config (ido-vertical-mode 1))
+(use-package ido-ubiquitous     :config (ido-ubiquitous-mode 1))
+(use-package flx-ido            :config (flx-ido-mode 1))
 
 (setq ido-use-faces nil
       ido-confirm-unique-completion t
@@ -37,6 +35,21 @@
         "^\\*.*Completions\\*$" "^\\*Ediff" "^\\*tramp" "^\\*cvs-"
         "_region_" " output\\*$" "^TAGS$" "^\*Ido"))
 
+; sort ido filelist by mtime instead of alphabetically
+(add-hook 'ido-make-file-list-hook 'ido-sort-mtime)
+(add-hook 'ido-make-dir-list-hook 'ido-sort-mtime)
+(defun ido-sort-mtime ()
+  (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)
+   (delq nil (mapcar
+              (lambda (x) (and (char-equal (string-to-char x) ?.) x))
+              ido-temp-list))))
+
 
 (provide 'init-ido)
 ;;; init-ido.el ends here