[137513] users/chunyang/helm-ls-svn.el/helm-ls-svn.el

[chunyang at macports.org]

Revision: 137513
          https://trac.macports.org/changeset/137513
Author:   chunyang at macports.org
Date:     2015-06-13 06:23:15 -0700 (Sat, 13 Jun 2015)
Log Message:
-----------
users/chunyang: helm-ls-svn.el: Fix collecting version tracked files under svn

Modified Paths:
--------------
    users/chunyang/helm-ls-svn.el/helm-ls-svn.el

Modified: users/chunyang/helm-ls-svn.el/helm-ls-svn.el
===================================================================
--- users/chunyang/helm-ls-svn.el/helm-ls-svn.el	2015-06-13 12:36:07 UTC (rev 137512)
+++ users/chunyang/helm-ls-svn.el/helm-ls-svn.el	2015-06-13 13:23:15 UTC (rev 137513)
@@ -81,13 +81,18 @@
             name (if (string-empty-p branch)
                      (helm-ls-svn-root-dir) branch))))
 
-(defun helm-ls-svn-init ()
+(defun helm-ls-svn-collect-data()
   (let ((root (helm-ls-svn-root-dir)))
     (with-current-buffer (helm-candidate-buffer 'global)
-      (call-process-shell-command
-       (format "find %s -type f -not -iwholename '*.svn/*'"
-               root)
-       nil t ))))
+      (let ((default-directory root))
+        (cl-remove-if
+         (lambda (item) (or (null item)
+                            (file-directory-p item)))
+         (mapcar (lambda (item) (car (last (split-string item))))
+                 (split-string
+                  (shell-command-to-string
+                   "svn status -non-interactive --quiet --verbose")
+                  "\n")))))))
 
 (defun helm-ls-svn-status ()
   (helm-aif (helm-ls-svn-root-dir)
@@ -153,7 +158,7 @@
 
 (defclass helm-ls-svn-source (helm-source-in-buffer)
   ((header-name :initform 'helm-ls-svn-header-name)
-   (init :initform 'helm-ls-svn-init)
+   (data :initform 'helm-ls-svn-collect-data)
    (keymap :initform helm-ls-svn-map)
    (help-message :initform helm-generic-file-help-message)
    (candidate-number-limit :initform 9999)
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <https://lists.macosforge.org/pipermail/macports-changes/attachments/20150613/62673210/attachment-0001.html>