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

[chunyang at macports.org]

Revision: 137603
          https://trac.macports.org/changeset/137603
Author:   chunyang at macports.org
Date:     2015-06-15 04:27:43 -0700 (Mon, 15 Jun 2015)
Log Message:
-----------
users/chunyang: helm-ls-svn.el: Colorful status 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-15 11:26:38 UTC (rev 137602)
+++ users/chunyang/helm-ls-svn.el/helm-ls-svn.el	2015-06-15 11:27:43 UTC (rev 137603)
@@ -144,7 +144,15 @@
 (defun helm-ls-svn-status-transformer (candidates _source)
   (let ((root (helm-ls-svn-root-dir)))
     (mapcar (lambda (candidate)
-              (cons candidate
+              (cons (cond ((string-match "^?" candidate)
+                           (propertize candidate 'face 'font-lock-variable-name-face))
+                          ((string-match "^M" candidate)
+                           (propertize candidate 'face 'font-lock-constant-face))
+                          ((string-match "^A" candidate)
+                           (propertize candidate 'face 'font-lock-variable-name-face))
+                          ((string-match "^C" candidate)
+                           (propertize candidate 'face 'font-lock-warning-face))
+                          (t candidate))
                     (expand-file-name (cadr (split-string candidate)) root)))
             candidates)))
 
@@ -156,7 +164,8 @@
         (balance-windows))
       (vc-svn-diff (list candidate) nil nil "*vc-diff*")
       (pop-to-buffer "*vc-diff*")
-      (diff-mode))))
+      (diff-mode)
+      (view-mode))))
 
 (defun helm-ls-svn-revert (_candidate)
   (let ((marked (helm-marked-candidates)))
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <https://lists.macosforge.org/pipermail/macports-changes/attachments/20150615/2550a217/attachment.html>