helm-ls.el

;	$Id: helm-ls.el,v 1.4 2018/01/22 21:39:56 thierry Exp $	
(defvar helm-source-ls
  (helm-build-async-source "ls"
    :candidates-process (lambda ()
                          (let* ((basedir (if (file-directory-p helm-pattern)
                                              helm-pattern
                                            (helm-basedir helm-pattern)))
                                 (proc
                                  (start-file-process "hls" nil "ls"
                                                      "-al" "-h" "--color=always"
                                                      basedir)))
                            ;; (set-process-sentinel proc (lambda (process event) nil))
                            (helm-attrset 'basedir basedir)
                            proc))
    :filtered-candidate-transformer (list 'helm-ff-sort-candidates
                                          (lambda (candidates _source)
                                            (cl-loop for c in (cdr candidates)
                                                     for disp = (ansi-color-apply c)
                                                     for fn = (expand-file-name
                                                               (car (last (split-string disp)))
                                                               (helm-attr 'basedir))
                                                     when (or (member (helm-basename fn) '("." ".."))
                                                              (string-match
                                                               (helm--mapconcat-pattern helm-pattern) fn))
                                                     collect (cons disp fn))))
    :persistent-action-if 'helm-find-files-persistent-action-if
    :persistent-help "Hit1 Expand Candidate, Hit2 or (C-u) Find file"
    :action-transformer 'helm-find-files-action-transformer
    :keymap helm-find-files-map
    :action 'helm-find-files-actions))

(add-to-list 'helm--file-completion-sources "ls")

(defun helm-ls ()
  (interactive)
  (helm :sources 'helm-source-ls
        :buffer "*helm ls*"
        :input default-directory
        :candidate-number-limit 9999))