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

[chunyang at macports.org]

Revision: 137555
          https://trac.macports.org/changeset/137555
Author:   chunyang at macports.org
Date:     2015-06-14 07:40:42 -0700 (Sun, 14 Jun 2015)
Log Message:
-----------
users/chunyang: helm-ls-svn.el: New user option helm-ls-svn-default-sources

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-14 14:28:48 UTC (rev 137554)
+++ users/chunyang/helm-ls-svn.el/helm-ls-svn.el	2015-06-14 14:40:42 UTC (rev 137555)
@@ -89,6 +89,13 @@
   :group 'helm-ls-svn
   :type 'symbol)
 
+(defcustom helm-ls-svn-default-sources '(helm-source-ls-svn-status
+                                         helm-source-ls-svn-buffers
+                                         helm-source-ls-svn)
+  "Default sources list used in the `helm-ls-svn-ls' command."
+  :group 'helm-ls-svn
+  :type '(repeat (choice symbol)))
+
 (defvar helm-ls-svn-map
   (let ((map (make-sparse-keymap)))
     (set-keymap-parent map helm-generic-files-map)
@@ -237,9 +244,7 @@
   (unless helm-source-ls-svn-status
     (setq helm-source-ls-svn-status
           (helm-make-source "svn status" 'helm-ls-svn-status-source)))
-  (helm :sources '(helm-source-ls-svn-status
-                   helm-source-ls-svn-buffers
-                   helm-source-ls-svn)
+  (helm :sources helm-ls-svn-default-sources
         :buffer "*helm ls svn*"))
 
 (provide 'helm-ls-svn)
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <https://lists.macosforge.org/pipermail/macports-changes/attachments/20150614/b0bf8c69/attachment.html>