diff options
Diffstat (limited to 'src/gizmo/wasp-copfish.el')
| -rw-r--r-- | src/gizmo/wasp-copfish.el | 28 |
1 files changed, 14 insertions, 14 deletions
diff --git a/src/gizmo/wasp-copfish.el b/src/gizmo/wasp-copfish.el index 024c27dc..7afa3414 100644 --- a/src/gizmo/wasp-copfish.el +++ b/src/gizmo/wasp-copfish.el @@ -28,20 +28,20 @@ :parser #'buffer-string :success (cl-function - (lambda (&key data &allow-other-keys) - (setq w/copfish-last-response data) - (funcall k data)))) + (lambda (&key data &allow-other-keys) + (setq w/copfish-last-response data) + (funcall k data)))) t) (defun w/copfish-get-fish (user k) "Retrieve USER's fish ratio from copfish API. Pass the resulting fraction to K." (w/copfish-get - (s-concat "fishdex/" user) - (lambda (s) - (let ((sp (s-split " " s))) - (when (= (length sp) 2) - (funcall k (cons (string-to-number (car sp)) (string-to-number (cadr sp))))))))) + (s-concat "fishdex/" user) + (lambda (s) + (let ((sp (s-split " " s))) + (when (= (length sp) 2) + (funcall k (cons (string-to-number (car sp)) (string-to-number (cadr sp))))))))) (defvar w/copfish-user-cache nil) (defun w/copfish-update-user (user) @@ -49,12 +49,12 @@ Pass the resulting fraction to K." (unless (-contains? w/copfish-user-cache user) (add-to-list 'w/copfish-user-cache user) (w/copfish-get-fish - user - (lambda (ct) - (w/user-bind - user - (lambda () - (setf (alist-get :copfish-ratio w/user-current) ct))))))) + user + (lambda (ct) + (w/user-bind + user + (lambda () + (setf (alist-get :copfish-ratio w/user-current) ct))))))) (provide 'wasp-copfish) ;;; wasp-copfish.el ends here |