summaryrefslogtreecommitdiff
path: root/gnosis.el
diff options
context:
space:
mode:
authorThanos Apollo <[email protected]>2024-01-03 16:51:09 +0200
committerThanos Apollo <[email protected]>2024-01-03 16:51:09 +0200
commit0506ce9f993178b688ff2fcf596d1108548ca1b4 (patch)
treefb9ff826de613581e43d6b0a0759597de4e215d5 /gnosis.el
parente6f4ec838906937c346a119de6b23c3ccfa6df8b (diff)
Add gnosis-edit-contents
This function creates an Emacs Lisp buffer named *gnosis-edit* and populates it with the values of the note identified by the specified ID. The note values are inserted as keywords for the `gnosis-edit-update-note' function.
Diffstat (limited to 'gnosis.el')
-rw-r--r--gnosis.el57
1 files changed, 57 insertions, 0 deletions
diff --git a/gnosis.el b/gnosis.el
index 6c913b6..15cc768 100644
--- a/gnosis.el
+++ b/gnosis.el
@@ -894,6 +894,63 @@ NOTE-NUM: The number of notes reviewed in the session."
;; `gnosis-update'
(gnosis-update 'review `(= ef ',(gnosis-replace-item-at-index old-value-index new-value ef-full)) `(= id ,id))))
+(defun gnosis-edit-note-contents (id)
+ "Edit the contents of a note with the given ID.
+
+This function creates an Emacs Lisp buffer named *gnosis-edit* and populates it
+with the values of the note identified by the specified ID. The note values are
+inserted as keywords for the `gnosis-edit-update-note' function.
+
+To make changes, edit the values in the buffer, and then evaluate the
+`gnosis-edit-update-note' expression to save the changes.
+
+The note fields that will be shown in the buffer are:
+ - ID: The identifier of the note.
+ - MAIN: The main content of the note.
+ - OPTIONS: Additional options related to the note.
+ - ANSWER: The answer associated with the note.
+ - TAGS: The tags assigned to the note.
+ - EXTRA-NOTES: Any extra notes for the note.
+ - IMAGE: An image associated with the note.
+ - SECOND-IMAGE: Another image associated with the note.
+
+The buffer automatically indents the expressions for readability.
+After finishing editing, evaluate the entire expression to apply the
+changes."
+ (let ((id (gnosis-get 'id 'notes `(= id ,id)))
+ (main (gnosis-get 'main 'notes `(= id ,id)))
+ (options (gnosis-get 'options 'notes `(= id ,id)))
+ (answer (gnosis-get 'answer 'notes `(= id ,id)))
+ (tags (gnosis-get 'tags 'notes `(= id ,id)))
+ (extra-notes (gnosis-get 'extra-notes 'extras `(= id ,id)))
+ (image (gnosis-get 'images 'extras `(= id ,id)))
+ (second-image (gnosis-get 'extra-image 'extras `(= id ,id))))
+ (with-current-buffer (switch-to-buffer (get-buffer-create "*gnosis-edit*"))
+ (erase-buffer)
+ (emacs-lisp-mode)
+ (insert ";;\n;; You are editing a gnosis note. DO NOT change the value of id.\n\n")
+ (insert "(gnosis-edit-update-note ")
+ (cl-loop for (field value) in `((id ,id)
+ (main ,main)
+ (options ,options)
+ (answer ,answer)
+ (tags ,tags)
+ (extra-notes ,extra-notes)
+ (image ,image)
+ (second-image ,second-image))
+ do (cond ((numberp value)
+ (insert (format ":%s %s\n" field value)))
+ ((and (listp value)
+ (not (equal value nil)))
+ (insert (format ":%s '%s\n" field (format "%s" (cl-loop for item in value
+ collect (format "\"%s\"" item))))))
+ ((equal value nil)
+ (insert (format ":%s %s\n" field 'nil)))
+ (t (insert (format ":%s \"%s\"\n" field value)))))
+ (delete-char -1) ;; delete extra line
+ (insert ")")
+ (insert "\n;; After finishing editing, evaluate expression with `C-x C-e'.")
+ (indent-region (point-min) (point-max)))))
;;;###autoload
(defun gnosis-review ()
"Start gnosis review session."