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

[chunyang at macports.org]

Revision: 137483
          https://trac.macports.org/changeset/137483
Author:   chunyang at macports.org
Date:     2015-06-12 09:27:09 -0700 (Fri, 12 Jun 2015)
Log Message:
-----------
users/chunyang: helm-ls-svn.el: fallback helm header name

Use svn root directory name if branch name is not found.

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-12 15:47:50 UTC (rev 137482)
+++ users/chunyang/helm-ls-svn.el/helm-ls-svn.el	2015-06-12 16:27:09 UTC (rev 137483)
@@ -58,7 +58,12 @@
     (user-error "Not under a svn repository"))
   (helm :sources
         (helm-build-in-buffer-source "SVN files"
-          :header-name (lambda (name) (format "%s (%s)" name (helm-ls-svn-branch)))
+          :header-name (lambda (name)
+                         (let ((branch (helm-ls-svn-branch)))
+                           (format
+                            "%s (%s)"
+                            name (if (string-empty-p branch)
+                                     (helm-ls-svn-root-dir) branch))))
           :init
           (lambda ()
             (let ((root (helm-ls-svn-root-dir)))
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <https://lists.macosforge.org/pipermail/macports-changes/attachments/20150612/0d21f812/attachment.html>