summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorThanos Apollo <[email protected]>2024-09-15 02:50:55 +0300
committerThanos Apollo <[email protected]>2024-09-15 02:50:55 +0300
commit5b3094c34bc835d3427a08c46c691ae8f967ebcd (patch)
tree47972598a9bce00c0174662c8af4a05adc1b6c70
parenta542549906530ca8c88002988db97590373008f4 (diff)
New function: delete-activity-log.
* Delete all activity log entries.
-rw-r--r--gnosis.el6
1 files changed, 6 insertions, 0 deletions
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.