[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
07/24: emacs: Add 'guix-any'.
From: |
Alex Kost |
Subject: |
07/24: emacs: Add 'guix-any'. |
Date: |
Fri, 28 Aug 2015 20:06:32 +0000 |
alezost pushed a commit to branch wip-emacs-popup-ui
in repository guix.
commit 26e832fc5ee0e0d3bd68cc8e92040ecc86f127d9
Author: Alex Kost <address@hidden>
Date: Wed Aug 12 15:37:20 2015 +0300
emacs: Add 'guix-any'.
* emacs/guix-utils.el (guix-any): New function.
---
emacs/guix-utils.el | 8 ++++++++
1 files changed, 8 insertions(+), 0 deletions(-)
diff --git a/emacs/guix-utils.el b/emacs/guix-utils.el
index 700eeec..5055186 100644
--- a/emacs/guix-utils.el
+++ b/emacs/guix-utils.el
@@ -204,6 +204,14 @@ accessed with KEYS."
(while (re-search-forward ,regexp nil t)
,@body)))
+(defun guix-any (pred lst)
+ "Test whether any element from LST satisfies PRED.
+If so, return the return value from the successful PRED call.
+Return nil otherwise."
+ (when lst
+ (or (funcall pred (car lst))
+ (guix-any pred (cdr lst)))))
+
;;; Diff
- branch wip-emacs-popup-ui created (now a7d4674), Alex Kost, 2015/08/28
- 01/24: emacs: Remove leftover internal variable., Alex Kost, 2015/08/28
- 02/24: emacs: Add 'guix-prettify' to 'guix' custom group., Alex Kost, 2015/08/28
- 06/24: emacs: Add utils to copy guix command., Alex Kost, 2015/08/28
- 03/24: emacs: Add and use 'guix-while-search'., Alex Kost, 2015/08/28
- 04/24: emacs: Add and use 'guix-concat-strings'., Alex Kost, 2015/08/28
- 05/24: emacs: Add utils to make symbol and string for guix command., Alex Kost, 2015/08/28
- 07/24: emacs: Add 'guix-any'.,
Alex Kost <=
- 08/24: emacs: Add 'guix-memoized-defalias' macro., Alex Kost, 2015/08/28
- 09/24: guix lint: Export checkers and <lint-checker> accessors., Alex Kost, 2015/08/28
- 10/24: emacs: Add 'guix-lint-checker-names'., Alex Kost, 2015/08/28
- 11/24: guix graph: Export node types and <node-type> accessors., Alex Kost, 2015/08/28
- 12/24: emacs: Add 'guix-graph-type-names'., Alex Kost, 2015/08/28
- 13/24: emacs: Add 'guix-package-names'., Alex Kost, 2015/08/28
- 17/24: ui: Add 'run-guix'., Alex Kost, 2015/08/28
- 15/24: emacs: Add minibuffer readers., Alex Kost, 2015/08/28
- 18/24: emacs: Add code to run guix command in REPL., Alex Kost, 2015/08/28
- 14/24: emacs: Add help variables., Alex Kost, 2015/08/28