 
 (defun lusty-sort-by-fuzzy-score (strings abbrev)
   ;; TODO: case-sensitive when abbrev contains capital letter
-  (if (or (string= abbrev "")
-          (string= abbrev "."))
-      (sort strings 'string<)
-    (let* ((strings+scores
-            (loop for str in strings
-                  for score = (LM-score str abbrev)
-                  unless (zerop score)
-                  collect (cons str score)))
-           (sorted (sort* strings+scores '< :key 'cdr)))
-      (mapcar 'car sorted))))
+  (let* ((strings+scores
+          (loop for str in strings
+                for score = (LM-score str abbrev)
+                unless (zerop score)
+                collect (cons str score)))
+         (sorted (sort* strings+scores '< :key 'cdr)))
+    (mapcar 'car sorted)))
 
 (defun lusty-normalize-dir (dir)
   "Clean up the given directory path."

               ; NOTE: directory-files is quicker but
               ;       doesn't append slash for directories.
               ;(directory-files dir nil nil t)
               (file-name-all-completions "" dir))))
    (lusty-sort-by-fuzzy-score
     (lusty-filter-files file-portion files)
     file-portion)))

(defun lusty-propertize-path (path)
  "Propertize the given PATH like so: <dir></><dir></><file>

        ((> (length abbrev) (length str))
         LM--score-no-match)
        (t
         (let* ((scores (LM--build-score-array str abbrev))
                (sum (reduce '+ scores)))
           (/ sum (length scores))))))
