From 5dc446ca698dfda6c301b761248f511da23915c5 Mon Sep 17 00:00:00 2001 From: Thanos Apollo Date: Fri, 16 Feb 2024 23:59:45 +0200 Subject: gnosis-review--update: Fix indentation --- gnosis.el | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/gnosis.el b/gnosis.el index 0a21a11..82f93e5 100644 --- a/gnosis.el +++ b/gnosis.el @@ -928,8 +928,10 @@ SUCCESS is a boolean value, t for success, nil for failure." ;; Update review (gnosis-update 'review `(= ef ',ef) `(= id ,id)) (if success - (progn (gnosis-update 'review-log `(= c-success ,(1+ (gnosis-get 'c-success 'review-log `(= id ,id)))) `(= id ,id)) - (gnosis-update 'review-log `(= t-success ,(1+ (gnosis-get 't-success 'review-log `(= id ,id)))) `(= id ,id)) + (progn (gnosis-update 'review-log + `(= c-success ,(1+ (gnosis-get 'c-success 'review-log `(= id ,id)))) `(= id ,id)) + (gnosis-update 'review-log `(= t-success ,(1+ (gnosis-get 't-success 'review-log `(= id ,id)))) + `(= id ,id)) (gnosis-update 'review-log `(= c-fails 0) `(= id ,id))) (gnosis-update 'review-log `(= c-fails ,(1+ (gnosis-get 'c-fails 'review-log `(= id ,id)))) `(= id ,id)) (gnosis-update 'review-log `(= t-fails ,(1+ (gnosis-get 't-fails 'review-log `(= id ,id)))) `(= id ,id)) -- cgit v1.2.3