[nongnu] elpa/gnosis 7d6bf7ee4c 060/110: dashboard: Go back to current line upon making changes.

[ELPA Syncer]

branch: elpa/gnosis
commit 7d6bf7ee4c06218e03b52400b15ed8ce4784fe5d
Author: Thanos Apollo <pub...@thanosapollo.org>
Commit: Thanos Apollo <pub...@thanosapollo.org>

    dashboard: Go back to current line upon making changes.
---
 gnosis.el | 28 ++++++++++++++++------------
 1 file changed, 16 insertions(+), 12 deletions(-)

diff --git a/gnosis.el b/gnosis.el
index a8c5df2c09..61096be24d 100644
--- a/gnosis.el
+++ b/gnosis.el
@@ -2582,20 +2582,24 @@ Skips days where no note was reviewed."
 (defun gnosis-dashboard-suspend-note ()
   "Suspend note."
   (interactive)
-  (if gnosis-dashboard--selected-ids
-      (gnosis-dashboard-marked-suspend)
-    (gnosis-suspend-note (tabulated-list-get-id))
-    (gnosis-dashboard-output-notes gnosis-dashboard-note-ids)
-    (revert-buffer t t t)))
+  (let ((current-line (line-number-at-pos)))
+    (if gnosis-dashboard--selected-ids
+       (gnosis-dashboard-marked-suspend)
+      (gnosis-suspend-note (tabulated-list-get-id))
+      (gnosis-dashboard-output-notes gnosis-dashboard-note-ids)
+      (revert-buffer t t t))
+    (forward-line (- current-line 1))))
 
 (defun gnosis-dashboard-delete ()
   "Delete note."
   (interactive)
-  (if gnosis-dashboard--selected-ids
-      (gnosis-dashboard-marked-delete)
-    (gnosis-delete-note (tabulated-list-get-id))
-    (gnosis-dashboard-output-notes gnosis-dashboard-note-ids)
-    (revert-buffer t t t)))
+  (let ((current-line (line-number-at-pos)))
+    (if gnosis-dashboard--selected-ids
+       (gnosis-dashboard-marked-delete)
+      (gnosis-delete-note (tabulated-list-get-id))
+      (gnosis-dashboard-output-notes gnosis-dashboard-note-ids)
+      (revert-buffer t t t))
+    (forward-line (- current-line 1))))
 
 (defun gnosis-dashboard-search-note (&optional str)
   "Search for notes with STR."
@@ -2683,13 +2687,13 @@ Skips days where no note was reviewed."
         (total2 (string-to-number (elt (cadr entry2) 1))))
     (< total1 total2)))
 
-(defun gnosis-dashboard-rename-tag (&optional tag new-tag )
+(defun gnosis-dashboard-rename-tag ()
   "Rename TAG to NEW-TAG."
   (interactive)
   (let ((current-line (line-number-at-pos)))
     (gnosis-tag-rename (tabulated-list-get-id))
     (gnosis-dashboard-output-tags)
-    (forward-line (- (max current-line 1) 1))))
+    (forward-line (- current-line 1))))
 
 (defun gnosis-dashboard-delete-tag (&optional tag)
   "Rename TAG to NEW-TAG."