diff options
| author | Artur Malabarba <bruce.connor.am@gmail.com> | 2014-11-04 09:35:28 +0000 |
|---|---|---|
| committer | Artur Malabarba <bruce.connor.am@gmail.com> | 2014-11-04 09:35:58 +0000 |
| commit | 33383d630ce43045cd94c2b515df7567063fc885 (patch) | |
| tree | 53d9e1ead073bfda15fccaebfd2840bf8a0731ca /stack-question.el | |
| parent | e4ef9753ba024dbc2c96e17a66cbfc1cb871c6cc (diff) | |
Rename -date-sort to -date-more-recent-p
Diffstat (limited to 'stack-question.el')
| -rw-r--r-- | stack-question.el | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/stack-question.el b/stack-question.el index 66a4ea3..a7a74df 100644 --- a/stack-question.el +++ b/stack-question.el @@ -58,6 +58,12 @@ ;; @TODO: (cl-evenp (random))) +(defun stack-question--< (property x y &optional pred) + "Non-nil if PROPERTY attribute of question X is less than that of Y. +With optional argument predicate, use it instead of `<'." + (funcall (or pred #'<) + (cdr (assoc property x)) + (cdr (assoc property y)))) ;;; Displaying a question (defvar stack-question--window nil |