From 5b3094c34bc835d3427a08c46c691ae8f967ebcd Mon Sep 17 00:00:00 2001 From: Thanos Apollo Date: Sun, 15 Sep 2024 02:50:55 +0300 Subject: New function: delete-activity-log. * Delete all activity log entries. --- gnosis.el | 6 ++++++ 1 file changed, 6 insertions(+) (limited to 'gnosis.el') diff --git a/gnosis.el b/gnosis.el index bad0973..71c232d 100644 --- a/gnosis.el +++ b/gnosis.el @@ -1695,6 +1695,12 @@ If NEW? is non-nil, increment new notes log by 1." (gnosis-update 'activity-log `(= reviewed-total ,inc-total) `(= date ',date)) (and new? (gnosis-update 'activity-log `(= reviewed-new ,inc-new) `(= date ',date))))) +(defun gnosis-delete-activity-log () + "Delete all activity log entries." + (interactive) + (when (y-or-n-p "Delete activity log?") + (emacsql gnosis-db [:delete :from activity-log]))) + (defun gnosis-review-note (id) "Start review for note with value of id ID, if note is unsuspended. -- cgit v1.2.3