Update packages

elpa/helm-core-20160922.2327/helm-core-autoloads.el

@@ -3,7 +3,7 @@
 ;;; Code:
 (add-to-list 'load-path (or (file-name-directory #$) (car load-path)))
 
-;;;### (autoloads nil "helm" "helm.el" (22490 24934 255411 690000))
+;;;### (autoloads nil "helm" "helm.el" (22501 3218 180164 860000))
 ;;; Generated autoloads from helm.el
 
 (autoload 'helm-define-multi-key "helm" "\
@@ -188,7 +188,7 @@ Enable/disable helm debugging from outside of helm session.
 ;;;***
 
 ;;;### (autoloads nil nil ("helm-core-pkg.el" "helm-lib.el" "helm-multi-match.el"
-;;;;;;  "helm-source.el") (22490 24934 280627 285000))
+;;;;;;  "helm-source.el") (22501 3218 218183 514000))
 
 ;;;***
 

elpa/helm-core-20160922.2327/helm-core-pkg.el

@@ -1,4 +1,4 @@
-(define-package "helm-core" "20160913.219" "Development files for Helm"
+(define-package "helm-core" "20160922.2327" "Development files for Helm"
   '((emacs "24.4")
     (async "1.9"))
   :url "https://emacs-helm.github.io/helm/")

elpa/helm-core-20160922.2327/helm.el

@@ -2740,14 +2740,17 @@ Cache the candidates if there is no cached value yet."
     candidates))
 
 (defmacro helm--maybe-process-filter-one-by-one-candidate (candidate source)
-  "Execute `filter-one-by-one' function(s) on CANDIDATE in SOURCE."
+  "Execute `filter-one-by-one' function(s) on real value of CANDIDATE in SOURCE."
   `(helm-aif (assoc-default 'filter-one-by-one ,source)
+       (let ((real (if (consp ,candidate)
+                       (cdr ,candidate)
+                       ,candidate)))
          (if (and (listp it)
                   (not (functionp it))) ;; Don't treat lambda's as list.
              (cl-loop for f in it
-                 do (setq ,candidate (funcall f ,candidate))
+                      do (setq ,candidate (funcall f real))
                       finally return ,candidate)
-         (setq ,candidate (funcall it ,candidate)))
+             (setq ,candidate (funcall it real))))
      ,candidate))
 
 (defun helm--initialize-one-by-one-candidates (candidates source)

elpa/helm-projectile-20160902.2236/helm-projectile-pkg.el

@@ -1 +0,0 @@
-(define-package "helm-projectile" "20160902.2236" "Helm integration for Projectile" '((helm "1.7.7") (projectile "0.14.0") (cl-lib "0.3")) :url "https://github.com/bbatsov/helm-projectile" :keywords '("project" "convenience"))

elpa/helm-projectile-20160922.4/helm-projectile-autoloads.el

@@ -3,8 +3,8 @@
 ;;; Code:
 (add-to-list 'load-path (or (file-name-directory #$) (car load-path)))
 
-;;;### (autoloads nil "helm-projectile" "helm-projectile.el" (22490
+;;;### (autoloads nil "helm-projectile" "helm-projectile.el" (22501
-;;;;;;  46093 331336 211000))
+;;;;;;  3214 979961 347000))
 ;;; Generated autoloads from helm-projectile.el
 
 (defvar helm-projectile-fuzzy-match t "\

elpa/helm-projectile-20160922.4/helm-projectile-pkg.el

@@ -0,0 +1 @@
+(define-package "helm-projectile" "20160922.4" "Helm integration for Projectile" '((helm "1.7.7") (projectile "0.14.0") (cl-lib "0.3")) :url "https://github.com/bbatsov/helm-projectile" :keywords '("project" "convenience"))

elpa/helm-projectile-20160922.4/helm-projectile.el

@@ -4,7 +4,7 @@
 
 ;; Author: Bozhidar Batsov
 ;; URL: https://github.com/bbatsov/helm-projectile
-;; Package-Version: 20160902.2236
+;; Package-Version: 20160922.4
 ;; Created: 2011-31-07
 ;; Keywords: project, convenience
 ;; Version: 0.14.0
@@ -658,6 +658,18 @@ Other file extensions can be customized with the variable `projectile-other-file
                     :prompt (projectile-prepend-project-name "Find other file: ")))))
       (error "No other file found"))))
 
+(defcustom helm-projectile-grep-or-ack-actions
+  '("Find file" helm-grep-action
+    "Find file other frame" helm-grep-other-frame
+    (lambda () (and (locate-library "elscreen")
+               "Find file in Elscreen"))
+    helm-grep-jump-elscreen
+    "Save results in grep buffer" helm-grep-save-results
+    "Find file other window" helm-grep-other-window)
+  "Available actions for `helm-projectile-grep-or-ack'.
+The contents of this list are passed as the arguments to `helm-make-actions'."
+  :group 'helm-projectile)
+
 (defun helm-projectile-grep-or-ack (&optional dir use-ack-p ack-ignored-pattern ack-executable)
   "Perform helm-grep at project root.
 DIR directory where to search
@@ -698,14 +710,7 @@ If it is nil, or ack/ack-grep not found then use default grep command."
             ;; to make it available in further resuming.
             :keymap helm-grep-map
             :history 'helm-grep-history
-            :action (helm-make-actions
+            :action (apply #'helm-make-actions helm-projectile-grep-or-ack-actions)
-                     "Find file" 'helm-grep-action
-                     "Find file other frame" 'helm-grep-other-frame
-                     (lambda () (and (locate-library "elscreen")
-                                     "Find file in Elscreen"))
-                     'helm-grep-jump-elscreen
-                     "Save results in grep buffer" 'helm-grep-save-results
-                     "Find file other window" 'helm-grep-other-window)
             :persistent-action 'helm-grep-persistent-action
             :persistent-help "Jump to line (`C-u' Record in mark ring)"
             :requires-pattern 2))

elpa/s-20160711.525/s-pkg.el

@@ -1 +0,0 @@
-(define-package "s" "20160711.525" "The long lost Emacs string manipulation library." 'nil :keywords '("strings"))

elpa/s-20160922.443/s-autoloads.el

@@ -3,7 +3,7 @@
 ;;; Code:
 (add-to-list 'load-path (or (file-name-directory #$) (car load-path)))
 
-;;;### (autoloads nil nil ("s.el") (22404 60193 104225 718000))
+;;;### (autoloads nil nil ("s.el") (22501 3213 968694 183000))
 
 ;;;***
 

elpa/s-20160922.443/s-pkg.el

@@ -0,0 +1 @@
+(define-package "s" "20160922.443" "The long lost Emacs string manipulation library." 'nil :keywords '("strings"))

elpa/s-20160922.443/s.el

@@ -4,7 +4,7 @@
 
 ;; Author: Magnar Sveen <magnars@gmail.com>
 ;; Version: 1.10.0
-;; Package-Version: 20160711.525
+;; Package-Version: 20160922.443
 ;; Keywords: strings
 
 ;; This program is free software; you can redistribute it and/or modify
@@ -293,6 +293,10 @@ This is a simple wrapper around the built-in `string-match-p'."
   "Is S nil or the empty string?"
   (or (null s) (string= "" s)))
 
+(defun s-blank-str? (s)
+  "Is S nil or the empty string or string only contains whitespace?"
+  (or (s-blank? s) (s-blank? (s-trim s))))
+
 (defun s-present? (s)
   "Is S anything but nil or the empty string?"
   (not (s-blank? s)))