diff options
author | Hugo Hörnquist <hugo@lysator.liu.se> | 2019-03-21 01:17:20 +0100 |
---|---|---|
committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2019-03-21 01:53:21 +0100 |
commit | 5d5b2cc1ac7d999d1495a1563cce7e306d3dc956 (patch) | |
tree | b148fc7bb20d43d09c0488b4b549bfd7d7b08ef8 /util.scm | |
parent | Fix up fetch to use better abstractions. (diff) | |
download | calp-5d5b2cc1ac7d999d1495a1563cce7e306d3dc956.tar.gz calp-5d5b2cc1ac7d999d1495a1563cce7e306d3dc956.tar.xz |
Update utility functions.
Diffstat (limited to 'util.scm')
-rw-r--r-- | util.scm | 9 |
1 files changed, 8 insertions, 1 deletions
@@ -3,7 +3,7 @@ #:export (destructure-lambda let-multi fold-lists catch-let for-each-in define-quick-record define-quick-record! - mod! sort*) + mod! sort* sort*!) #:replace (let*) ) @@ -119,3 +119,10 @@ (sort items (lambda (a b) (comperator (get a) (get b))))) + +;;; This function borrowed from web-ics (calendar util) +(define* (sort*! items comperator #:optional (get identity)) + "A sort function more in line with how python's sorted works" + (sort! items (lambda (a b) + (comperator (get a) + (get b))))) |