diff options
| author | Griffin Smith <grfn@gws.fyi> | 2020-07-28T22·29-0400 |
|---|---|---|
| committer | glittershark <grfn@gws.fyi> | 2020-07-31T02·05+0000 |
| commit | 94796399e246d395811e33a5f2da50157881386c (patch) | |
| tree | dd54b668a4405830e7d392ae63cfad1cfb0b0a00 /lisp | |
| parent | 8e7ba41a3486a53de139486b75d72a349d13c415 (diff) | |
feat(web/panettone): Display issue history r/1510
Display the history of an issue (which currently is just opening and closing) inline with the issue's comments on the issue show page Change-Id: Id167bceef765cb4c24e86983d1dcd6624d0e5956 Reviewed-on: https://cl.tvl.fyi/c/depot/+/1497 Tested-by: BuildkiteCI Reviewed-by: tazjin <mail@tazj.in>
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/klatre/klatre.lisp | 10 | ||||
| -rw-r--r-- | lisp/klatre/package.lisp | 5 |
2 files changed, 14 insertions, 1 deletions
diff --git a/lisp/klatre/klatre.lisp b/lisp/klatre/klatre.lisp index 50cc510502..1c8d4c4d2e 100644 --- a/lisp/klatre/klatre.lisp +++ b/lisp/klatre/klatre.lisp @@ -94,3 +94,13 @@ separated by SEP." (check-type str string) (handler-case (parse-integer str) (sb-int:simple-parse-error (_) nil))) + +;;; +;;; Function utilities +;;; + +(defun partial (f &rest args) + "Return a function that calls F with ARGS prepended to any remaining + arguments" + (lambda (&rest more-args) + (apply f (append args more-args)))) diff --git a/lisp/klatre/package.lisp b/lisp/klatre/package.lisp index 2e63401679..21f659ef18 100644 --- a/lisp/klatre/package.lisp +++ b/lisp/klatre/package.lisp @@ -10,4 +10,7 @@ ;; String handling #:+dottime-format+ #:format-dottime - #:try-parse-integer)) + #:try-parse-integer + + ;; Function utilities + #:partial)) |