[elpa] externals/el-search 226296a 229/332: * el-search/el-search-x.el: New pattern type `string-lines'

[Stefan Monnier]

branch: externals/el-search
commit 226296a0cd3b483ccf333dd1ee3be03063f22ce0
Author: Michael Heerdegen <michael_heerdegen@web.de>
Commit: Michael Heerdegen <michael_heerdegen@web.de>

    * el-search/el-search-x.el: New pattern type `string-lines'
---
 el-search-x.el | 14 ++++++++++++++
 el-search.el   |  2 +-
 2 files changed, 15 insertions(+), 1 deletion(-)

diff --git a/el-search-x.el b/el-search-x.el
index a66070a..35004cf 100644
--- a/el-search-x.el
+++ b/el-search-x.el
@@ -40,6 +40,20 @@
 (require 'el-search)
 
 
+(el-search-defpattern string-lines (pattern)
+  "Matches any string whose line count is matched by PATTERN.
+
+Examples: (string-lines 1) matches one-line strings.
+\(string-lines (pred (>= 5))\) matches strings consisting of not
+more than 5 lines."
+  (let ((string (make-symbol "string")))
+    `(and (string)
+          ,string
+          (let ,pattern
+            (with-temp-buffer
+              (insert ,string)
+              (count-lines (point-min) (point-max)))))))
+
 ;;;; `append and `l'
 
 (defun el-search--split (matcher1 matcher2 list)
diff --git a/el-search.el b/el-search.el
index 5a0efa5..56ccf23 100644
--- a/el-search.el
+++ b/el-search.el
@@ -7,7 +7,7 @@
 ;; Created: 29 Jul 2015
 ;; Keywords: lisp
 ;; Compatibility: GNU Emacs 25
-;; Version: 1.6.2
+;; Version: 1.6.3
 ;; Package-Requires: ((emacs "25") (stream "2.2.4") (cl-print "1.0"))