diff options
| author | Thanos Apollo <[email protected]> | 2024-02-20 13:27:36 +0200 |
|---|---|---|
| committer | Thanos Apollo <[email protected]> | 2024-02-20 13:27:36 +0200 |
| commit | 6f23150a8c7c4a67adbf1d67f6f4ec9ddd4c98f0 (patch) | |
| tree | aa49ea307c473b260718e19f2762187270bf0fa2 /gnosis.el | |
| parent | f5fa43148cd2f6f10a3064933aa41f9d7c3df144 (diff) | |
gnosis-edit-update-note: Add ef ff suspend values
Diffstat (limited to 'gnosis.el')
| -rw-r--r-- | gnosis.el | 8 |
1 files changed, 5 insertions, 3 deletions
@@ -1143,9 +1143,8 @@ changes." :lighter " Gnosis Edit" :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) - ef ff) + ef ff suspend) "Update note with id value of ID. ID: Note id @@ -1167,12 +1166,15 @@ SECOND-IMAGE: Image to display after user-input" (image . ,image) (second-image . ,second-image) (ef . ',ef) - (ff . ,ff)) + (ff . ,ff) + (suspend . ,suspend)) 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))) + ((eq field 'suspend) + (gnosis-update 'review-log `(= ,field ,value) `(= id ,id))) ((listp value) (gnosis-update 'notes `(= ,field ',value) `(= id ,id))) (t (gnosis-update 'notes `(= ,field ,value) `(= id ,id)))))) |