From 3a6d682c1804f42ffe44fcb50728b62b47ea6a70 Mon Sep 17 00:00:00 2001 From: Thanos Apollo Date: Tue, 2 Apr 2024 16:49:32 +0300 Subject: gnosis-edit-note: Add dashboard as arg Specify dashboard to return to, by default notes. --- gnosis.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/gnosis.el b/gnosis.el index 6d97171..333bbaa 100644 --- a/gnosis.el +++ b/gnosis.el @@ -1244,7 +1244,7 @@ NOTES: List of note ids" (put-text-property (match-beginning 0) (match-end 0) 'read-only t))) (goto-char (point-min))) -(cl-defun gnosis-edit-note (id &optional (recursive-edit nil)) +(cl-defun gnosis-edit-note (id &optional (recursive-edit nil) (dashboard "Notes")) "Edit the contents of a note with the given ID. This function creates an Emacs Lisp buffer named *gnosis-edit* on the @@ -1278,7 +1278,7 @@ changes." (local-unset-key (kbd "C-c C-c")) (local-set-key (kbd "C-c C-c") (lambda () (interactive) (if recursive-edit (gnosis-edit-save-exit 'exit-recursive-edit) - (gnosis-edit-save-exit 'gnosis-dashboard "Notes"))))) + (gnosis-edit-save-exit 'gnosis-dashboard dashboard))))) (defun gnosis-edit-deck--export (id) "Export deck with ID. -- cgit v1.2.3