[nongnu] elpa/hyperdrive dbbe0ecd43 05/30: Add: (hyperdrive-time-greater-p) Inverse of time-less-p

[ELPA Syncer]

branch: elpa/hyperdrive
commit dbbe0ecd4390a70f3afbb08c9bf14aa6c9a33a67
Author: Adam Porter <adam@alphapapa.net>
Commit: Joseph Turner <joseph@ushin.org>

    Add: (hyperdrive-time-greater-p) Inverse of time-less-p
---
 hyperdrive-lib.el | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/hyperdrive-lib.el b/hyperdrive-lib.el
index 4aca04c2a8..32a47a0618 100644
--- a/hyperdrive-lib.el
+++ b/hyperdrive-lib.el
@@ -1304,6 +1304,12 @@ When BASE is non-nil, PATH will be expanded against BASE 
instead."
     (url-default-expander urlobj defobj)
     (url-recreate-url urlobj)))
 
+;;;; Utilities
+
+(defun hyperdrive-time-greater-p (a b)
+  "Return non-nil if time value A is greater than B."
+  (not (time-less-p a b)))
+
 (defun hyperdrive--clean-buffer (&optional buffer)
   "Remove all local variables, overlays, and text properties in BUFFER.
  When BUFFER is nil, act on current buffer."