diff options
| author | Thanos Apollo <[email protected]> | 2024-02-20 03:00:57 +0200 |
|---|---|---|
| committer | Thanos Apollo <[email protected]> | 2024-02-20 03:00:57 +0200 |
| commit | e2b4fa8546567b185c625bf213a8c64f135780de (patch) | |
| tree | 58fef7b9e87cb1f159967cbaad7c7623592a2456 /gnosis.el | |
| parent | 4045f9554d874083d6771647f18ec46eaee92ac1 (diff) | |
gnosis-update-note: Add ef & ff
Diffstat (limited to 'gnosis.el')
| -rw-r--r-- | gnosis.el | 9 |
1 files changed, 7 insertions, 2 deletions
@@ -1141,7 +1141,8 @@ changes." :keymap gnosis-edit-mode-map) -(cl-defun gnosis-edit-update-note (&key id main options answer tags (extra-notes nil) (image nil) (second-image nil)) +(cl-defun gnosis-edit-update-note (&key id main options answer tags (extra-notes nil) (image nil) (second-image nil) + ef ff) "Update note with id value of ID. ID: Note id @@ -1161,10 +1162,14 @@ SECOND-IMAGE: Image to display after user-input" (tags . ,tags) (extra-notes . ,extra-notes) (image . ,image) - (second-image . ,second-image)) + (second-image . ,second-image) + (ef . ',ef) + (ff . ,ff)) when value do (cond ((memq field '(extra-notes image second-image)) (gnosis-update 'extras `(= ,field ,value) `(= id ,id))) + ((memq field '(ef ff)) + (gnosis-update 'review `(= ,field ,value) `(= id ,id))) ((listp value) (gnosis-update 'notes `(= ,field ',value) `(= id ,id))) (t (gnosis-update 'notes `(= ,field ,value) `(= id ,id)))))) |