summaryrefslogtreecommitdiff
path: root/gnosis.el
diff options
context:
space:
mode:
authorThanos Apollo <[email protected]>2024-03-07 08:47:58 +0200
committerThanos Apollo <[email protected]>2024-03-07 08:47:58 +0200
commit8a719bdad4d6d5872d645573ad3986b38920e94b (patch)
tree476fa2b8abb45ecb96323bdfeed15acdf38d286d /gnosis.el
parent43c9c861656aff1f249a0dce54798f26787b0252 (diff)
Add gnosis-delete-note
Diffstat (limited to 'gnosis.el')
-rw-r--r--gnosis.el19
1 files changed, 17 insertions, 2 deletions
diff --git a/gnosis.el b/gnosis.el
index bd0f752..ba08b08 100644
--- a/gnosis.el
+++ b/gnosis.el
@@ -238,6 +238,11 @@ Example:
"From TABLE use where to delete VALUE."
(emacsql gnosis-db `[:delete :from ,table :where ,value]))
+(defun gnosis-delete-note (id)
+ "Delete note with ID."
+ (when (y-or-n-p "Delete note?")
+ (gnosis--delete 'notes `(= id ,id))))
+
(defun gnosis-replace-item-at-index (index new-item list)
"Replace item at INDEX in LIST with NEW-ITEM."
(cl-loop for i from 0 for item in list
@@ -1547,9 +1552,19 @@ to improve readability."
for output = (gnosis-dashboard-output-note id)
when output
collect (list (number-to-string id) (vconcat output))))
+ ;; Keybindings, for editing, suspending, deleting notes.
+ ;; We use `local-set-key' to bind keys to the buffer to avoid
+ ;; conflicts when using the dashboard for displaying either notes
+ ;; or decks.
(local-set-key (kbd "e") #'gnosis-dashboard-edit-note)
- (local-set-key (kbd "s") #'(lambda () (interactive) (gnosis-suspend-note
- (string-to-number (tabulated-list-get-id)))
+ (local-set-key (kbd "s") #'(lambda () (interactive)
+ (gnosis-suspend-note
+ (string-to-number (tabulated-list-get-id)))
+ (gnosis-dashboard-output-notes)
+ (revert-buffer t t t)))
+ (local-set-key (kbd "d") #'(lambda () (interactive)
+ (gnosis-delete-note
+ (string-to-number (tabulated-list-get-id)))
(gnosis-dashboard-output-notes)
(revert-buffer t t t)))))